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

وب سایت های ایرانی را با یک جستجو به زبان فارسی در گوگل پیدا کنید و اما سایت های خارجی:

www.PlanetSourceCode.com

سایتی جامع از انواع سورس کدهای VB6 , .NET , ASP , PHP و دیگر زبان های برنامه نویسی در این سایت می توانید عضو شوید و هر روز با توجه به سورس کدی که در هنگام ثبت نام انتخاب کردید جدیدترین سورس کدها را به ایمیل تان می فرستد.

http://www.codeguru.com/vb

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

فیلم های آموزشی جدید ؛ ترفندهای جدید و همچنین دارای فروم برای طرح مباحث می باشد.

http://www.vbexplorer.com/VBExplorer/VBExplorer.asp

این سایت هم شامل موارد بالا همراه VB Games , VB News می باشد که مقالات در مورد Direct3d هم به چشم می خورد.

http://www.vbcode.com

جالب ترین بخش این سایت شامل Submit Code (ثبت کد شما) و WhitePapers (فرضیه ها که هنوز پیاده سازی عملی نشده) می باشد.

http://www.freevbcode.com

منوی کامل و با دسته بندی کامل تر آن حرف برای گفتن باقی نمی گذارد.(منوهای بانک اطلاعاتی – فرم ها – ریاضی و فرمول – شبکه – رجیستری و غیره)

جهت بدست آوردن مختصات ماوس باید از توابع API استفاده کنیم.(نحوه کار کردن با توابع API قبل آموزش داده شده است.)

ابتدا تابع GetCursorPos را از توابع API فراخوانی کنید سپس کد زیر را در برنامه بصورت روبرو قرار دهید:

Private Type POINTAPI

X as long

Y as long

End Type

در این 2 متغیر مختصات ستون و سطر جاری ذخیره می شود ؛ حال کد زیر را در رویداد Form_MouseMove قرار دهید:

Dim Pt as POINTAPI

GetCursorPos Pt

Me.CurrentX=0

Me.CurrentY=0

Me.Cls

Label1.Caption=Str$(Pt.X) ‘ x position

Label2.Caption=Str$(Pt.Y) ‘ y position

حال اگر می خواهید مختصات خارج از فرم را هم نمایش دهید باید تمام کدهای بالا را به یک تایمر انتقال دهید سپس تابع SetCapture را هم از توابع API فراخوانی کنید سپس در انتهای کد موجود در تایمر دستور SetCapture Me.hwnd را قرار دهید.

Interval تایمر را برابر 20 و خاصیت Enabled آن را فعال کنید.