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

2001-11-15 04:43:52 486 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

用Python+PyTorch实现DQN无人机避障：从环境搭建到实战训练（附完整代码）本文详细介绍了如何使用Python和PyTorch框架，基于深度强化学习中的DQN算法，实现一个无人机自主避障系统。内容涵盖从自定义环境搭建、DQN智能体核心算法实现，到完整的训练流程与超参数调优，并提供了可视化演示与进阶优化方向，为开发者提供了从理论到实践的完整指南。阅读详情

多谢

...全文

微带功分器设计与ADS-EM联合仿真实战解析本文详细解析了微带功分器设计与ADS-EM联合仿真的实战技巧，涵盖特性阻抗计算、ADS原理图设计、版图生成与EM仿真等关键步骤。通过实际案例分享，帮助工程师掌握射频电路设计中的核心技术和调试方法，提升功分器设计效率与性能。阅读详情

ydogg

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

ydogg 2001-11-30

打赏
举报

兄弟们可满意？：）

ydogg 2001-11-30

打赏
举报

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

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

yangzhaoyu 2001-11-30

打赏
举报

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

uguess 2001-11-30

打赏
举报

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

sqstudio_zsp 2001-11-26

打赏
举报

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

ydogg 2001-11-26

打赏
举报

结帐

Amoon 2001-11-21

打赏
举报

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

foolishtiger 2001-11-21

打赏
举报

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

shijie819 2001-11-21

打赏
举报

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

Amoon 2001-11-21

打赏
举报

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

Amoon 2001-11-21

打赏
举报

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

ganzhiruogy 2001-11-21

打赏
举报

学习学习！

ganzhiruogy 2001-11-21

打赏
举报

学习学习

foolishtiger 2001-11-21

打赏
举报

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

Amoon 2001-11-21

打赏
举报

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

foolishtiger 2001-11-21

打赏
举报

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

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

yangzhaoyu 2001-11-21

打赏
举报

;(

Amoon 2001-11-20

打赏
举报

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

yangzhaoyu 2001-11-20

打赏
举报

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 2001-11-19

打赏
举报

hehe,我这招管用不？：）

加载更多回复（20）

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

相关推荐