重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
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
新建窗体,把maximizebox属性和MinimizeBox 属性设为false,再添加一个Label1放置文字一个Picturebox1放图片。
在窗体的load事件中:
Private Sub Form1_Load() Handles Me.Load
Text="我的VB.NET程序"
PuctureBox1.Image=Image.FromFile(图片路径如e:\pic.jpg)
End Sub
窗体Click事件:
Private Sub Form1_Click() Handles Me.Click
Text="单击窗体"
Label1.Text="欢迎使用VB.NET"
End Sub
窗体DoubleClick事件
Private Sub Form1_DoubleClick() Handles Me.DoubleClick
Text="双击窗体"
Label1.Text = "谢谢使用!"
End Sub
两种方法:
图片框上盖个Label 向其输入内容。
载入图片,通过内存直接枯信 DrawImage绘制个新图,然后在图上盖文字。最后赋值给图世缺片框。
VB6的print 实质是向图片框打印文字,不管有无图都能在上面Print. 考虑速度和实现难度问题,如果纯粹显示,搜败辩最好直接盖个Label最简单。第二种方法 需要考虑文字大小、颜色、坐标定位等等。如果一行文字显示不下,不会自动换行,得自己切。