|
|
发表于 2008-5-30 09:38:00
|
显示全部楼层
Re:新人报道~
'载入设置文件,
Sub Load_SetupFile()
Call ChDir(App.Path & "\setup") '进入设置文件夹
Dim Fileno As Integer
Fileno = FreeFile
Open "Setup.dat" For Binary As Fileno
Get #Fileno, , Sound_Volume '获取音效音量
Close #Fileno
End Sub
Sub Save_SetupFile()
Call ChDir(App.Path & "\setup") '进入设置文件夹
Dim Fileno As Integer
Fileno = FreeFile
Open "Setup.dat" For Binary As Fileno
Put #Fileno, , Sound_Volume '存储音效音量
Close #Fileno
End Sub
|
|