|
Zdrojové kódy
Stín textu
| Jednoduše, ale velmi pěkně, vytváří text se stínem. |
| 1522 bytů | Kopírovat |
Zpět na obsah
ToolBar
| ActiveX prvek, který vytváří ToolBar podobný tomu, který již z Visual Basicu znáte. Umožňuje trochu jiná nastavení, ale hlavně má zajímavý zdrojový kód. |
| 241796 bytů | Kopírovat |
Zpět na obsah
Odeslání elektronické pošty
| Knihovna DLL (se zdrojovým kódem), která ukazuje, jak poslat email pomocí knihovny Winsock. |
| 46854 bytů | Kopírovat |
Zpět na obsah
Kolekce prvků na výběr z několika možností
| Příklad ukazuje vytvoření několika prvků, které můžete použít nejen ke studiu VB, ale budou se vám hodit i pro Vaše programy. Většina funguje jako TextBox s tlačítkem, po jehož kliknutí se zobrazí dialogové okno s nabídkou možností, např. barev, souborů atd., podobně jako v okně Properties v IDE Visual Basicu. |
| 130994 bytů | Kopírovat |
Zpět na obsah
Pravítko
| Spousta textových i grafických editorů zobrazuje vodorovné a svislé pravítko pro lepší orientaci při úpravách. Jak jej jednoduše vytvořit vám ukáže tento příklad. |
| 1642 bytů | Kopírovat |
Zpět na obsah
Textový editor
| Zdrojové kódy několika editorů jste zde již mohli najít několikrát. Tento se od nich liší v mnoha možnostech nastavování, vkládání objektů atd. Umí text šifrovat i dešifrovat, vkládat obrázky i jiné OLE objekty a mnoho dalšího. |
| 293777 bytů | Kopírovat |
Zpět na obsah
HTML odkazy
| Příklad ukazuje, jak vytvořit HTML odkazy na formuláři pomocí prvku Label. Krátký a jednoduchý příklad. |
| 4605 bytů | Kopírovat |
Zpět na obsah
Generátor náhodných čísel
| Modul obsahuje tři funkce pro generování náhodných čísel. Všechny tři dělají v podstatě to samé, každá trochu jiným způsobem, takže si můžete vybrat ten, který vám vyhovuje nejlépe. |
| 10615 bytů | Kopírovat |
Zpět na obsah
Libovolná odmocnina
Visual Basic umožňuje vytvořit libovolnou mocninu čísla pomocí operátoru ^. S odmocninami
je to však horší. Obsahuje pouze jedinou funkci, Sqr, která vrací
druhou odmocninu zadaného čísla. Proto si musíte, chcete-li i jinou než druhou
odmocninu, pomoci matematickým pravidlem, které říká, že n-tá odmocnina z x je rovna
1/n-té mocnině čísla x (vyjádření asi nebude přesné, doufám že nás matematici neukamenují).
Function Sqrt(x As Double, n As Long) As Double
Sqrt = x^(1/n)
End Function
Zpět na obsah
Kontrola typu proměnné
Pro kontrolu typu proměnné můžete využít příkaz TypeOf, který lze použít
pouze jako součást příkazu If .. Then .. Else. Někdy, zvláště potřebujete-li
kontrolu stejné proměnné vícekrát, může být výhodnější funkce TypeName, která
vrátí řetězec obsahující název typu proměnné a umí zjišťovat typ nejen pro objektové
proměnné ale i pro klasické proměnné, jako je např. Long, Integer atd.
'Použití TypeOf
Dim x As New StdFont
If TypeOf x Is StdFont Then
MsgBox "Font"
End If
'Použití TypeName
Dim x As New StdFont, s As String
s = TypeName(x)
Debug.Print s 'Vypíše Font
Zpět na obsah
Vytvoření řetězce z pole
Chcete-li z pole proměnných vytvořit řetězec, pomůže vám funkce Join.
První její parametr je zdrojové pole, druhý (nepovinný) je oddělovač, kterým se jednotlivé
prvky pole v řetězci oddělí.
Dim myArray(1 To 3) As String, s As String
myArray(1) = "Prvni"
myArray(2) = "Druhy"
myArray(3) = "Treti"
s = Join(myArray(), Chr(32))
Debug.Print s 'Vypíše text: Prvni Druhy Treti
Zpět na obsah
Vytvoření pole z řetězce
Přesně opačná funkce k funkci Join z minulého tipu je Split.
Ta právě vytváří pole ze zadaného řetězce podle vybraného oddělovače.
Dim myArray() As String, s As String, i As Long
s = "Prvni Druhy Treti"
myArray() = Split(s, Chr(32))
For i = LBound(myArray()) To UBound(myArray())
Debug.Print myArray(i)
Next i
Zpět na obsah
Náhrada části řetězce
Potřebujete li určitou část řetězce nahradit jinou, použijte funkci Replace.
Stačí jí zadat řetězec, ve kterém mají být změny provedeny, část řetězce, která má být nahrazena
a nová část. Navíc ještě můžete zadat, ze které pozice nahrazování začne a kolik výskytů
se nahradí.
Dim str As String
str = "aaabbbcccaaabbbcccaaabbbcccaaabbbccc"
'Vypíše XbbbcccXbbbcccXbbbcccXbbbccc
Debug.Print Replace(str, "aaa", "X")
'Vypíše bbbcccXbbbcccXbbbcccaaabbbccc
Debug.Print Replace(str, "aaa", "X", 4, 2) 'Od čtvrté pozice nahradit dvakrát
Zpět na obsah
Implicitní typ proměnné
Nepoužíváte-li příkaz Dim k definování typu proměnné, můžete k určení typu
použít příkazy skupiny DefType. Jejich použitím určíte počáteční písmeno
pro různé druhy typů. Řeknete-li např. že Long bude začínat písmenem L, jednoduchým
použitím proměnné Lpocet bez deklarace se tato inicializuje jako Long.
Avšak deklarujete-li explicitně nějakou proměnnou začínající na L jako Integer, bude Integer
a ne Long.
DefLng L 'vše začínající na L bude Long
DefInt I 'vše na I bude typ Integer
DefBool B 'vše na B bude Boolean
Lpocet = 3 'typ bude Long
Lpocet = "text" 'nastane chyba
Dim Lkolik As Integer 'bude Integer a ne Long
Chcete-li zadat více než jedno písmeno, zadejte buď rozsah od do s pomlčkou uprostřed
nebo písmena a rozsahy oddělené čárkami.
DefLng A-C, E, G-Z
Tato definice funguje i na funkce a Property Get.
Zpět na obsah
|