Question

在vb程序中，怎么设计一个设置字符格式的程序

例如；在文本框中输入“什么都是浮云"单击命令字符按钮，则将文本的字符格式设置为对应的格式

Answer 1

Private Sub CommandButton1_Click()
If Text1.Font.Name = "宋体" Then
Text1.Font.Name = "黑体"
Else
Text1.Font.Name = "宋体"
End If
End Sub

修改字体（点击按钮，将Text1文本框中的字体样式在"黑体"和"宋体"间切换）
（如果是修改其他属性，以此类推）
只要查查相关属性值，修改还是很轻松的。

追问

可以说的更具体一点儿吗，初学者，请见谅

追答

代码都给出来了，还不够具体？
应该主要有以下几种属性
字符型
Name（字体名称）（楷体、黑体、宋体、Arial等)
数值型
Size（字体大小）
逻辑型（True & False)
Blot（是否粗体）
Itatic（是否斜体）
Strikethrough（是否删除线）
Underline（是否下划线）

追问

不是，是因为我和我同学都按照你的方法去做了，可是都不对

追答

加QQ：6499804

Answer 2

我怕我写出来你都现在都难以理解。思路也不复杂，把一段字体格式、样式 写在文本框里面，然后通过代码分析文本框的内容得出要对字体的设置信息。
如这样写文本框的内容：华文楷体,20,粗体1,&hff0000
然后通过代码就得到文本框里面的每一个信息：
dim f() as String
f=split(text1.text,",") '这里用到数组
这样子就可以得到里面的详细的每一个设置信息
下一步设置：
Text1.FontName=f(0) ‘字体名称
Text1.FontSize=Val(f(1)) '字体大小
Text1.FontBold=iif(f(2)="粗体1",True,False) ' ”粗体1“表示设置粗体，否则取消设置粗体
Text1.ForeColor=Val(f(3)) '设置字体颜色(前景色)；&Hff0000是表示红色；Val()是一个转换为数值型的函数
由于你刚学，不说那么复杂的，就比如说随便乱序输入文本框字体设置：20,华文中宋,&hffff00,斜体1，
反正你只要理解这么几个文本框字体设置的属性的每个属性的作用和使用方法就行了。

Answer 3

1、00,002
前面的零不省略
2、2.4495
用#号表示是，为零的两端数字不显示
3、00,000+02
用0表示时零不省略
4、 -2.4495