[vb] Register

[Verwijderd]

Ik heb een progje gemaakt in vb enzow. Hartstikke leuk, maar nou wil ik weten hoe ik kan bepalen of een bepaalde sleutel (die door mijn progje is geschreven in t register) aanwezig is?
Alvast bedankt

[LegacyCode]

Op www.1vbstreet.com vond ik dit, misschien dat je hier wat aan hebt.

code:

'**************************************
' Name: ______A Edit Registry
' Description:How to Read and Write to t
'     he Registry using all HKEYS
' By: Agent Smith
'
'This code is copyrighted and has' limited warranties.Please see http://w
'     ww.1VbStreet.com/xq/ASP/txtCodeId.10479/
'     lngWId.1/qx/vb/scripts/ShowCode.htm'for details.'**************************************



Public Function bSetRegValue(ByVal hKey As Long, ByVal lpszSubKey As String, ByVal sSetValue As String, ByVal sValue As String) As Boolean
    
    On Error Resume Next
    Dim phkResult As Long
    Dim lResult As Long
    Dim SA As SECURITY_ATTRIBUTES
    Dim lCreate As Long
    RegCreateKeyEx hKey, lpszSubKey, 0, "", REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, SA, phkResult, lCreate
    lResult = RegSetValueEx(phkResult, sSetValue, 0, REG_SZ, sValue, CLng(Len(sValue) + 1))
    RegCloseKey phkResult
    bSetRegValue = (lResult = ERROR_SUCCESS)
    
End Function


Public Function bGetRegValue(ByVal hKey As Long, ByVal sKey As String, ByVal sSubKey As String) As String
    
    Dim lResult As Long
    Dim phkResult As Long
    Dim dWReserved As Long
    Dim szBuffer As String
    Dim lBuffSize As Long
    Dim szBuffer2 As String
    Dim lBuffSize2 As Long
    Dim lIndex As Long
    Dim lType As Long
    Dim sCompKey As String
    
    lIndex = 0
    lResult = RegOpenKeyEx(hKey, sKey, 0, 1, phkResult)


    Do While lResult = ERROR_SUCCESS And Not (bFound)
        szBuffer = Space(255)
        lBuffSize = Len(szBuffer)
        szBuffer2 = Space(255)
        lBuffSize2 = Len(szBuffer2)
        lResult = RegEnumValue(phkResult, lIndex, szBuffer, lBuffSize, dWReserved, lType, szBuffer2, lBuffSize2)


        If (lResult = ERROR_SUCCESS) Then
            sCompKey = Left(szBuffer, lBuffSize)


            If (sCompKey = sSubKey) Then
                bGetRegValue = Left(szBuffer2, lBuffSize2 - 1)
            End If
        End If
        lIndex = lIndex + 1
        
    Loop
    RegCloseKey phkResult
End Function

[robjanssen]

GetSetting gebruiken en dan kijken of je een waarde terug krijgt of niet.

[Verwijderd]

Tja lijkt me ook. Gewoon met Getsetting de waarde ophalen en checken of deze leeg is.

Bijv. een Ifje:

If strA = "" then
blabla

Let wel op dat alles in het register opgeslagen wordt als string.

[Verwijderd]

Verwijderd schreef op 03 november 2002 @ 10:31:
Tja lijkt me ook. Gewoon met Getsetting de waarde ophalen en checken of deze leeg is.

Bijv. een Ifje:

If strA = "" then
blabla

Let wel op dat alles in het register opgeslagen wordt als string.

Hey bedankt. Ik had net al eerst geprobeert If Getsetting(blabla) Then
Maar dat werkte niet. Ik ga zometeen proberen of dit werkt...

[Verwijderd]

Klein voorbeeld wellicht, was er zelf ook eergisteren mee bezig:

Je hebt een venster (Form). De gebruiker kan deze verplaatsen. Je wilt de positie laten onthouden zodat de volgende keer als de gebruiker het opstart het venster op de oude plek staat . Dit wil je dan opslaan in het register (bv. in je Form_Unload):

code:

Dim X as Single
X = Form1.Left
Dim Y As Single
Y = Form1.Top

SaveSetting "Appnaam", "Sectie", "Sleutel", CStr(X)
SaveSetting "Appnaam", "Sectie", "Sleutel", CStr(Y)

Waarbij Appnaam de naam van je applicatie is, sectie de section waaronder je het wil opslaan en sleutel de Key.

CStr converteert de positie (bv. X is 9660) naar een string i.p.v. een Single.

Vervolgens wil je bij het opstarten van het venster de positie uit het register halen, als deze niet bestaat bepaal jezelf de positie (Form_Load):

code:

Dim X As Single
Dim strX as String
strX = GetSetting(Appname:="Appnaam", section:="Sectie", Key:="Sleutel"
    If strX <> "" Then
    X = CSng(strX) Else
    X = 9660
    End If
Form1.Left = X

Dim Y As Single
Dim strY as String
strY = GetSetting(Appname:="Appnaam", section:="Sectie", Key:="Sleutel"
    If strY <> "" Then
    X = CSng(strX) Else
    X = 0
    End If
Form1.Top = Y

Eerst worden hier de X en de Y opgehaald uit het register. Is deze niet nul (""), dus ingevuld dan moet de string omgezet worden naar een Single. Als deze wel nul is, dan vullen we zelf iets in (hier 9660 en 0).

Als laatste geven we deze coordinaten mee aan het Form.

Hopelijk een beetje duidelijkheid, zo.

Zo voorkom je ook dat als je iets uit het register probeert te halen maar deze sleutel bestaat nog niet dat je een foutmelding krijgt.

[Noordamski]

op www.mvps.org/vbnet kun je allerlei voorbeelden met API's e.d. vinden voor VB.
Hier staat ook code voor register. Daarmee kun je in het hele register schrijven.