选择类控件

时间:2015-12-27 04:05:56
【文件属性】:

文件名称:选择类控件

文件大小:2KB

文件格式:RAR

更新时间:2015-12-27 04:05:56

控件

Text1.FontItalic = Chkstyle2.Value End Sub Private Sub Chkstyle3_Click() Text1.FontUnderline = Chkstyle3.Value End Sub Private Sub Optcolor1_Click() If Optcolor1.Value = True Then Text1.ForeColor = vbRed End Sub Private Sub Optcolor2_Click() If Optcolor2.Value = ture Then Text1.ForeColor = vbYellow End Sub Private Sub Optcolor3_Click() If Optcolor3.Value = True Then Text1.ForeColor = vbGreen End Sub Private Sub Optfontsize1_Click() If Optfontsize1.Value = True Then Text1.FontSize = 12 End Sub Private Sub Optfontsize2_Click() If Optfontsize2.Value = True Then Text1.FontSize = 18 End Sub Private Sub Optfontsize3_Click() If Optfontsize3.Value = True Then Text1.FontSize = 24 End Sub Private Sub Text1_Change() End Sub


【文件预览】:
选择类控件
----xz1.vbw(50B)
----xz1.vbp(648B)
----xz1.frm(4KB)

网友评论