|
|
发表于 2010-2-6 10:06:01
|
显示全部楼层
来自: 中国广东广州
窗体代码中申明
0 N" g H- q/ O' w* {- e( L' wDeclare 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) As Long
0 a% v# P( q, k
/ o9 l9 k$ i0 J% x- JPrivate Sub Form_Load(), f; F; G* ~% w5 ?& S9 u4 w# A+ f
'最小化
B. ?0 r) |4 w5 E+ z$ v% O- hSetWindowPos Me.hwnd, -1, 0, 0, 0, 0, 0
: [& T# K* v8 l0 |) K. Z/ M# N'窗体至顶$ |1 M8 ` S9 V& t
SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, 3/ M: ], H* s% w' E0 k& U; j5 q
End Sub |
评分
-
查看全部评分
|