ترفند خانه

هر كسي ترفندي درباره ويژوال بيسيك ميدونه اينجا بگه تا همه استفاده كنن ممنون ميشم. :11:

Moveable کردن فرم :

مثالی از کاربرد کد :
میتونید کاری کنید که توی پروژه شما وقتی روی یک Label کلید کردن قابلیت جابجایی صفحه اجرا
بشه !!!

API های زیر را از API Viewer ویژوال بیسیک بازخوانی کنید !

[PHP]SendMessage + ReleaseCapture[/PHP]

کد زیر رو تو قابلیت MouseDown در Label قرار بدید !

[PHP]
MousePointer = 15
Call ReleaseCapture
(&Call SendMessage(hWnd,&HA1,2,0
MousePointer = 1[/PHP]

ترفند دوم:
وقتی شما این سورس رو تو برنامه خودتون جا بدید از اجرای دوباره برنامه میتونید جلوگیری کنید !
این قطعه کد رو تو Form Load بگذارید !!

[PHP]
()Private Sub Form_Load
If App.PrevInstance = True Then
Dim R As Integer
("R = Msgbox ("Cannot Play Again
Unload Me
End If
End Sub
[/PHP]

يعني كسي ترفند ي بلد نيست ؟