vb.net-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

 

 

 

• 
• 大小: 19.2 KB

• 查看图片附件