VB 对话框

我写了一个程序是打开对话框后把对话框中的内容显示到Text1.text中。
请问,当Text1.text="中华人民共和国",然后我打开对话框,如果我未输入或未选择任何字符或文件,如何与代码才能保持Text1.text还是等于中华人民共和国??? &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
如:对话框为设置字体的对话框,我现在的字体是“仿宋”,然后我打开字体设置对话框后,直接就把对话框关闭了!这时我的字体又变成默认的“黑体”。按道理说未更改字体而关闭字体设置对话框,则字体还是“仿宋”,可目前我的程序是会变成“黑体”!如何解决??
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
这段,如果点击“取消”如何设置才能保持更改前的字体、大小、颜色?
Private Sub command1_Click()
CommonDialog1.Flags = cdlCFEffects Or cdlCFBoth
CommonDialog1.ShowFont
On Error GoTo FontErr
Data1.Recordset.Edit
FontErr:
If err.Number = 3021 Then
Data1.Recordset.AddNew
End If
Data1.Recordset.Fields("字体大小") = CommonDialog1.FontSize
Data1.Recordset.Fields("前景颜色") = CommonDialog1.Color
Data1.Recordset.Fields("字形") = CommonDialog1.FontName
Data1.Recordset.Update
Text1.ForeColor = CommonDialog1.Color
Text1.Font.Name = CommonDialog1.FontName
Text1.Font.Size = CommonDialog1.FontSize
End Sub

44 浏览 3 回复

回复

    不知道你说什么。。

    向家腾

    这段代码可以完成你的功能,你可以看一看:
    Private Sub Command1_Click()
    CommonDialog1.ShowOpen
    If (CommonDialog1.FileName = "") Then
    Text1.Text = "中华人民共和国"
    Else
    Text1.Text = CommonDialog1.FileName
    Text1.Refresh
    End If
    End Sub
    Private Sub Form_Load()
    Text1.Text = "中华人民共和国"
    End Sub
    试一试吧!

    武涛

    Dim S$
    Text1 = "中华人民共和国"
    S = InputBox("请输入值", "Input")
    If S <> "" Then Text1 = S
    这样,如果输入空或不输入都不会改变Text1的值。针对你的补充问题,也可以相应解决。只需判断你点的哪个按钮,是确定,还是取消。就可以解决了。

    谢家胜

相关信息

Visual Studio中 - 调试对话框

<p>我得到这个对话框,而在Visual Studio 2008中调试代码。 P&gt; </p><p>(您一步到请求导致自动步以上) P&gt; </p><p> <img name="自动步过”&gt; &lt;/ P&gt; &lt;P&gt;任何想法?&lt...

58 浏览 1 回复   gt   选项   调试   属性   对话框  

模态对话框 - SharePoint 2010中

<p>我目前正在创建的SharePoint Web部件ModalPopUp。 P&gt; </p><p>我面临着ModalPopupExtender(使用iframe)的兼容性问题。 P&gt; </p><p>什么是可用的其他选项在SharePoint 2010或ASP.NET获取一个模式弹出? P&gt; <...

36 浏览 1 回复   gt   sharepoint   2010   模式   对话框  

ADODB.Recordset 绑定

我用的是ACCESS2000中文版。首先,建立只有一个数据表"ProjectExecution"的ACCESS数据库,然后建立一个窗体,名为"frmExecution". 然后把"ProjectExecution"绑定在窗体"frmExecution"上,并通过ACCESS的自动功能加入文本框等控件,并绑定在数据表"...

41 浏览 1 回复   recordset   窗体   数据   一个   sub  

Visual Studio 2010的测试版2的字体和放大器;颜色对话框

<p>请在预览框中的字符意味着什么? P&gt; </p><p> <img p:="" src="“htt"/> P&gt; </p><p>有毁坏我的脑子,可能错过了显而易见的,或者我有点愚蠢和它的东西,我应该已经知道了! P&gt; </p>

40 浏览 1 回复   gt   字体   对话框   对话   字符  

vb data 的方法该怎么用?

"Data1.Recordset.Move" "Data1.Recordset.Find" 以上2个的用法该怎么用?

11 浏览 2 回复   recordset   data1   方法   记录   sub