YQJJ的个人资料 - RAT

YQJJ YQJJ

关注数: 0 粉丝数: 10 发帖数: 109 关注贴吧数: 0

还是我~~~ Dim color As VariantDim bold As BooleanDim fill As BooleanDim shape As StringPrivate Sub Check1_Click() bold = Not bold Call DrawShape(color, shape, bold, fill)End SubPrivate Sub Check2_Click() fill = Not fill Call DrawShape(color, shape, bold, fill)End SubPrivate Sub Form_Load() color = vbRed bold = False fill = False shape = "line"End SubSub DrawShape(ByVal color As Variant, ByVal shape As String, ByVal bold As Boolean, ByVal fill As Boolean) Picture1.Cls If bold Then Picture1.DrawWidth = 5 Else Picture1.DrawWidth = 1 End If If shape = "line" Then Picture1.Line (1000, 1000)-(2000, 2000), color Check2.Visible = False fill = False ElseIf shape = "circle" Then Picture1.Circle (1000, 1000), 500, color Check2.Visible = False fill = False ElseIf shape = "rect" Then If fill Then Picture1.Line (1000, 1000)-(2000, 2000), color, BF Else Picture1.Line (1000, 1000)-(2000, 2000), color, B End If Check2.Visible = True End IfEnd SubPrivate Sub Option1_Click() color = vbRed Call DrawShape(color, shape, bold, fill)End SubPrivate Sub Option2_Click() color = vbBlue Call DrawShape(color, shape, bold, fill)End SubPrivate Sub Option3_Click() color = vbGreen Call DrawShape(color, shape, bold, fill)End SubPrivate Sub Option4_Click() shape = "line" Call DrawShape(color, shape, bold, fill)End SubPrivate Sub Option5_Click() shape = "circle" Call DrawShape(color, shape, bold, fill)End SubPrivate Sub Option6_Click() shape = "rect" Call DrawShape(color, shape, bold, fill)End Sub

是我大家别删哦这是我们考试要用的晚上回来就铐走Private Sub Check1_Click()Text1.FontBold = Check1.ValueEnd SubPrivate Sub Check2_Click()Text1.FontItalic = Check2.ValueEnd SubPrivate Sub Check3_Click()Text1.FontUnderline = Check3.ValueEnd SubPrivate Sub Form_Load()Check1.Value = 1Option1.Value = TrueOption4.Value = TrueText1.FontSize = 12Text1.ForeColor = vbRedEnd SubPrivate Sub Option1_Click()Text1.FontSize = 12End SubPrivate Sub Option2_Click()Text1.FontSize = 14End SubPrivate Sub Option3_Click()Text1.FontSize = 16End SubPrivate Sub Option4_Click()Text1.ForeColor = vbRedEnd SubPrivate Sub Option5_Click()Text1.ForeColor = vbGreenEnd SubPrivate Sub Option6_Click()Text1.ForeColor = vbYellowEnd Sub

1 下一页