怎么实现VB点击一个控件，打开一个字窗口？

我想问一下大虾们，如何通过点击“开始清理”的按钮，实现打开dialog的那个窗口。小弟十万火急

举报该问题

第1个回答 2014-02-22

你好，打开已经写好的窗体，只需要用窗体的show方法。也就是说，如果你想要打开dialog这个窗体，就在单击按钮的函数下写 dialog.show 就可以了

第2个回答 2014-02-22

先双击那个“开始清理”控件，进入代码编辑窗口，在单击事件里面写上。OPEN().DIALOG试一试

第3个回答 2014-02-22

选择图中的控件后确定，然后再按钮的单击事件中写：commondialog1.showopen

相似回答

VB怎样设置点击一个按钮后弹出另一个窗口答：首先要添加两个窗体，假设第一个窗体名为Form1，第二个窗体名为Form2。在Form1窗体中添加个按钮Command1。按钮单击事件的代码为：Private Sub Command1_Click()Form2.Show//用show方法加载并且显示名为Form2的窗体 End Sub show 方法后面省略了两个参数即Form2.Show 0或Form2.Show 1此参数可缺省。

VB6中怎样按下一个按钮则弹出一个对话框~~要具体~~答：1,输入对话框的用法:Private Sub Command1_Click()h = InputBox("请输入文本框中显示的值")Text1.Text = h End Sub 2,消息对话框 Private Sub Command1_Click()MsgBox ("你好")End Sub 3,通用对话框（打开对话框,另存为对话框,颜色对话框,字体对话框,打印对话框,帮助对话框）对用对话框控...

在VB中,如何实现每单击按钮一次,窗体上就出现一段文字谢谢了!_百度...答：在command控件,tooltiptext属性中写入你的提示内容则可。或在代码中加一行：command1.tooltiptext=" 点击后转到下一题"。鼠标放在按钮上，就显示文本内容。

如何写VB代码实现“按下按钮后弹出另一个窗口”的功能?答：form2.top=form1.top '窗体2和窗体1的top一样。（显示器顶部到窗体标题栏的距离一样）移动时同时移动就是用Timer控制吧、如果窗体2可见就运行上面同歩代码（对窗体2的left和Top进行时刻调整）Timer的Interval=100（毎秒同歩10次、毎100Ms同歩一次）弹出窗体2后，再次按下该按钮后，窗体2隐藏或...

单机一个按钮在另外一个地方显示一段文字用vb语言怎么写答：Private Sub Command1_Click() Text1.Text = "显示文字" '在一个名为Text1的TextBox(文本框)控件中显示文字 Label1.Caption = "显示文字" '在一个名为Label1的Label(标签)控件中显示文字 Picture1.Print "显示文字" '在一个名为Picture1的PictureBox(图像框)控件中显示文字 Me.Ca...

VB 点击按钮设置文本框字体答：1、执行“工程”菜单的“部件”命令，打开“部件”对话框。2、在部件对话框，选择“控件”选项卡，在列表中找到“Microsoft Common Dialog Control 6.0”3、单击确定。通用对话框就会被加到工具箱中。然后，添加通用对话框，将它的Action属性设为4，就是这个字体选择对话框了。然后，你可以用下面的代码...

VB6.0 中如何实现 Command 按钮 点击一下就可以打开一个 我要它进入...答：C:\Program Files\Internet Explorer\iexplore.exe http://..."来用IE打开指定的网页。如果你的IE安装路径不同，请自行修改。如果你想要在程序界面中打开一个网页，可以在部件里添加Microsoft Webbrowser控件，然后拖一个控件到界面上，Command代码为Webbrowser1.Navigate "http://..."...

在VB中怎么用代码弹出输入对话框答：1、首先，打开“易语言”，然后选择“Windows窗口程序”选项，如下图所示，然后进入下一步。2、其次，完成上述步骤后，将编辑框、按钮和常用对话框从基本组件栏拖放到程序中，如下图所示，然后进入下一步。3、接着，完成上述步骤后，单击以选中“通用对话框”，然后在左侧的属性列中看到“过滤器”。

怎么在vb中实现点击事件答：首先点文件->选项出现界面如下首先在自定义功能区添加开发工具 activex控件第一个是按钮然后创建一个按钮保证设计模式是绿色底的，就是激活了设计模式，这个时候按钮只是一张图片不会触发。双击这个图片。Private Sub CommandButton1_Click()If IsNumeric(Replace(ThisWorkbook.ActiveSheet.Cells(1, 1)....

大家正在搜

autojs点击控件点击安装安全控件点击下载安装安全控件安装控件怎么安装 android获取点击控件id 控件安装不上怎么解决 VB基本控件 VB表单控件 VB常见的控件有哪些