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.
Kako na formu postaviti neogranicen broj kontrola (TextBoxova, CheckBoxova itd...)
Zaključano
Zakačeno
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 :)
A koliko je inače ograničenje?
Pozdrav :)
Potpis
Commercial-Free !!!
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 ?
mada mozes da ih indeksiras, u tom slucaju mozes mnogo vise, mada
ne znam koliko.
Sta ti to pravis toliko sa tim kontrolama ?
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.
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.
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
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
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
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
...
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
...
Potpis
Pozdrav StratOS
"Multitasking - ability to f##k up several things at once."
"It works better if you plug it in."
"As a rule, software systems do not work well until they have been used, and have failed repeatedly, in real applications."
"The one who is digging the hole for the other to fall in is allready in it."
"Multitasking - ability to f##k up several things at once."
"It works better if you plug it in."
"As a rule, software systems do not work well until they have been used, and have failed repeatedly, in real applications."
"The one who is digging the hole for the other to fall in is allready in it."