سطل رنگ در paint

[m4hd1r]

سلام
ميشه بگيد چجوري ميتونم كدي مثل سطل رنگ داخل برنامه پينت رو بنويسم؟ خودم خواستم با تشخيص پيكسل ها برم جلو واقعا طولاني شد (معلومه..!) كد سريع تر داريد؟:لبخند:

[MohammadGh2011]

سلام عليکم
نميدونم منظورتون رو درست متوجه شدم يا نه!
اگه ميخوايد جعبهي رنگ درست کنيد و در برنامه استفاده کنيد بايد بگم که نميخواد اين کار رو انجام بديد يعني خود VB براتون آماده ساخته.
فقط کافيه از Commondialog استفاده کنيد و از کد ShowColor
اگه نه اينجوري نيست منظورتون رو واضح تر برسونيد تا من (اگه تونستم)و اساتيدان گرامي بتونيم راهنمايي کنيم.


موفق باشيد

[m4hd1r]

نه نه منظورم ابزار سطر دوم از بالا ستون دوم هست كه يه تيكه رو رنگ ميكنه

[محسن واژدی]

سلام
کد زیر را بررسی کنید:

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

Private Sub Form_Load()
Picture1.AutoRedraw = True
Picture1.ScaleMode = vbPixels
Picture1.Line (10, 10)-(100, 100), , B
End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim Suc%

Picture1.FillStyle = 0
Picture1.FillColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Call ExtFloodFill(Picture1.hdc, X, Y, Picture1.Point(X, Y), 1)
End Sub



رنگ جدید را در رویداد Picture1_MouseDown جایگزین مقدار Picture1.FillColor کنید

موفق باشید