|
|
|
|
| |
Line ile Grafik Çizim Yapmak |
|
| |
Line ile Grafik Çizim Yapmak
Dim xx, yy, sayac, d
Private Sub Form_Load()
Form1.Caption = "İsoCad By:İha"
Form1.BackColor = 0
Me.AutoRedraw = True
Line1.BorderColor = &HFFFF&
Form1.ForeColor = &HFFFF&
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
d = d + 1
Me.MousePointer = 2
If d >= 2 Then
If sayac = 0 Then xx = X: yy = Y: sayac = Val(sayac) + 1: Exit Sub
sayac = Val(sayac) + 1
Me.Line (X, Y)-(xx, yy)
xx = X: yy = Y
End If
End If
If Button = 2 Then
Me.MousePointer = 1
sayac = 0
d = 0
End If
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If d > 1 Then
Line1.Visible = True
Else
Line1.Visible = False
End If
Me.Line1.X1 = xx
Me.Line1.X2 = X
Me.Line1.Y1 = yy
Me.Line1.Y2 = Y
End Sub
|
|
|
|
|
|
| |
29 Ekim 2007'den beri 24626 ziyaretçi (38772 klik)
Copyrigh(c)2007, Ali AKMAZ All right reserved
|
|
|
|
|
|
|
|
