تبلیغات


لطفا کمی صبر کنید...
وبلاگ به خاطر حجم بسیار زیاد مطالب کمی سنگین شده است.
 شاید بیش از یک دقیقه طول بکشد.

(بستن)

آموزش ویژوال بیسیک 6 از مقدماتی تا پیشرفته و حرفه ای - پر كردن فضاهای خالی با رنگ مورد نظر (API)
آموزش ویژوال بیسیک 6 از مقدماتی تا پیشرفته و حرفه ای
زکات علم آموختن است.

آرشیو موضوعی

لینکدونی

آرشیو

لینکستان

آمار در میهن بلاگ

  • کل بازدید :
  • بازدید امروز :
  • بازدید دیروز :
  • بازدید این ماه :
  • بازدید ماه قبل :
  • تعداد نویسندگان :
  • تعداد کل پست ها :
  • آخرین بازدید :
  • آخرین بروز رسانی :

سخن مدیر

استفاده از مطالب این وبلاگ فقط با ذکر منبع بلامانع میباشد.

تبادل بنر تبلیغاتی تبادل لوگوی وبلاگ

کلاسهای آموزش برنامه نویسی :

VB6 - VB.NET - C - C# - ASP - ASP.NET - PHP - SQL

به صورت خصوصی در مشهد با قیمت جلسه ای 15 هزار تومان - (حرفه ای شوید)

جهت کسب اطلاعات بیشتر با شماره 09364222771 تماس بگیرید

نظــــر = شخصیّــت Smiley


مرجع كامل مستند

پر كردن فضاهای خالی با رنگ مورد نظر (API)

حالا این كه گفتم چی هست؟ مثلاً یه دایره رو در نظر بگیرید كه توش خالیه و میخوایم توشو با رنگ آبی پر كنیم، اینجاست كه این تابع به دردمون میخوره. این تابع بیشتر بدرد بچه های سوم كامپیوتر كه میخوان برنامه Paint بسازن میخوره.
یك پروژه جدید باز كنید و دو تا Command Button و دو تا ComboBox به فرمتون اضافه كنید و كد زیر رو تو قسمت جنرال فرمتون كپی كنید :
 

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 X As Single, Y As Single
Private Sub Command1_Click()
    Me.Cls
    Me.FillStyle = 1
    R = Me.ScaleWidth / 2
    Me.Circle (X, Y), R, vbRed
    Me.FillStyle = Combo1.ListIndex
End Sub
Private Sub Command2_Click()
    Me.FillColor = Combo2.ItemData(Combo2.ListIndex)
    Me.FillStyle = Combo1.ListIndex
    ExtFloodFill Me.hdc, X, Y, Me.Point(X, Y), 1
End Sub
Private Sub Form_Load()
    Me.Width = 5000
    Me.Height = 7000
    Me.AutoRedraw = True
    Command1.Caption = "Draw Circle"
    Command1.Move 0, 0, 1000, 350
    Command2.Caption = "FloodFill"
    Command2.Move 1100, 0, 1000, 350
    Combo1.Move 2200, 0, 1800
    Combo1.List(0) = "0 - Solid"
    Combo1.List(1) = "1 - Transparent"
    Combo1.List(2) = "2 - Horizontal Line"
    Combo1.List(3) = "3 - Vertical Line"
    Combo1.List(4) = "4 - Upward Diagonal"
    Combo1.List(5) = "5 - Downward Giagonal"
    Combo1.List(6) = "6 - Cross"
    Combo1.List(7) = "7 - Diagonal Cross"
    Combo1.ListIndex = 0
    Combo2.Move 4000, 0, 800
    Combo2.List(0) = "Red"
    Combo2.ItemData(0) = vbRed
    Combo2.List(1) = "Green"
    Combo2.ItemData(1) = vbGreen
    Combo2.List(2) = "Blue"
    Combo2.ItemData(2) = vbBlue
    Combo2.List(3) = "Yellow"
    Combo2.ItemData(3) = vbYellow
    Combo2.ListIndex = 1
    Me.ScaleMode = 2
    Me.FillColor = vbGreen
    X = Me.ScaleWidth / 2
    Y = Me.ScaleHeight / 2
End Sub

حالا برنامه رو اجرا كنید و نتیجه رو ببینید. موفق باشید.


نظــــر بــــدهید...

درباره وبلاگ

بهترین آموزشگاه برنامه نویسی به زبان ویژوال بیسیک 6 از مقدماتی تا پیشرفته و حرفه ای همراه با آموزش آنتی ویروس نویسی حرفه ای و سورس های آماده ویروس
مدیر وبلاگ : امیر امیری

آخرین پست ها

جستجو

نویسندگان

آمار در وبگذر

Page Rank