求助!怎么设置VB的数据保存路径
想编一个程序卡壳了,一是四阶龙格-库塔法不知道怎么用,而是VB的打开文件路径怎么设置?保存路径怎么设置?求大神帮帮忙!
设置路径的方法有挺多的,比如变量定义和CommonDialog控件选定,不知道你具体要哪一种.
如果是变量定义的话推荐定义全局字符串型变量,然后...
程序代码:
'添加在声明部分 Public pathi$ '添加在其他地方的... Private Sub Form_Load() pathi = App.Path & "\" '得到应用程序所在路径 End Sub '比如你想要在程序所在路径下保存 Private Sub savedata_Click() Dim datas$ datas = ... '获取你想保存的数据 Open (pathi & "data.txt") For Output As #1 '打开对应路径下文件(若没有对应文件将会自动生成该文件) Print #1,datas '写入数据 Close #1 End Sub
如果想玩高级一点的就用CommonDialog控件好了
关于CommonDialog的使用及添加方式可以自行百度
我具体说一下CommonDialog的路径数据获取方式
首先添加一个CommonDialog控件,为了方便命名为path_select
程序代码:
Private Sub savedata_Click() On Error GoTo err_slove dim patho$,place% path_select.FileName = pathi '设定初始路径 path_select.ShowOpen patho = path_select.FileName '获取选择路径(获取到的路径是对话框最后选定的路径(包括文件名)) If (dir(patho) <> "") Then '如果路径/文件存在 If ((GetAttr(patho)) <> vbDirectory) Then '如果不为文件夹 place = Instrrev(patho,"\") patho = Left(patho,Len(patho) - place) '获取文件夹路径 End If End If '然后是保存部分,参考上文 Exit Sub err_slove: Call Msgbox("出现了问题..." & Chr(10) & "错误编号:" & Err.Number & "错误描述:" & Err.Description,48,"Alert") End Sub
[此贴子已经被作者于2018-12-18 19:32编辑过]