| Wizard (nebo kouzelník?) | Program |
| Jiné tlačítko Start | Program |
| PopUp systémové menu | Program |
| Poznámkový blok | Program |
| MDI ToolTip | Program |
| Nápověda a ListBox | Program |
| Práce s obrázky | Program |
| Ještě jednou obrázky | Program |
| CommonDialog | Program |
| Animovaný kurzor | Program |
| Jak přidat soubor do projektu | Kód |
| Jak získal TextBox focus | Kód |
| Jak zobrazovat položky z ovládacích panelů | Kód |
| Jak schovat plochu | Kód |
| Šikovný příklad na vytvoření průvodce čímkoliv, např. instalací, konfigurací vašeho programu apod. | |
| 25991 bytů | Kopírovat |
| Ukazuje, jak vložit na tlačítko Start svůj obrázek (bohužel se nám nepovedlo upravit program tak, aby bitmapa zůstala i po ukončení programu, pokud máte někdo nějaký nápad, napište). | |
| 3293 bytů | Kopírovat |
| Chcete-li ukazovat systémové menu (běžně na levé horní straně formuláře) kdekoliv na formuláři pouze na stisk pravého tlačítka myši, zkuste tento příklad. | |
| 2426 bytů | Kopírovat |
| Tento příklad nemá nic společného s poznámkovým blokem ve Windows. Spíše s aplikacemi jako např. StickyNote, které zobrazují na obrazovce jakoby lístky papíru, které se povalují ve většině kanceláří. Tento příklad ukazuje, jak vytvořit formulář s netradičním vzhledem, jak upravit titulkový řádek a jak měnit systémové menu. | |
| 13813 bytů | Kopírovat |
| Příklad ukazuje zvětšení části MDI formuláře, kde se nachází menu, o jeden řádek. Do tohoto řádku potom můžete zapisovat třeba nápovědu k jednotlivým položkám menu. | |
| 28471 bytů | Kopírovat |
| Poměrně složitý příklad, ukazující jak vytvořit bublinkovou nápovědu pro každou položku prvku ListBox. | |
| 27441 bytů | Kopírovat |
| Ukazuje několik efektů při práci s obrázky, např. "zrnění", zvětšování apod. | |
| 113576 bytů | Kopírovat |
| Další efekty při práci s obrázky, např. zesvětlování, změna barvy, vytvoření inverzního obrazu atd. | |
| 131691 bytů | Kopírovat |
| Pracuje s prvkem CommonDialog a ukazuje, jak jej vycentrovat na obrazovce. | |
| 9277 bytů | Kopírovat |
| "Přehrává" animovaný kurzor pomocí API a pomocí prvku Timer a porovnává rychlost. | |
| 6287 bytů | Kopírovat |
Vytváříte-li nějaký doplněk (Add-In), může se vám hodit následující jednoduchý kód. Přidá do projektu nový soubor.
Public Sub AddFile(strFile As String) Dim AP As Object Set AP = gobjIDEAppInst.ActiveProject AP.AddFile strFile Set AP = Nothing End Sub
Tento příklad ukazuje, jak zjisit, jestli získal prvek (v tomto případě TextBox) focus (neboli ohnisko). Zda pomocí myši nebo klávesy TAB.
Private Declare Function GetKeyState Lib "User32" (ByVal nVirtKey As Long) As Long
Private Const VK_TAB = 9
Sub Text1_GotFocus()
If GetKeyState(VK_TAB) < 0 Then
MsgBox "Tabulátor"
Else
MsgBox "Myš"
End If
End Sub
Jak zobrazovat položky z ovládacích panelů
Pomocí VB funkce Shell a programu rundll32.exe můžete spustit libovolnou položku z ovládacích panelů. My si zde ukážeme některé z nich. Některé dialogy mají více záložek. Zadáním čísla záložky, můžete dokonce určit, která má být při zobrazení první aktivní.
'pridat a odebrat programy, prvni zalozka Shell "rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl", vbNormalFocus 'pridat a odebrat programy, druha zalozka Shell "rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl, ,2", vbNormalFocus
Spustit dialog už umíte, tak teď několik tipů:
'Přidat a odebrat programy Shell "rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl", vbNormalFocus 'Vlastnosti obrazovky Shell "rundll32.exe shell32.dll,Control_RunDLL desk.cpl", vbNormalFocus 'Místní nastavení Shell "rundll32.exe shell32.dll,Control_RunDLL intl.cpl", vbNormalFocus 'Herní zařízení Shell "rundll32.exe shell32.dll,Control_RunDLL joy.cpl", vbNormalFocus 'Myš, klávesnice, tiskárny, fonty Shell "rundll32.exe shell32.dll,Control_RunDLL main.cpl @0", vbNormalFocus Shell "rundll32.exe shell32.dll,Control_RunDLL main.cpl @1", vbNormalFocus Shell "rundll32.exe shell32.dll,Control_RunDLL main.cpl @2", vbNormalFocus Shell "rundll32.exe shell32.dll,Control_RunDLL main.cpl @3", vbNormalFocus 'Multimédia Shell "rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl", vbNormalFocus 'Zvuky Shell "rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl @1", vbNormalFocus 'Modem Shell "rundll32.exe shell32.dll,Control_RunDLL modem.cpl", vbNormalFocus 'Síť Shell "rundll32.exe shell32.dll,Control_RunDLL netcpl.cpl", vbNormalFocus 'Hesla Shell "rundll32.exe shell32.dll,Control_RunDLL password.cpl", vbNormalFocus 'Systém Shell "rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl", vbNormalFocus 'Přidat nový hardware Shell "rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl @1", vbNormalFocus 'Datum a čas Shell "rundll32.exe shell32.dll,Control_RunDLL timedate.cpl", vbNormalFocus
Funkce SwitchDesktop v závislosti na parametru akce schová nebo ukáže plochu ve Windows.
Private Const SW_HIDE = 0
Private Const SW_SHOW = 5
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Sub SwitchDesktop(ByVal akce As Byte)
Dim dhwnd As Long
dhwnd = FindWindow("Progman", vbNullString)
ShowWindow dhwnd, IIf((akce = 1), SW_HIDE, SW_SHOW)
End Sub