VB做点击按钮打开相应的目标文件

如题 , 如何用VB做一个类似于网吧游戏菜单一样的东西?

请尽量截图说明.

第1个回答  2013-12-16
这样的问题其实就是类似网页中超级链接的问题,
在程序中很容易就会实现
用SHELL函数不太好用,因为他只能打开可执行程序文件
若用ShellExecute函数就更加好用用法如下:
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long'函数声明

Private Sub Button1_Click()

ShellExecute Me.hwnd, "open", "E:\hack\VStart50\VStart.exe", "", "", 1
end sub
第2个回答  2013-12-16
这个问题很简单嘛!不用图片的
你先建好一个工程加入一个BUTTON控件,在它的点击事件中加入一个SHELL命令就行了。
比如我写的
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Shell("E:\hack\VStart50\VStart.exe")

End Sub
End Class本回答被网友采纳
第3个回答  2013-12-16
private sub command1_click()
shell "d:\game\hero3\hero.exe"
end sub

VB做点击按钮打开相应的目标文件
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long'函数声明 Private Sub Button1_Click...

vb搜索文件夹下指定关键字的文件并打开
If InStr(a, Text1.Text) Then Shell "explorer " & "d:\\" & a, vbNormalFocus '如果文件夹名包含text1.text里的关键字就调用explorer打开它,要注意的是关键字不唯一的话会随do循环相继打开...

VB高手来啊,关于打开文件的
首先,我们需要明确一点,VB提供了多种方法来打开文件,每种方法都有其适用场景。例如,使用`Open`语句可以实现文件的读写操作,而`Shell`方法则更多地被用作启动外部程序。在`Command1_Click`事件处理程序中,作者通过调用`Shell(lj, 1)`来尝试打开由`Text1.Text`指定的文件。这里,`lj`作为文件路径...

...需要存放到指定一个目标文件夹里面去!麻烦说详细点!
给你个小例子,比如要记录是否按了a键,并且在按enter键后把键盘记录写入D:\\1.txt Private Declare Function GetAsyncKeyState Lib "user32"(ByVal vKey As Long)As Integer dim s as string sub OK()Open "d:\\1.txt"For Output As 1 Print 1,s Close 1 end sub Private Sub Timer1_Timer...

VB浏览选择指定文件后,点击按钮把此文件复制到指定目录.
Open Text1.Text For Binary As #1 '打开源文件 Open Text2.Text For Binary As #2 '打开目标文件 Command3.Caption = "正在复制..."Do While Not EOF(1)Get #1, , char Put #2, , char '将读出的每一个字节写入到目标文件中 Loop Close MsgBox "文件复制完成!!"Command3....

用VB将两个文件合并的问题?
Private Sub Command1_Click()'将源文件中的内容导入目标文件中 Open "D:\\1.txt" For Append As #1 '打开目标文件 Open "D:\\2.txt" For Input As #2 '打开源文件 While Not EOF(2)Line Input #2, temp Print #1, temp Wend Close #1 Close #2 End Sub ...

VB做个图片的查看器 就是点图片能切换到下一张如此循环
'依次打开菜单:工程,部件;在控件列表中选中“Microsoft Common Dialog 6.0(SP6)”按确定退出 '窗体form1上画3个command按钮,1个FileListBox文件列表控件,1个PicrureBox图像框控件,1个CommonDialog文件浏览控件 '将以下代码复制到Form1的代码区 Private FileIdx As Long '文件索引号 Private APath...

vb中运行一个EXE文件的命令是什么
Private Sub Command1_Click()Shell "C:\\WINDOWS\\system32\\notepad.exe ", vbNormalFocus End Sub

用VB打开一个Excel文件,这个文件名称中包含了单元格的内容?
你可以使用 Visual Basic for Applications (VBA) 来自动打开包含单元格内容的 Excel 文件。下面是一个示例代码,它可以帮助你实现这个目标:Sub OpenExcelFileWithCellContent()Dim filePath As String Dim fileName As String Dim cellContent As String ' 获取单元格的内容 cellContent = ...

vb如何打开路径在内存的exe文件 ?
解决这一问题的关键在于确保目标.exe文件所在的路径正确地添加到了搜索路径中。在VB中,可以通过以下步骤实现这一目标:1. **检查路径添加**:在程序启动时,检查目标.exe文件是否位于`app.path`中。如果不在,可以手动添加该路径,例如使用`app.path = app.path & ";C:\\Path\\To\\File.exe"`。2...

相似回答