Från en Sub i en Modul vill jag påverka tex Label1 i WebForm1.
Hur refererar jag till WebForulärets Objekt . (WebForm1.Label1.text ="abc" skulle jag ha skrivit på VB6 tiden).
Label1 måste deklareras som Friend i WebForm1 antar jag, men mera...?

Jag har inte testat detta på webforms, men antar att det är samma som vanliga forms.

<code>
Dim frmHej As New Webform1
frmHej.label1.txt = "Hej!"
frmHej.Show()
</code>

Hoppas det fungerar!

Tack!

Provat men får "objekt reference not set to an instance of an object"...

tacksam för hjälp

Jag såg att jag hade skrivit ett litet fel i min kod.

frmHej.Label1.Text = "Hej" skall det vara.

..jodå det såg jag också men trots detta kommer felmeddelandet...

Du måste göra en add reference till projektet om formet ligger i ett annat projekt.
Kan också så att du har olika namespace och måste sätta using (C#) längst upp
(tror att det är Import eller nåt i vb.net....)

//Jenny

Tack för hjälpen!
Formen och Modulen ligger i samma projekt här är hela koden för bägge.
Felet ("objekt reference not set to an instance of an object"...) uppstår i Modulen på raden "frmHej.Label1.Text = "Hej"". Tacksam för hjälp...



'FORMENS KOD********

Public Class WebForm1
Inherits System.Web.UI.Page
Public WithEvents Label1 As System.Web.UI.WebControls.Label
Protected WithEvents Button1 As System.Web.UI.WebControls.Button

#Region " Web Form Designer Generated Code "

'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

End Sub

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub

#End Region

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'Put user code to initialize the page here
End Sub

Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call trapp()

End Sub
End Class



'********MODULENS KOD********
Module Module1
Public x As Single

Public frmHej As New WebForm1()

Public Sub trapp()
frmHej.Label1.Text = "Hej"
End Sub
End Module

Har inte den här frågan hamnat uner fel ämne?