|
|
发表于 2010-2-6 10:06:01
|
显示全部楼层
来自: 中国广东广州
窗体代码中申明
3 x4 [# }6 |" D+ v# ?Declare 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
X& Q# L5 O" [% L9 u/ D1 Y+ J" Q4 L
Private Sub Form_Load()
$ p2 Z" ?" H, ~'最小化
$ }. X, [& z2 LSetWindowPos Me.hwnd, -1, 0, 0, 0, 0, 0
: T/ s/ {0 u0 w6 r1 H. Y' Q'窗体至顶
9 p: J& f {4 W2 vSetWindowPos Me.hwnd, -1, 0, 0, 0, 0, 3* Q% q$ x7 O# A4 W3 X: B" o% q
End Sub |
评分
-
查看全部评分
|