vb.net-picturebox输出文本

最新推荐文章于 2023-08-08 15:07:21 发布

最新推荐文章于 2023-08-08 15:07:21 发布 · 912 阅读

.net&silverlight 专栏收录该内容

58 篇文章

订阅专栏

本文介绍如何利用VBScript在PictureBox控件中实现动态文本绘制，并通过错误处理确保程序稳定运行。

   Dim mypic As PictureBox = mypics(myii, myjj)
                Dim myimage As Image = New Bitmap(32, 32)
                Dim g As Graphics = Graphics.FromImage(myimage)
                Dim mysf = New StringFormat()
                mysf.Alignment = StringAlignment.Center
                mysf.LineAlignment = StringAlignment.Center
                Do While True
                    myi += 1
                    Try
                        g.DrawString(myii, New Font(fontlist(myi - 1), 20), New SolidBrush(Color.Red), New PointF(16, 16), mysf)
                        Exit Do
                    Catch ex As Exception
                        Continue Do
                    End Try
                Loop
                mypic.Image = myimage