如何写VB代码实现“按下按钮后弹出另一个窗口”的功能?
如上图所示。我想在按下窗体1中的绿色按钮后,直接在左边弹出另一个窗体2,并且该窗口跟窗体1是可以连在一起的,也就是说,假如我移动窗体1,窗体2也紧跟着一起移动。该如何写V...
如上图所示。我想在按下窗体1中的绿色按钮后,直接在左边弹出另一个窗体2,并且该窗口跟窗体1是可以连在一起的,也就是说,假如我移动窗体1,窗体2也紧跟着一起移动。该如何写VB代码实现呢?
弹出窗体2后,再次按下该按钮后,窗体2隐藏或消失。这个又该怎么写呢? 展开
弹出窗体2后,再次按下该按钮后,窗体2隐藏或消失。这个又该怎么写呢? 展开
2个回答
展开全部
关键的东西看下面的计算式。
form2.left=form1.left-form2.width '计算窗体2的水平位置 窗体2的左辺位置=窗体1的左辺减掉窗体2的宽度
form2.top=form1.top '窗体2和窗体1的top一样。(显示器顶部到窗体标题栏的距离一样)
移动时同时移动就是用Timer控制吧、如果窗体2可见就运行上面同歩代码(对窗体2的left和Top进行时刻调整)Timer的Interval=100 (毎秒同歩10次、毎100Ms同歩一次)
弹出窗体2后,再次按下该按钮后,窗体2隐藏或消失。这个又该怎么写呢?
用下面的代码切换窗体2的可视属性。
if form2.visible=true then
form2.visible=false
else
form2.visible=true
endif
form2.left=form1.left-form2.width '计算窗体2的水平位置 窗体2的左辺位置=窗体1的左辺减掉窗体2的宽度
form2.top=form1.top '窗体2和窗体1的top一样。(显示器顶部到窗体标题栏的距离一样)
移动时同时移动就是用Timer控制吧、如果窗体2可见就运行上面同歩代码(对窗体2的left和Top进行时刻调整)Timer的Interval=100 (毎秒同歩10次、毎100Ms同歩一次)
弹出窗体2后,再次按下该按钮后,窗体2隐藏或消失。这个又该怎么写呢?
用下面的代码切换窗体2的可视属性。
if form2.visible=true then
form2.visible=false
else
form2.visible=true
endif
追问
呵呵,谢谢你啦!我也想过这种方法的。因为看过VB的相关书籍,貌似没有专门对这样的情况作出过介绍的。因此就想问问有没有其他更好的方法了
追答
还有一种方法、是把两个窗体做到一个里、用Panel进行显示控制(Panel当做窗体了)
展开全部
题主说的是哪种类似千千静听的磁性窗体吧?歌词面板跟播放列表“粘”在一起的那种。
wgdwdy 所言确实是一种方法,不过效率太低,需要放置若干的 Timer 控件反复计算,可能会占用大量系统资源。
题主可以参考这篇 http://www.cnblogs.com/rooly/articles/1909979.html
wgdwdy 所言确实是一种方法,不过效率太低,需要放置若干的 Timer 控件反复计算,可能会占用大量系统资源。
题主可以参考这篇 http://www.cnblogs.com/rooly/articles/1909979.html
追问
自古网络出牛人哇。。。谢谢啦!!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询