Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

bin ich zu dumm ?
Autor: rene04
Datum: 27.11.02 13:39
hi, es geht um registry schluessel löschen. vielleicht sieht ja jemand den fehler ! also ich habe in meiner textbox im vb-programm folgenden eintrag den es zu löschen gilt : Software/Microsoft/Office/10.0/Common/Open Find/Microsoft Visio/Settings-und dann 4 Pipes ! hierzu habe ich folgenden code gebastelt : Private Sub cmdLoeschen_Click() Dim i As Long Dim hilf As String Dim Pos As Integer Dim Pos2 As Integer Dim Pfad As String Dim Wert As String Dim Pos3 As Integer Dim Wert2 As String For i = 0 To List1.ListCount - 1 If List1.Selected(i) Then hilf = List1.List(i) Pos = InStr(1, hilf, vbCrLf, vbBinaryCompare) Pfad = Left(hilf, Pos - 1) Pos2 = InStr(Pos + 1, hilf, vbCrLf, vbBinaryCompare) Wert = Mid(hilf, Pos + 2, Pos2 - Pos - 2) Wert2 = Mid(hilf, Pos2 + 2) If Wert = "" Then WerteLoeschen2 suche_in, Pfad End If WerteLoeschen suche_in, Pfad, Wert End If Next i Command1_Click End Sub das war die funktion die auf knopf-löschen ausgeführt wird. die se ruft dann die funktion auf : Sub WerteLoeschen(suche_in As Long, Pfad As String, Wert As String) Dim vRet As Variant RegCreateKey suche_in, Pfad, vRet RegDeleteValue vRet, Wert RegCloseKey vRet End Sub Sub WerteLoeschen2(suche_in As Long, Pfad As String) Dim vRet As Variant RegCreateKey suche_in, Pfad, vRet RegDeleteKey vRet, Pfad RegCloseKey vRet End Sub na ? hat schon jemand den bösen fehler gefunden ? gruesse rene

bin ich zu dumm ?

289

rene04

27.11.02 13:39

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen