na jednom kliku dugmeta da je jedno desi a na drugom kliku nesto drugo

na jednom kliku dugmeta da je jedno desi a na drugom kliku nesto drugo 10.12.2010. u 14:27 · pre 193 meseci #1

Kako da mi se na jednom kliku dugmeta nešto desi a kada kliknem drugi put(ne mislim na dblClick!) nesto drugo..?
npr

Code:

'imam "Shape1", "Shape 2" i "Command1";
'e sad kada kliknem prvi put Command1 neka bude
Shape1.FillColor = &HFF&
'a kada kliknem drugi put neka bude
Shape2.FillColor = &HFF00&
'i sve tako u krug...

Da li je to moguće, i ako jeste,kako?
Hvala unapred!

Potpis

A.K.___

Re: na jednom kliku dugmeta da je jedno desi a na drugom kliku nesto drugo 10.12.2010. u 14:55 · pre 193 meseci #2

Recimo pamtis korake u promenljivu:

Code:

Dim i As Integer

Private Sub Command1_Click()
If i = 0 Then
    Shape1.FillColor = &HFF&
    i = 1
Else
    Shape2.FillColor = &HFF00&
    i = 0
End If
End Sub

Samo pazi pomrnljiva 'i' mora da ti bude public, kako se nebi obrisala posle izvrsenja event-a.

Pozdrav

Re: na jednom kliku dugmeta da je jedno desi a na drugom kliku nesto drugo 10.12.2010. u 16:00 · pre 193 meseci #3

Aha..hvala puno!, a kako mislis Public?
kako to da napisem?
Jeste. Brise mi se posle izvrsenja, pa te zato i pitam.

Potpis

A.K.___

Re: na jednom kliku dugmeta da je jedno desi a na drugom kliku nesto drugo 10.12.2010. u 16:19 · pre 193 meseci #4

Pa deklarises je skroz na vrh programa, vidis kako sam je ja deklarisao izvan Command1 event-a.

Kad vidis sliku shvatices... :)

Pozdrav

Primer.png29.63k

Re: na jednom kliku dugmeta da je jedno desi a na drugom kliku nesto drugo 10.12.2010. u 16:46 · pre 193 meseci #5

Ma oko je to nego...to sam uradio.. nego mi ne radi iz dva ili vise puta.... evo upload, pravim progrm za racunanje poena u pikadu, doduse nisam ga zavrsio, ali napisi mi ti u njemu kako to treba pa cu ja da shvatim...valjda..

Potpis

A.K.___

Pikado.zip1.79k

Re: na jednom kliku dugmeta da je jedno desi a na drugom kliku nesto drugo 10.12.2010. u 18:37 · pre 193 meseci #6

Evo ovako:

Code:
Dim i As Boolean
Private Sub Command1_Click()
If i = False Then
    Shape1.FillColor = &HFF&
    Shape2.FillColor = &HFF00&
    i = True
Else
    Shape2.FillColor = &HFF&
    Shape1.FillColor = &HFF00&
    i = False
End If
Label17.Caption = Label17.Caption - Val(Text1.Text)
Label5.Caption = Text1.Text
Label18.Caption = Label18.Caption - Val(Text2.Text)
Label16.Caption = Text2.Text
End Sub

Private Sub Form_Load()
i = False
Label17.Caption = 501
Label18.Caption = 501
Label1.Caption = InputBox("Prvi igrac", "Pikado", "ime")
Label2.Caption = InputBox("Drugi igrac", "Pikado", "ime")
End Sub

Re: na jednom kliku dugmeta da je jedno desi a na drugom kliku nesto drugo 10.12.2010. u 18:54 · pre 193 meseci #7

Evo vuchko je resio problem, ali da kazem gde si gresio, mada sad verovatno vidis.

Ti si stalno oduzimao 520 od unetog broj i zato ti nije smanjivalo rezultat svakim pritiskom na dugme:

Code:
Label17.Caption = 520 - Val(Text1.Text)

btw jedan savet, zar ti nije lakse da objektima dajes neka konkretnija imena, kad radis nesto vece neces znati ni sam kako se zoves... :)

Pozdrav

Re: na jednom kliku dugmeta da je jedno desi a na drugom kliku nesto drugo 10.12.2010. u 19:32 · pre 193 meseci #8

da, da...stavljam... Hvala puno za ovo! Rešili ste mi svi problem!
Hvala!
Pozdrav!.....

Potpis

A.K.___

Re: na jednom kliku dugmeta da je jedno desi a na drugom kliku nesto drugo 10.12.2010. u 20:11 · pre 193 meseci #9

Samo jos da pitam, a kako da u onim labelama za poene..u text1 da unesem jedan podatak, pa da mi se to ucita u jednu labelu, kliknem Ok, pa unesem sledeci podatak u isti TextBox, ali da mi se taj podatak učita u sledecoj labeli?
Hvala unapred!

Potpis

A.K.___

Srodne teme