vb CommonDialog 颜色框

发布网友发布时间：2022-11-24 23:48

共2个回答

热心网友时间：2023-10-05 10:18

'颜色
Private Sub Command1_Click()
CommonDialog1.ShowColor '显示颜色对话框
Text1.BackColor = CommonDialog1.Color 'text1背景色设为颜色框返回值
End Sub
'字体
Private Sub Command1_Click()
CommonDialog1.Flags = cdlCFBoth '设标志
CommonDialog1.ShowFont
Text1.Font.Bold = CommonDialog1.FontBold
Text1.Font.Name = CommonDialog1.FontName
Text1.Font.Size = CommonDialog1.FontSize
Text1.Font.Italic = CommonDialog1.FontItalic
Text1.FontStrikethru = CommonDialog1.FontStrikethru
Text1.Font.Underline = CommonDialog1.FontUnderline
End Sub

热心网友时间：2023-10-05 10:18

dim BackValue as long
BackValue=CommonDialog.filename

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com