當Form的Position更動或大小改變時,會Send WM_GETMINMAXINFO的訊息,當我們取得這個訊息時,可以更動該訊息內定Windows Resize的值,不過本人目前只有測出如何限定其最大的Size,而最小的Size目前沒有測出來,知道可者告訴我Option Explicit'以下程式在module1.basDeclare Function SetWindowLong Lib "user32" Alias "SetWindowLongA"
Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As LongDeclare Function ShowWindow Lib "user32" Alias "ShowWindow" _ (ByVal hwnd As
我們經常在影像播放器和系統進入螢幕保護裝置時看不到滑鼠,這是因為系統刻意將滑鼠隱藏起來的原因。這種“隱藏Mouse”的功能其實並不難,我們利用Visual Basic的API函數ShowCursor即可輕鬆實現,只需要編寫程式如下代碼即可:Public Declare Function ShowCursor Lib "user32" (ByVal bShow As
在VB編程中,經常要根據不同的情況在運行時向視窗中添加或者刪除控制項,而各個控制項還要響應各種事件。在一般的情況下是首先在設計時將控制項加入到視窗中,在它們的各個事件中寫入代碼,然後將它們的Visible屬性設定為False。在運行時再使控制項顯示出來,但是這樣既不方便同時也因為在設計時在視窗中加入太多的控制項而使得程式的運行速度變慢。下面我向大家介紹一種通過編程在運行時動態添加和刪除控制項的方法首先建立一個工程檔案,然後在Form1中加入以下的代碼: Dim WithEvents
在VB中可以通過設定Form的屬性,製作無系統標題列的視窗。可是,由於失去了系統標題列,如何使用滑鼠拖動視窗便成了一個棘手的問題。其實,藉助API函數ReleaseCapture和SendMessage,這個問題便可迎刃而解了。首先,在module檔案中加入下列聲明語句: Declare Sub ReleaseCapture Lib"User"() Declare Function SendMessage Lib"User"(ByVal hWnd
在寫SQL語句時,需要對不同類型的資料分別加上#號,""號等來表示,用以下函數,就可以實現操作的簡化.不管是什麼類型,只需用這個Q函數轉化一下,不需動手加格式化符號,就OK了.實在是方便.本人一直在用它,實在是方便.Function Q(ByVal SqlVariable As Variant) As String'-----------------------------------------' Notes: Useful in creating properly
有些表單在設計時會定義一些特殊的功能訊息,而當我們傳遞這些訊息給這類表單時,這類視窗就會執行某段程式,並返回執行的結果。為了讓程式可以送出訊息,Windows提供了SendMessage API函數。Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long,