Line-Steuerelement für Visual Basic 6.0-Benutzer

Artikel
09/02/2008

Aktualisiert: November 2007

Das Line-Steuerelement von Visual Basic 6.0 hat keine Entsprechung in Visual Basic 2008. Sie können jedoch dieselben Ergebnisse mit den Grafikmethoden erzielen oder das optionale LineShape-Steuerelement der Visual Basic Power Packs verwenden.

Konzeptionelle Unterschiede

In Visual Basic 6.0 können mithilfe des Line-Steuerelements zur Entwurfszeit Linien auf ein Formular gezeichnet werden. Das Line-Steuerelement ist ein "schlankes Steuerelement", d. h., es hat kein Windows-Handle (auch als HWnd bezeichnet).

In Visual Basic 2008 gibt es keine Entsprechung für das Line-Steuerelement, und einfache Steuerelemente werden nicht mehr unterstützt. Es gibt jedoch Möglichkeiten, sowohl zur Entwurfszeit als auch zur Laufzeit Linien auf ein Formular zu zeichnen.

Hinweis:
Die optionalen Visual Basic Power Packs-Steuerelemente beinhalten die Steuerelemente LineShape, OvalShape und RectangleShape, mit denen die Steuerelemente Line und Shape ersetzt werden können. Zusätzlich zum kopierten Verhalten der Visual Basic 6.0-Steuerelemente Line und Shape verfügen diese Steuerelemente über neue Fähigkeiten. Dazu gehören Farbverläufe, Laufzeitauswahl und Laufzeitereignisse.

Die optionalen Visual Basic Power Packs-Steuerelemente beinhalten die Steuerelemente LineShape, OvalShape und RectangleShape, mit denen die Steuerelemente Line und Shape ersetzt werden können. Zusätzlich zum kopierten Verhalten der Visual Basic 6.0-Steuerelemente Line und Shape verfügen diese Steuerelemente über neue Fähigkeiten. Dazu gehören Farbverläufe, Laufzeitauswahl und Laufzeitereignisse.

Sie können Visual Basic Power Packs auf der MSDN-Website von der Seite Microsoft Visual Basic 2005 Power Packs herunterladen.

Zur Entwurfszeit können Sie auf einem Formular eine vertikale oder horizontale Linie zeichnen. Dazu müssen Sie ein Label-Steuerelement hinzufügen und die Text-Eigenschaft auf eine leere Zeichenfolge, die BorderStyle-Eigenschaft auf None und die Width-Eigenschaft oder die Height-Eigenschaft auf 1 festlegen.

Zur Laufzeit können Sie vertikale, horizontale oder diagonale Linien im Paint-Ereignishandler eines Formulars zeichnen, indem Sie ein neues Graphics-Objekt erstellen und dessen Methoden aufrufen.

In Visual Basic 6.0 können Sie mithilfe eines Line-Steuerelements eine Linie auf einem Containersteuerelement zeichnen (z. B. auf einem PictureBox-Steuerelement oder einem Frame-Steuerelement), indem Sie dem Container ein Line-Steuerelement hinzufügen.

In Visual Basic 2008 erreichen Sie den gleichen Effekt durch Aufrufen der DrawLine-Methode im Paint-Ereignis des Containersteuerelements.

Änderungen am Code des Line-Steuerelements

Im folgenden Beispiel werden Unterschiede in den Codierungstechniken von Visual Basic 6.0 und Visual Basic 2008 dargestellt.

Zeichnen horizontaler oder vertikaler Linien

Im folgenden Code wird veranschaulicht, wie zur Laufzeit horizontale und vertikale Linien auf einem Formular gezeichnet werden. Im Visual Basic 6.0-Beispiel wird das Line-Steuerelement verwendet. Das Beispiel setzt voraus, dass zur Entwurfszeit zwei Line-Steuerelemente hinzugefügt wurden. Im Visual Basic 2008-Beispiel werden zwei Verfahren veranschaulicht, bei denen einerseits ein Label-Steuerelement und andererseits Graphics-Methoden verwendet werden.

Hinweis:
In Visual Basic 6.0 werden Twips als Standardmaßeinheiten verwendet, in Visual Basic 2008 Pixel.

