Vraag : Visuele Basis - bevolkend een variërend tekstvakje van een andere vorm

Ik heb één vorm CallingForm met twee textboxes en verwante bevelknopen naast elk.  Zo txtCompany and cmdCompany, en txtState and cmdState.  Beide bevelknopen, wanneer geklikt, tonen de zelfde vorm SelectForm with één enkele DataGrid lijst CompanyName, Staat, enz.  De gebruiker selecteert dan een verslag van DataGrid in SelectForm.   Ik wil SelectForm informatie terug naar CallingForm terugkeren, bevolkend het correcte die tekstvakje, wordt gebaseerd op welke bevelknoop (en daarom textbox) in CallingForm werd geklikt.  

If werd geklikt in CallingForm, wil ik de selectie van DataGrid van SelectForm txtCompany de tekstvakje van CallingForm bevolken.

If werd cmdState geklikt in CallingForm, wil ik de selectie van DataGrid van SelectForm de tekstvakje van CallingFroms bevolken txtState.  

I weet het hoe te om kolom I van verwijzingen te voorzien behoefte in het gegevensnet en wist het hoe te om het tekstvakje in CallingForm terug te bevolken toen ik slechts één tekstvakje behandelde, maar nu ik met worstel hoe te om het tekstvakje in CallingForm van verwijzingen te voorzien, nu ik een variabele van soorten behandel waarheb gewild in verband met het tekstvakje in CallingForm die ik aan populate.

Antwoord : Visuele Basis - bevolkend een variërend tekstvakje van een andere vorm

De vertoning SelectForm als modale dialoog met „vbModal“ en grijpt dan info terug van het in CallingForm:

    Privé SubcmdCompany_Click ()
        Schemerige sf als Nieuwe SelectForm
        sf. Toon vbModal ' <--- code="" in="" CallingForm="" STOPS="" here="" until="">        '… greep direct één of andere info van de VERBORGEN „sf“ instantie…
        Me.txt Company.Text = sf.txt Something.Text
    Sub van het eind

    Privé SubcmdState_Click ()
        Schemerige sf als Nieuwe SelectForm
        sf. Toon vbModal ' <--- code="" in="" CallingForm="" STOPS="" here="" until="">        '… greep één of andere info van „sf“…
        Me.txt State.Text = sf.txt Something.Text
    Sub van het eind

In SelectForm, u simpy HUID de vorm in antwoord op de „O.K.“ knoop die worden geklikt:

    Privé SubcmdOK_Click ()
        Me.Hide ' <-- this="" causes="" the="">    Sub van het Eind