Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Select Case
Grizz




Typ: neutral
Postów: 50
Zarejestrowany: Jun 2004
Select Case

Mam nadzieję, że zrozumiecie o co mi chodzi

Chcę zrobić tak, że np. pojawi się MsgBox "Witaj", jeśli txt1.text="Dzień dobry" albo txt1.text="Cześć". Ale nie chcę stosować If, else, tylko Select Case...

30-07-2004 17:57
Pokaż profil Grizz  Wyślij email do Grizz   
bisiek




Typ: neutral
Postów: 487
Zarejestrowany: Jul 2003

Select Cace Text1.text
case "Dzień dobry"
msgbox "Witaj"
case "Cześć"
msgbox "Cześć"
case else
msgbox "Nie rozmieć"
end select



Case else możesz pominąć jeśli nie jest potrzebne.


_____________________________________________
www.mob.abc.pl - moja strona o VB

30-07-2004 18:07
Pokaż profil bisiek  Wyślij email do bisiek   Odwiedź stronę bisiek       3380672
Grizz




Typ: neutral
Postów: 50
Zarejestrowany: Jun 2004

Ech. Nie rozumiecie. Pokażę to na niedziałającym przykładzie:

Select Cace Text1.text
case "Dzień dobry" or "Cześć"
msgbox "Witaj"
end select

Chodzi o to OR, bo nie działa :/

30-07-2004 22:23
Pokaż profil Grizz  Wyślij email do Grizz   
EtErO



Typ: neutral
Postów: 11
Zarejestrowany: Jul 2004
Niewiem czy oto ci chodzi ale może oto

Select Case Text1.Text
Case "Dzień dobry"
Case "Cześć"
MsgBox "Witaj"
End Select

30-07-2004 22:46
Pokaż profil EtErO  Wyślij email do EtErO        1216660
Chudy
[TLHW]Wiktor



Typ: moderator
Postów: 574
Zarejestrowany: Aug 2002


Ech. Nie rozumiecie. Pokażę to na niedziałającym przykładzie:

Select Cace Text1.text
case "Dzień dobry" or "Cześć"
msgbox "Witaj"
end select

Chodzi o to OR, bo nie działa :/

Zamiast OR wystarczy przecinek.


_____________________________________________
Projekt "Thunder Cannons" nadchodzi...

30-07-2004 23:02
Pokaż profil Chudy  Wyślij email do Chudy   Odwiedź stronę Chudy       1220895
Grizz




Typ: neutral
Postów: 50
Zarejestrowany: Jun 2004

O to chodziło!! Jesteś wielki

31-07-2004 10:53
Pokaż profil Grizz  Wyślij email do Grizz   
Wszystkich odpowiedzi: 5 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1