|
|
 |
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: | 6241 |
|
|
|
  |
|
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 :-)
- Man nehme eine PictureBox und ziehe sie auf die MDIForm
- Man setze die Align-Eigenschaft der PictureBox auf "links"
- Man ziehe die PictureBox auf die gewünschte Breite
- Man setze die Eigenschaft BorderStyle der PictureBox auf 0 - kein Rahmen
- Man setze die Eigenschaft TabStop der PictureBox auf FALSE
- Man platziere nun das sevOutBar-Control in die PictureBox
- 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 Übersichtsseite
|