|
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
|