setting.bas

来自「vb 写的播放器 对新的开发者很有用。写的不错。非常实际」· BAS 代码 · 共 84 行

Attribute VB_Name = "Setting"

' **********************************************************************
'  描  述：存vb代码写的winnap程序，非常酷
'  Play78.com : 网站导航，源码之家，绝对开源
'  海阔天空收集整理
'  主站地址：http://www.play78.com/
'  源码下载地址：http://www.play78.com/blog
'  图片下在地址：http://www.play78.com/pic
'  QQ：13355575
'  e-mail:[e-mail]
'  编写日期：2005年08月30日
' **********************************************************************

Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Public Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String) As Long
Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Long

Sub SaveSetting()
WritePrivateProfileString "SETTING", "MainfrmTop", Mainfrm.Top, App.Path & "\" & "Winamp.ini"
WritePrivateProfileString "SETTING", "MainfrmLeft", Mainfrm.Left, App.Path & "\" & "Winamp.ini"
WritePrivateProfileString "SETTING", "ListfrmTop", Listfrm.Top, App.Path & "\" & "Winamp.ini"
WritePrivateProfileString "SETTING", "ListfrmLeft", Listfrm.Left, App.Path & "\" & "Winamp.ini"
WritePrivateProfileString "SETTING", "EQfrmTop", EQfrm.Top, App.Path & "\" & "Winamp.ini"
WritePrivateProfileString "SETTING", "EQfrmLeft", EQfrm.Left, App.Path & "\" & "Winamp.ini"
WritePrivateProfileString "SETTING", "MainfrmVolume_BarLeft", Mainfrm.Volume_ScrollBar.Left, App.Path & "\" & "Winamp.ini"
WritePrivateProfileString "SETTING", "MainfrmBalance_BarLeft", Mainfrm.Balance_ScrollBar.Left, App.Path & "\" & "Winamp.ini"
For i = 0 To 10
 WritePrivateProfileString "SETTING", "EQfrmEQ_Bar1(" & i & ")Top", EQfrm.EQScrollBar1(i).Top, App.Path & "\" & "Winamp.ini"
Next i
WritePrivateProfileString "SETTING", "SimpleFlag1", Mainfrm.SimpleFlag1, App.Path & "\" & "Winamp.ini"
WritePrivateProfileString "SETTING", "SimpleFlag2", Listfrm.SimpleFlag2, App.Path & "\" & "Winamp.ini"
WritePrivateProfileString "SETTING", "SimpleFlag3", EQfrm.SimpleFlag3, App.Path & "\" & "Winamp.ini"
WritePrivateProfileString "SETTING", "DragTogether1", Mainfrm.DragTogether1, App.Path & "\" & "Winamp.ini"
WritePrivateProfileString "SETTING", "DragTogether2", Mainfrm.DragTogether2, App.Path & "\" & "Winamp.ini"
WritePrivateProfileString "SETTING", "MainFlag", Mainfrm.MainFlag, App.Path & "\" & "Winamp.ini"
WritePrivateProfileString "SETTING", "EQFlag", Mainfrm.EQFlag, App.Path & "\" & "Winamp.ini"
WritePrivateProfileString "SETTING", "PLFlag", Mainfrm.PLFlag, App.Path & "\" & "Winamp.ini"
WritePrivateProfileString "SETTING", "ShuffleFlag", Mainfrm.ShuffleFlag, App.Path & "\" & "Winamp.ini"
WritePrivateProfileString "SETTING", "RepFlag", Mainfrm.RepFlag, App.Path & "\" & "Winamp.ini"
WritePrivateProfileString "SETTING", "TopFlag", Mainfrm.TopFlag, App.Path & "\" & "Winamp.ini"
WritePrivateProfileString "SETTING", "VolumeValue", Mainfrm.VolumeValue, App.Path & "\" & "Winamp.ini"
WritePrivateProfileString "SETTING", "RecentDir", Mainfrm.RecentDir, App.Path & "\" & "Winamp.ini"
WritePrivateProfileString "SETTING", "SongWordStartDir", Mainfrm.StartDir1, App.Path & "\" & "Winamp.ini"
WritePrivateProfileString "SETTING", "SkinStartDir", Mainfrm.StartDir2, App.Path & "\" & "Winamp.ini"
WritePrivateProfileString "SETTING", "AddSongStartDir", Mainfrm.StartDir3, App.Path & "\" & "Winamp.ini"

End Sub

Sub LoadSetting()
Dim sRet As String
sRet = String(255, " ")
Mainfrm.MainFlag = Left(sRet, GetPrivateProfileString("SETTING", "MainFlag", "True", sRet, Len(sRet), App.Path & "\" & "Winamp.ini"))
Mainfrm.PLFlag = Left(sRet, GetPrivateProfileString("SETTING", "PLFlag", "True", sRet, Len(sRet), App.Path & "\" & "Winamp.ini"))
Mainfrm.EQFlag = Left(sRet, GetPrivateProfileString("SETTING", "EQFlag", "True", sRet, Len(sRet), App.Path & "\" & "Winamp.ini"))
Mainfrm.ShuffleFlag = Left(sRet, GetPrivateProfileString("SETTING", "ShuffleFlag", "True", sRet, Len(sRet), App.Path & "\" & "Winamp.ini"))
Mainfrm.RepFlag = Left(sRet, GetPrivateProfileString("SETTING", "RepFlag", "True", sRet, Len(sRet), App.Path & "\" & "Winamp.ini"))
Mainfrm.TopFlag = Left(sRet, GetPrivateProfileString("SETTING", "TopFlag", "False", sRet, Len(sRet), App.Path & "\" & "Winamp.ini"))
Mainfrm.SimpleFlag1 = Left(sRet, GetPrivateProfileString("SETTING", "SimpleFlag1", "False", sRet, Len(sRet), App.Path & "\" & "Winamp.ini"))
Listfrm.SimpleFlag2 = Left(sRet, GetPrivateProfileString("SETTING", "SimpleFlag2", "False", sRet, Len(sRet), App.Path & "\" & "Winamp.ini"))
EQfrm.SimpleFlag3 = Left(sRet, GetPrivateProfileString("SETTING", "SimpleFlag3", "False", sRet, Len(sRet), App.Path & "\" & "Winamp.ini"))

Mainfrm.Top = GetPrivateProfileInt("SETTING", "MainfrmTop", 1345, App.Path & "\" & "Winamp.ini")
Mainfrm.Left = GetPrivateProfileInt("SETTING", "MainfrmLeft", 3895, App.Path & "\" & "Winamp.ini")
Listfrm.Top = GetPrivateProfileInt("SETTING", "ListfrmTop", 4800, App.Path & "\" & "Winamp.ini")
Listfrm.Left = GetPrivateProfileInt("SETTING", "ListfrmLeft", 3895, App.Path & "\" & "Winamp.ini")
EQfrm.Top = GetPrivateProfileInt("SETTING", "EQfrmTop", 3075, App.Path & "\" & "Winamp.ini")
EQfrm.Left = GetPrivateProfileInt("SETTING", "EQfrmLeft", 3895, App.Path & "\" & "Winamp.ini")
Mainfrm.Volume_ScrollBar.Left = GetPrivateProfileInt("SETTING", "MainfrmVolume_BarLeft", 600, App.Path & "\" & "Winamp.ini")
Mainfrm.Balance_ScrollBar.Left = GetPrivateProfileInt("SETTING", "MainfrmBalance_BarLeft", 180, App.Path & "\" & "Winamp.ini")
For i = 0 To 10
 EQfrm.EQScrollBar1(i).Top = GetPrivateProfileInt("SETTING", "EQfrmEQ_Bar1(" & i & ")Top", 380, App.Path & "\" & "Winamp.ini")
Next i
Mainfrm.DragTogether1 = Left(sRet, GetPrivateProfileString("SETTING", "DragTogether1", "True", sRet, Len(sRet), App.Path & "\" & "Winamp.ini"))
Mainfrm.DragTogether2 = Left(sRet, GetPrivateProfileString("SETTING", "DragTogether2", "True", sRet, Len(sRet), App.Path & "\" & "Winamp.ini"))

Mainfrm.VolumeValue = GetPrivateProfileInt("SETTING", "VolumeValue", 30000, App.Path & "\" & "Winamp.ini")
Mainfrm.RecentDir = Left(sRet, GetPrivateProfileString("SETTING", "RecentDir", "", sRet, Len(sRet), App.Path & "\" & "Winamp.ini"))
Mainfrm.SongWordDir = Left(sRet, GetPrivateProfileString("SETTING", "SongWordDirectory", App.Path, sRet, Len(sRet), App.Path & "\" & "Winamp.ini"))
Mainfrm.StartDir1 = Left(sRet, GetPrivateProfileString("SETTING", "SongWordStartDir", App.Path, sRet, Len(sRet), App.Path & "\" & "Winamp.ini"))
Mainfrm.StartDir2 = Left(sRet, GetPrivateProfileString("SETTING", "SkinStartDir", App.Path, sRet, Len(sRet), App.Path & "\" & "Winamp.ini"))
Mainfrm.StartDir3 = Left(sRet, GetPrivateProfileString("SETTING", "AddSongStartDir", App.Path, sRet, Len(sRet), App.Path & "\" & "Winamp.ini"))
End Sub