vb点虐描边文字 ai文字描边

求大神指点vb点虐 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

新建窗体，把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最简单。第二种方法需要考虑文字大小、颜色、坐标定位等等。如果一行文字显示不下，不会自动换行，得自己切。

分享标题：vb点虐描边文字 ai文字描边
文章URL：http://scjbc.cn/article/ddpjhii.html