| PoΦet a typ port∙ Windows | Program |
| Tiskßrny ve Windows | Program |
| KontextovΘ menu | Program |
| ListView | Program |
| 3D prvky | Program |
| XMS Note | Program |
| Quick sort | Program |
| QuickSearch | Program |
| File System Object | Program |
| Rotace obrßzku | Program |
| Informace z MP3 souboru | Program |
| P°estupn² rok | K≤d |
| Kontrola rodnΘho Φφsla | K≤d |
| Kontrola ICO | K≤d |
| Jak otev°φt soubor v Excelu | K≤d |
| Jak otev°φt soubor ve Wordu | K≤d |
| API funkce WindowFromPoint | K≤d |
| Umφ zjistit poΦet port∙ ve Windows a k nim pat°iΦnΘ informace, jako je nßzev, jestli je port mφstnφ nebo sφ¥ov² apod. | |
| 3197 byt∙ | Kopφrovat |
| ZjiÜ¥uje poΦet a dalÜφ informace o tiskßrnßch nakonfigurovan²ch v systΘmech Windows. | |
| 4732 byt∙ | Kopφrovat |
| Ukazuje, jak vytvo°it klasickΘ kontextovΘ menu pro textovΘ pole (Copy, Paste ...) | |
| 12789 byt∙ | Kopφrovat |
| Program p°edvßdφ mo₧nosti kombinace r∙znΘho textu v ListView. Nap°. normßlnφ text, tuΦn² text apod. | |
| 5745 byt∙ | Kopφrovat |
| Ukazuje jak vytvo°it 3D CommandButton, ListBox a TextBox | |
| 2030 byt∙ | Kopφrovat |
| N∞co jako Poznßmkov² blok, samoz°ejm∞ se zdrojov²mi k≤dy. Hezk² a docela jednoduch² p°φklad, jak na to. | |
| 8107 byt∙ | Kopφrovat |
| Hezk² p°φklad na t°φd∞nφ pomocφ metody Quicksort. Navφc p°idßvß i odstra≥ovßnφ duplikßtnφch prvk∙. | |
| 11893 byt∙ | Kopφrovat |
| P°φklad, kter² mo₧nß nepat°φ do tΘto rubriky, ale spφÜe do ActiveX. Je to knihovna DLL, vytvo°enß v jazyce C (se zdrojov²mi k≤dy). Obsahuje t°i velmi chytrΘ funkce pro prßci se soubory. | |
| 8740 byt∙ | Kopφrovat |
| Visual Basic, od verze 6.0, obsahuje nov² objekt pro prßci se soubory a slo₧kami, File System Object. Tento p°φklad je na jeho pou₧itφ, p°φmo od firmy Microsoft. | |
| 58962 byt∙ | Kopφrovat |
| Jednoduch² p°φklad ukazujφcφ rotaci obrßzku o 90 a 180 stup≥∙. | |
| 8845 byt∙ | Kopφrovat |
| Program ukazuje, jak vytßhnout informace z MP3 souboru, jako. nap°. jmΘno pφsn∞, autora, album apod. (tzv. ID3-TAG). | |
| 11691 byt∙ | Kopφrovat |
Nevφte jak zjistit, je-li rok p°estupn²? Na to je jednoduchß pomoc. Rok je p°estupn², je-li d∞liteln² 4. V²jimku tvo°φ roky d∞litelnΘ 100 (ty p°estupnΘ nejsou), ale roky d∞litelnΘ 400 u₧ zase p°estupnΘ jsou. Funkce, kterß na zadan² rok zjistφ, zda je p°estupn², m∙₧e vypadat t°eba takto:
Public Function JePrestupny(rok As Integer) As Boolean
JePrestupny = False
If rok Mod 4 = 0 Then
If rok Mod 100 = 0 Then
If rok Mod 400 = 0 Then JePrestupny = True
Else
JePrestupny = True
End If
End If
End Function
nebo pon∞kud mΘn∞ p°ehledn∞ji
Public Function JePrestupny(ByVal rok As Integer) As Boolean
JePrestupny = IIf((rok Mod 4 = 0), _
IIf((rok Mod 100 = 0), _
IIf((rok Mod 400 = 0), True, False), _
True), _
False)
End Function
P°φpustnΘ hodnoty pro prvnφ Φßst rodnΘho Φφsla (p°ed lomφtkem) jsou tyto:
| Prvnφ dvojΦφslφ (rok) | 00 - 99 |
| DruhΘ dvojΦφslφ (m∞sφc) | 01 - 12, 51 - 62 |
| T°etφ dvojΦφslφ | 1-31 pro leden, b°ezen, kv∞ten, Φervenec, srpen, °φjen, prosinec 1-30 pro duben, Φerven, zß°φ, listopad 1-29 pro ·nor |
Druhß Φßst (za lomφtkem) je do roku 1953 trojmφstnß, od roku 1954 je p°idßvßna kontrolnφ Φφslice, kterß je celoΦφseln²m zbytkem po podφlu devφtimφstnΘ Φßsti rodnΘho Φφsla a Φφsla 11. Je-li zbytek 0, pak kontrolnφ Φφslice je 1, je-li zbytek 10, je kontrolnφ Φφslice 0.
Aby t∞ch kontrol nebylo mßlo, p°idßme si jeÜt∞ jednu.
Maximßlnφ i minimßlnφ dΘlka je 8 znak∙, p°esn∞ji °eΦeno Φφslic, proto₧e ICO m∙₧e obsahovat pouze Φφsla.
P°φpustnΘ hodnoty jsou od 00000001 do 99999994.
Prvnφch 7 Φφsel je po°adovΘ Φφslo, proslednφ je kontrolnφ. Ta se vypoΦte takto:
JednotlivΘ Φφslice se zprava nßsobφ Φφsly 2, 3, 4, 5, 6, 7, 8 a souΦiny se seΦtou. V²slednΘ Φφslo d∞lφme Φislem 11 a celoΦφslen² zbytek odeΦeteme od Φφsla 11. Rozdφl je kontrolnφ Φφslo. Stejn∞ jako u rodnΘho Φφsla, je-li zbytek 0, kontrolnφ Φφslice je jedna, je-li zbytek 10, kontrolnφ Φφslice je 0.
Chcete-li otev°φt soubor v Excelu, musφte vytvo°it objekt Excel.Application. A to bu∩ pomocφ funkce CreateObject, nebo pomocφ vlo₧enφ odkazu na objektovou knihovnu MS Excel. My si zde ukß₧eme druh² p°φpad. Tak₧e vlo₧te do projektu odkaz na Microsoft Excel Object Library (z menu Project | References) a napiÜte tento k≤d.
Dim myExcel As New Excel.Application
With myExcel
.Workbooks.Add 'p°idß nov² soubor
.Range("A1") = "1.154" 'vyplnφ t°i bu≥ky
.Range("A2") = "2.455"
.Range("A3") = "=A1+A2"
.Range("A3").NumberFormat = "0.00" 'nastavφ formßt bu≥ky A3
.Visible = True 'ukß₧e Excel na obrazovce
End With
Dim myExcel As New Excel.Application
With myExcel
.Workbooks.Open "E:\TEXT.IK\odkrnov.xls" 'otev°e soubor
.Visible = True 'ukß₧e Excel
End With
S Wordem je to velice podobnΘ jako s Excelem. Pouze musφte p°idat odkaz na Microsoft Word Object Library.
Dim myWord As New Word.Application With myWord .Documents.Add 'Vytvo°φ nov² dokument .ActiveDocument.Content = "Word z Visual Basicu" 'NapφÜe text .Visible = True 'Ukß₧e Word End With
Tato funkce, jak ji₧ napovφdß nßzev, vracφ handle okna v zadanΘ pozici na obrazovce. Oknem se rozumφ takΘ nap°. textbox, listbox, nebo jinΘ objekty uvnit° okna. Tzn. vrßcenΘ Φφslo nemusφ b²t handle programovΘho okna, ale jen n∞jakΘho prvku.
Deklarace funkce vypadß takto:
Declare Function WindowFromPoint Lib "user32.dll" (ByVal xPoint As Long, _ ByVal yPoint As Long) As Long
xPoint je Φφslo na ose X
yPoint je Φφslo na ose Y
A k Φemu to vÜechno m∙₧e b²t? Mal² p°φklad, kter² zjistφ titulek okna, kterΘ se nachßzφ v mφst∞ kurzoru myÜi:
Dim mousepos As POINT_TYPE Dim wintext As String, slength As Long Dim hwnd As Long Dim retval As Long retval = GetCursorPos(mousepos) hwnd = WindowFromPoint(mousepos.x, mousepos.y) If hwnd = 0 Then Debug.Print "V uvedenΘm mφst∞ se nenachßzφ ₧ßdnΘ okno" End End If slength = GetWindowTextLength(hwnd) wintext = Space(slength + 1) slength = GetWindowText(hwnd, wintext, slength + 1) Debug.Print "Titulek okna: "; Left(wintext,sLength)