ZdrojovΘ k≤dy

Kalendß°Program
Tvar formulß°e podle obrßzkuProgram
Vypl≥ovßnφ grafick²ch oblastφProgram
3D programovßnφProgram
OLE server viewerProgram
AsociaceProgram
Prochßzenφ polo₧ek registruProgram
Odstran∞nφ viru LoveProgram
Registrace OCX a DLLProgram
RegLibProgram
RegDemoModul
Kalendß° - t°φdaT°φda
Registrace OCX a DLL v kontextovΘm menuTip
GetLogicalDriveStringsAPI
GetDriveTypeAPI

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