Line ile başlayalım

[DeadGhost]

Ayyıldız2 | 2008 TR Yapısı • 1-99 Orta Emek Destan • Oto Avsız • 10 Temmuz 21:00 HEMEN TIKLA!

uygulamamıza standart exe ile başlayıp 1 picture box 7 adet textbox ve 1 adet command button ekleyelim

uygulama başladığında textboks 1 ve 2 de fare koordinatları görünür mausu ilk tıkladığımız yer çizgimizin 1. koordinatı 2. tıkladığımız yer 2. koordinatı olur ve çizgi çizilir

3. tıklamadan itibaren çizgi devam eder

dommand buttona basıldığında ise dinamik bir çizgi belirir

aşağıdaki kodları ekleyip hemen başlayabiliriz


Private Sub Command2_Click()
Text7.Text = 4
End Sub

Private Sub picture1_MouseMove(Button As Integer, Shift As Integer, xm As Single, ym As Single)
Text1.Text = xm
Text2.Text = ym

If Text7.Text = 4 Then
Picture1.Cls
Picture1.Line (Text3.Text, Text4.Text)-(Text1.Text, Text2.Text)

Else
End If

End Sub

Private Sub Picture1_Click()

If Text7.Text = 1 Then

Text3.Text = Text1.Text
Text4.Text = Text2.Text
Text7.Text = 2
Else

Text5.Text = Text1.Text
Text6.Text = Text2.Text
Text7.Text = 3
Picture1.Line (Text3.Text, Text4.Text)-(Text5.Text, Text6.Text)
End If


If Text7.Text = 3 Then

Text3.Text = Text5.Text
Text4.Text = Text6.Text
Text5.Text = Text1.Text
Text6.Text = Text2.Text
Text7.Text = 3
Picture1.Line (Text3.Text, Text4.Text)-(Text5.Text, Text6.Text)
Else
End If
End Sub

 

[OptiMistics]

Teşekkürler.

 

[kutlucan1]

Teşekkürler.