miten saa tästä kaikki nappulat toimimaan erin lailla?
Private Sub Form_Load()
Dim Arvo As Integer
Arvo = MsgBox("jotain", 4, "jotain")
End Sub
kyllä ja ei nappulat ja miten saisin ne toimimaan siten että ei nappula sulkee ohjelman ja kyllä avaa?
(tulee heti kun ohjelma alkaa)
help mEEEEEEEEEEEEEE!!!!!!!!!!!!!!!!!!!!!!!!!
kysymys?
1
318
Vastaukset 1
- vbkutosella
En ymmärtänyt kysymystä, mutta tarkoittanet että kyseinen ohjelma loppuu.
Private Sub UserForm_Initialize()
Dim i As Long
i = MsgBox("Aloitetaanko ?", vbYesNo, "Startti")
If i = vbNo Then
Application.Quit
End If
End Sub
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
- 103986
- 61907
Carunan hinnat
Yks proffa vauuttaa, ettei Caruna voi noin vain nostaa hintoja koska suomen laki kieltää, toinen proffa sanoo että Carun68693- 63661
- 41645
Mikä sun kaivatussa on se miksi ihastuit
ja ikävöit? Eli se jokin asia, mikä aiheutti tunteen, että tuossa on sitä jotain? Meinasitko tehdä asialle jotain vai ka22562Kunnan päätie ja sen lähialueet
Arvon hyrynsalmelaiset. Tätä palstaa on näin Ukkohallan mökkiläisena ihan viihteellistä lukea. Milloin teitä ahdistaa la33558Toimittajat ulkomailta saapuivat eilen vaskiviikoille
Toimittajat lähtivät tutustumaan Lieksan yöelämään ja kultturitarjontaan. Kaikki yllättyivät kuinka aktiivista ja innoka25529- 50516
Mitä luulet
Mitä luulet kaivattusi ajattelevan sonusta? Onko jotain mitä haluaisit oikaista hänelle?37478