Jednoduchý SplitterBar
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Reklama

Jednoduchý SplitterBarJednoduchý SplitterBar

 
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

Jednoduchý SplitterBar

Google       Google       6. 12. 2005       8 217×

V programech typu Průzkumník je hlavní okno rozděleno na dvě menší. Jak to vytvořit ve Visual Basicu, když tam není prvek SplitterBar? Přečtěte si tento článek a budete vědět, jak na to...

Reklama
Reklama

V průzkumníku je mezi TreeView a ListView malý prostor, kam, když se klikne a táhne
myší, můžete zvětšovat (zmenšovat) jednotlivé části.


ukázka SplitterBaru v Total Commander 6.01


K této ukázce budeme potřebovat jeden PictureBox a dva TextBoxy.

Postup:
Na formulář umístěte dva TextBoxy vedle sebe. Mezi nimi nechte malý prostor. Do tohoto prostoru vložte PictureBox.

To formuláře vložte tento kód:


Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   If Button = vbLeftButton Then Picture1.Left = Picture1.Left + X
End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
   If Button = vbLeftButton Then
      Text1.Width = Picture1.Left
      Text2.Left = Picture1.Left + Picture1.Width
      Text2.Width = Form1.ScaleWidth - (Picture1.Left + Picture1.Width)
   End If
End Sub

Pokud se vše povedlo tak, jak mělo, bude to vypadat takto:


Pokud jste to vytvořili správně, budete moci s PictureBoxem pohybovat vlevo a vpravo, a tím tak rozdělovat místo na formuláři mezi dva TextBoxy.

Pozn:
Tady je tip, jak to ještě trochu vylepšit:


Private Sub Form_Load()
   Picture1.MousePointer = 9
End Sub

Private Sub Form_Resize()
   Text1.Height = Form1.ScaleHeight
   Text2.Height = Form1.ScaleHeight
   Text2.Width = Form1.ScaleWidth
   Picture1.Height = Form1.ScaleHeight
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   If Button = vbLeftButton Then Picture1.Left = Picture1.Left + X
End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
   If Button = vbLeftButton Then
      Text1.Width = Picture1.Left
      Text2.Left = Picture1.Left + Picture1.Width
      Text2.Width = Form1.ScaleWidth - (Picture1.Left + Picture1.Width)
   End If
End Sub


Zde si můžete stáhnout ukázku.

×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.

Tagy:
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

Reklama
Reklama
Obrázek ke článku Pracujete u počítače ve stoje? Dbejte na správné držení těla

Pracujete u počítače ve stoje? Dbejte na správné držení těla

Práce ve stoje je jedna z variant, jak změnit polohu těla při dlouhodobé práci u počítače. Především je důležité nezapomínat na správné držení těla, abychom při práci nenamáhali naší krční páteř. Primářka MUDr. Michaela Tomanová představí hlavní bonusy a rizika práce u počítače ve stoje.

Obrázek ke článku Firmy musejí s nástupem Průmyslu 4.0 více dbát na kyberbezpečnost. V ohrožení je i jejich know-how.

Firmy musejí s nástupem Průmyslu 4.0 více dbát na kyberbezpečnost. V ohrožení je i jejich know-how.

Destabilizace firmy či ukradené know-how. To jsou možná hlavní budoucí rizika spojená s nedostatečnou kybernetickou bezpečností průmyslových firem, na která upozorňují experti. Vzhledem k postupující digitalizaci výrobních či technologických procesů a přechodu k takzvanému Průmyslu 4.0 může těchto hrozeb postupně přibývat. Varují před nimi i nejnovější průzkumy. 

Obrázek ke článku Nový CEBIT je připraven: Pochopit digitální dnešek a objevit digitální zítřek

Nový CEBIT je připraven: Pochopit digitální dnešek a objevit digitální zítřek

Nový veletrh  CEBIT je připraven. V polovině června začne v Hannoveru evropský festival obchodu s radikálně změněnou koncepcí věnovaný inovacím a digitalizaci.  CEBIT jedinečnou formou spojuje obchod v digitálním hospodářství 
s festivalovými prvky a posouvá do středu pozornosti téma digitální transformace hospodářství a společnosti.  

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