| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 718 人关注过本帖
标题:[求助]关于MSGBOX,求救啊!在线等待!!!
取消只看楼主 加入收藏
cucu3998
Rank: 1
等 级:新手上路
帖 子:47
专家分:0
注 册:2007-3-20
收藏
 问题点数:0 回复次数:1 
[求助]关于MSGBOX,求救啊!在线等待!!!
建一个BUTTON,一个RICHTEXTBOX。
如果RICHTEXTBOX里有字符的时候,点BUTTON后提示,MSGBOX"如果新建文档原文档将不保留,是否新建?",确定=新建,取消=不建。
我写的程序是
Private Sub mnuNew_Click()
Dim a
a = Len(RichTextBox1.Text)
If a > 0 Then
MsgBox "如果新建文档原文档将不保留,是否新建?", vbOKCancel, "新建文档"
If vbOK = 1 Then
RichTextBox1.Text = ""
FileName = "VISTA记事本--" & "未命名"
Me.Caption = FileName
Else
End If
End If
End Sub
现在是点确定和取消它都新建一个RICHTEXTBOX,晕死了,哪个高手告诉应该怎么做?谢谢,在线等待!!!

[此贴子已经被作者于2007-3-28 14:59:21编辑过]

搜索更多相关主题的帖子: MSGBOX 在线 
2007-03-28 14:56
cucu3998
Rank: 1
等 级:新手上路
帖 子:47
专家分:0
注 册:2007-3-20
收藏
得分:0 

谢谢版主,问题解决了。

2007-03-28 15:31
快速回复:[求助]关于MSGBOX,求救啊!在线等待!!!
数据加载中...
 
   



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

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