Şimdi sizlere Vb’ de yapılmış bir çizim programı - Turkish Hacking Sabotage | Türkiyenin En Büyük Hack Ve Security Sitesi

b_j_k_38 · **Şimdi sizlere Vb’ de yapılmış bir çizim programı -** 05-13-2008

Şimdi sizlere Vb’ de yapılmış bir çizim programı anlatacağım.öncelikle boş bir proje açıyoruz ve boş bir formun içerisine bir tane label ve bir tane picturebox ekliyoruz.
label ’ a şunları yazıyoruz;
Aşağıdaki picture nesnesine farenin sol tuşu ile cizgi cizebilir. Sağ tuşuylada bu alanları bir renkle doldurabilirsiniz.
gelelim kodlara;
Private Declare Function ExtFloodFill Lib "Gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long, ByVal wFillType As Long) As Long
Dim X1, Y1
Dim draw
Dim temp

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
’enable drawing
draw = 1
’if left mouse button, set up the line drawing
If Button = 1 Then
X1 = X
Y1 = Y
’if right mouse button, fill
ElseIf Button = 2 Then
’build a random fill color
Randomize

’ Picture1.Cls
Picture1.FillColor = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255))
’call the dll using a temporary variable

ExtFloodFill Picture1.hdc, X, Y, Picture1.Point(X, Y), 1

End If
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
’if left mouse button, draw a line between the original point
’and the current one, but only if drawing is enabled
If Button = 1 Then
If draw = 1 Then
Picture1.Line (X1, Y1)-(X, Y)
X1 = X
Y1 = Y
End If
End If
End Sub
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
’disable drawing
draw = 0
End Sub

bu kodları kop-yapıştır yapmanız yeterli.ancak programlama ya gerçekten baş koyduysanız sadece kop-yapış yapmak yeterli olmayacaktır.programı yapmak basit ancak önemli olan kodların ne işe yaradıklarını anlayabilmektir.

**AdagioO** · 05-13-2008

Sağol .

dogu36 · 05-16-2008

saolasın

pcopath · 05-16-2008

eyw....

Konu Bilgileri
	Konu Başlığı Şimdi sizlere Vb’ de yapılmış bir çizim programı	Konudaki Cevap Sayısı 3
	Şuan Bu Konuyu Görüntüleyenler	Görüntülenme Sayısı 0

Seçenekler	Arama
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder	Arama: Gelişmiş arama yap
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)