Posuvné grafické okno
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Reklama

Posuvné grafické oknoPosuvné grafické okno

 
Hledat
Moderní platforma pro vytvoření vašeho nového webu – Wix.com.
Nyní už můžete mít web zdarma.
Vybavení pro Laser Game
Spuštěn Filmový magazín
Laser Game Brno

Posuvné grafické okno

Google       Google       13. 10. 2007       12 518×

Využití ovládacích prvků ScrollBar a PictureBox.

Reklama
Reklama

Bohužel ovládací prvek PictureBox (ani Image) nám neumožňuje posun obrázku, který přesahuje jeho velikost. Proto využijeme dvou ScrollBarů a dvou PictureBoxů, abychom si takové grafické okénko udělali.

Začneme tedy s rozmisťováním ovládacích prvků. Vložte si na formulář PictureBox1 a do něj vložte PictureBox2. Na formulář poté umístěte jeden HScrollBar a jeden VScrollBar (to jsou ty posuvníky).

Když už máme rozmístěno, pustíme se do psaní zdrojového kodu. Nejprve začneme procedurou Form_Load():

Private Sub Form_Load()
'Nastavíme na pixely
Form1.ScaleMode = vbPixels
Picture1.ScaleMode = vbPixels

'Velikost se upraví podle velikosti obrázku
Picture2.AutoSize = True

'Odstraníme rámeček u obou PictureBoxů
Picture1.BorderStyle = 0
Picture2.BorderStyle = 0

'Načteme obrázek (nejlépe nějaký hodně veliký)
Picture2.Picture = LoadPicture("cesta_k_obrazku")

'Umístíme oba PictureBoxy
Picture1.Move 0, 0, ScaleWidth - VScroll1.Width, ScaleHeight - HScroll1.Height
Picture2.Move 0, 0

'Umístíme vodorovný (horizontální) posuvník
HScroll1.Top = Picture1.Height
HScroll1.Left = 0
HScroll1.Width = Picture1.Width

'Umístíme svislý (vertikální) posuvník
VScroll1.Top = 0
VScroll1.Left = Picture1.Width
VScroll1.Height = Picture1.Height

'Nastavíme maximální hodnoty posuvníků
HScroll1.Max = Picture2.Width - Picture1.Width
VScroll1.Max = Picture2.Height - Picture1.Height

'Určí zda jsou potřeba posuvníky
VScroll1.Visible = (Picture1.Height < Picture2.Height)
HScroll1.Visible = (Picture1.Width < Picture2.Width)
End Sub

Nyní se budeme věnovat posuvníkům. Do procedury HScroll1_Change napište Picture2.left = -HScroll.value a do procedury VScroll1_Change umístěte Picture2.top = -VScroll1.value, díky tomu budem moci pohybovat s obrázkem správným způsobem.

Private Sub HScroll1_Change()
Picture2.Left = -HScroll1.Value
End Sub

Private Sub VScroll1_Change()
Picture2.Top = -VScroll1.Value
End Sub

Stále má náš prográmek malou chybu, neroztáhne se nám to po celém formuláři. To ihned opravíme, když do procedury Form_Resize napíšeme následující řádky kódu:

Private Sub Form_Resize()
Form1.ScaleMode = vbPixels
Picture1.ScaleMode = vbPixels

Picture1.Move 0, 0, ScaleWidth - VScroll1.Width, ScaleHeight - HScroll1.Height
Picture2.Move 0, 0

HScroll1.Top = Picture1.Height
HScroll1.Left = 0
HScroll1.Width = Picture1.Width
VScroll1.Top = 0
VScroll1.Left = Picture1.Width
VScroll1.Height = Picture1.Height
HScroll1.Max = Picture2.Width - Picture1.Width
VScroll1.Max = Picture2.Height - Picture1.Height

VScroll1.Visible = (Picture1.Height < Picture2.Height)
HScroll1.Visible = (Picture1.Width < Picture2.Width)
End Sub

Tak to je pro dnešek vše. Tento postup jsem se dříve naučil z jedné knihy; pokud vás zajímá z které, přečtěte si následující recenzi od Sunmaye.

×Odeslání článku na tvůj Kindle

Zadej svůj Kindle e-mail a my ti pošleme článek na tvůj Kindle.
Musíš mít povolený příjem obsahu do svého Kindle z naší e-mailové adresy kindle@programujte.com.

E-mailová adresa (např. novak@kindle.com):

TIP: Pokud chceš dostávat naše články každé ráno do svého Kindle, koukni do sekce Články do Kindle.

Hlasování bylo ukončeno    
0 hlasů
Google
(fotka) Jan MalýAutor programuje ve VB, HTML, CSS. Zajímá se o grafiku, fotografování
Web     Twitter     Facebook    

Nové články

Obrázek ke článku Konference: Kvalitní informační systém roste spolu se svými uživateli

Konference: Kvalitní informační systém roste spolu se svými uživateli

Informační systémy, které rostou spolu s požadavky svých uživatelů, efektivní uchování důležitých dokumentů nebo moderní uživatelská rozhraní, která maximálně zjednodušují práci s informacemi - to je jen několik z řady aktuálních trendů v oblasti podnikových informačních systémů, kterým se bude věnovat konference Firemní informační systémy, která se koná 31.5.2018 v pražském Kongresovém centru Vavruška na Karlově náměstí.

Reklama
Reklama
Obrázek ke článku Bezrealitky.cz na novém webu rychleji propojí vážné zájemce s majiteli nemovitostí

Bezrealitky.cz na novém webu rychleji propojí vážné zájemce s majiteli nemovitostí

Největší platforma pro přímý prodej a pronájem domů a bytů Bezrealitky.cz představila novou podobu svého portálu. Redesign zásadně zjednodušuje všechny transakce, mění způsob, jakým zájemci o bydlení komunikují s majiteli nemovitostí, přináší nejpřesnější filtrování nabídek na trhu, ale také umožňuje prověřovat důvěryhodnost zájemců. 

Obrázek ke článku Samba.ai: Personalizační nástroje hlásí připravenost na GDPR

Samba.ai: Personalizační nástroje hlásí připravenost na GDPR

Do ostrého nasazení nařízení GDPR, které upravuje nakládání s osobními údaji, zbývá pár dní, a vzbuzuje vrásky u řady provozovatelů služeb, které pracují s profilací návštěvníků na stránkách a personalizací obsahu. Český personalizační nástroj Samba.ai(dříve Yottly) zajišťující personalizaci webu a prediktivní automatizaci email marketingu je však slovy svého CEO Davida Vyskočila na GDPR plně připraveno. 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032018 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý