Problem avec GetPrivateProfilestring
chrispb56
Messages postés
2
Date d'inscription
mardi 20 décembre 2005
Statut
Membre
Dernière intervention
2 février 2006
-
1 févr. 2006 à 18:27
chrispb56 Messages postés 2 Date d'inscription mardi 20 décembre 2005 Statut Membre Dernière intervention 2 février 2006 - 2 févr. 2006 à 15:45
chrispb56 Messages postés 2 Date d'inscription mardi 20 décembre 2005 Statut Membre Dernière intervention 2 février 2006 - 2 févr. 2006 à 15:45
A voir également:
- Getprivateprofilestring vb.net
- Getprivateprofilestring - Forum C / C++ / C++.NET
- GetPrivateProfileString toutes les clés - Forum C / C++ / C++.NET
- VB.NET et GetPrivateProfileStringA ✓ - Forum Visual Basic
- Problème avec GetPrivateProfileString ✓ - Forum C++ & C++ .NET
- Getprivateprofilestring utf-8 - Forum C++ & C++ .NET
2 réponses
crenaud76
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
29
2 févr. 2006 à 09:03
2 févr. 2006 à 09:03
Salut,
Tu écris dans la clé nommée "Selectionner" et tu lis dans les clés "Pieds" et "Metres" !! Y a forcément un pb la !!!
Si tu ne lis pas la ou tu as écris ca risque pas d'aller dans le bon sens !!
CR
Tu écris dans la clé nommée "Selectionner" et tu lis dans les clés "Pieds" et "Metres" !! Y a forcément un pb la !!!
Si tu ne lis pas la ou tu as écris ca risque pas d'aller dans le bon sens !!
CR
chrispb56
Messages postés
2
Date d'inscription
mardi 20 décembre 2005
Statut
Membre
Dernière intervention
2 février 2006
2 févr. 2006 à 15:45
2 févr. 2006 à 15:45
Sa marche toujours pas :(
Je vais te donner mon code du bouton Enregistrer
Private Sub cmdSave_Click()
Dim iVer As Long
iVer = WritePrivateProfileString("Calcul", "Millimètres", lblMilli.Caption, ".\Data.ini")
iVer = WritePrivateProfileString("Calcul", "Centimètres", lblCent.Caption, ".\Data.ini")
iVer = WritePrivateProfileString("Calcul", "Mètres", lblMetres.Caption, ".\Data.ini")
iVer = WritePrivateProfileString("Calcul", "Pouces", lblPouces.Caption, ".\Data.ini")
iVer = WritePrivateProfileString("Calcul", "Pieds", lblPieds.Caption, ".\Data.ini")
iVer = WritePrivateProfileString("Calcul", "Convertir", txtConvertir.Text, ".\Data.ini")
If optPieds.Value = True Then
iVer = WritePrivateProfileString("Calcul", "Pieds1", optPieds.Caption, ".\Data.ini")
ElseIf optMetres.Value = True Then
iVer = WritePrivateProfileString("Calcul", "Metres1", optPieds.Caption, ".\Data.ini")
End If
End Sub
Et voici pour recuperer
Private Sub cmdRecup_Click()
Dim iVer As Long
Dim sBuff As String
sBuff = Space(225)
iVer = GetPrivateProfileString("Calcul", "Millimètres", "Introuvable", sBuff, 255, ".\Data.ini")
lblMilli.Caption = sBuff
sBuff = Space(225)
iVer = GetPrivateProfileString("Calcul", "Centimètres", "Introuvable", sBuff, 255, ".\Data.ini")
lblCent.Caption = sBuff
sBuff = Space(225)
iVer = GetPrivateProfileString("Calcul", "Mètres", "Introuvable", sBuff, 255, ".\Data.ini")
lblMetres.Caption = sBuff
sBuff = Space(225)
iVer = GetPrivateProfileString("Calcul", "Pieds", "Introuvable", sBuff, 255, ".\Data.ini")
lblPieds.Caption = sBuff
sBuff = Space(225)
iVer = GetPrivateProfileString("Calcul", "Pouces", "Introuvable", sBuff, 255, ".\Data.ini")
lblPouces.Caption = sBuff
sBuff = Space(225)
iVer = GetPrivateProfileString("Calcul", "Convertir", "Introuvable", sBuff, 255, ".\Data.ini")
txtConvertir.Text = sBuff
sBuff = Space(225)
iVer = GetPrivateProfileString("Calcul", "Pieds1", "Introuvable", sBuff, 255, ".\Data.ini")
optPieds.Value = sBuff
sBuff = Space(225)
iVer = GetPrivateProfileString("Calcul", "Metres1", "Introuvable", sBuff, 255, ".\Data.ini")
optMetres.Value = sBuff
End Sub
Je ne sais pas trop c'est quoi le probleme, Est-ce que quel qu'un pourais m'aider
Mon probleme presentement , sa me fais une erreur de type incompatible ( optPieds.Value = sBuff )
Je vais te donner mon code du bouton Enregistrer
Private Sub cmdSave_Click()
Dim iVer As Long
iVer = WritePrivateProfileString("Calcul", "Millimètres", lblMilli.Caption, ".\Data.ini")
iVer = WritePrivateProfileString("Calcul", "Centimètres", lblCent.Caption, ".\Data.ini")
iVer = WritePrivateProfileString("Calcul", "Mètres", lblMetres.Caption, ".\Data.ini")
iVer = WritePrivateProfileString("Calcul", "Pouces", lblPouces.Caption, ".\Data.ini")
iVer = WritePrivateProfileString("Calcul", "Pieds", lblPieds.Caption, ".\Data.ini")
iVer = WritePrivateProfileString("Calcul", "Convertir", txtConvertir.Text, ".\Data.ini")
If optPieds.Value = True Then
iVer = WritePrivateProfileString("Calcul", "Pieds1", optPieds.Caption, ".\Data.ini")
ElseIf optMetres.Value = True Then
iVer = WritePrivateProfileString("Calcul", "Metres1", optPieds.Caption, ".\Data.ini")
End If
End Sub
Et voici pour recuperer
Private Sub cmdRecup_Click()
Dim iVer As Long
Dim sBuff As String
sBuff = Space(225)
iVer = GetPrivateProfileString("Calcul", "Millimètres", "Introuvable", sBuff, 255, ".\Data.ini")
lblMilli.Caption = sBuff
sBuff = Space(225)
iVer = GetPrivateProfileString("Calcul", "Centimètres", "Introuvable", sBuff, 255, ".\Data.ini")
lblCent.Caption = sBuff
sBuff = Space(225)
iVer = GetPrivateProfileString("Calcul", "Mètres", "Introuvable", sBuff, 255, ".\Data.ini")
lblMetres.Caption = sBuff
sBuff = Space(225)
iVer = GetPrivateProfileString("Calcul", "Pieds", "Introuvable", sBuff, 255, ".\Data.ini")
lblPieds.Caption = sBuff
sBuff = Space(225)
iVer = GetPrivateProfileString("Calcul", "Pouces", "Introuvable", sBuff, 255, ".\Data.ini")
lblPouces.Caption = sBuff
sBuff = Space(225)
iVer = GetPrivateProfileString("Calcul", "Convertir", "Introuvable", sBuff, 255, ".\Data.ini")
txtConvertir.Text = sBuff
sBuff = Space(225)
iVer = GetPrivateProfileString("Calcul", "Pieds1", "Introuvable", sBuff, 255, ".\Data.ini")
optPieds.Value = sBuff
sBuff = Space(225)
iVer = GetPrivateProfileString("Calcul", "Metres1", "Introuvable", sBuff, 255, ".\Data.ini")
optMetres.Value = sBuff
End Sub
Je ne sais pas trop c'est quoi le probleme, Est-ce que quel qu'un pourais m'aider
Mon probleme presentement , sa me fais une erreur de type incompatible ( optPieds.Value = sBuff )