' Visual Basic 6.0
Private Sub Form_Load()
    ' Draw a horizontal line 200 twips from the top of the form.
    Line1.X1 = 0
    Line1.X2 = Me.Width
    Line1.Y1 = 200
    Line1.Y2 = 200
    Line1.BorderColor = vbRed
    Line1.BorderWidth = 1
    ' Draw a vertical line 200 twips from the left of the form.
    Line1.Y1 = 0
    Line1.Y2 = Me.Height
    Line1.X1 = 200
    Line1.X2 = 200
    Line1.BorderColor = vbBlue
    Line1.BorderWidth = 1

' Visual Basic
' Using Label controls.
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
    Dim Line1 As New System.Windows.Forms.Label
    Dim Line2 As New System.Windows.Forms.Label
    ' Draw a horizontal line 14 pixels from the top of the form.
    Line1.Location = New System.Drawing.Point(0, 14)
    Line1.Size = New System.Drawing.Size(Me.Width, 1)
    Line1.BorderStyle = BorderStyle.None
    Line1.BackColor = System.Drawing.Color.Red
    Line1.Text = ""
    Controls.Add(Line1)
    ' Draw a vertical line 14 pixels from the left of the form.
    Line2.Location = New System.Drawing.Point(14, 0)
    Line2.Size = New System.Drawing.Size(1, Me.Height)
    Line2.BorderStyle = BorderStyle.None
    Line2.BackColor = System.Drawing.Color.Blue
    Line2.Text = ""
    Controls.Add(Line2)
End Sub

' Visual Basic
    ' Using Graphics methods.
Private Sub Form1Paint(ByVal sender As Object, _
ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
    ' Draw a horizontal line 28 pixels from the top of the form.
    e.Graphics.DrawLine(Pens.Red, 0, 28, Me.Width, 28)
    ' Draw a vertical line 28 pixels from the left of the form.
    e.Graphics.DrawLine(Pens.Blue, 28, 0, 28, Me.Height)
End Sub

Zeichnen einer diagonalen Linie

Der folgende Code veranschaulicht das Zeichnen einer diagonalen Linie auf einem Formular zur Laufzeit. Im Visual Basic 6.0-Beispiel wird das Line-Steuerelement verwendet. Das Beispiel setzt voraus, dass zur Entwurfszeit ein Line-Steuerelement hinzugefügt wurde. Im Visual Basic 2008-Beispiel werden Graphics-Methoden verwendet.

Hinweis:
In Visual Basic 6.0 werden Twips als Standardmaßeinheiten verwendet, in Visual Basic 2008 Pixel.

' Visual Basic 6.0
Private Sub Form_Load()
    ' Draw a diagonal line from the top left to the lower right.
    Line1.X1 = 0
    Line1.X2 = Me.ScaleWidth
    Line1.Y1 = 0
    Line1.Y2 = Me.ScaleHeight
    Line1.BorderColor = vbBlack
    Line1.BorderWidth = 1
End Sub

' Visual Basic
Private Sub FormPaint(ByVal sender As Object, _
ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
    ' Draw a diagonal line from the top left to the lower right.
    e.Graphics.DrawLine(Pens.Black, 0, 0, Me.ClientSize.Width, _
    Me.ClientSize.Height)
End Sub

Hinweise zum Durchführen einer Aktualisierung

Nach dem Aktualisieren einer Visual Basic 6.0-Anwendung verwendet Code, in dem auf das Line-Steuerelement verwiesen wird, das LineShape-Steuerelement der optionalen Visual Basic Power Packs-Bibliothek. Eine Warnung wird ausgegeben, wenn während der Aktualisierung ein Verweis auf das Line-Steuerelement festgestellt wird. Die Bibliothek muss installiert und dem aktualisierten Projekt ein entsprechender Verweis hinzugefügt werden.

Sie können Visual Basic Power Packs auf der MSDN-Website von der Seite Microsoft Visual Basic 2005 Power Packs herunterladen.

Siehe auch

Konzepte

Grafiken für Visual Basic 6.0-Benutzer

Freigeben über