13518219792
有一个方法就是在picture上打印，代码如下：
10年积累的网站设计、网站制作经验，可以快速应对客户对网站的新想法和需求。提供各种问题对应的解决方案。让选择我们的客户得到更好、更有力的网络服务。我虽然不认识你，你也不认识我。但先网站设计后付款的网站建设流程，更有新沂免费网站建设让你可以放心的选择与我们合作。
Private
Sub
Command1_Click()
With
Picture1
.Cls
.CurrentX
=
100
.CurrentY
=
100
End
With
Picture1.Print
"OK"
End
Sub
但缺点挺多的，比如窗体的刷新就很麻烦。
还有就是用一个label控件，把label放到picture里，把backstyle属性改成0就可以让label透明了！
Private Sub Command1_Click()
Picture1.AutoRedraw = True
Picture1.AutoSize = True
Picture1.Picture = LoadPicture("f:\1.jpg") '调入图片，自己改
Picture1.Line (90, 90)-(990, 300), vbRed, BF '文字底色块（红）
Picture1.CurrentX = 105 '文字位置
Picture1.CurrentY = 105
Picture1.ForeColor = vbWhite '文字颜色（白）
Picture1.FontSize = 9 '字号
Picture1.Print "hi，你好！" '添加文字
SavePicture Picture1.Image, "f:\2.bmp" '保存图片，只能存为bmp
End Sub
第一个问题 qq聊天室 必须能 用vb都可以做
第二个问题 vb.net插入数学公式 可以把这些公式封装到一个类中，调用就是了
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
首先说明，你这样是写TXT，不是DOC，虽然Word可以打开，但根本就不是Word文件。当然不能存储图片了。请参考我以下的代码。建一个Command1。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Dim
ap
As
Word.Application,
doc
As
Document
Private
Sub
Form_Load()
'这个过程不必做修改，是建立一个新的Word文档
Set
ap
=
CreateObject("word.application")
ap.Visible
=
True
Set
doc
=
ap.Documents.Add
End
Sub
Private
Sub
Command1_Click()
doc.Content.InsertAfter
Text:="请输入你要输入的内容"
'插入文字，请使用这种格式
doc.Shapes.AddPicture
FileName:="D:\a.jpg"
'插入图片，请使用这种格式，路径自己写
End
Sub
其他问题再找我。
1）PictureBox中没有Print方法，如果你要存储PictureBox中的图片到某个地方，可以这样做： pictureBox1.Image.Save("C:\\image.jpg", System.Drawing.Imaging.ImageFormat.Jpeg); 2）给图片加文字： Image img = Image.FromFile("c:\\Hydrangeas.jpg"); //原来的图片 Graphics g = Graphics.FromImage(img); //读入到临时画图区域 //加上说明性文字 g.DrawString("这是介绍图片的文字", new Font("黑体", 20.0f), Brushes.LightCyan, new PointF(img.Height / 2, img.Width / 2)); //保存 g.Save(); //输出 img.Save("C:\\try.jpg", System.Drawing.Imaging.ImageFormat.Jpeg);
