求大神指点vb.net PictureBox1 上面怎么显示文字呢? 要最小化在还原也不会变的那种
求大神指点vb.netPictureBox1上面怎么显示文字呢?要最小化在还原也不会变的那种就像这样.改变PictureBox1的背景然后弄上文字.最小化后在还原也不会变...
求大神指点vb.net PictureBox1 上面怎么显示文字呢? 要最小化在还原也不会变的那种
就像这样. 改变 PictureBox1 的背景 然后弄上文字. 最小化后在还原 也不会变化的那种.
求大神指点.......... 展开
就像这样. 改变 PictureBox1 的背景 然后弄上文字. 最小化后在还原 也不会变化的那种.
求大神指点.......... 展开
1个回答
展开全部
VB.NET在PicTureBox控件里显示文本,似乎并不简单,试试这段代码,自己琢磨一下:
Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
Dim format1 As New StringFormat(StringFormatFlags.NoClip) '封装文本布局信息(如对齐、文字方向和 Tab 停靠位)
format1.LineAlignment = StringAlignment.Center '垂直居中
format1.Alignment = StringAlignment.Center '水平居中
Dim MyFont As New Font("宋体", 12, FontStyle.Regular)
Dim displayRectangle As New Rectangle() '存储一组整数,共四个,表示一个矩形的位置和大小
displayRectangle = New Rectangle(New Point(20, 20), New Size(200, 100))
e.Graphics.DrawString("欢迎使用VB Net", MyFont, Brushes.Black, RectangleF.op_Implicit(displayRectangle), format1) '显示单元格里的文本
End Sub
Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
Dim format1 As New StringFormat(StringFormatFlags.NoClip) '封装文本布局信息(如对齐、文字方向和 Tab 停靠位)
format1.LineAlignment = StringAlignment.Center '垂直居中
format1.Alignment = StringAlignment.Center '水平居中
Dim MyFont As New Font("宋体", 12, FontStyle.Regular)
Dim displayRectangle As New Rectangle() '存储一组整数,共四个,表示一个矩形的位置和大小
displayRectangle = New Rectangle(New Point(20, 20), New Size(200, 100))
e.Graphics.DrawString("欢迎使用VB Net", MyFont, Brushes.Black, RectangleF.op_Implicit(displayRectangle), format1) '显示单元格里的文本
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询