WCM - Das österreichische Computer Magazin Forenübersicht
 

Zurück   WCM Forum > Rat & Tat > Programmierung

Programmierung Rat & Tat für Programmierer

Microsoft KARRIERECAMPUS

Antwort
 
Themen-Optionen Ansicht
Alt 27.04.2001, 23:59   #1
little21
Jr. Member
 
Registriert seit: 03.11.2000
Beiträge: 73


little21 eine Nachricht über ICQ schicken
Standard

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
little21 ist offline   Mit Zitat antworten
Antwort


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1)
 

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge hochzuladen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.

Gehe zu


Alle Zeitangaben in WEZ +2. Es ist jetzt 03:28 Uhr.


Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Forum SEO by Zoints
© 2009 FSL Verlag