| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 677 人关注过本帖
标题:求助:Command1问题
只看楼主 加入收藏
yeliangsl
Rank: 1
来 自:湖北
等 级:新手上路
帖 子:17
专家分:0
注 册:2010-10-3
结帖率:40%
收藏
 问题点数:0 回复次数:4 
求助:Command1问题
VB单击Command1控件时,显示窗体2,那再一次单击Command1控件时,卸载窗体2,请问代码该怎样写?请高手指教,在线等...
搜索更多相关主题的帖子: 在线 
2010-10-10 19:41
jack10141
Rank: 11Rank: 11Rank: 11Rank: 11
来 自:陕西西安
等 级:小飞侠
威 望:6
帖 子:706
专家分:2271
注 册:2010-8-10
收藏
得分:0 
我没写过呢,但是先顶起来!!

Coding就像一盒巧克力,你永远不会知道你会遇到什么BUG
别跟我说你是不能的,这让我愤怒,因为这侮辱了你的智慧
2010-10-10 20:19
W11400661
Rank: 8Rank: 8
来 自:达拉达斯
等 级:蝙蝠侠
威 望:2
帖 子:163
专家分:834
注 册:2008-10-12
收藏
得分:0 
设置个变量,窗体2加载了值为true,卸载或未加载为false
command事件时判断变量值,为true就卸载,为false就加载
2010-10-10 20:41
yeliangsl
Rank: 1
来 自:湖北
等 级:新手上路
帖 子:17
专家分:0
注 册:2010-10-3
收藏
得分:0 
已解决:
Dim blnClicked As Boolean
Private Sub Command1_Click()
blnClicked = Not blnClicked
If (blnClicked) Then
Form2.Show
Form2.Top = Form1.Top + Form1.Height
Form2.Left = Form1.Left
Else
Unload Form2
End If
End Sub

[ 本帖最后由 yeliangsl 于 2010-10-11 04:48 编辑 ]
收到的鲜花
  • Artless2010-10-11 23:57 送鲜花  10朵   附言:支持公开结果。

''透明的玻璃杯,究竟在折射什麽.?
2010-10-11 04:46
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
收藏
得分:0 
以下是引用yeliangsl在2010-10-11 04:46:14的发言:

 已解决:
Dim blnClicked As Boolean
Private Sub Command1_Click()
blnClicked = Not blnClicked
If (blnClicked) Then
Form2.Show
Form2.Top = Form1.Top + Form1.Height
Form2.Left = Form1.Left
Else
Unload Form2
End If
End Sub

支持公开结果。

无知
2010-10-11 23:56
快速回复:求助:Command1问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.047192 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved