레지스트리 (vb6기본제공) setsetting, savesetting

[올란도]

'vb6에서 기본적으로 제공해주는 레지스트리 함수는
'내컴퓨터\HKEY_CURRENT_USER\Software\VB and VBA Program Settings\ 의
'하위에 부분에 키와 값을 생성한다.
'SaveSetting은 지정된 레지스트리에 값을 저장한다.
'GetSetting은 지정된 레지스트리에서 값을 가져온다.
'----------------------------------------------------------------------
'명령어/함수                    설                  명
'----------------------------------------------------------------------
' GETSETTING                    레지스트리 설정을 읽음
' SAVESETTING                   레지스트리 설정을 저장 혹은 작성
' GETALLSETTINGS                다중 레지스트리 설정을 읽음
' DELETESETTING                 레지스트리 설정을 삭제
'----------------------------------------------------------------------
'SAVESETTING <어플리케이션>,<섹션>,<키>,<값>
'문자열 = GETSETTING( <어플리케이션>,<색션>,<키>,<디폴트 값>)
'문자열 배열 = GETALLSETTINGS( <어플리케이션>,<섹션>)
'DELETESETTING <어플리케이션>,<섹션>,<키>

'
'HEKY_CURRENT_USER
'    |_SOFTWARE
'      |_VB AND VBA PROGRAM SETTING
'        |_어플리 케이션
'          |_ 섹션
'             |_키=값

Dim sTitle, sSection As String

Private Sub Form_Load()

sTitle = "test"
sSection = "pos"
Me.Left = GetSetting(sTitle, sSection, "left", Me.Left)
Me.Top = GetSetting(sTitle, sSection, "top", Me.Top)
Me.Width = GetSetting(sTitle, sSection, "width", Me.Width)
Me.Height = GetSetting(sTitle, sSection, "height", Me.Height)

End Sub

Private Sub Form_Unload(Cancel As Integer)
SaveSetting sTitle, sSection, "top", Form1.Top
SaveSetting sTitle, sSection, "width", Form1.Width
SaveSetting sTitle, sSection, "height", Form1.Height
SaveSetting sTitle, sSection, "left", Form1.Left
End Sub