Text direkt auf der Form ausgeben (VB.NET) VB-Version:  VB5, VB6
	Views:  485

In VB 6 konnte man mittels der Print-Anweisung Text direkt auf der Formausgeben lassen. Das sah dann ungefähr so aus:

Private Sub Form_Load()
  Print "Hallo"
End Sub

Wenn man nun das Projekt startete, pappte das Wort Hallo links oben in derEcke - vorausgesetzt man hatte nicht vergessen die Form-Eigenschaft AutoRedrawauf True zu setzen.

Wie geht es nun in VB.NET? Die Print-Anweisung schreibt hier nur noch inDateien. Also wie bekomme ich jetzt Text auf die Form ohne dass ich ein Labeloder sonst was dazu brauche? Es geht noch - allerdings wieder mal ein bisschenanders. DaveS hat es uns ins .NET-Forum gestellt. Hier der Code, den Sie direktin die Public Class Form1 einfügen:

Protected Overrides Sub OnPaint( _
  ByVal e As System.Windows.Forms.PaintEventArgs)
 
  Dim sb As SolidBrush = New SolidBrush(Color.Red)  
  e.Graphics.DrawString("Hi there!", Me.Font, sb, 50, 50)
End Sub

Versuchen Sie es einfach mal.