- 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
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
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
