Dim x1 As Integer Dim y1 As Integer Dim x2 As Integer Dim y2 As Integer Dim x3 As Integer Dim y3 As Integer Dim color As String Dim r As Integer Private Sub Command1_Click() On Error GoTo AddCoordinate x1 = Text1.Text y1 = Text2.Text x2 = Text3.Text y2 = Text4.Text On Error GoTo addcolor Picture1.Line (x1, y1)-(x2, y2), color Exit Sub AddCoordinate: MsgBox ("Please fill in the coordinates") Exit Sub addcolor: MsgBox ("Please choose a color") Exit Sub End Sub Private Sub Command2_Click() x1 = Val(Text1.Text) y1 = Val(Text2.Text) x2 = Val(Text3.Text) y2 = Val(Text4.Text) Picture1.Line (x1, y1)-(x2, y2), color, B End Sub Private Sub Command3_Click() CommonDialog1.Flags = &H1& CommonDialog1.ShowColor color = CommonDialog1.color End Sub Private Sub Command4_Click() On Error GoTo addvalues x3 = Val(Text5.Text) y3 = Val(Text6.Text) r = Text7.Text Picture1.FillStyle = vbSolid Picture1.FillColor = color Picture1.Circle (x3, y3), r, color Exit Sub addvalues: MsgBox ("Please fill in the coordinates ,the radius and the color") End Sub Private Sub Command5_Click() Picture1.Cls End Sub Private Sub Command6_Click() x1 = Val(Text1.Text) y1 = Val(Text2.Text) x2 = Val(Text3.Text) y2 = Val(Text4.Text) Picture1.Line (x1, y1)-(x2, y2), color, BF End Sub Private Sub Picture1_Change() 'Change the coordinates of the origin Scale (-5000, 5000)-(5000, -5000) Me.Width = 10000 Me.Height = 10000 End Sub
Copyright©2008 Dr.Liew Voon Kiong. All rights reserved |Contact|Privacy Policy