lidt hjælp:)

smutter kigger ind i morgen:)

Mit gæt er, at objektet x skabes før Form1 får kaldt sin InitializeComponent, derfor er Me.Text stadig blank.

Koden burde derfor være:

Dim x As test(Me.text) ' <---- IKKE New
Private Sub Form1_Load(...) Handles MyBase.Load
  x.tester()
End Sub
   
Public Class test
  Private name As String
  Public Sub New(ByVal name As String)
    Me.name = name
  End Sub
       
  Public Sub tester()
    MsgBox(name)
  End Sub
End Class

BLEH! Glemte en linie!

Dim x As test(Me.text) ' <---- IKKE New
Private Sub Form1_Load(...) Handles MyBase.Load
  x = New test(Me.Text)  ' <----- Den glemte linie  ;)
  x.tester()
End Sub
   
Public Class test
  Private name As String
  Public Sub New(ByVal name As String)
    Me.name = name
  End Sub
       
  Public Sub tester()
    MsgBox(name)
  End Sub
End Class

jeg forstår det ikke helt :S

hvad gør det - at der ikke står new test?

en forklaring?

x er en variabel på modul niveau, dvs. den bliver lavet samtidig med din form. Når du så laver:

Dim x As New Test(...)

så bliver x ikke bare erklæret men også instantieret. Og siden det sker *før* din kode i formens constructor kaldes, så er formens Text-property stadig ikke sat (det sker først i InitializeComponent. Check selv det kode som designeren skjuler, du kan se at formens Text property på et tidspunkt bliver sat.


Ved at 'nøjes' med flg:

Dim x As Test

så er x erklæret med stadig null/nothing. Når du så i Form_Load eller i formens constructor *efter* kaldet til InitializeComponent laver en instans af klassen, så har din form fået sin Text property sat.

Hvis det stadig er lidt sort, så sæt et breakpoint i InitializeComponent og et i Test klassens constructor.

ok :) nu virker det og det hele :D takker Clausc