锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net绘图添加文字 vb画图代码

IT技术Botvs

VB中怎样在picturebox 中输入文字简单的实现方法：在PictureBox中加入一个Label控件，利用这个Label显示文字 。将Label背景设置为透明，所显示的文字不会影响画面 。
具体实现方法如下：
（1）在窗体Form1上布置一个PictureBox，将一个Label拖入到PictureBox内 。再在窗体上布置一个TextBox
在PictureBox中载入一个图片；将label1的BackStyle属性设置为： 0 -Transparent
（2）窗体代码
Option Explicit
Private Sub Form_Load()
Label1.Caption = ""
【vb.net绘图添加文字 vb画图代码】Text1.Text = ""
End Sub
Private Sub Text1_Change()
Label1.Caption = Text1.Text
End Sub
（3）运行效果
求大神指点vb.net PictureBox1 上面怎么显示文字呢? 要最小化在还原也不会变的那种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
求大神指点 vb.net 怎么绘制一张有文字的图呢?并用 PictureBox1 显示出来picture本身不是文本控件，文本是“画”上去的 ， 换行需要用代码测量每个字在指定字体下的宽度，判断在当前picture的宽度之下 ， 一行能容纳多少文字，剩下的文字就在下一行绘制 。
求大神指点.vb.net 的PictureBox1的抬头处怎么输入文字 和改变一部分颜色,下面有两张图Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim font As New Font("宋体", 16)
Dim g = PictureBox1.CreateGraphics
Dim str As String = "a001"
Dim x As Integer = (PictureBox1.Size.Width - g.MeasureString(str, font).Width) / 2 '文字居中
Dim y As Integer = 0
Dim nBrush As New SolidBrush(Color.Turquoise)
g.FillRectangle(nBrush, 0, 0, PictureBox1.Size.Width, g.MeasureString(str, font).Height)
nBrush = New SolidBrush(Color.Red)
g.DrawString(str, font, nBrush, x, y)
g = Nothing
End Sub
vb.net怎么在窗体上绘制文字？vb.net绘图添加文字你可以在窗体上放一个lable控件vb.net绘图添加文字，取名叫lable1vb.net绘图添加文字，
那么实现方式就是：
private
sub
form_load()
lable1.text="今天天气很好";
end
sub
vb.net绘图添加文字你可以试试
vb.net绘图添加文字的介绍就聊到这里吧 ， 感谢你花时间阅读本站内容 ， 更多关于vb画图代码、vb.net绘图添加文字的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：mysql表id从1开始，mysql怎么让id从1开始

    下一篇：买电脑为什么不买残血版，为啥买电脑