سورس کدهای ویژوال بیسیک

1- آیا شده تا به حال بخواهید فرم را کاملا در وسط مانیتور قرار دهید؛حتی اگر ابعاد مانیتور تغییر کرد.

کد زیر را در رویداد Form_Activate قرار دهید و اجرا کنید.

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

خجالت نکشید و عملی کار را امتحان کنید( این کارها رو استاد ما در دانشگاه انجام می داد).

Me.Left=(Screen.Width/2)-(Me.Width/2)

Me.top=(Screen.Height/2)-(Me.Height/2)

2- یک چیز جالب در ویژوال بیسیک

ابتدا از منوی View گزینه Toolbar و سپس Customaize رو انتخاب کنید؛سپس تب

Commands رو انتخاب کنید و از لیست زیرین Help رو انتخاب
کنید و سپس از لیست روبرو گزینه About microsoft visual basic رو درگ کنید روی تولبار اصلی برنامه و رهاش کنید و سپس بدون بستن پنجره ی Customize روی آن راست
کلیک کنید و در قسمت نام عبارت Show VB Credits را وارد کنید و بعد پنجره Customaize رو ببندید و و روی دکمه کلیک کنید و لذت ببرید.

منبع : http://vblog.blogfa.com

3- تا به حال شده یک لینک آبی زیر خط دار در ویژوال بیسیک درست کنید که با کلیک آن به سایت مورد نظر در اینترنت هدایت شوید.در قسمت General فرمتان کدهای زیر را قرار دهید:

Private Function Link(ByVal URL As String) As Long

Link = ShellExecute(0&, vbNullString, URL, vbNullString, vbNullString,

vbNormalFocus)

End Function

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

حال در رویداد کلیک برچسب مورد نظر به طور مثال کد زیر را وارد کنید:

Link("http://vb-source-code.blogfa.com")

در جلسه ی بعدی یاد می دهیم چگونه نوار ابزاری شبیه به Word,PhotoShop,… طراحی کنیم که دارای آیکان های Save,New,Open,… باشد و کار با آن ها را کاملا یاد می گیریم.

مباحث پیشرفته تر از این خواهد شد با ما همراه باشید...