Tools & Components Tools & Components
    Professionelle Entwicklerkomponenten für Visual Basic, .NET und MS-Access
www.tools4vb.com   
 
 
  HOME
  Willkommen
  News
  Impressum
  Datenschutz
  Referenzen
  Kundenmeinungen
  TOP-Angebot
  Online-Shop
 
  ENTWICKLERTOOLS
  Oberfläche & Design
  DataGrid & Listen
  Statistik
  Internet / ISDN
  Zip & Verschlüsselung
  DTA / Kontonummern
 
  DOWNLOAD
  Komplettinstallation
  Bugfixes und Patches
  Online-Hilfe
  Sonstige Downloads
 
  SUPPORT
  Diskussionsforum
  Tipps & Tricks
  FAQ
 
  FUNKTIONEN
  als Startseite
  zu den Favoriten
 
  PARTNERSEITEN
vb@rchiv - Alles für VB-Entwickler roSoft - mehr als 15 Jahre Profi-Software!
 
 
 

HOME > TIPPS & TRICKS > sevOutBar 2.0

 

Tipps & Tricks: sevOutBar 2.0

 
 

sevOutBar in einer MDIForm verwenden
Mit einem kleinen Trick lässt sich das sevOutBar-Control auch in MDIFormen verwenden.
Produktversionen:sevOutBar 2.0
VB-Versionen:VB5/6
Autor:Dieter Otter
Datum:23.10.03
Views:4951

 
 

Immer wieder erhalten wir die Anfrage, warum man das sevOutBar-Control eigentlich nicht innerhalb einer MDIForm verwenden kann.

Jeglicher Versuch das Control auf die MDIForm zu ziehen schlägt fehl. Es will und will einfach nicht dort hin :-)

Grund hierfür ist, dass sich auf einer MDIForm immer nur sogenannte Container-Controls platzieren lassen. Das sevOutBar-Control gehört allerdings nicht zu dieser "Sorte" von Controls, da man es sonst nicht in MS-Access bzw. Office/VBA verwenden könnte.

Die Lösung des Problems liegt dennoch sehr nahe :-)

  1. Man nehme eine PictureBox und ziehe sie auf die MDIForm
  2. Man setze die Align-Eigenschaft der PictureBox auf "links"
  3. Man ziehe die PictureBox auf die gewünschte Breite
  4. Man setze die Eigenschaft BorderStyle der PictureBox auf 0 - kein Rahmen
  5. Man setze die Eigenschaft TabStop der PictureBox auf FALSE
  6. Man platziere nun das sevOutBar-Control in die PictureBox
  7. Man füge nachfolgenden Code in das Resize-Ereignis der MDIForm ein

Private Sub MDIForm_Resize()
  If Me.WindowState <> vbMinimized Then
    ' Größenanpassung des sevOutBar-Controls
    With Picture1
      OutBar1.Move 0, 0
      OutBar1.Width = .ScaleWidth
      OutBar1.Height = .ScaleHeight
    End With
  End If
End Sub

zurück Zurück zur Übersichtsseite

   

 

nach oben

Optimiert für den Internet Explorer bei 1024x768 Pixel
Copyright ©1997-2019 Tools & Components, Dieter Otter
Alle Rechte vorbehalten.
 

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.