تبلیغات
آموزش ویژوال بیسیک 6 از مقدماتی تا پیشرفته و حرفه ای - شبیه سازی برنامه Paint
آموزش ویژوال بیسیک 6 از مقدماتی تا پیشرفته و حرفه ای
زکات علم آموختن است.

آرشیو موضوعی

لینکدونی

آرشیو

لینکستان

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

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

سخن مدیر

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

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

شبیه سازی برنامه Paint

این برنامه تقریباً کاره برنامه Paint رو انجام میده امّا کامل نیست که خودتون میتونید تکمیلش کنید، من فقط اساس کارو بهتون آموزش میدم.

یک پروژه جدید باز کنید و دو تا منو به نامهای mnuClear و mnuSave درست كنید و Caption اونارو بذارید Clear و Save بعد کد زیر رو تو قسمت جنرال فرمتون کپی کنید:

Dim sngOldX, sngOldY As Single
Private Sub Form_Load()
    Me.Appearance = 0
    Me.AutoRedraw = True
    Me.DrawWidth = 3
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
        If Button = vbRightButton Then
            Me.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
        End If
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
        If Button = vbLeftButton Then
            Me.Line (sngOldX, sngOldY)-(X, Y)
        End If
        sngOldX = X
        sngOldY = Y
End Sub
Private Sub mnuClear_Click()
    Me.Cls
End Sub
Private Sub mnuSave_Click()
    SavePicture Me.Image, "C:\Pic.bmp"
    MsgBox ("C:\Pic.bmp")
End Sub

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


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

درباره وبلاگ

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

آخرین پست ها

جستجو

نویسندگان

آمار در وبگذر

Page Rank