Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: vbYesNoCancel
toja




Typ: neutral
Postów: 31
Zarejestrowany: Apr 2005
vbYesNoCancel

Jeżeli przed makrem wpiszę
MsgBox "Czy dokonać zmian ", vbYesNoCancel, ""
i zaznaczę Nie ,albo Anuluj to makro i tak zostaje wykonane, czy coś jeszcze powinienem przedtem napisać aby zrezygnować z wykonania makra w przypadku wybrania opcji Nie albo Anuluj?
------------------------------------
Marian

19-05-2005 11:01
Pokaż profil toja  Wyślij email do toja   
Caveman




Typ: neutral
Postów: 4
Zarejestrowany: May 2005

W twoim kodzie brakuje sprawdzenia, który przycisk został naciśnięty.

Odpowiedź na twój problem znajdziesz w pomocy do MsgBox Function Example.

19-05-2005 12:06
Pokaż profil Caveman  Wyślij email do Caveman   
toja




Typ: neutral
Postów: 31
Zarejestrowany: Apr 2005

Początki zawsze są trudne.Może masz w pamięci maly przykład ,będę wdzięczny, bo nie wiem jak i gdzie się ruszyć, aby osiągnąć cel
-----------------------------
Marian

19-05-2005 13:20
Pokaż profil toja  Wyślij email do toja   
Caveman




Typ: neutral
Postów: 4
Zarejestrowany: May 2005

Sub Przykład()

Dim Msg, Style, Title, Response

Msg = "Czy dokonać zmian ?"
Style = vbYesNoCancel + vbCritical + vbDefaultButton2

'vbCritical wyświetla ikonkę "Krytycznej Wiadomości"
'vbDefaultButton2 - domyślny przycisk to 2 (w tym przypadku NIE)

Title = "Przykład wykorzystania MsgBox"
Response = MsgBox(Msg, Style, Title)

    If Response = vbYes Then

        'Tutaj wstaw kod, który ma być wykonany po naciśnięciu TAK np.

        MsgBox "Wybrano TAK"

    Else

        'Tą część pozostaw pustą lub wstaw kod, który ma być wykonany po naciśnięciu NIE lub ANULUJ np.

        MsgBox "Wybrano NIE lub ANULUJ"

    End If

End Sub


-------

Pozdr,

Caveman

19-05-2005 16:10
Pokaż profil Caveman  Wyślij email do Caveman   
toja




Typ: neutral
Postów: 31
Zarejestrowany: Apr 2005

Dziękuję za kod, trochę rozbudowany, ale dziala i o to chodzi
-----------------------------------
Pozdrawiam Marian

19-05-2005 17:32
Pokaż profil toja  Wyślij email do toja   
Piotr T




Typ: neutral
Postów: 176
Zarejestrowany: May 2004

If Msgbox ("Czychcesz...",vbYesNo + vbQuestions,"Tytuł" = vbYes then
' tu kod jesli Tak
else
' tu jeśli nie
End if


_____________________________________________
Visual Basic.NET - Mercedes dla programistów

19-05-2005 18:38
Pokaż profil Piotr T  Wyślij email do Piotr T   Odwiedź stronę Piotr T  
Wszystkich odpowiedzi: 5 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1