mohammad__d
دوشنبه 27 آذر 1385, 20:30 عصر
برنامه اشکال دارد لطفا راهنمایی کنید
(فایل هم ضمیمه است)
Public x1, x2, y1, y2 As Single
Private Sub Command1_Click()
Pic1.Cls
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Pic1.BackColor = QBColor(0)
Pic1.ForeColor = QBColor(15)
End Sub
Private Sub Pic1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
x1 = X
y1 = Y
End Sub
Private Sub Pic1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Pic1.AutoRedraw = True
Pic1.Line (x1, y1)-(Pic1.CurrentX, Pic1.CurrentY)
End Sub
Private Sub Pic1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Pic1.CurrentX = X
Pic1.CurrentY = Y
End Sub
(فایل هم ضمیمه است)
Public x1, x2, y1, y2 As Single
Private Sub Command1_Click()
Pic1.Cls
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Pic1.BackColor = QBColor(0)
Pic1.ForeColor = QBColor(15)
End Sub
Private Sub Pic1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
x1 = X
y1 = Y
End Sub
Private Sub Pic1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Pic1.AutoRedraw = True
Pic1.Line (x1, y1)-(Pic1.CurrentX, Pic1.CurrentY)
End Sub
Private Sub Pic1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Pic1.CurrentX = X
Pic1.CurrentY = Y
End Sub