Beachte das
Erklärungen?
pnlResp.Click
Event im Handler der folgenden Sub. Das gehört da nicht hin. Und, ich schwör's, ich hab's da auch nicht hin gemacht. Hat mir irgendein Geist jetzt schon zum wiederholten male da reingeschrieben. Erklärungen?
VB.NET-Quellcode
- 'Center Questionmark
- Private Sub pnlResp_Paint(sender As Object, e As PaintEventArgs) Handles pnlResp.Paint, pnlResp.Click
- Dim pnl As Panel = CType(sender, Panel)
- Dim pnlGraphics As Graphics = pnl.CreateGraphics
- Dim center As New Point(CInt(pnl.Width / 2), CInt(pnl.Height / 2))
- Dim drawFont As New System.Drawing.Font("Times New Roman", 44)
- Dim drawBrush As New System.Drawing.SolidBrush(System.Drawing.Color.Black)
- Dim drawFormat As New System.Drawing.StringFormat() With {.LineAlignment = StringAlignment.Center, .Alignment = StringAlignment.Center}
- pnlGraphics.TextRenderingHint = System.Drawing.Text.TextRenderingHint.AntiAliasGridFit
- pnlGraphics.DrawString("?", drawFont, drawBrush, center.X, center.Y, drawFormat)
- pnlGraphics.Dispose()
- drawFont.Dispose()
- drawBrush.Dispose()
- drawFormat.Dispose()
- End Sub