- Katılım
- 5 Ocak 2014
- Mesajlar
- 3,333
- Tepkime puanı
- 6
- Puanları
- 136
’’ NOT:Çalısmanın saglıklı bır sekılde calısa bılmesı ıcın ılk olarak vısual Basıc project’’ kısmından çalıstırılması gerekmektedir. Dosyları zıpın ıcınden cıkaralım unutmadan
Linkleri sadece kayıtlı üyeler görebilir. Linkleri görebilmek için Üye Girişi yapın veya ücretsiz olarak Kayıt Olun
KODLAR
Private Sub Command1_Click()
Form1.Cls
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Command4_Click()
CommonDialog1.ShowColor
Text10.Text = CommonDialog1.Color
End Sub
Private Sub Command5_Click()
CommonDialog1.ShowColor
Form1.BackColor = CommonDialog1.Color
End Sub
Private Sub Form_Click()
DrawWidth = Text5
If Option1 Then
Line -(Text1, Text2), CommonDialog1.Color
End If
If Option2 Then
Circle (Text1.Text, Text2), Text3, Text4
End If
If Option3 Then
Line (0, 0)-(Text1, Text2), CommonDialog1.Color, B
End If
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.Text = X
Text2.Text = Y
End Sub