VB中制作小程序中,怎么改变在表面字体的颜色和大小

发布网友 发布时间：2022-04-26 23:08

我来回答

共4个回答

热心网友 时间：2022-06-19 19:04

颜色对话框
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

热心网友 时间：2022-06-19 19:04

与ShowFont方法相关的属性：
　　●Color选定的颜色。为使用此属性，必须先将Flags属性设置为cdlCFEffects。
　　●FontBold 是否选定“粗体”。
　　●FontItalic 是否选定“斜体”。
　　●FontStrikethru 是否选定删除线。
　　●FontUnderline 是否选定下划线。
　　●FontName 选定的字体名称。
　　●FontSize 选定的字体大小。
　　使用的语法是直接引用，比如我们要根据“字体对话框”返回的值设置文本框的字体，则直接采用语句：Text.Font=CommonDialog.FontnNameTop

热心网友 时间：2022-06-19 19:05

你在靠右边的窗口里面找，比如你的对象是Text文本框的话，在窗口里你会找到跟Text很近的一个带颜色的小方格，点击装换颜色，运行看看，就知道了

热心网友 时间：2022-06-19 19:06

fontcolor和fontsize