Registrerings database

du åbner regdatabasen ved at trykke start -> kør -> regedit

GetSetting Function Example
This example first uses the SaveSetting statement to make entries in the Windows registry (or .ini file on 16-bit Windows platforms) for the application specified as appname, and then uses the GetSetting function to display one of the settings. Because the default argument is specified, some value is guaranteed to be returned. Note that section names can't be retrieved with GetSetting. Finally, the DeleteSetting statement removes all the application's entries.

' Variant to hold 2-dimensional array returned by GetSetting.
Dim MySettings As Variant
' Place some settings in the registry.
SaveSetting "MyApp","Startup", "Top", 75
SaveSetting "MyApp","Startup", "Left", 50

Debug.Print GetSetting(appname := "MyApp", section := "Startup", _
                      key := "Left", default := "25")

DeleteSetting "MyApp", "Startup"



SaveSetting Statement Example
The following example first uses the SaveSetting statement to make entries in the Windows registry (or .ini file on 16-bit Windows platforms) for the MyApp application, and then uses the DeleteSetting statement to remove them.

' Place some settings in the registry.
SaveSetting appname := "MyApp", section := "Startup", _
            key := "Top", setting := 75
SaveSetting "MyApp","Startup", "Left", 50
' Remove section and all its settings from registry.
DeleteSetting "MyApp", "Startup"

<jck_true>: Det er nok via "Visual Basic" at der skal læses noget i RegBasen siden at spm. er i den kat.

Hmmm.. Sådan her
Public Class Form1

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        ' Variant to hold 2-dimensional array returned by GetSetting.
        Dim MySettings As Object
        ' Place some settings in the registry.
        SaveSetting("MyApp", "Startup", "Top", 75)
        SaveSetting("MyApp", "Startup", "Left", 50)

        Debug.Print(GetSetting(AppName:="MyApp", Section:="Startup", _
                              Key:="Left", Default:="25"))

        DeleteSetting("MyApp", "Startup")
    End Sub
    Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer. 
    'Do not modify it using the code editor.
    Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
    Friend WithEvents Button1 As System.Windows.Forms.Button
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.TextBox1 = New System.Windows.Forms.TextBox()
        Me.Button1 = New System.Windows.Forms.Button()
        Me.SuspendLayout()
        '
        'TextBox1
        '
        Me.TextBox1.Location = New System.Drawing.Point(24, 56)
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.Size = New System.Drawing.Size(232, 20)
        Me.TextBox1.TabIndex = 0
        Me.TextBox1.Text = "TextBox1"
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(88, 144)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(96, 104)
        Me.Button1.TabIndex = 1
        Me.Button1.Text = "Button1"
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(292, 273)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button1, Me.TextBox1})
        Me.Name = "Form1"
        Me.Text = "Form1"
        Me.ResumeLayout(False)

    End Sub

#End Region



End Sub

I have a feeling you are in VB .NET ikke?

otherwise what do you mean with

Hmmm.. Sådan her
?

Ja, korrekt... Overhovedt ikke... Jeg har bare noget jeg skal have lavet i programmet, og troede ikke det var helt så svært,... Jeg har lavet løsning i ASP, men da den kun læser fra serverens registreringsdatabase, nytter det jo ikke meget når det er brugernes regDB jeg vil læse fra

Jeg er lidt i tvivl om hvordan det skal oprettes. Jeg har blot lavet et nyt project og paste din kode... Ved godt det sikkert ikke er rigitgt, men lidt svært når man ikke ved hvad der skal gøres

The example is for VB 6 and under. Not tried on .NET

Ja, korrekt... Overhovedt ikke... ???

Oops.. Sorry , det gik vist lidt hurtigt. Jeg arbejder i VB .NET