- Katılım
- 5 Ocak 2014
- Mesajlar
- 3,333
- Tepkime puanı
- 6
- Puanları
- 136
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
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