Kako na formu postaviti neogranicen broj kontrola (TextBoxova, CheckBoxova itd...)

[ av@z @ 04.01.2004. 18:50 ] @

Zna li neko kako da mi na formu nije ogranicen broj kontrola? Znaci da mogu staviti koliko hocu kontrola (TextBoxova, CheckBoxova itd...) da mi nije ograniceno.
Hvala.

[ degojs @ 04.01.2004. 19:09 ] @

Zašto bi ti trebao neograničen broj kontrola, mora da negde malo grešiš u samom dizajnu?

A koliko je inače ograničenje?

Pozdrav :)

[ Krsta @ 04.01.2004. 23:33 ] @

Mislim da je ogranicenje 256 kontrola na formi,
mada mozes da ih indeksiras, u tom slucaju mozes mnogo vise, mada
ne znam koliko.

Sta ti to pravis toliko sa tim kontrolama ?

[ av@z @ 05.01.2004. 17:01 ] @

Ma imam problema ja bih to mogoa indexirat ali javlja se drugi problem.
E da, interesuje me kako ide code za MsgBox da se pojave tipke Yes i No, i kada se klikne na Yes da slijedi jedna akcija, a na No da slijedi druga akcija.
Hvala.

[ BeastMaster @ 05.01.2004. 21:02 ] @

Code:
    Dim intRezultat As Integer

        intRezultat = MsgBox("Pitanje koje želiš da postaviš", vbYesNo, "Ime message box-a")

    Select Case intRezultat

    Case vbYes
        'set naredbi 1 na primer:
        MsgBox "Kliknuo si Yes", vbOKOnly + vbInformation, "Rezultat YES NO upita"

    Case vbNo
        'set naredbi 2 na primer:
        MsgBox "Kliknuo si No", vbOKOnly + vbInformation, "Rezultat YES NO upita"

    End Select

ili

Code:
Dim intRezultat As Integer

intRezultat = MsgBox("Pitanje koje želiš da postaviš", vbYesNo, "Ime message box-a")

If intRezultat = vbYes Then
   'set naredbi 1 na primer:
   MsgBox "Kliknuo si Yes", vbOKOnly + vbInformation, "Rezultat YES NO upita"
Else
   'set naredbi 2 na primer:
   MsgBox "Kliknuo si No", vbOKOnly + vbInformation, "Rezultat YES NO upita"
End If

Izbor je na tebi :)
Pozdrav

[ StratOS @ 07.01.2004. 09:23 ] @

Kontrola mozes da imash koliko hoces (no bar koliko imash RAMA i koliko dobar comp itd ...)

Jedan primjer na brzo
Napravish Textbox kontrolu (txtTest), sa indexom 0
a onda ako hoces 500 istih kontrola na formi :

Evo malo napamet :

for n=0 to 499
load txttest(n+1)
txttest(n+1).text=n
txttest.left=n
txttest.top=n
next n

...