Anonymní profil Zdenek – Programujte.com

Nevim jak jednoduše načíst tlačítkem obrázek do movieclipu.nikde jsem to nemohl najít

tak jsem to vyresil už :-)

Dim user
user = Text1.Text

Dim dTaskID As Double, path As String, file As String
path = "C:\WINDOWS\notepad.exe"
file = "C:\EasyEye\zaznam\" & user & ".txt"
dTaskID = Shell(path + " " + file, vbNormalFocus)

No právě že bylo :-/

Api neovládám ještě. i v knížkách to je popsáno dost neohrabaně :-/
na googlu jsem to nezkoušel ale zkusím a děkuju za tip

myslel jsem jak jednoduše načíst txt po řádkách a vypisovat je postupně do textboxu přes proměnou.

tak to mi moc pomohlo jako začátečníkovi...

Prosím o radu jak jednoduše otevřít TXT třeba v notepadu.
dim cesta
cesta = "C:\" ' např
jmeno = text1.text

Open ("cesta" & jmeno & ".txt") For Random As read

nějak takhle podobně?Tohle mi nefunguje.

Díky za info

je to pro prodavačky.... nechci aby byly na formlulářích nuly vidět, protože se vytisknou pak i na faktuře. proto jsou na false ty textboxy.
pokud ale do popisu zboží napíše někdo název libov. zboží zobrazí se počet ks a cena za jeden (prozatím jsou tam nuly).Aby
1- prodavačku donutili to vyplnit
2-se netiskly položky (nuly) když tam není žádné zboží

cele to timer počítá "realtimově" protože je nutné aby byla cena pro zákazníka vidět průběžně. proto kdyby tam byl "žádný znak" vyskočila by chyba.a výpočet by neproběhl tímpádem.

výpočet to sám o sobě není ale jen vyhnutí chybě v běhu programu

asi jsem to napsal nesrozumitelně vypadá to takto.vyřešil jsem to jinak nakonec.

zapomněl jsem dodat , že jinak nesmějí být v textboxech žádné znaky .Ani nuly. jinak by to při násobení žádných znaků hlásil chybu.

potřeboval bych aktivovat určitý výpočet jakmile se do textboxu napíše jakýkoliv znak...

neco jako:

if <text1 obsahuje jakýkoliv znak> then
text2.text = "0"
text3.text = "0"
text4.text = text2.text * text3.text
else: text2.text = ""
text3.text = ""
end if


snad jsem to popsal srozumitelně. děkuju za případné rady i nadávky jaký jsem blb že to nevím :-)

A co prostě formx.visible = true / false

já mám 6 formů v jednom programu a tímhle je pohodlně lehce zobrazuju a zase skrývám.

Prosím o radu, jak do Form-uláře vložit tabulku z excelu (šablonu faktury) a následně pomocí textových polí vyplňovat údaje v tabulce (do buněk), kterou pak budu tisknout.

Jde mi o to jak z textboxu dostat data do určité buňky v té tabulce která implementována ve Form1 např..
Když vložím excel sheet tak nevim jak dál... jak to propojit.

děkuju

pokud tam použiju ale "now"

invalid procedure call of argument

runtime error "5"

nejsem na takové urovni abych veděl proč to házi tuto chybu :-/

uzivjmeno je promená.(obsah txtboxu)


Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.opentextfile(uzivjmeno & "-" & Time & ".txt", 2, True)

takhle mi to hlásí špatné volání argumentu, pokud tam dam Date tak vše funguje

to same mi jde s

date ".txt"

pokud ale pouziju:

dim cas
cas = Date and Time

... cas & ".txt" - tak mi to vyhodí do jmena "0"

tak tomu říkám zjednodušené řešení :-))))

díky

Je to fakt trivialita, ale já jsem nikde nenašel jak odskočit řádku v MsgBoxu