برنامه paint را خودتان بسازید باvb6 با 6 خط کد

[2600]

یک picture box به فرم اضافه نمایید روی فرم دابل کلیک نمایید و این کد را در قسمت general بنویسیدیعنی کپی کنید
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
وبعد برروی pictureboxدابل کلیک نمایید ودر قسمت mousemove و mousedown این کد ها را بنویسید

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
draw = 1
If Button = 1 Then
X1 = X
Y1 = Y
ElseIf Button = 2 Then
Randomize
Picture1.FillColor = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255))
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 Button = 1 Then
If draw = 1 Then
Picture1.Line (X1, Y1)-(X, Y)
X1 = X
Y1 = Y
End If
End If
End Sub
اگه حساب بکنید 6 خط هم نشد



لطفا اگه به درد خورد نظر بدید