![]() |
![]() |
|
![]() |
![]() |
|
Programmierung Rat & Tat für Programmierer |
![]() |
|
Themen-Optionen | Ansicht |
|
![]() |
#1 |
Jr. Member
![]() |
![]() hy!
DANKE FÜR DIE HILFE! hatte bereits selbst die antwort gefunden. funktionierte bei mir mit folgenden code! 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 Private Sub Form_Click() Dim Result&, Buffer$ 'Wert lesen Buffer = Space$(32) Result = GetPrivateProfileString("neu", "datei", "", _ Buffer, Len(Buffer), "c:\v.ini") a = Left$(Buffer, Result) MsgBox (a) End Sub @reemrev hatte bereits deine zeile gehabt hat aber nicht mit dem kernel32 funktioniert und die datei kernel.dll hab ich nicht gehabt! ![]() nochmals danke für die tipps! ![]() mfg little |
![]() |
![]() |
![]() |
Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1) | |
|
|