Simple Registry Editor

Tambahkan sebuah item :
'command1 (command button)
'command2 (command button)
'command3 (command button)
'text1 (text box)

#design atur sesuai selera anda

Pada Command1 double klik lalu masukkan code dibawah ini :
Private Sub Command1_Click()
'SaveSetting "ime direktorija", "ime od poddirektorija", "ime komponente", "vrijednost"
'SaveSetting "name of folder", "name of subfolder", "name of component", "value"
 SaveSetting "Akul", "Akul", "what", Text1.Text
End Sub

Lalu pada command2 double klik masukkan kode dibawah ini :
Private Sub Command2_Click()
' gdje da se stavi (label1.caption) = GetSetting("ime direktorija", "ime od poddirektorija", "ime komponente", "pocetna vrijednost")
' where to put the value (label1.caption) = GetSetting("name of folder", "name of subfolder", "name of component", "default value")
 a$ = GetSetting("Akul", "Akul", "what", "0")
  MsgBox a$
End Sub

Pada command3 double klik lalu masukkan kode dibawah ini :
Private Sub Command3_Click()
'DeleteSetting "ime direktorija", "ime od poddirektorija", "ime komponente"
'DeleteSetting "name of folder", "name of subfolder", "name of component"
 DeleteSetting "akul", "akul", "what"
End Sub

lalu masukkan kode dibawah ini dengan cara double klik pada form :
Private Sub Form_Load()
'sets the captions of the buttons and text box
 Command1.Caption = "WRITE - PISI"
 Command2.Caption = "READ - CITAJ"
 Command3.Caption = "DELETE - IZBRISI"
 Text1.Text = "VALUE - VRIJEDNOST"
End Sub

Thank's for reading the articelSimple Registry Editor .If You want to copy paste your website please tag my link Simple Registry Editor Intro My Website.
<a href="http://operaterpm.blogspot.com/2013/11/simple-registry-editor.html">Simple Registry Editor</a>