|
Zdrojové kódy
Kalendář
| Aplikace ukazuje použití prvku DateTimePicker pro zobrazování data. |
| 447186 bytů | Kopírovat |
Zpět na obsah
Tvar formuláře podle obrázku
| Příklady ukazující jak vytvořit formulář jiných než standardních tvarů jsme tu už několikrát měli. Tento vytvoří tvar podle obrysů zadaného obrázku (bitmapy). |
| 59624 bytů | Kopírovat |
Zpět na obsah
Vyplňování grafických oblastí
| Příklad ukazuje jak vyplnit ohraničenou oblast určitou barvou. |
| 7419 bytů | Kopírovat |
Zpět na obsah
3D programování
| Program ukazuje některé základní grafické operace. Dobrý začátek pro ty, kteří se chtějí naučit zobrazovat trojrozměrné objekty. |
| 44161 bytů | Kopírovat |
Zpět na obsah
OLE server viewer
| Zobrazuje registrované třídy a prvky, v podstatě informace z registru Windows obsažené v klíči HKEY_CLASSES_ROOT. Součástí archívu je i ActiveX prvek představující zajímavou alternativu tlačítka, tj. prvku CommandButton. |
| 139182 bytů | Kopírovat |
Zpět na obsah
Asociace
| Ukazuje, jak asociovat program s příponou souboru. |
| 16848 bytů | Kopírovat |
Zpět na obsah
Procházení položek registru
| Program ukazuje, jak můžete zjistit obsah určité větve registru systému Windows. |
| 6527 bytů | Kopírovat |
Zpět na obsah
Odstranění viru Love
| Příklad umí ze systému odstranit dnes velmi "populární" virus Love. |
| 8161 bytů | Kopírovat |
Zpět na obsah
Registrace OCX a DLL
| Program, který umožňuje zaregistrovat i odregistrovat jednu nebo více OCX a DLL komponent naráz. |
| 4514 bytů | Kopírovat |
Zpět na obsah
RegLib
| Příklad základních operací s registrem Windows. Tato ActiveX DLL komponenta umožňuje zapisovat do registru mnohem jednodušeji, nemusíte zadávat typ zapisované proměnné, dokonce můžete zapsat najednou celé pole hodnot. |
| 17807 bytů | Kopírovat |
Zpět na obsah
RegDemo
| Modul umožňující některé základní operace s registrem systému Windows (čtení a zápis hodnot, atd.). Všechny funkce v něm jsou přehledně popsány, tzn. neměli by s nimi mít problémy i méně zkušení programátoři ve Visual Basicu. |
| 6756 bytů | Kopírovat |
Zpět na obsah
Kalendář - třída
| Potřebujete-li zobrazit ve svém programu kalednář pro výběr data a nelíbí se vám prvek DateTimePicker z Visual Basicu, zkuste použít tuto třídu. Archív obsahuje i příklad použití. |
| 9261 bytů | Kopírovat |
Zpět na obsah
Registrace OCX a DLL v kontextovém menu
V tomto případě nejde ani tak moc o příklad zdrojového kódu, ale o velmi dobrou
a účinnou pomůcku pro programátory. Zkopírujte
si soubor regocx.reg a informace, které obsahuje, přidejte do registru, např.
tak že na něj dvakrát kliknete myší. V kontextové menu u souborů DLL a OCX
se objeví nová položka Register a Unregister. Jak jistě tušíte, první vybraný
soubor zaregistruje, druhá odregistruje.
Zpět na obsah
GetLogicalDriveStrings
Funkce vrací cestu do kořenového adresáře všech logických disků na počítači.
Pokud nastane chyba, vrací funkce hodnotu 0 jinak délku vráceného řetězce.
Declare Function GetLogicalDriveStrings Lib "kernel32" Alias _
"GetLogicalDriveStringsA" _
(ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
- nBufferLength
- Délka zadaného řetězce.
- lpBuffer
- Řetězec, do kterého jsou vráceny jednotlivé cesty.
'Vypíše písmena všech disků ve formátu X:\
Dim drv As String, ret As Long, i As Long
drv = Space(255)
ret = GetLogicalDriveStrings(255, drv)
If ret <> 0 Then
For i = 1 To ret Step 4
Debug.Print Mid(drv, i, 3)
Next i
End If
Zpět na obsah
GetDriveType
Vrací typ zadaného disku.
Pokud nastane chyba, vrací funkce hodnotu 0, jinak hodnotu, která určuje typ disku.
Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" _
(ByVal nDrive As String) As Long
- nDrive
- Kořenový adresář disku, jehož typ chcete zjistit.
Dim i As Long
i = GetDriveType("C:\")
Select Case i
Case 0
Debug.Print "nelze zjistit typ disku"
Case 1
Debug.Print "neexistuje kořenový adresář"
Case 2
Debug.Print "disketa nebo jiný výměnný disk"
Case 3
Debug.Print "pevný disk"
Case 4
Debug.Print "síťový disk"
Case 5
Debug.Print "CD-ROM"
Case 6
Debug.Print "RAM-disk"
End Select
Zpět na obsah
|