vb6.0 制作一个简单小程序

我想用VB6做一个小程序,就是添加几个按钮执行桌面上的几个快捷方式 或者直接执行快捷方式指向的目标
本人新手 第一次用VB6 麻烦说的详细点,包括命令参数和做完之后如何生成执行程序,谢谢

按功能键盘上的F5 运行就可以! 如果有错误,VB会出现新窗口,用汉字写出如何错误。在新窗口内点击调试,在代码窗口中出错的代码为黄色背景。 最后保存程序,单击“文件”菜单——选择“保存工程”。需要保存两个窗体,首先是.frm的应用程序窗体,然后是.vbp的工程文件。
温馨提示:内容为网友见解,仅供参考
第1个回答  2014-08-17
点击文件,生成你的工程名字.exe就行了追问

按钮上的代码怎么写啊

追答

比如
Private Sub command1_click()
Shell "Rundll32.exe url.dll, FileProtocolHandler C:\Users\dl\Desktop\Photoshop - 快捷方式.lnk"
End Sub

本回答被提问者采纳

vb6.0怎么制作一个抽奖小程序? vb6.0抽奖器的制作方法
1、首先启动vb6.0,执行文件-新建命令,弹出新建工程对话框,在该对话框中选择标准的exe后点击打开按钮,进入vb程序主界面。2、在主界面中,按住鼠标左键按住窗体周围的任意一个小正方形进行拖拽,调节窗体的大小,直至自己满意为止。3、选择窗体,在其右边的属性中找到boderstyle属性,设置属性值为none,...

我要用VB6.0做一个小程序,请大家指点指点,指点指点,谢谢,谢谢了_百度...
1、用DirectSoundCapture对象来建立DirectSoundCaptureBuffer数据缓冲区对象,当数据缓冲区中有数据时(此时是两个声道),利用Capture Buffer Notification来激活用户来执行对数据的处理过程。2、新建两个线程,并在其中建立两个支持DirectSound3D的DirectSoundSecondaryBuffer数据缓冲区对象,将DirectSoundCaptureBuffe...

VB 6.0 教我编一个小程序
File--New--Standard.exe--点击左侧的Commandbutton控件 然后再Form1中用鼠标画出一个按钮 然后双击该按钮:写这段代码a = MsgBox("Hello,welcome to VB world!")然后保存,运行 From1代码:Private Sub Command1_Click()End Sub Private Sub Button_Click()a = MsgBox("Hello,welcome to VB wor...

vb6.0 想用VB6.0做一个小程序,输入一个图片地址。点确认,打开一张网络...
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long Private Sub Command1_Click()Image1.Stretch = False Text1 = ...

谁给我一个用VB6.0写的整人小程序啊
下面这些代码是一个小小的整人程序: Private Sub Form_Load()Me.Left = -10000 Me.Top = -10000 Do While 1 = 1 Me.Visible = Not Me.Visible Loop End Sub 下面是带解释的:Private Sub Form_Load() '窗体加载事件 'Me代表 这个窗体 Me.Left = -10000 '设置这个窗体的左边与屏幕的左边...

...和一个ACCESS2007 我现在想用VB6.0做一个小程序。一个查询
strSQL = "Select * from 数据表名称 Where Psn_Name='" & Text1.Text & "'"如果需要模糊查询,这样:strSQL = "Select * from 数据表名称 Where Psn_Name Like '%" & Text1.Text & "%'"这仅仅是“公司内部号码”查询,如果需要其他查询修改相应语句即可。

关于用VB6.0写个小程序计算绝对值~~~跪求高手指点..
Label2.Caption = Abs(Val(Text1.Text)) ' val(text1.text)是把text1里的文字转换成数字 ,ABS()是一个取绝对值得函数 下面是笨办法,但是可以搞懂是怎么回事 if val(text1.text)>0 then label2.caption=text1.text else label2.caption=0-val(text1.text) ' val(text1.text)是把...

...和一个ACCESS2007 我现在想用VB6.0做一个小程序。一个查询工具(查询...
如果只是简单功能,DAO就可以了.在VB启动后工具箱就有个DATA控件,设置DataBaseName属性为数据库路径,RecordSource为你要操作的表名称,再执行REFRESH命令就打开了,想怎么操作就怎么操作了.前提:要先创建一个数据库文件,但VB6应该不支持ACCESS2007数据库,要保存为ACCESS97格式才行....

VB编写小程序
代码改为:Private Sub Form_Click()Dim a, b, c, d As StringDim sum, aver As Longa = Val(InputBox("请输入第一个数"))b = InputBox("请输入第二个数")c = InputBox("请输入第三个数")d = InputBox("请输入第四个数")sum = a + b + c + d aver = sum \/ 4 Print ...

想用VB写个小程序,出现这样的提示[Microsoft][ODBC Microsoft Access 驱...
vb6.0链接acc数据库,mdb的话一般用jet "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\\A.mdb"如果是accdb,一般用ace "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & App.Path & "\\A.accdb"

相似回答