| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3156 人关注过本帖, 1 人收藏
标题:关于vb一个关闭form的问题!
只看楼主 加入收藏
lawwyjang
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2012-1-10
结帖率:50%
收藏(1)
 问题点数:0 回复次数:5 
关于vb一个关闭form的问题!
我想请教一个问题,
例如工程里有form1等一系列的窗口。
form1里面有一个text1和command1
当我把想要关闭的窗口名字(前提是该窗口已经开启了)写在text1里,然后点击command1就可以关闭该窗口,请问要怎么才能做到啊?
谢谢!
搜索更多相关主题的帖子: 工程 
2012-02-09 17:33
lawwyjang
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2012-1-10
收藏
得分:0 
没人会吗
2012-02-09 20:18
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:0 
Private Sub Command1_Click()

Dim i As Long
For i = 0 To Forms.Count - 1                                   '遍历所有的窗体
    If UCase(Forms(i).Name) = UCase(Text1.Text) Then           '按名字查找
        Unload Forms(i)                                        '关闭找到的第一个窗体
        Exit For                                               '退出查找循环
    End If
Next i

End Sub


注:关闭自己有可能会导致隐性加载。

授人于鱼,不如授人于渔
早已停用QQ了
2012-02-10 08:33
jokerbat
Rank: 2
等 级:论坛游民
帖 子:77
专家分:91
注 册:2012-2-1
收藏
得分:0 
vb只是一中工具并不是有种编程语言,basic才是编程语言
2012-02-12 00:17
mayuebo
Rank: 9Rank: 9Rank: 9
等 级:蜘蛛侠
威 望:6
帖 子:257
专家分:1282
注 册:2005-9-8
收藏
得分:0 
3楼正解

成功贵在坚持
2012-02-12 10:05
yiyaozjk
Rank: 2
等 级:论坛游民
帖 子:231
专家分:30
注 册:2010-3-10
收藏
得分:0 
学习了....
以下是引用风吹过b在2012-2-10 08:33:46的发言:

Private Sub Command1_Click()
 
Dim i As Long
For i = 0 To Forms.Count - 1                                   '遍历所有的窗体
    If UCase(Forms(i).Name) = UCase(Text1.Text) Then           '按名字查找
        Unload Forms(i)                                        '关闭找到的第一个窗体
        Exit For                                               '退出查找循环
    End If
Next i
 
End Sub
 
 
注:关闭自己有可能会导致隐性加载。

 If UCase(Forms(i).Name) = UCase(Text1.Text) Then           '按名字查找
如果写成了:
   If Forms(i).Name = trim((Text1.Text)) Then               '这样一般是关闭不到的正确的窗体的.'
2012-02-14 20:16
快速回复:关于vb一个关闭form的问题!
数据加载中...
 
   



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

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