Quando cerco di caricare le impostazioni da un file .ini (al cui interno ci sono delle impostazioni) ottengo il seguente errore (num. 453): "Can't find DLL entry point GetPrivateprofileStringA in kernel32"
Perché? Che devo fare per risolverlo?
Nella sezione "Generale" del codice VB ho messo la seguente dichiarazione:
Private 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
e il codice del pulsante che dovrebbe caricare le impostazioni è il seguente:
Private Sub cmdCarica_Click()
Dim ValoreDiRitorno As Long
Dim NomeFile
NomeFile = App.Path & "\settings.ini"
Dim StringaDiRitorno As String * 50
ValoreDiRitorno = GetPrivateProfilestring(txtSezione, _
txtChiave, NomeFile, StringaDiRitorno, Len(StringaDiRitorno), _
NomeFile)
If ValoreDiRitorno = 0 Then
MsgBox "C'è stato un errore!", vbExclamation
Else
txtValore.Text = Trim(StringaDiRitorno)
End If
End Sub
Non so come fare per risolvere il problema!![]()
Grazie a chi saprà darmi la soluzione!!![]()

Rispondi quotando