|
ZdrojovΘ k≤dy
Pohyb objektu pomocφ OpenGL
| P∞kn² p°φklad, kter² vytvß°φ ruku s p∞ti prsty. S celou rukou i prsty je mo₧nΘ pohybovat. LepÜφ p°edstavu si ud∞lßte sami po vyzkouÜenφ tohoto p°φkladu. |
| 17200 byt∙ | Kopφrovat |
Zp∞t na obsah
Vytvß°enφ nßhledu
| Zdrojov² k≤d prvku, kter² umo₧≥uje vytvß°et a zobrazovat nßhled na tiskovou sestavu. Projekt obsahuje i vzorov² p°φklad. |
| 56136 byt∙ | Kopφrovat |
Zp∞t na obsah
Generovßnφ hesel
| P°φklad ukazuje generovßnφ hesel a frßzφ r∙zn²ch dΘlek a poΦt∙ slov. |
| 381946 byt∙ | Kopφrovat |
Zp∞t na obsah
Pacman
| Zdrojov² k≤d hry, kterou jist∞ znß v∞tÜina z vßs. Pro ty, kte°φ nevφ o co jde. Na malΘm hracφm poli jsou rozprost°eny objekty, kterΘ musφte s mal²m panßΦkem (spφÜe pouze s jeho hlavou) vÜechny sesbφrat. V tom se vßm sna₧φ zabrßnit takovß malß straÜidla. |
| 1013580 byt∙ | Kopφrovat |
Zp∞t na obsah
Ohe≥
| Velmi jednoduchß a p°itom velmi p∞kn∞ vypadajφcφ animace ohn∞. P°φklad pou₧φvß, mimo API funkce SetPixel, pouze p°φkazy Visual Basicu. |
| 9167 byt∙ | Kopφrovat |
Zp∞t na obsah
Finance
| P°φklad pracuje s pen∞zi. Ukazuje nap°. kolik pen∞z budete mφt na ·Φtu, uklßdßte-li pravideln∞ penφze p°i zadanΘm ·roku, apod. |
| 26517 byt∙ | Kopφrovat |
Zp∞t na obsah
Vlastnosti souboru
| P°φklad ukazuje, jak pracovat s atributy souboru vΦetn∞ data vytvo°enφ a poslednφ zm∞ny. Tyto hodnoty umφ jak zobrazit, tak i m∞nit. |
| 6104 byt∙ | Kopφrovat |
Zp∞t na obsah
Nßhled neboli preview
| Vytvß°φte-li textov² editor, je dobrΘ u₧ivateli p°ed tiskem zobrazit nßhled dokumentu, neboli podobu, jak bude dokument vytisknut na tiskßrn∞. Jak jej vytvo°it p°i pou₧itφ RichTextBoxu ukazuje tento p°φklad. |
| 41947 byt∙ | Kopφrovat |
Zp∞t na obsah
Zßstupce
| P°φkla ukazuje vytvß°enφ zßstupc∙ (lnk, pif) pomocφ knihovny stkit432.dll. |
| 28532 byt∙ | Kopφrovat |
Zp∞t na obsah
Grafy funkcφ sinus, cosinus a tangens
| P°φklad vykresluje do PictureBoxu grafy t°φ v²Üe uveden²ch funkcφ. |
| 2852 byt∙ | Kopφrovat |
Zp∞t na obsah
Rozm∞ry okna v pixelech (napln∞nφ prom∞nnΘ typu RECT)
Chcete-li znßt rozm∞ry okna v pixelech, nemusφte pou₧φvat ₧ßdnΘ API funkce.
StaΦφ zjistit velikost v twipech a d∞lit ji hodnotami objektu Screen,
TwipsPerPixelX a TwipsPerPixelY. N∞kterΘ API funkce vÜak
vy₧adujφ (nap°. Clipcursor) zadßnφ oblasti pomocφ prom∞nnΘ typu
RECT, co₧ znamenß projφt sou°adnice okna jednu po druhΘ,
p°evßd∞t na pixely a zadßvat do odpovφdajφcφch prom∞nn²ch. Chcete-li takto zadat sou°adnice okna, je mnohem jednoduÜÜφ naplnit
jimi prom∞nnou typu RECT pomocφ API funkce GetWindowRect.
Ta jednoduÜe p°eΦte sou°adnice okna a vrßtφ je do prom∞nnΘ.
Dim r As RECT
GetWindowRect Form1.hWnd, r
Debug.Print "DΘlka: " & r.Right - r.Left
Debug.Print "èφ°ka: " & r.Bottom - r.Top
Zp∞t na obsah
Kontext za°φzenφ plochy
Pokud chcete znßt kontext za°φzenφ plochy, musφte nejd°φve zjistit jejφ handle pomocφ
API funkce GetDesktopWindow a ten potom zadat jako parametr API funkci
GetDC, kterß vrßtφ kontext za°φzenφ.
Dim hw As Long, dcPlochy As Long
hw = GetDesktopWindow()
dcPlochy = GetDC(hw)
Zp∞t na obsah
Aktivnφ okno
Chcete-li znßt handle okna, kterΘ je prßv∞ aktivnφ, pou₧ijte API funkci
GetForegroundWindow. Pomocφ prφkaz∙ Visual Basicu to zjistit nelze.
Dim hw As Long
hw = GetForegroundWindow()
Zp∞t na obsah
Ulo₧enφ vÜech soubor∙ v Excelu
Ka₧d² otev°en² soubor je v Excelu reprezentovßn objektem Workbook
v kolekci Workbooks. Chcete-li vÜechny ulo₧it, staΦφ projφt prvky tΘto kolekce
a na ka₧d² aplikovat metodu Save.
Dim myExcel As Object, myWorkbook As Object
Set myExcel = CreateObject("Excel.Application")
....
'K≤d pro ulo₧enφ
For Each myWorkbook In myExcel.Workbooks
myWorkbook.Save
Next myWorkbook
myExcel.Quit
Set myExcel = Nothing
Zp∞t na obsah
Vlastnφ dialog pro ulo₧enφ souboru v Excelu
Nelφbφ se vßm dialog pro ulo₧enφ souboru v Excelu? Nebo chcete nabφdnou
pouze omezenΘ mo₧nosti uklßdßnφ? Ud∞lejte si vlastnφ dialog. Prom∞nnou reprezentujφcφ
Excel nadefinujte s klφΦov²m slovem WithEvents. Tφm zφskßte
n∞kterΘ udßlosti Excelu (to neplatφ pro ty, co programujφ p°φmo v Excelu, ti je majφ
automaticky). P°ed ulo₧enφm nastßvß udßlost WorkbookBeforeSave. Nastavφte-li
jejφ parametr Cancel na True, ulo₧enφ se neprovede a m∙₧ete
si d∞lat co chcete, t°eba zobrazit sv∙j dialog pro ulo₧enφ.
Private WithEvents myExcel As Excel.Application
Private Sub Form_Load()
Set myExcel = New Excel.Application
myExcel.Visible = True
End Sub
Private Sub myExcel_WorkbookBeforeSave(ByVal Wb As Excel.Workbook, _
ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
frmMujDialog.Show
frmMujDialog.ZOrder 0
End Sub
Zp∞t na obsah
|