TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
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
Příspěvky odeslané z IP adresy 212.67.88.–
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
A jsou údaje v souboru oddělovány třemi mezerami?
Při načtení řádku do proměnné pomocí
jsou k textu přidány uvozovky. Stejně tak při ukládání pomocí Line Input #1, data
jsou ve výsledném textovém souboru uvozovky, které tam nepotřebuji.
Line output#1, data
[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:
To maty : Dík, teď jdu vyzkoušetseřazení polí proměnných.
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.
