|
|
楼主 |
发表于 2012-9-11 09:19:36
|
显示全部楼层
来自： 中国福建莆田
窗口前置代码如下：
: i; `+ D0 c# \$ e2 L* A模块代码：5 \6 q0 J. [" n9 `; b w5 p9 v8 |0 z
Option Explicit
- q$ C# [0 S0 F* C' D0 PDeclare Function SetWindowPos& Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)% f) ~2 J g% J
$ \( U n0 ^! \5 w+ M& ^
窗体代码：load事件下：
$ A' i' J6 I/ OPrivate Sub form_load()
- \9 k4 c3 a3 g+ yDim a As String( a# C' |/ @/ g1 c7 }) U8 e
a = SetWindowPos(hwnd, -1, 0, 0, 0, 0, 3)+ f9 H, E4 U u6 u8 s {1 C: w, R) t
End Sub |
|
发表于 2012-9-10 08:01:26
