Foro de elhacker.net

Private Sub Form_Load()   
    'Apenas carga el programa, carga los datos   
    Cargar_De_Registro   
  
    Me.Caption = " ejemplo de GetSetting y SaveSetting"  
  
End Sub  
  
'Lee los datos del registro con la función GetSetting _   
recorre los textbox y le asigna el valor a cada uno de ellos   
Sub Cargar_De_Registro()   
    Dim i As Integer  
    For i = 0 To Text1.Count - 1   
        Text1(i).Text = GetSetting(App.EXEName, _   
                                   "TextBox", _   
                                   "Text" & i)   
       
    Next  
End Sub  
  
Private Sub Form_Unload(Cancel As Integer)   
Grabar_En_Registro   
End Sub  
  
  
  
Private Sub Grabar_En_Registro()   
    Dim i As Integer  
    For i = 0 To Text1.Count - 1   
       
        Call SaveSetting(App.EXEName, "TextBox", _   
                         "Text" & i, Text1(i).Text)   
       
    Next  
End Sub