Collegians OF University Najafabad

حالا دیگه احتیاجی نیست که متن داخل TextBox ها را دستی خالی کنید با کد زیر اگر 10000 تا هم

باشند متن داخل آنها پاک می شه!

'www.learnvb.blogfa.com Private Sub ClearTextBoxes(frmClearMe As Form) Dim txt As Control For Each txt In frmClearMe If TypeOf txt Is TextBox Then txt.Text = "" Next End Sub Private Sub Form_Load() Call ClearTextBoxes(Me) End Sub

توسط این کد می توانید برنامه هاتون را همیشه برروی تمام فرمهای باز دیگر نمایش بدهید(Always On

Top) : فقط کافیست برروی فرمتان دو دکمه قرار دهید و با اجرای برنامه و زدن دکمه اول برنامه همیشه

روی فرم های دیگر باز می شود و با زدن دکمه دوم به حالت اول باز می گردد.

'www.learnvb.blogfa.com Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, _ ByVal hWndInsertAfter As Long, ByVal x As Long, y, ByVal cx As Long, _ ByVal cy As Long, ByVal wFlags As Long) As Long Private Const HWND_TOPMOST = -1 Private Const HWND_NOTOPMOST = -2 Private Const SWP_NOMOVE = &H2 Private Const SWP_NOSIZE = &H1 Private Const SWP_NOACTIVATE = &H10 Private Const SWP_SHOWWINDOW = &H40 Private Const TOPMOST_FLAGS = SWP_NOMOVE Or SWP_NOSIZE Private Sub MakeNormal(lngHwnd As Long) SetWindowPos lngHwnd, HWND_NOTOPMOST, 0, 0, 0, 0, TOPMOST_FLAGS End Sub Private Sub MakeTopMost(lngHwnd As Long) SetWindowPos lngHwnd, HWND_TOPMOST, 0, 0, 0, 0, TOPMOST_FLAGS End Sub Private Sub Command1_Click() Call MakeTopMost(Me.hwnd) End Sub Private Sub Command2_Click() Call MakeNormal(Me.hwnd) End Sub

یکی دیگر از توابع Api که می تواند به لیست ما اسکرول اضافه کند :

شما باید در فرم خود یک دکمه و یک لیست قرار دهید و کدها را در برنامه کپی کنید:

'www.learnvb.blogfa.com Private Declare Function SendMessageByNum Lib "user32" Alias _ "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal _ wParam As Long, ByVal lParam As Long) As Long Const LB_SETHORIZONTALEXTENT = &H194 Private Sub Command1_Click() Dim str As String Static x As Long str = InputBox("Enter some text:", "List scroll", _ "A sample item which should invoke the LB_SETHORIZONTALTEXT constant") List1.AddItem str If x < TextWidth(str & " ") Then x = TextWidth(str & " ") If ScaleMode = vbTwips Then x = x / Screen.TwipsPerPixelX SendMessageByNum List1.hwnd, LB_SETHORIZONTALEXTENT, x, 0 End If End Sub