FAQ

V této rubrice najdete odpovědi na své otázky, které můžete zasílat na adresu vbtipy@seznam.cz. Pokud nebudeme znát odpověď na nějakou otázku, objeví se v části Otázky bez odpovědi a budete-li znát odpověď vy, můžete nám ji pomocí výše uvedené adresy zaslat, rádi ji zveřejníme.

	Jakým způsobem mohu kopírovat soubory pomocí Visual Basicu?
	Na kopírování můžete použít buď příkaz FileCopy nebo metodu CopyFile objektu FileSystemObject. Tzn. buď: FileCopy "zdroj.txt", "cil.txt" nebo Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") 'treti parametr urcuje, zda se ma prepsat existujici cilovy soubor fso.CopyFile "zdroj.txt", "cil.txt", False

Je možné ve VB 6 uložit internetovou stránku do textového souboru tak, jak to umí Internet Explorer pomocí Soubor/Uložit jako..., a po zvolení Uložit jako typ - Textový soubor (*.txt).

Jediné o čem vím, že by vám mohlo pomoci, je prvek WebBrowser (Project->Components->Microsoft Internet Controls). Pomocí jeho metody Navigate zobrazíte HTML soubor a pomocí metody ExecWB jej můžete uložit jako text. web1.Navigate "C:\zdroj.htm" web1.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_PROMPTUSER Bohužel neznám přesně parametry metody, takže tento kód vždy zobrazí dialogové okno, ve kterém musíte zadat kam soubor uložit a typ (textový soubor).

Mám hlavní formulář, Form1 a Form2, ve kterém mám nastavení. Po Form2_Load se z registru načte nastavení. Ve Form1 potom toto nastavení zjišťuji, ale nefunguje mi to. Dim frm As New Form2 MsgBox(frm.CheckBox.Shecked) Kód vytvoří nový Form2, ale nespustí Form2_Load. Ve VB6 to normálně fungovalo a ani jsem nemusel definovat proměnnou typu Form2.

VB .NET se chová při práci s formuláři poněkud jinak než starší verze VB. Formulář je třída jako každá jiná, tzn. musíte si nejdříve vytvořit její instanci a tu uložit do proměnné. K formuláři potom přistupujete přes tuto proměnnou (jako když ve starší verzi použijete Dim f As Form1 a pracujete s proměnnou f, ne s Form1). Další změna je v tom, že událost Load se provede až při prvním zobrazením formuláře, tzn. že kódem Dim f As New Form2 se Form2_Load neprovede, musela by být vyvolána metoda Show. Pokud byste chtěl aby se cokoliv provedlo při vytvoření instance, musíte dát kód do konstruktoru třídy (formuláře) New.

Otázky bez odpovědi

Mám problémy s integrováním ActiveX vytvořeným ve VB 6.0 do webové stránky. Staré soubory, které mám, fungují bezchybně, ale nové se nechtějí vůbec načíst. Dával jsem je tam přes MS Front Page XP, ale když je pustím přes VB 6.0, tak taky fungují. Nevíte čím by to mohlo být?

Jak mohu aktivovat úsporný režim?

Vytvořil jsem program, který pracuje se soubory vlastního formátu. Soubory mají vlastní příponu .dpw. Soubory jsou asociovány s mým programem. Mohu nějakým způsobem přidat do vlastností tohoto typu souboru (*.dpw) další záložku, která by obsahovala bližší informace o dokumentu, podobně jako je to u souboru .doc ve Wordu?

Znáte nějaký prvek ActiveX, který by zvýrazňoval syntaxi zdrojového kódu HTML a kódu Visual Basicu?

Neexistuje nějaký OCX, nebo DLL knihovna, která by umožňovala odesílání krátkých textových zpráv rovnou z PC přes modem?

Jak lze přijímat/posílat data na některý z portů ve Windows 2000?

Nevíte kde se dá sehnat (pokud existuje) prvek, který se chová jako textové pole ve Wordu?

Používám VB6 a chtěl bych z mého programu otevřít soubor PhotoPaintu. Kód vypadá následovně: Dim xApp as PHOTOPAINT.CPntAutomate xApp.FileOpen ("nazov suboru") Bohužel to takto nefunguje. Co ještě musím zadat, aby se soubor otevřel?

Jak zjistit, kolik bajtů bylo staženo přes Internet v předem dané době? Jde mi o připojení přes lokální síť, ne přes modem.

Jak se dá ve Visual basicu ovládat USB port?

Ve Windows 98 jsem vytvořil program s ovládacím prvkem Timer. Program fungoval bez problémů, ale když jsem jej spustil na Windows 2000, prvek časoval asi 5x rychleji. Nevíte so s tím?

Potřebuji ve svém programu použít průhledný textbox nebo textbox, ve kterém by byl na pozadí mnou vybraný obrázek. Na Internetu jsem našel tři různé návody, ale ani jeden neposkytuje takové funkce jako původní textbox (ScrollBar, DataField atd.).