VB中制作小程序中,怎么改变在表面字体的颜色和大小
4个回答
2013-04-23
展开全部
颜色对话框
Private Sub Color_Click()
CommonDialog1.ShowColor
Text1.ForeColor = CommonDialog1.Color
End Sub
字体对话框
Private Sub Font_Click()
CommonDialog1.Flags = 1
CommonDialog1.FontName = Text1.FontName
CommonDialog1.ShowFont
Text1.FontName = CommonDialog1.FontName
Text1.FontSize = CommonDialog1.FontSize
Text1.FontBold = CommonDialog1.FontBold
Text1.FontItalic = CommonDialog1.FontItalic
End Sub
Private Sub Color_Click()
CommonDialog1.ShowColor
Text1.ForeColor = CommonDialog1.Color
End Sub
字体对话框
Private Sub Font_Click()
CommonDialog1.Flags = 1
CommonDialog1.FontName = Text1.FontName
CommonDialog1.ShowFont
Text1.FontName = CommonDialog1.FontName
Text1.FontSize = CommonDialog1.FontSize
Text1.FontBold = CommonDialog1.FontBold
Text1.FontItalic = CommonDialog1.FontItalic
End Sub
2013-04-23
展开全部
与ShowFont方法相关的属性:
●Color选定的颜色。为使用此属性,必须先将Flags属性设置为cdlCFEffects。
●FontBold 是否选定“粗体”。
●FontItalic 是否选定“斜体”。
●FontStrikethru 是否选定删除线。
●FontUnderline 是否选定下划线。
●FontName 选定的字体名称。
●FontSize 选定的字体大小。
使用的语法是直接引用,比如我们要根据“字体对话框”返回的值设置文本框的字体,则直接采用语句:Text.Font=CommonDialog.FontnNameTop
●Color选定的颜色。为使用此属性,必须先将Flags属性设置为cdlCFEffects。
●FontBold 是否选定“粗体”。
●FontItalic 是否选定“斜体”。
●FontStrikethru 是否选定删除线。
●FontUnderline 是否选定下划线。
●FontName 选定的字体名称。
●FontSize 选定的字体大小。
使用的语法是直接引用,比如我们要根据“字体对话框”返回的值设置文本框的字体,则直接采用语句:Text.Font=CommonDialog.FontnNameTop
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你在靠右边的窗口里面找,比如你的对象是Text文本框的话,在窗口里你会找到跟Text很近的一个带颜色的小方格,点击装换颜色,运行看看,就知道了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
fontcolor和fontsize
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询