| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 472 人关注过本帖
标题:请教VB地兄弟
只看楼主 加入收藏
想飞地菜鸟
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2007-7-24
收藏
 问题点数:0 回复次数:5 
请教VB地兄弟

Private Sub Form_Unload(Cancel As Integer)
msg = "确认退出"
msgstr = MsgBox(msg, 1)
If msgstr = vbOK Then
Unload Form1
Else

End If
End Sub
我想在退出是出现一个确认对话框,现在有个问题就是我按是也退出!我按否也退出!
是什么原因啊!应该怎么写啊!

Private Sub Text1_Click(Index As Integer)
Text1(1).BackColor = "255,0,0"
Text1(2).BackColor = "255,0,0"
Text1(3).BackColor = "255,0,0"
Text1(4).BackColor = "255,0,0"
End Sub
有这样地一个问题!我有4个控件数组文本,我想我每点击一个文本框就改变背景色,
可是像我以上地编法!我点击一下文本所有地背景都变了!如果我不用控件数组地话,就的对每个文本控件进行编辑。这样有点麻烦,希望在这里地高手帮下啊!看看有没有简单地办法啊!

搜索更多相关主题的帖子: 兄弟 
2007-07-27 18:53
随风逐流
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:passerby
等 级:版主
威 望:8
帖 子:4054
专家分:271
注 册:2007-6-13
收藏
得分:0 
Cancel=1 就退不了
第二个问题 INDEX
Text1(INDEX).BackColor = "255,0,0"

[此贴子已经被作者于2007-7-27 19:58:45编辑过]


[url=http://www./html/6/6694/]极道金丹[/url][url=http://www./html/2/2849/]九阴九阳[/url][url=http://www./html/2/2596/]凡人修仙传[/url]
2007-07-27 19:58
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
收藏
得分:0 
你也可以不用控件数组嘛
2007-07-27 21:56
slore
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1108
专家分:0
注 册:2005-7-1
收藏
得分:0 
Private Sub Form_Unload(Cancel As Integer)
msg = "确认退出"
msgstr = MsgBox(msg, 1)
If msgstr = vbOK Then
Unload Me
Else
Cancel = - 1
End If
End Sub


Private Sub Text1_Click(Index As Integer)
Text1(Index).BackColor = "255,0,0"
End Sub

快上课了……
2007-07-27 22:14
taihongbo
Rank: 1
来 自:山东临沂
等 级:新手上路
帖 子:127
专家分:0
注 册:2004-11-15
收藏
得分:0 
楼上 正解。

淘宝 毛绒玩具 熊
jstbobo.taobao. com
久顺通啵啵玩具店
2007-07-28 09:35
想飞地菜鸟
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2007-7-24
收藏
得分:0 
谢谢4楼地兄弟!!!谢谢

2007-07-29 14:25
快速回复:请教VB地兄弟
数据加载中...
 
   



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

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