Hei,
miten voin käynnistää VBA:ssa jonkin koodin suorituksen toisen koodin suorituksen aikana?
Tarkoitan sitä että kun minulla on vaikkapa kaksi oliota ja tapahtumaa; CommandButton1.Click ja ComboBox1.Change, niin miten voin käynnistää CommandButton1.Click -koodissa olevalla käskyllä ComboBox1.Change -koodin suorituksen välittömästi?
Nyt teen kyseisen tempun lukemalla comboboxin arvon muistiin ja kirjoittamalla ensin comboboxiin tyhjän arvon ja edelleen äsken muistiin luetun arvon. ComboBox1.Change -ohjelman alussa koodin suoritus keskeytetään jos combon arvo on tyhjä. Toimii kyllä, mutta ei kovin fiksua...
-Pasi-
Aliohjelman käynnistys
Pasi
3
439
Vastaukset
- TSwiGH
käy ihan vaan:
ComboBox1.Change(kenties jotain parametria) - vbguru
En ole ihan varma, mitä tarkoitit, mutta jos suunnilleen...
Yleensäkin kannattaa tehdä siitä suoritettavasta jutusta funktio, aliohjelma, jota sitten kutsutaan milloin mistäkin, vaikka Command-painikkeesta tai ComboBoxin Change:sta.
Eli itse nappuloihin tai muihin objekteihin ei kannata paljoa koodata, ei tarvitse toistaa samaa koodia moneen kertaan kun sen kirjoittaa funktioksi, aliohjelmaksi.
esimerkissä funktiota "tulosta" kutsutaan aina kun Combo1 arvo muuttuu, paitsi jos se on tyhjä,
ja Command1-painikkeella kutsutaan samaa funktiota.
Function tulosta()
Label1.Caption = Combo1.Text
End Function
Private Sub Combo1_Change()
If Combo1.Text "" Then Call tulosta
End Sub
Private Sub Command1_Click()
Call tulosta
End Sub- Pasi
vastasit juuri siihen mitä tarkoitinkin, kiitos!
-Pasi-
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Mitäs peitsarissa on tapahtunut eilen illalla
Mikkelissä iso poliisioperaatio https://www.iltalehti.fi/kotimaa/a/39ef020c-2d81-4d72-b720-651f458ba3e2942553- 195954
- 55752
Sofia teki aika pahat oharit
Leikkiikö Sofia kansainvälistä kosmopoliittia vai menikö rehdisti pupu pöksyyn, kun perui viestillä tulonsa puoli tunti119672- 49562
Havaintoja ihmisen ulosteesta lenkkeilypoluilla
Oletteko havainneet ihmisen ulostetta taajamaa kiertävillä lenkkeilypoluilla?14496- 49493
Peräännytkö nainen vai mitä sanot
Jos sanon sulle että rakastan sua? Suututko oletko vihainen vai olisiko tunteet molemminpuolisia?52484- 55465
Auto katolleen Huhtalantiellä
Iso poliisioperaatio Lapualla, 7 poliisipartiota ajoi rosvoja takaa,loppu tuli kun rosvot osuivat pihlajaan lentäen siit11450