VB NET Gestire un controllo da un modulo

[Pieruccio]

ciao a tutti , spero possiate aiutarmi

Sono passato da pochissimo a VB.NET e la prima cosa che ho notato (dopo aver convertito un vecchio programma fatto in VB6) che le routine presenti su un modulo (un modulo.bas in vb6 per interderci) non gestiscono piu i controlli presenti su una form ma generano un messaggio di errore.
Vi faccio un breve esempio:
Supponiamo di avere una form (form1) con un controllo textbox chiamato text1 ed un modulo (module) con una sub chiamata Leggi la quale deve leggere/modificare il controllo textbox sulla form.
sub Leggi()
form1.text1.text="prova"
end sub
perche mi dice che l'oggetto non e' condiviso e in quale modo posso coondividerlo o cmq farlo funzionare?
grazie per l'aiuto

bye bye

[xegallo]

quando si passa a vb.net bisogna cominciare a pensare ai form a degli oggetti non a dei contenitori di oggetti e procedure come molti pensano (erroneamente)siano in vb6

per fare riferimento ad un oggetto bisogna che esso sia istanziato nello scope dove deve essere visibile

[darkblOOd]

sub Leggi() 

Dim newForm1 as Form1
newForm1.text1.text="prova" 
end sub

[Pieruccio]

non mi sono spiegato bene.

se in un modulo ho una sub che deve controllare il testo contenuto in una textbox che sta su una form:
Module Check
Public Sub Leggi()
if form1.textbox1.text<>"" then 'textbox1 risiede sulla form1
form1.textbox1.text=""
end if
end sub
end Module

grazie per l'aiuto

[xegallo]

si ti eri spiegato bene prova come ha scritto dark

[Pieruccio]

ma facendo in quel modo sul form non si aggiorna la textbox
come faccio a modificare il testo della textbox dal modulo visualizzando sul form il nuovo testo?

a rigrazie )

[Pieruccio]

ho fatto come dice dark ma il risultato non cambia

sulla form non mi si aggiorna la casella di testo

perche?

scusate la mia insistenza ma e' importante

grazie

[darkblOOd]

ma tu che devi fare? :master:

[Pieruccio]

visto che l'esempio di prima porta un po di confusione ne propongo un secondo:

ho una form chiamata form1 nella quale ho inserito un controllo timer chiamato timer1.
nell evento timer1_tick eseguo una chiamata ad una sub che sta su un modulo (Module1):
sub ShowDataOra
' da questa sub io vorrei visualizzare data e ora sulla textbox che sta sulla form1
form1.textbox1.text=now
end sub
Dovrebbe aggiornarmi la casella di testo sulla form1 visualizzando la data e l'ora.
Se io aggiungo alla sub:
dim NForm as new form1
NForm.textbox1.text=now

non mi da errori ma sulla form1 continuo a non vedere nulla.

spero mi possiate aiutare

[darkblOOd]

e se nel modulo metti:

Public Function CheOraE() As string
  return OraCorrente
End Sub

e nel form

TextBox1.Text= Modulo.CheOraE

funziona?

oppure puoi crearti un proprietà read-only nel modulo

oppure una variabile publica aggiornata dal timer

oppure passare l'oggetto textbox al modulo e modificare le proprietà che ti interessano

oppure ...