选择类控件

【文件属性】：
文件名称：选择类控件
文件大小：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)