Označení textového pole – Visual Basic – Fórum – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Reklama
Reklama

Označení textového pole – Visual Basic – Fórum – Programujte.comOznačení textového pole – Visual Basic – Fórum – Programujte.com

 

Hledá se programátor! Plat 1 800 € + bonusy (firma Boxmol.com)
netr
~ Anonymní uživatel
4 příspěvky
4. 3. 2012   #1
-
0
-

Ahoj,

ještě bych chtěl poprosit o jednu radu. Ve formuláři VB6 mám dvacet textových polí, generuju náhodným číslem proměnu "poradi" od 1 do 20. Na zaklade teto promene bych potreboval do prislusneho textoveho pole napsat text (napr. poradi = 6, do text6 provest zapis).

Zatim to mam udelane pomoci prikazu If..., then...

je mozne nejakym zpusobem provest obecny zapis textoveho pole s indexem promenne?

napr.

poradi = 6

text(poradi)=poradi

tzn. do textu6 se napise 6

zkousel jsem ruzne zapisy (carky, zavorky, textporadi, atd) ale nc nefungovalo.

Dky za radu  

Nahlásit jako SPAM
IP: 91.187.35.–
Reklama
Reklama
JoDiK
~ Anonymní uživatel
981 příspěvků
4. 3. 2012   #2
-
0
-

Strýček Google našel:


For i = 1 To 4
    Controls("TextBox" & i).Value = "Text " & i
Next i
Nahlásit jako SPAM
IP: 88.100.43.–
netr
~ Anonymní uživatel
4 příspěvky
4. 3. 2012   #3
-
0
-

dky za reakci, ale pise to chybove hlaseni "Property or method not found (Error 423)". Je potreba jeste neco definovat?

Nahlásit jako SPAM
IP: 91.187.35.–
JoDiK
~ Anonymní uživatel
981 příspěvků
4. 3. 2012   #4
-
0
-

#3 netr
Nevím, já to zkoušel ve VBA MSOffice 2007 a tam to jede bez problémů...

Nahlásit jako SPAM
IP: 88.103.233.–
liborb
~ Redaktor
+18
Guru
5. 3. 2012   #5
-
0
-

Hmmm VB6 ... prostě z nich udělej pole. Místo text6 pak bude text[6] ...

Zasláno z mobilního telefonu.

Nahlásit jako SPAM
IP: 80.84.1.–
clavien0
Newbie
5. 3. 2012   #6
-
0
-

Tady máš to od JoDika, trochu upravené na funkční ( děláno ve VisualBasicStudio 2010 )

Public Class Form1
    Dim poradi As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        poradi = Math.Round(Rnd(1) * 10, 0)
        TextBox23.Text = poradi
        For i = 1 To 10
            If i = poradi Then
                Me.Controls("textbox" & i).Text = poradi
            End If
        Next


    End Sub
End Class

Nahlásit jako SPAM
IP: 95.173.94.–
clavien0
Newbie
5. 3. 2012   #7
-
0
-

   

Nahlásit jako SPAM
IP: 95.173.94.–
clavien0
Newbie
5. 3. 2012   #8
-
0
-

pokud to budeš dělat ve VB6 tak si oprav 5. řádek a vymaž  "Math." před slovem Round

Public Class Form1
    Dim poradi As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       >>>>>>>>>>>>>>>>> poradi = Math.Round(Rnd(1) * 10, 0)
        TextBox23.Text = poradi
        For i = 1 To 10
            If i = poradi Then
                Me.Controls("textbox" & i).Text = poradi
            End If
        Next


    End Sub
End Class

Nahlásit jako SPAM
IP: 95.173.94.–
Zjistit počet nových příspěvků

Přidej příspěvek

Toto téma je starší jak čtvrt roku – přidej svůj příspěvek jen tehdy, máš-li k tématu opravdu co říct!

Ano, opravdu chci reagovat → zobrazí formulář pro přidání příspěvku

×Vložení zdrojáku

×Vložení obrázku

Vložit URL obrázku Vybrat obrázek na disku
Vlož URL adresu obrázku:
Klikni a vyber obrázek z počítače:

×Vložení videa

Aktuálně jsou podporována videa ze serverů YouTube, Vimeo a Dailymotion.
×
 
Podporujeme Gravatara.
Zadej URL adresu Avatara (40 x 40 px) nebo emailovou adresu pro použití Gravatara.
Email nikam neukládáme, po získání Gravatara je zahozen.
-
Pravidla pro psaní příspěvků, používej diakritiku. ENTER pro nový odstavec, SHIFT + ENTER pro nový řádek.
Sledovat nové příspěvky (pouze pro přihlášené)
Sleduj vlákno a v případě přidání nového příspěvku o tom budeš vědět mezi prvními.
Reaguješ na příspěvek:

Uživatelé prohlížející si toto vlákno

Uživatelé on-line: 0 registrovaných, 9 hostů

Moderátoři diskuze

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032016 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý