Base de donnée via regedit

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 034 fois - Téléchargée 43 fois

Contenu du snippet

Pourquoi ne pas enregistrer vos scripts, codes sources etc dans votre base de registre ? et faire un prog qui vous les lis ?

Source / Exemple :


'Form :
'3 zones de texte
'TextTitre, TextCode, TextComment
'4 boutons
'Nouveau, Enregistrer, Supprimer, Vider
'1 Liste
'ListCodes
'----------------------------------------------
Private Sub Form_Load()
NbrCodes = GetSetting(App.title, "InfosSave", "NbrCodes", "0")
For i=0 to Val(NbrCodes)
ListCodes.AddItem GetSetting(App.Title, "Saves\" & i, "Titre", "0")
Next
End Sub

Private Sub ListCodes_Click()
TextTitre.Text = ListCodes.Text
For i = 0 toVal(NbrCodes)
If GetSetting(App.title, "Saves\" & i, "Titre", "0") = ListCodes.Text then
TextCode.Text = GetSetting(App.Title, "Saves\" & i, "Code", "0")
TextComment.Text = GetSetting(App.Title, "Saves\" & i, "Comment", "0")
Else
End if
next
End Sub

Private Sub Nouveau_Click()
SaveSetting App.title, "InfosSave", "NbrCodes", Val(NbrCodes) + 1
TextTitre.text = ""
TextCode.Text = ""
TextComment = ""
End Sub

Private Sub Enregistrer_Click()
SaveSetting App.title, "Saves\" & Val(GetSetting(App.title, "InfosSave", "NbrCodes", "0"))_ + 1, "Titre", TextTitre.Text
SaveSetting App.title, "Saves\" & Val(GetSetting(App.title, "InfosSave", "NbrCodes", "0"))_ + 1, "Code", TextCode.Text
SaveSetting App.title, "Saves\" & Val(GetSetting(App.title, "InfosSave", "NbrCodes", "0"))_ + 1, "Comment", TextComment.Text
End Sub

Private Sub Supprimer_Click()
If MsgBox("Êtes vous sûr de vouloir supprimer cet enregistrement ?", vbquestion + _ vbYesNo, "Supprimer ?") = vbYes then
CodeEnCour =GetSetting(App.title, "InfosSaves", "CodeEnCour", "0")
DeleteSetting App.title, "Saves", CodeEnCour
Shell App.Path & "\" & App.EXEName" & ".exe"
End
else
exit sub
end if
End Sub

Private Sub Vider_Click()
If MsgBox("Êtes vous sûr de vouloir effacer tous vos enregistrements ?", vbquestion + _ vbYesNo, "Viderr ?") = vbYes then
Deletesetting App.Title, "InfosSave"
DeleteSetting App.Title, "Saves"
else
Exit Sub
End If
End Sub

Conclusion :


Bon, si jamais y'a un bug ou une amélior pour ce code, n'ésitez pas à m'en faire part
§ Thinks & @+ §

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.