|
|
发表于 2010-2-6 10:06:01
|
显示全部楼层
来自： 中国广东广州
窗体代码中申明2 g7 p6 D1 o! r ?# l5 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
# K" Z* ^1 U) m& ], \
3 O; O2 h% A* Q- y. Y# q) Y: KPrivate Sub Form_Load()
4 M2 x" ^0 s. R( L" a3 O'最小化
2 \, F) D- o2 W2 `# lSetWindowPos Me.hwnd, -1, 0, 0, 0, 0, 0
3 j# L" F! L" M+ n2 z'窗体至顶" X& Y* n2 F0 C: ^) z
SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, 39 }% M3 z# F' U
End Sub |
评分
-
查看全部评分
|
