V této rubrice najdete odpovědi na své otázky, které můžete zasílat na adresu vbtipy@atlas.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.

  Na CD 6/99 jste uvedl příklad na volání Open a Save dialogu pomocí API funkcí. Na konci komentáře byla zmínka, že podobným způsobem lze zavolat i dialogy pro Color apod. Zkusil jsem zavolat dialog Color, ale ztrozkotal jsem na struktuře CHOOSECOLOR. Tento typ používá pointer na long. Jak tento problém obejít ve VB6? Děkuji.

Místo odpovědi jsme radši vytvořili aplikaci, která ukazuje jak na to. Odtud si ji můžete zkopírovat.

  Ve své aplikaci chci používat objekt TABSTRIP ze souboru MS Windows Common Controls 6.0 (klasické karty s různými objekty), ale nevím jak těmito objekty naplnit jednotlivé listy. V design módu jde vždy jen vrchní a ostatní ne. Při spuštění programu se pak zobrazuje pouze tento vrchní list.

Prvek TABSTRIP funguje trochu jinak. V design módu je možno zobrazit pouze vrchní kartu z toho důvodu, že jiná ani neexistuje. V praxi se tento prvek používá tak, že pro každou kartu vytvoříte nějaký kontejner, nejčastěji PictureBox a v něm potřebné prvky (vše na "první" kartě). Při kliknutí na kartu (v podstatě jen tlačítko nahoře) si musíte sám ošetřit zobrazení příslušného PictureBoxu (ostatní schovat, správný zobrazit) podle vybrané karty, např.:

Private Sub TabStrip1_Click()
  Picture1.Visible=(TabStrip1.SelectedItem.Key="prvni")
  Picture2.Visible=(TabStrip1.SelectedItem.Key="druha")
  Picture3.Visible=(TabStrip1.SelectedItem.Key="treti")
End Sub


  Ve VB používám tento SQL příkaz: adoLeague.Open "select Name, LeagueID from League Where Name = strleaguename", db, adOpenStatic, adLockOptimistic kde strleaguename je proměnná typu string. Zkušel jsem strleaguename uzavřít do všech možných znaků ' ', " ", ( ), { },[ ], < > ..., ale žádný nefunguje. Můžete prosím poradit?

V SQL jazyce je nutno uzavřít sloupec typu string (char apod.) do apostrofů. Chcete-li použít v dotazu hodnotu proměnné (string), musí příkaz vypadat následovně: adoLeague.Open "select Name, LeagueID from League Where Name ='" & strleaguename & "'", db, adOpenStatic, adLockOptimistic (apostrof uvozovky & strleaguename & uvozovky apostrof uvozovky).

Otázky bez odpovědi

  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.