[vb] form aanroepen dmv een variabele?

[Devian]

code:

Private Sub Form_Load()
Dim variabele As String
Dim lengte As Integer
    Caption = ("Test print")
    variabele = "frmKlantPrive"
    For teller = 0 To 5
    txtResultaten = txtResultaten & variabele.Label(teller) & _
   Space(30 - Len(frmKlantPrive.Label(teller))) & vbTab & _
   frmKlantPrive.txtVeld(teller) & vbNewLine
    Next teller
                   
End Sub

We hebben een probleem, zoals je in bovenstaande code ziet probeer ik ipv frmKlantPrive.Label(teller) variabele.Label(teller) te gebruiken, dit omdat deze functie voor meerdere forms gebruikt moet worden, we hebben alles geprobeerd, de search doorzocht.. maar er zijn geen soortgelijke topics.

Zoals het hierboven staat werkt het dus niet.

We gebruiken dit gedeelte om verschillende textvakken uit een form weg te schrijven in een enkel textvak. Echter het moet gaan werken en aan te roepen zijn vanuit verschillende forms.

Iemand een idee hoe het moet?

[ Voor 4% gewijzigd door Devian op 12-12-2003 11:25 ]

[whoami]

Ooit al eens van arrays gehoord?

[Devian]

jawel, maar hoe zou je zoiets met een array willen maken dan?
heb je hier een voorbeeld van?

[whoami]

Euh, wat bedoel je nu eigenlijk?
Dat je 5x een bepaald form hebt openstaan, en dat je informatie van die form wilt halen?

Je kan toch gewoon een instance maken van die form (= variabele dus), en dan gewoon iedere keer de gewenste info er van uit lezen?

[Tukk]

Kijk eens in de MSDN-help file. (F1 als je in VB zit) naar Collections.
Gooi daar alle forms in die je wil hebben en loop er door heen.

Een array kan natuurlijk ook, collections hebben bij mij meestal de voorkeur..

[Devian]

whoami schreef op 12 december 2003 @ 11:39:
Euh, wat bedoel je nu eigenlijk?
Dat je 5x een bepaald form hebt openstaan, en dat je informatie van die form wilt halen?

Je kan toch gewoon een instance maken van die form (= variabele dus), en dan gewoon iedere keer de gewenste info er van uit lezen?

euhm, ik heb in form1 een aantal textvakken staan die ik wil wegschrijven naar 1 groot textvak. omdeze daar te kunnen printen of op te slaan in een bestand.

maar we gaan werken met 10+ forms, en die moeten dit allemaal kunnen. Om het stukje code dus werkend te krijgen voor elke form gebruiken we control arrays voor de text vakken en de labels met een teller die we per form willen laten meesturen voor het aantal textvakken dat er zijn (nu nog niet gedaan)

Zodoende is het "form".label(teller) variabel, omdat je met meerdere forms wil t werken. als ik dus vanuit form1 op de knop druk moet het dus form1.label(teller) worden. en als ik vanaf form2 dezelfde functie aanroep moet het form2.label(teller) worden.

hoop dat het zo een beetje duidelijk is

[MMUilwijk]

Als ik het goed begrijp wil je in een variabele een formulier(=object) stoppen en daarvan dan de eigenschappen en objecten gebruiken?
Dat impliceert in ieder geval je voorbeeld code
Je kan dan toch ook gewoon in je code het formulier benaderen ? Of zoals whoami zegt een instantie van dat formulier aanmaken en in een variabele stoppen ?

code:

Private sub Form_Load()
  
  Dim objForm as Form
  Dim strLabelinhoud as String  

  set objForm = new frmKlantprive
  strLabelinhoud = objForm.Label.Caption
  
End sub

En wil je dit generieker maken, dat wil zeggen vanuit het aanroepende formulier
meegeven welk formulier het moet zijn stop je m in een public sub en roep je die sub aan in het formulier waar de boel staat en geef je dat formulier mee als object

code:

Public Sub Form_Prop(ByVal objGivenForm as Form)
    
  Dim objForm
  set objForm = new objGivenForm

End sub

Aanroepen in je formulier d.m.v.

code:

Private Sub Command1_Click()

  Call Form_Prop(Me)

End sub

[ Voor 56% gewijzigd door MMUilwijk op 12-12-2003 11:51 ]

[Tranq]

Hint:

Dim frm as Form
Set frm = new frmFormulier

[whoami]

Goeie hint.

Trouwens, waarom moet je die variabelen eerst in een textvak gaan zetten om ze te kunnen opslaan?

[Devian]

w0000t het werkt

Ik had al gewerkt met dim test as form, maar het newform gedeelte kende ik niet

harstikke bedankt


we wouden het in een textvak wegschrijven voor het printen en aanpassen van lettertype en grote, maar we zijn er al achter dat dit niet echt werken gaat omdat we nu niet met printer.currentx kunnen werken(omdat alles in 1 textvak zit) en dusdoende de uitlijning niet klopt . Maar dat gaan we nu wel ombouwen

Iig harstkke bedankt

[Devian]

En wil je dit generieker maken, dat wil zeggen vanuit het aanroepende formulier
meegeven welk formulier het moet zijn stop je m in een public sub en roep je die sub aan in het formulier waar de boel staat en geef je dat formulier mee als object

code:

Public Sub Form_Prop(ByVal objGivenForm as Form)
    
  Dim objForm
  set objForm = new objGivenForm

End sub

Aanroepen in je formulier d.m.v.

code:

Private Sub Command1_Click()

  Call Form_Prop(Me)

End sub

Dat gedeelte krijg ik nog niet voor elkaar.

Zolang ik objgivenform als string defineer en ipv me "test" doe en een msgbox test open in het andere formulier neemt hij de waardes netjes mee. echter zodra ik het ga doen zoals jij het erneer zet krijg ik een user defined type not defined.

Als ik ipv test frmklantprive doe dan krijg ik later bij het defineren van objgivenform een type mismatch (wat me logisch lijkt).

Nog suggesties?

[MMUilwijk]

Euhm ja, in de snelheid was ik even vergeten het object te declareren... dat moet je nog even doen. Of het een form of een object moet zijn mag je zelf even uitpuzzelen

[xtra]

In plaats van het form-object mee te geven aan de sub kun je evt. ook gebruik maken van Screen.ActiveForm.

Dat verwijst - de naam zegt het al - naar het formulier dat op dat moment actief is.