Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Promenjljiva "On The Fly"

[es] :: Visual Basic 6 :: Promenjljiva "On The Fly"

[ Pregleda: 2216 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

sojic
Dalibor Sojic
Makedonija

Član broj: 7051
Poruke: 796
77.28.138.*

Sajt: right-sock.net


+1 Profil

icon Promenjljiva "On The Fly"08.09.2008. u 21:56 - pre 189 meseci
Hocu da uradim sledece


Ovo je inace za VBA u Excel.

Imam u formu 4 CheckBox-a, CheckBox1 .... CheckBox4.

Hocu da vidim ko je stikliran a ko nije.

Pri tome da uradim nesto ovako:


Code:

    For i = 1 To 4
        If CheckBox & I &.Value = True Then
           MsgBox "1"
        Else
           MsgBox "2"
        End If
    Next i


Nesto u stilu.

Ali ovo ne radi.


routing protocols enable routers to route routed protocols!
 
Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12846



+4783 Profil

icon Re: Promenjljiva "On The Fly"08.09.2008. u 23:11 - pre 189 meseci
Naravno da ne radi. Napravi niz konrola.
 
Odgovor na temu

Eurora3D Team
Nebojsa - Programer & Vodja tima
Beograd

Član broj: 120376
Poruke: 900
91.148.113.*



+7 Profil

icon Re: Promenjljiva "On The Fly"09.09.2008. u 00:21 - pre 189 meseci
Mislim da u VBA nema control array-a al nisam siguran
Ali ovo radi ... probao sam u Excelovom VBA
Code:

Dim a As Collection ' ovo je u deklaraciji

Private Sub UserForm_Initialize()
Set a = New Collection
a.Add CheckBox1
a.Add CheckBox2
a.Add CheckBox3
a.Add CheckBox4
'ovo ispod moze da ide i u nekoj drugoj subrutini
Dim n As Integer: n = 1
For Each Item In a
If Item.Value = True Then MsgBox n & " true" Else MsgBox n & " false"
n = n + 1
Next
End Sub

 
Odgovor na temu

Aleksandar Ružičić
Software Architect, Appricot d.o.o.
Beograd

Član broj: 26939
Poruke: 2881

Jabber: krckoorascic@gmail.com
Sajt: krcko.net


+44 Profil

icon Re: Promenjljiva "On The Fly"09.09.2008. u 16:02 - pre 189 meseci
a jel ima u VBA ono Form.Controls?

onda moze Me.Controls("Checkbox" & i).value
 
Odgovor na temu

Eurora3D Team
Nebojsa - Programer & Vodja tima
Beograd

Član broj: 120376
Poruke: 900
91.148.112.*



+7 Profil

icon Re: Promenjljiva "On The Fly"09.09.2008. u 16:17 - pre 189 meseci
@Aleksandar Ima :)
Code:

Private Sub UserForm_Click()
 For i = 1 To 2
        If Me.Controls("CheckBox" & i).Value = True Then
           MsgBox i & " je true"
        Else
           MsgBox i & " je false"
        End If
    Next i
End Sub

 
Odgovor na temu

sojic
Dalibor Sojic
Makedonija

Član broj: 7051
Poruke: 796
77.28.131.*

Sajt: right-sock.net


+1 Profil

icon Re: Promenjljiva "On The Fly"09.09.2008. u 16:27 - pre 189 meseci
Hvala drugovi.

Uspelo mi je to sto sam trazio.

Pozdrav.
routing protocols enable routers to route routed protocols!
 
Odgovor na temu

[es] :: Visual Basic 6 :: Promenjljiva "On The Fly"

[ Pregleda: 2216 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.