十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
Dim bit As Bitmap=New Bitmap(textBox1.ClientRectangle.Width, _
在永胜等地区,都构建了全面的区域性战略布局,加强发展的系统性、市场前瞻性、产品创新能力,以专注、极致的服务理念,为客户提供成都网站设计、做网站 网站设计制作按需设计,公司网站建设,企业网站建设,成都品牌网站建设,营销型网站建设,外贸营销网站建设,永胜网站建设费用合理。
textBox1.ClientRectangle.Height, _
System.Drawing.Imaging.PixelFormat.Format24bppRgb)
textBox1.DrawToBitmap(bit,textBox1.ClientRectangle)
pictureBox1.Image=bit
bit.Save("")'保存文件的路径
这是保存文本框内容的方法,保存余下内容的方法我还要点事件弄
第一个问题 qq聊天室 必须能 用vb都可以做
第二个问题 vb.net插入数学公式 可以把这些公式封装到一个类中,调用就是了
picture本身不是文本控件,文本是“画”上去的,换行需要用代码测量每个字在指定字体下的宽度,判断在当前picture的宽度之下,一行能容纳多少文字,剩下的文字就在下一行绘制。
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
两种方法:
图片框上盖个Label 向其输入内容。
载入图片,通过内存直接 DrawImage绘制个新图,然后在图上盖文字。最后赋值给图片框。
VB6的print 实质是向图片框打印文字,不管有无图都能在上面Print. 考虑速度和实现难度问题,如果纯粹显示,最好直接盖个Label最简单。第二种方法 需要考虑文字大小、颜色、坐标定位等等。如果一行文字显示不下,不会自动换行,得自己切。