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.

  Ve 4. dφlu serißlu byla popsßna mo₧nost vytvo°enφ tiskovΘho v²stupu z tabulky dat vytvo°enΘ pomocφ FlexGridu. Nevφte prosφm jak na to v DBGridu.

DBGrid ₧ßdnou podobnou mo₧nost jako FlexGrid nemß, proto z n∞j nenφ p°φliÜ v²hodnΘ tisknout. Pokud chcete tisknout data, kterß obsahuje, rad∞ji vytiskn∞te jeho obsah prochßzenφm objektu Recordset prvku Data, na kter² je DBGrid p°ipojen, normßln∞ pomocφ metody Print objektu Printer. ZjednoduÜen∞ n∞jak takto:

Do While Not Data1.Recordset.EOF
  radek = Data1.Recordset!jmeno & chr(9) & Data1.Recordset!prijmeni & vbCrLf
  Printer.Print radek
  Data1.Recordset.MoveNext
Loop

Printer.EndDoc

  Na stisk tlaΦφtka pot°ebuji vytoΦit telefonnφ Φφslo na modemu. M∙₧ete mi prosφm poradit?

Pro prßci s modemem je ve VB komponenta MSComm. Jejφ pou₧itφ je dob°e popsßno v MSDN, tak₧e struΦn∞ asi takto:

MSComm1.CommPort = 2 'seriov² port, na kterΘm je p°ipojen modem
MSComm1.Settings = "9600,N,8,1 'nastavenφ portu (blφ₧e viz. MSDN)
MSComm1.PortOpen = True 'Otev°enφ portu
MSComm1.Output = "ATDT" & cislo & vbCrLf 'VytoΦenφ Φφsla

  Nevφm jakou funkcφ zajistit aby se v tabulce MSFlexGrid po p°echodu na vzdßlenou pozici (nap°. po funkci vyhledßvßnφ) p°φsluÜn² °ßdek zobrazil. V₧dy se pouze oznaΦφ, ale je t°eba jeÜt∞ zajistit "p°erolovßnφ" seznamu. V prvku ListView toto zajiÜ¥uje metoda EnsureVisible objektu ListItem.

Chcete-li zobrazit °ßdek, kter² je mimo viditelnou oblast (je n∞kde dole nebo naho°e), pou₧ijte vlastnost TopRow. StaΦφ jφ zadat Φφslo °ßdku. Pokud chcete to samΘ se sloupci, pou₧ijte LeftCol.

  Chci p°ehrßvat WAV soubory pomocφ API funkce sndPlaySound, ale nefunguje mi to. Chybu to ₧ßdnou nevypφÜe, ale ani nehraje. Deklaraci funkce jsem pou₧il z API Text Vieweru. K≤d vypadß takto:

Dim x As Long
x = sndPlaySound("c:\windows\media\tada.wav", SND_LOOP)

Chyba je v parametru flags funkce sndPlaySound. Pou₧φvßte konstantu SND_LOOP, kterß zap°φΦinφ, ₧e je soubor p°ehrßvßn po°ßd dokola. Proto musφte jeÜt∞ p°idat konstantu SND_ASYNC, kterß zp∙sobφ, ₧e k≤d pokraΦuje hned dßle ani₧ by Φekal na ukonΦenφ p°ehrßvßnφ (jinak by se program zastavil, Φemu₧ se funkce brßnφ, proto nic nep°ehraje).

Dim x As Long
x = sndPlaySound("c:\windows\media\tada.wav", SND_LOOP + SND_ASYNC)

Otßzky bez odpov∞di

  Pot°ebuji pou₧φt funkci Inkey, ale Visual Basic ji nemß. Neznßte zp∙sob, jak ji nahradit?

  Nevφte jak zjistit, kterΘ klßvesy byly stisknuty, kdy₧ je m∙j program na pozadφ? N∞jak to jφt musφ, vyu₧φvajφ toho nap°. programy CS-VOICE a BlackBox.

  Jak je mo₧nΘ zm∞nit IP adresu a masku podsφt∞ pomocφ Visual Basicu 5.0 nebo 6.0 na Windows 2000? A je mo₧nΘ vrßtit nastavenφ zp∞t na zφskßnφ IP z DHCP serveru?

  Pot°ebuji vytvo°it aplikaci, kterß by um∞la °φct jin²m program∙m, aby se nezobrazovali v TaskBaru. Tzn. stejn∞ jako kdy₧ u svΘ aplikace nastavφm ShowInTaskBar na False.

  ZkouÜel jsem p°idat bitmapu do menu pomocφ API funkce SetMenuItemBitmaps. V normßlnφm menu to funguje. Jakmile vÜak stejn² postup pou₧iji v PopupMenu, obrßzek se nezobrazφ.

  Rßd by som zφskal informßcie o API funkcißch pre prßcu s resources, sp⌠sob ich volania vo VB a informßcie potrebnΘ pre sprßvny chod funkcie: loadresource, findresorce, freeresource, updateresource. Chcel by som urobi¥ mal² lokalizßtor, a na to s· potrebnΘ tieto funkcie, v angliΦtine (MSDN) som Φosi porozumel, ale neviem ako loadnutΘ resource zobrazi¥ v Image, txt objekte, a ako ich updatova¥ do s·boru.

  V MSDN je zmienka o pou₧itφ interfacu k objektom Windows Exploreru na vlo₧enie objektov (Listview, treeview, combo, taskbar at∩ ) do vlastn²ch aplikßciφ, ale prilo₧enΘ vzory s· pre C++. Chcem Vßs po₧iada¥ o nejakΘ moduly alebo prφklady pre pou₧itie t²chto objektov, za Φo Vßm budem ve╛mi v∩aΦn² ! Zaujφma ma hlavne zobrazenie Listview, treeview, combo z exploreru a objekty z taskbaru (tabsysview, systraj objekt, objekt hodφn a ponuky ètart pre vytvorenie novΘho typu taskbaru). Ve╛mi Vßs prosφm o pomoc.