A voir également:
- Problemes techniques sur VB6
- Vb6 mid ✓ - Forum Visual Basic
- Vb6 split ✓ - Forum Visual Basic 6
- Datediff vb6 ✓ - Forum Visual Basic 6
- Vb6 decompiler - Forum Visual Basic 6
- Vb6 else if - Conseils pratiques -Visual Basic / VB.NET
2 réponses
-------------------------------
Réponse au message :
-------------------------------
Bonjour ,
je m'appelle Ali, et je debute aussi sur VB dans ma société. En fait je suis encore étudiant et j'effectue un stage dans une entreprise. Elle m'a demandé de faire un programme sous VB6 afin de pouvoir mettre à jour un carnet d'adresse avec Outlook. Mais moi je connais à peine VB, mais afin de vouloir rester aprés mon stage, je veux faire bonne impression. Pour cela j'aurrai besoin de votre Aide.( Si vous voulez bien ) En fait mon programme marche, mais dans ma société, tous le monde entre sous un Login, et puisque il est different pour tous, il faut que mon programme aille le lire dans le .INI, et c'est juste ça qui ne marche pas.Alors, pouvez-vous m'aider???
Merci.
A bientôt
-Ali-
-------------------------------
Réponse au message :
-------------------------------
Bonjour ,
je m'appelle Ali, et je debute aussi sur VB dans ma société. En fait je suis encore étudiant et j'effectue un stage dans une entreprise. Elle m'a demandé de faire un programme sous VB6 afin de pouvoir mettre à jour un carnet d'adresse avec Outlook. Mais moi je connais à peine VB, mais afin de vouloir rester aprés mon stage, je veux faire bonne impression. Pour cela j'aurrai besoin de votre Aide.( Si vous voulez bien ) En fait mon programme marche, mais dans ma société, tous le monde entre sous un Login, et puisque il est different pour tous, il faut que mon programme aille le lire dans le .INI, et c'est juste ça qui ne marche pas.Alors, pouvez-vous m'aider???
Merci.
A bientôt
-Ali-
-------------------------------
Tu peux lire une fichier ini avec ça
------------------------
API de lecture
----------------------
Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
----------------------
API d'écriture
----------------------
Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As String, ByVal lpFileName$) As Long
--------------------------
Procedure de lecture
Function ReadIniFile(monFichier As String, MaSection As String, monEntrée As String) As String
Dim succes As Long
Dim ret As String * 255
ret = String(255, 0)
succes = GetPrivateProfileString(MaSection, monEntrée, "", ret, Len(ret), monFichier)
If succes Then
ReadIniFile = Left$(ret, succes)
Else
ReadIniFile = ""
End If
End Function
---------------------------
function d'écriture
---------------------------
Function WriteIniFile(monFichier As String, MaSection As String, monEntrée As String, maValeur As String) As Boolean
Dim succes As Long
Dim ret As String * 255
ret = String(255, 0)
succes = WritePrivateProfileString(MaSection, monEntrée, maValeur, monFichier)
If succes Then
WriteIniFile = True
Else
WriteIniFile = False
End If
End Function
Ton fichier INI :
----------------
[SECTION]
DONNEE=...
Appel de la fonction de lecture:
rc = ReadIniFile("c:\...\*.INI", "SECTION", "DONNES")
Appel de la fonction d'écriture:
rc = WriteIniFile("c:\...\*.INI", "SECTION", "DONNES", "Valeur")
------------------------
API de lecture
----------------------
Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
----------------------
API d'écriture
----------------------
Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As String, ByVal lpFileName$) As Long
--------------------------
Procedure de lecture
Function ReadIniFile(monFichier As String, MaSection As String, monEntrée As String) As String
Dim succes As Long
Dim ret As String * 255
ret = String(255, 0)
succes = GetPrivateProfileString(MaSection, monEntrée, "", ret, Len(ret), monFichier)
If succes Then
ReadIniFile = Left$(ret, succes)
Else
ReadIniFile = ""
End If
End Function
---------------------------
function d'écriture
---------------------------
Function WriteIniFile(monFichier As String, MaSection As String, monEntrée As String, maValeur As String) As Boolean
Dim succes As Long
Dim ret As String * 255
ret = String(255, 0)
succes = WritePrivateProfileString(MaSection, monEntrée, maValeur, monFichier)
If succes Then
WriteIniFile = True
Else
WriteIniFile = False
End If
End Function
Ton fichier INI :
----------------
[SECTION]
DONNEE=...
Appel de la fonction de lecture:
rc = ReadIniFile("c:\...\*.INI", "SECTION", "DONNES")
Appel de la fonction d'écriture:
rc = WriteIniFile("c:\...\*.INI", "SECTION", "DONNES", "Valeur")
