代碼：
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_SIZE = (&H5)
Private Sub Command1_Click()
Dim x As Long'欲設定寬度
Dim y As Long'欲設定的高度
x = 400
y = 300
SendMessage hwnd, WM_SIZE, ①, ②
End Sub
①=
②=
如果要添加程序，請把程序發上。
uj5u.com熱心網友回復：
SendMessage hwnd, WM_SIZE, SIZE_RESTORED, x + y * 32768(SIZE_RESTORED = 0)
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/126325.html
標籤：API
上一篇：求助 VB6 WebBrowser怎樣獲取 id="J_VolCat_???"的？？？
下一篇：加載DLL錯誤，著急，在線等