在vb程序中,怎么设计一个设置字符格式的程序
3个回答
展开全部
Private Sub CommandButton1_Click()
If Text1.Font.Name = "宋体" Then
Text1.Font.Name = "黑体"
Else
Text1.Font.Name = "宋体"
End If
End Sub
修改字体(点击按钮,将Text1文本框中的字体样式在"黑体"和"宋体"间切换)
(如果是修改其他属性,以此类推)
只要查查相关属性值,修改还是很轻松的。
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(是否下划线)
展开全部
我怕我写出来你都现在都难以理解。思路也不复杂,把一段字体格式、样式 写在文本框里面,然后通过代码分析文本框的内容得出要对字体的设置信息。
如这样写文本框的内容:华文楷体,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,
反正你只要理解这么几个文本框字体设置的属性的每个属性的作用和使用方法就行了。
如这样写文本框的内容:华文楷体,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,
反正你只要理解这么几个文本框字体设置的属性的每个属性的作用和使用方法就行了。
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
1、00,002
前面的零不省略
2、2.4495
用#号表示是,为零的两端数字不显示
3、00,000+02
用0表示时零不省略
4、 -2.4495
前面的零不省略
2、2.4495
用#号表示是,为零的两端数字不显示
3、00,000+02
用0表示时零不省略
4、 -2.4495
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询