vb编程高手箴言 pdf，高手来

来源：蜘蛛抓取(WebSpider) 时间：2016-03-16 09:04 标签： 编程高手 年薪千万
一个简单的VB编程问题，在线等！高手来！！！！_百度知道
一个简单的VB编程问题，在线等！高手来！！！！
exe的文件假如我有一个1。我想在VB程序中当单击命令按钮的时候用1.mp3的文件，和一个2.mp3的这个文件的代码怎么编写啊.exe的这个程序来运行2
打开在文件列表框中选中的文件2.mp3写代码
提问者采纳
我测试时为了方便输入选择文件 file1:&#92:&#92:&#92.exe G.ListIndex) 测试通过这个与我在消息中发的名称不一样; end sub 你的提问.List(file1; & file1.mp3&&quot:&#92.exe dprivate sub command1_click() shell &c;1：在file1中选中并运行Shell &1;2;D
提问者评价
谢谢你！！！！以后有什么问题还要继续麻烦你，呵呵！！
其他类似问题
为您推荐：
vb编程的相关知识
其他4条回答
1private sub command1_click() shell &c:&#92.exe -d:\2.mp3&quot
shell &c:\1.exe & & list1.text
添加三个按钮,一个CommonDialog1控件:
Private Declare Function mciSendString Lib &winmm.dll& Alias &mciSendStringA& (ByVal lpstrCommand As String, ByVal lpstrRetumString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Dim mfn As String
Private Sub Command1_Click()
On Error GoTo err
With CommonDialog1
.CancelError = True
.Filter = &音乐文件|*.mp3;*.*.mid&
.Flags = cdlOFNNoChangeDir And cdlOFNPathMustExist
.Action = 1
Call Command3_Click
'停止按钮同时可以设备初始化
mfn = .FileName '这个程序中文件名一定不能带空格
Form1.Caption = .FileName
Private Sub Command2_Click() ...
shell &c:\1.exe -d:\2.mp3&
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁点击：4744
北京千橡网景科技发展有限公司：
文网文[号··京公网安备号·甲测资字·文化部监督电子邮箱：wlwh@·
文明办网文明上网举报电话： 举报邮箱：admin1@&&&&&&&&&&&&&&&&VB高手来,Vb中Exit sub的作用?_百度知道
VB高手来,Vb中Exit sub的作用?
&错误&quot?在这里有什么作用, vbOKOnly + vbC错误&quot!&123456&quot.Text = &quot.Text = &,为什么;&quot:If Text1;Text2Private Sub Command1_Click()If Text1.Text = &quot.Text = & And Text2;wuwenshi&End IfEnd IfEnd Sub这是一个登陆窗口的编程; ThenMsgBox &quot?再举一个简单的示例来说明exit sub的作用!;E.谢谢;欢迎进入&quot!;用户或密码错误,说的好追分;你是合法用户; ThenMsgBox &quot, &quot！&quot, vbOKOnly + vbInformation，欢迎进入:MsgBox &quot.Text = &quot!！&&quot!!;Exit SubE请输入用户名;Text1, &quot, &, vbOKOnly + vbCritical,我把其中的Exit sub去掉效果还和以前一样
提问者采纳
Exit DoExit ForExit FunctionExit Sub还有其它几个同类是这样的意思是退出代码体 执行其它操作比如你上面的exit Sub其实是一个良好的编码习惯 虽然在此处有和没的关系不大一般exit 的用途如下面这样for i= 1 to 10
if i = 5 then
msgbox &i等于& & i
Endifnext这样当i循环到5的时候就会退出不再继续循环操作
提问者评价
其他类似问题
为您推荐：
sub的相关知识
其他3条回答
确认输入&不能执行, 16, &不能执行！&你输入了数字1, &你输入的数字是正确的,&是否清楚了！&quot，程序不会执行MsgBox &quot, 16！&你输入的数字是正确的.Text=&不能执行！&)If XT=1 THENMsgBox &quot！&quot，程序进入MsgBox &quot，执行Exit Sub结束这个过程;.Text=&quot，程序在执行过程中是起作用的, &End Sub当你在输入框输入数字1后; 当你点击确定后！& 和Exit Sub而执行下面的Text1！&你输入了数字1：Private Sub Command1_Click()XT=InputBox(&quot，由于是1！& Exie SubEND IFText1！&quot.Text=&quot, 16;，不会执行下面的Text1，你就清楚了，下面我给你举个例子，但是;;当你输入其他数字后;;请输入数字&你输入的数字是正确的;你输入了数字1实际你的程序对exit sub 的作用好像体现不出有没有关系
exit这个单词就是退出,不用讲吧.exit sub就是退出过程退出sub过程式你试试下面的这个句子,用户名和密码都不要输入字符Private Sub Command1_Click()If Text1.Text = && ThenMsgBox &请输入用户名!&, vbOKOnly + vbCritical, &错误&Exit SubIf Text2.Text = && ThenMsgBox &请输入密码！&, vbOKOnly + vbCritical, &错误&End IfEnd IfEnd Sub
为什么要那么复杂呢??像下面这样不好么Private Sub Command1_Click()
If Text1.Text = && Then
MsgBox &请输入用户名!&, vbOKOnly + vbCritical, &错误&
ElseIf Text1.Text = &wuwenshi& And Text2.Text = &123456& Then
MsgBox &你是合法用户，欢迎进入！&, vbOKOnly + vbInformation, &欢迎进入&
MsgBox &用户或密码错误！&, vbOKOnly + vbCritical, &错误&
Text1.Text = &&
Text2.Text = &&
End IfEnd Sub
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁vb中自己输入并用冒泡排序输出【高手来帮帮忙啊】
[问题点数：20分，结帖人qq]
vb中自己输入并用冒泡排序输出【高手来帮帮忙啊】
[问题点数：20分，结帖人qq]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
2012年4月 Delphi大版内专家分月排行榜第三2011年8月 Delphi大版内专家分月排行榜第三
本帖子已过去太久远了，不再提供回复功能。

我要回帖

更多关于 编程高手 年薪千万 的文章

 

随机推荐