而且我想把要调用的程序跟我要写的弄成一个EXE文件。要怎么弄啊。。。求指教。。求师傅。。。QQ1213023958
是用按钮来调用另外一个核心程序,这两个程序是要绑在一起的。可是我不会0.0 shell指令我知道-0-不知道到底要怎么整。我还有一大堆的问题纳
追答可以的啊,兩個程式綁定在一起是嗎?
方便在QQ上聊嗎?
看能否幫到您!
不過您得先給分噢!
呵呵!!!!
不太明白……
如何写VB代码实现“按下按钮后弹出另一个窗口”的功能?
弹出窗体2后,再次按下该按钮后,窗体2隐藏或消失。这个又该怎么写呢?用下面的代码切换窗体2的可视属性。if form2.visible=true then form2.visible=false else form2.visible=true endif
VB怎样设置点击一个按钮后弹出另一个窗口
首先要添加两个窗体,假设第一个窗体名为Form1,第二个窗体名为Form2。在Form1窗体中添加个按钮Command1。按钮单击事件的代码为:Private Sub Command1_Click()Form2.Show\/\/用show方法加载并且显示名为Form2的窗体 End Sub show 方法后面省略了两个参数即Form2.Show 0或Form2.Show 1此参数可缺省。
VB点击按钮切换到其他程序
这是一个根据窗口标题用枚举法模糊查找一个匹配的窗口句柄,并将该句柄指向的窗口呼出前台。为了能100%选择记事本窗体,应尽量提供完整的窗口标题,并确保窗口标题的唯一性,否则程序只会将第最后一个匹配的窗口呼出。以下代码运行后点击按钮即将标题含有“记事本”的窗口转到当前状态。我都加了注释,你可以...
vb中怎么让按钮按下去之后跳到另一个页面
在工程分支那点右键添加1个form.比如是form2 按钮命令就输入:form2.show 如果想同时关了当前窗体则再输入一句:unload me
如何用VB设计一个简单的应用程序来实现“单击按钮打开运行计算机中的...
As String, ByVal nShowCmd As Long) As Long '再窗体画个按钮 private sub command1_click()ShellExecute me.hwnd,"open","文件路径","运行参数","",显示方式 end sub '其中文件路径为你要打开的文件,当然不只exe文件,如果是exe文件则可以带参数,显示方式有很多种,为1时表示正常显示 ...
vb里一个窗体中的命令按钮 按下去 会执行另外一个窗体中的命令按钮的...
1)在当前窗口按钮的Click事件中对执行窗体的按钮的Value 属性赋值True事项。Value 属性,CommandButton 控件-返回或设置指示该按钮是否可选的值;在设计时不可用。Private Sub Command1_Click() Form2.Command1.Value = TrueEnd Sub2)VB中只需在另一窗体添加一个Timer控件,在当前窗体呼唤该窗体的...
VB菜单栏,想点了菜单栏的某个按钮,然后转到另一个form,求代码
假设form1上有个按钮Command1,按下按钮后,form1消失,form2显示,代码如下:Private Sub Command1_Click()unload form1 '卸载form1 load form2 '加载form2(注意这里只加载了,还没能显示出来,需要下一个语句来显示)form2.show '显示form2 End Sub 如果只是希望点击按钮后,原来的form1仍...
我想在一个vb程序中调用另一个vb
第一步:打开VisualBasic;第二步:在主页面添加八个按钮控件;接下来可以按要求两种选择方式:一、用源代码。将八个程序的源代码FRM文件拷贝到新程序的源代码里;将按钮控件设置为指向指定的frm文件。例子:Private Sub xx_Click()formxx.Show End Sub 二、用exe文件。在按钮控件代码窗口写:Call Shel...
VB中如何实现单击一个按钮同时触发两个事件?
1,在第一个按钮的过程中,调用第二个按钮 Private Sub Command1_Click()Call Command2_Click()'调用command2的过程 ...'完成自己的事件 End Sub 2,做成一个单独的外部过程 Private Sub Command1_Click()Call mySub()'调用外部过程 ...'完成自己的事件 End Sub Private Sub mySub()'这是外部...
VB里想点击按钮就可退出运行中的子程序,怎么写代码
试试下面的例子,在窗体上添加一个命令按钮,运行时,先点窗体,再点命令按钮 Dim A As Boolean Private Sub Command1_Click()A = Not A End Sub Private Sub Form_Click()A = True Do DoEvents Cls Print Timer Loop While A = True End Sub ...