我有一个窗体，上面有一个按钮，如何让窗体隐藏，按钮还显示呢？

[ydogg]

多谢

[Amoon]

hehe,我这招管用不？ ：）

[yangzhaoyu]

Amoon(阿木)兄,你的帖子不错,可你忘了按钮的位置(^_^)
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type





Private Sub Command1_Click()
Dim frmPoint As POINTAPI
Dim cmdPoint As POINTAPI
Dim x1, y1
ClientToScreen Form1.hwnd, frmPoint
cmdPoint.x = Command1.Left
cmdPoint.y = Command1.Top
x1 = Screen.TwipsPerPixelX
y1 = Screen.TwipsPerPixelY

Me.Hide
SetParent Command1.hwnd, GetDesktopWindow
Command1.Move frmPoint.x * x1 + cmdPoint.x, frmPoint.y * y1 + cmdPoint.y

End Sub

[Amoon]

to yangzhaoyu(老妖): ：），人家没有问嘛。呵呵，没准人家知道呢。：）

[yangzhaoyu]

;(

[foolishtiger]

大家看看阿木！！
Private Sub Command1_Click()
Me.Hide
SetParent Command1.hWnd, GetDesktopWindow
End Sub

.Hide就是“把儿子藏到地窖”啊,呵呵

[Amoon]

to foolishtiger(吴文智):不是吧，我只是给CommandButton换了个老爸啊，呵呵。

[foolishtiger]

只是给它找了个干爹，不信你把这按钮关掉啊。在桌面上就不行了吧，还得找到它亲爹才管用。

[ganzhiruogy]

学习学习

[ganzhiruogy]

学习学习！

[Amoon]

to foolishtiger(吴文智):Really？要是我在Command_Click中Destroy Command.hwnd 呢？ ：）

[Amoon]

to foolishtiger(吴文智):Really？要是我在Command_Click中DestroyWindow Command.hwnd 呢？ ：）

[shijie819]

你可以再画一个窗口，与你的按纽外表一样，再在这个窗口上画一个按钮！～
^_^ok!

[foolishtiger]

To Amoon(阿木)　:那就是你把它父亲给干掉了,可毕竟它父亲还是存在过啊.

[Amoon]

to foolishtiger(吴文智):呵呵，不是啊，是那个按钮自杀了！

[ydogg]

结帐

[sqstudio_zsp]

呵呵
这个帖子满好玩的
有趣

[uguess]

老兄，你的分还在路上么？

[yangzhaoyu]

to uguess(uguess)
i think this road have no end

[ydogg]

嘿嘿~~各位不好意思~~上次结过一次，但是没有成功~~
有劳各位久等~~~~


还有觉得分不够的，请到灌水乐园找灰毛兔，灰毛兔再送300分~~ ：）

[ydogg]

兄弟们可满意？：）