Predavani promenych do formulare – Visual Basic – Fórum – Programujte.com

Mam teoretickou otazku

Daji se do formulare predat argumenty?

napr. nejak takto

frmErrorMessage.Show (strErrorText, strErrorTitle, strerrLinked)

si děláš doufám prdel...
Tvoje otázka je totiž můžu při volání funkce použít argumenty????
Jestliže si dělal ve VBA tak bys takovou otázku pokládat neměl
prostě zavoláš vlastní funkci



frmErrorMessage.ShowForm (strErrorText, strErrorTitle, strerrLinked)

public function Showform(Errortext, ErrorTitle, ErrLinked)
blábláblá
....
end function

Uz jsem to pochopil :-) (ale fakt mi to nedoslo, potreboval jsem nakopnout...)

Udelam to tedy nejak takto
naplnim promenne, zavolam funkci, tam to pres konstrukci

With frmErrorMessage

    .Label1.Text = promenna

   a dalsi

End With

 a nakonec vyvolam formular

Public Sub neco



strErrorText = neco

strErrorTitle = neco

strerrLinked = neco



frmErrorMessage.ShowForm (strErrorText, strErrorTitle, strerrLinked)



end Sub

Public From_Load (nejake paramatry od VB, a tady ty moje, strErrorText, strErrorTitle, strerrLinked)



pak treba jen

label1.Text =  strErrorText



End 

To Premek:no nechci tě moc peskovat,ale než bych používal globální proměnné které zasírají pamět a uvolní se až při ukončení instance, tak předám argumenty pomocí funkce.Je to elegantnější a navíc čitelnější, aneb když se budeš později ke kódu vracet uvidíš na první pohled cože to tam provádíš, což za použítí glob. čproměnných tak jasné není.
PS:nevím jak si přišel na to že u public funkce se argumenty drží v paměti...,to jsou lokální proměnné i když je funkce public, tzžn po použití se uvoní, kapíšto..

Premek píše:#
# Mam teoretickou otazku#
##
#Daji se do formulare predat argumenty?#
##
#napr. nejak takto#
##
#

frmErrorMessage.Show (strErrorText, strErrorTitle, strerrLinked)

#
##
#Presel jsme z VBA a sem tam jsem delal v VB6 na VB .NET 2005#
#a zajima me to. Jinak to udelam globalnimi promenymi.

' proceduru umistnim do formulare ktery chci volat

   Sub Spust(parametrA as Variant, parametrB as Variant, parametrC as Variant)

       ' zpracovani hodnot  Napr

              Me.Label1.Caption = parametrA

       '...

       '...



       On Error Resume Next   ' pro pripad ze je jiz Form vyvolan

       Me.Show

   End Sub



' a ted volam odkudkoliv

      jmenoformu.spust("bla", "bla", "bla")