|
|
楼主 |
发表于 2012-9-11 09:19:36
|
显示全部楼层
来自： 中国福建莆田
窗口前置代码如下：# `- ^" k5 E' O6 a
模块代码： z4 F$ Q6 c, T4 R( o
Option Explicit
7 q/ ~2 T% W9 L1 ]6 _/ K' E; 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)+ B! u+ D' n9 ~* R$ Z4 a; I7 g
) f, _8 H1 s$ O1 Y% @' `窗体代码：load事件下：
! x1 @, h) p9 WPrivate Sub form_load()0 ?% n! T% N) y1 J3 h. t1 A" ?
Dim a As String
- ?6 w6 [% J; @& Wa = SetWindowPos(hwnd, -1, 0, 0, 0, 0, 3)5 s+ q+ }# L5 t- W. ^3 P) L
End Sub |
|
发表于 2012-9-10 08:01:26
