VB高手进............

来源：百度知道 编辑：UC知道 时间：2024/09/21 11:25:01
各位高手，我在用VB编一个类似网吧游戏菜单的东东，小弟刚学VB不久，很多东西都不懂，希望高手帮帮我...........
游戏菜单要记住游戏的路径，怎样保存路径呢？？如，用鼠标点击command弹出浏览对话框，找到游戏路径后，点击对话框上的确定，对话框关掉，路径显示在窗体上的文本框中，再点击窗体上的 保存 按钮，就会将这个路径保存，程序关毕后，下次用还有，我希望保存为ini，下次用读取ini就可以了。
希望各位高手对以上叙述作出详细回答，答得好，再加分.......
关键：弹出浏览对话框，保存、读取ini....

加一个CommonDialog
部件Microsoft Common Dialog Control 6.0

Option Explicit

Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" _
(ByVal lpApplicationName As String, _
ByVal lpKeyName As Any, _
ByVal lpString As Any, _
ByVal lpFileName As String) As Long

Private Declare Function GetPrivateProfileString _
Lib "kernel32" Alias "GetPrivateProfileStringA" _
(ByVal lpApplicationName As String, _
ByVal lpKeyName As Any, _
ByVal lpDefault As String, _
ByVal lpReturnedString As String, _
ByVal nSize As Long, _
ByVal lpFileName As String) As Long

Private Sub Command1_Click()
Dim Wjm As String
CommonDialog1.CancelError = True
On Error GoTo No1
CommonDialog1.Filter = "游戏文件|*.exe|"
CommonDialog1.FilterIndex = 2
CommonDialog1.Sho