文件名称:选择类控件
文件大小: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)