Pomoc – Visual Basic – Fórum – Programujte.com

zdravim, uz asi pol hodinu sa tu trapim na jednou pre vas asi lahkou otazkou.
ako mam dosiahnut, ze po podmienke if bude nasledovat viac odoziev, ako jedna ...


thx

no možná myslíš tohle

If podmínka Then
......
ElseIf podmínka1 Then
......
ElseIf podmínka2 Then
......
Else
......
End If

To JMM:no, ide práve o to, že v každom kurze, alebo na miestach, kde som to hľadal je táto poučka

Ja by som ale chcel vedieť, ako mám dosiahnuť, že po napr.

if a=7 then - a tu by sa ziadalo nieco ako begin

c:=c+2
b:=b+3

end

ibaze ja viem dosiahnut iba to, aby program spravil len prvy prikaz a ten druhy je mimo if-u

:(

??????????????
vždyť ti to už JMM popsal
aneb end if ukončuje celý blok v podmínce
další variantou je
select case a
case 1
......
case 2
......
case 3
......
otherwise
......
end case

při použití více možností pro jednu proměnnou
je case lepší protože rychlejší

ale když koukám na to cos psal ted begin... c:=c+2.... tak se mi zdá že sis asi spletl forum... takhle se tuším píše v pascalu (delphi)

To JMM:nj, vyskusam, dufam, ze to pojde :)

ozaj este dve otazky
1. ako sa da vlozit do suboru hudba?
2. ako sa dostanem z form1 do form2

danke schon :D

1) ted přesně nevim... zkus se podívat na pscode.com
2) jak dostat... myslíš jako zobrazit form2 z form1 třeba pomocí tlačítka?
pokud jo tak

   Private Sub Command1_Click()

     form2.show '[1(vbmodal)]

   End Sub

To JMM:diky moc, velmi si mi pomohol, skusim sa pozriet aj na ten bod 1

este raz thx

no, skusam to s tym ifom, ale stale to akosi nejde dam konkretny priklad


If a > 1000 Then: off = MsgBox("1 000" _
, vbOKOnly, "salalala")

a = a - 1000000
Label2 = a
Image1.Visible = True
Cesty.Enabled = False
End If

asi som uplne sprosty, ale nejde mi to ...

ježíš, co tam dělá ta dvojtečka?????
kristova noho to si sprostý protože za tím then nesmí nic pokračovat, pakliže to má uvozovat blok příkazů

If a > 1000 Then
off = MsgBox("1 000" _
, vbOKOnly, "salalala")
a = a - 1000000
Label2 = a
Image1.Visible = True
Cesty.Enabled = False
End If

To maty: omn, som sa asi pomylil nie, tu dvojbodku v programe nemam ...

To maty: no v kazdom pripade dik za trpezlivost, uz to ide, mimochodom nevies, ako sa pridava hudba?

hudba jako kam????

do pozadia