Problema Con Form e Moduli

martedì 29 agosto 2006 - 14.51

Sakuya84 Profilo | Newbie

Salve Gente Sn nuovo di questa community e avrei già una bella domanda da porvi....
Ho un textbox in un Form e un modulo

Public Class Form1

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

Call text1(Me)
End Sub
End Class



Module Module1
Public Function text1(ByVal frm As Form)
frm.TextBox1.Text = "sss"
End Function
End Module

mi da un errore nel modulo dicendo che "textbox1" non è un membro di "system.windows.forms.form"
in vb 6 non mi dava nessun errore e riuscivo a passare il form alla funzione ma cn vb.net non riesco.

premetto che per il problema che mi trovo ad affrontare mi serve assolutamente il passaggio del form alla funzione dato che la funzione modificherà una 50a di form. SAPRESTE AIUTARMI????

Grazie ragazzi!!!

Giamp72 Profilo | Junior Member


per fortuna/purtroppo in vbnet le cose sono un po diverse da vb6...
a meno che frm non venga dichiarato del tipo giusto (del form cioè che contiene il text box specificato) textbox1 non è membro di Form (chè è il tipo generico) perciò quel codice non funzionerà mai..

Potresti però cambiare il codice come segue:

Public Sub Text1(ByVal frm As Form)
Dim ct As TextBox
For Each ct In frm.Controls
If ct.Name = "TextBox1" Then
ct.Text = "ss"
Exit For
End If
Next
End Sub

..magari passa come argomento il nome del textbox così rendi la funzione piu' generica..

questa è una possibile soluzione.. poi dipende da quale è l'uso che ne devi fare e quale è l'ambito + generale del problema che devi risolvere..
Giamp72

Sakuya84 Profilo | Newbie

Ti ringrazio mi è stato molto utile !!!!!!!

Giamp72 Profilo | Junior Member

se il problema è risolto dovresti accettare la risposta.. così eviti di lasciare aperto l'argomento..
Giamp72
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !
Copyright © dotNetHell.it 2002-2025
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5