Hvordan får man en værdi med over i en ny form?

Du sender vel ID med over som argument til den nye forms constructor ...

Det vil sige noget i stil med:

Dim f As New Viskunde(Id)
me.Close
f.show

eller?

ja

VisKunde constructor (Sub New på VB'sk) skal så bruge Id til at styre hvad den viser

Hvad skal der så stå i en nye form?

F.eks. har jeg en form der ser sådan ud:

Public Class Viskunde
    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

    Friend WithEvents Label1 As System.Windows.Forms.Label
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.Label1 = New System.Windows.Forms.Label
        Me.SuspendLayout()
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(32, 16)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(104, 32)
        Me.Label1.TabIndex = 0
        Me.Label1.Text = "Navn"
        '
        'Viskunde
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(488, 273)
        Me.Controls.Add(Me.Label1)
        Me.Name = "Viskunde"
        Me.Text = "Viskunde"
        Me.ResumeLayout(False)
    End Sub
#End Region
End Class

Skal den så laves om til

Public Class Viskunde(id)

?

nej

det er Public Sub New() der skal laves om til Public Sub New(ByVal Id as Integer)

du ved... ligesom når man laver en metode der skal modtage argumenter... en constructor er også bare en metode. Dog en lidt smart en, da man kan udnytte at den udføres når at ens object oprettes.

Ja jeg tror jeg er med - vil lige prøve det, og så vender jeg lige tilbage!

Tak for nu!

Hvordan får jeg fat i den værdi der er i konstruktøren?

Hvis min konstruktør hedder Public Sub New(ByVal Id As Integer)
og jeg f.eks. skal sætte KundeID til teksten på en label?

Man kan ikke bruge Me.Label1.Text = KundeId

Jeg mente Public sub New(byval kundeId As integer)

well... på nøjagtig samme måde som i en normal metode, så findes argumentet kun i metodens scope. Dvs at den kan kun bruges indenfor denne metode, og når metoden er færdig nedlægges variablen igen.

Denne begrænsning kan du kommer udenom ved

1) at gemme dit KundeId som et field i din klasse. På den måde kan den tilgås fra alle metoder
2) lave din constructor på denne måde

Public Sub New(ByVal KundeId As Integer)
        MyBase.New()

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

        'Add any initialization after the InitializeComponent() call
        Me.Label1.Text = KundeId

    End Sub

Hvis man grafisk genererer en label, så kan jeg ikke få lov til at bruge Me.Label1.Text = KundeId
Den "kender" ikke kundeID, tiltrods for den er erklæret i konstruktøren!

Koden

Public Class Viskunde
    Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

    Public Sub New(ByVal KundeId As Integer)
        MyBase.New()
        MsgBox(KundeId)

        '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

    Friend WithEvents Label1 As System.Windows.Forms.Label
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.Label1 = New System.Windows.Forms.Label
        Me.SuspendLayout()
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(32, 16)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(104, 32)
        Me.Label1.TabIndex = 0
        Me.Label1.Text = "dgdg"
        '
        'Viskunde
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(488, 273)
        Me.Controls.Add(Me.Label1)
        Me.Name = "Viskunde"
        Me.Text = "Viskunde"
        Me.ResumeLayout(False)
    End Sub
#End Region
End Class

Men selvfølgelig kan jeg sætte Me.Label1.Text = KundeId op i til konstruktøren og så virker det!

Smider du lige et svar - har fået det jeg skal bruge for at komme videre

I skal egentlig begge smide et svar, da jeg kan se i begge har hjulpet med at løse problemet!

Takker

hvis du bruger constructor-koden jeg kom med, så virker det

Altså, Me.Label1.Text = KundeId EFTER InitializeComponents()-kaldet

.