Anonymní profil Prokop – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu

Anonymní profil Prokop – Programujte.comAnonymní profil Prokop – Programujte.com

 

Příspěvky odeslané z IP adresy 212.67.88.–

Prokop
Visual Basic › proměnná v názvu ovládacího…
31. 7. 2008   #81491

Jedno z možných řešení:

Seznam jmen mám v databázi, kterou si otevřu a pojmenuji např. recSeznam. Ve formuláři frmPřehled si vytvořím pole textboxu a do Load formuláře napíši kód:

recSeznam.MoveFirst
Inx = 0
Do Until recSeznam.EOF
txtJméno.(Inx).text = recSeznam!Jméno
Inx = Inx + 1
recSeznam.MoveNext
Loop

Místo recordsetem vytahované jména z databáse lze dát již dříve naplněnou proměnnou.

Téměř každou vlastnost lze zadat proměnnou.
Např. zneviditelnění textboxu při splnění určité podmínky:

do Change textoxu napíši kód

If txtJméno = "Blanka" Then ' v podmínce se může použí třeba i metoda Compare ...
txtJméno.Visible = False
Else
txtJméno.Left = Umísti
End If

Aby to fungovalo, tak proměnná musí být samozřejmě odpovídajícího typu a musí dosahovat hodnot v rámci danného intervalu pro tu kterou vlastnost. Zde je Dim Umísti As Integer a interval je tuším <0 , 16200>.

Pokud by se zadávání vlastnosti provádělo odjinud, než z vlastního formuláře, psaki musí být i odkaz na formulář, kde je textbox umístěn.

frmPřehled.txtJméno.Left = Umísti

Snad jsem aspoň trošku pomoh.

Prokop

Prokop
Visual Basic › Zvukové upozornění na MsgBox
30. 7. 2008   #81400

Potřebuji vyřešit problém se zvukovým upozorněním na MsgBox . Problém není jedno upozornění, ale opakující se zvuková signalizace v zadaném intervalu (např. 10 sekund) do doby, než uživatel na MsgBox zareaguje.
Za podněty děkuji.
Prokop

Prokop
Visual Basic › Použití funkce split() a pole
26. 2. 2008   #67179

A jsou údaje v souboru oddělovány třemi mezerami?

Prokop Buben
Visual Basic › Jak načíst *.TXT
2. 11. 2007   #53582

Při načtení řádku do proměnné pomocí

Line Input #1, data  
jsou k textu přidány uvozovky. Stejně tak při ukládání pomocí
Line output#1, data  
jsou ve výsledném textovém souboru uvozovky, které tam nepotřebuji.
[seznam]Neví někdo jak tento problém vyřešit?[/seznam] (Hlavně při ukládání, při načítání se dá první a poslední znak odříznout, ale zpomaluje to běh programu.)

Děkuji. :smile1:

Prokop Buben
Visual Basic › Jak načíst *.TXT
31. 10. 2007   #53395

To maty : Dík, teď jdu vyzkoušetseřazení polí proměnných.

Prokop Buben
Visual Basic › Jak načíst *.TXT
30. 10. 2007   #53269

Ve VB6 potřebuji načístprostý text s oddělovači.
Textový soubor má x řádek. (x > 70000)
V každé řádce je y položek oddělených oddělovačem. (5 > y < 15 )
Potřebuji načíst všechny řádky, seřadit je podle položky y(n) a seřazené uložit.

Děkuji za podněty.

 

 

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