e.Graphics.DrawString

09/12/2007 - 20:13 von Matthias Göbel | Report spam
Hallo,
ich weis nicht warum folgender Code bei mir nicht funzt:
Jedesmal wenn sich der Text oder die FensterGröße>PictureBoxGröße àndert
soll der Text neu in die PictureBox geschrieben werden:

Private Font_Name$, Font_Size!
Private drawFont As Font
Private drawRect As RectangleF
Private drawBrush As SolidBrush

Private Sub FrmX_Load(ByVal sender As Object, ByVal e As System.EventArgs)
Handles Me.Load
FrmX_Height = Me.Height
drawBrush = New SolidBrush(Me.ForeColor)
End Sub

Private Sub FrmdX_Resize(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.Resize
drawFont = New Font(Font_Name, Font_Size * (Me.Height / FrmX_Height))
drawRect = New RectangleF(0, 0, Pic.Width, Pic.Height)
Pic.Invalidate()
End Sub

Private Sub TmrX_Elapsed(ByVal sender As Object, ByVal e As
System.Timers.ElapsedEventArgs) Handles TmrX.Elapsed
If TextX_ <> TextX Then Pic.Invalidate() : TextX_ = TextX
End Sub

Private Sub PicX_Paint(ByVal sender As Object, ByVal e As
System.Windows.Forms.PaintEventArgs) Handles PicX.Paint
e.Graphics.DrawString(Text, drawFont, drawBrushTrack, drawRect)
End Sub

Allerdings seh ich nix ! Was mach ich flasch ?

MfG
Matthias
 

Lesen sie die antworten

#1 Fabian Aiteanu
09/12/2007 - 23:56 | Warnen spam
Hallo Matthias,

wie wàre es, wenn du der Variablen Font_Size einen Wert zuweist? Zumindest kann ich in deinem Code
keine Zuweisung sehen.
Daher ist der Wert=0 und die Schrift ist nicht sichtbar...

Viele Grüße,
Fabian

Ähnliche fragen