189 8069 5689
MouseEnter 鼠标进入
成都创新互联专注于企业成都全网营销推广、网站重做改版、南江网站定制设计、自适应品牌网站建设、HTML5、成都做商城网站、集团公司官网建设、成都外贸网站建设公司、高端网站制作、响应式网页设计等建站业务，价格优惠性价比高，为南江等各大城市提供网站开发制作服务。
MouseLeave 鼠标离开
PictureBox1.ImageLocation =“路径"
窗体上放一个PictureBox，两个CommandButton，一个FileListBox
Private Sub Command1_Click()
If File1.ListIndex = 0 Then
ShowPic File1.ListCount - 1
Else
ShowPic File1.ListIndex - 1
End If
End Sub
Private Sub Command2_Click()
If File1.ListIndex = File1.ListCount - 1 Then
ShowPic 0
Else
ShowPic File1.ListIndex + 1
End If
End Sub
Private Sub Form_Load()
File1.Visible = False
File1.Pattern = "*.jpg;*.gif" '可以浏览的文件类型，使用分号隔开
File1.Path = App.Path '改成你需要浏览的目录，比如"C:\Pic"
If File1.ListCount 1 Then '目录中图片在两张以上可以浏览
ShowPic 0
Exit Sub
ElseIf File1.ListCount = 1 Then '目录中只有一张图片时只显示这一张
ShowPic 0
End If
Command1.Enabled = False
Command2.Enabled = False
End Sub
Private Sub ShowPic(Index As Long)
File1.ListIndex = Index
Picture1.Picture = LoadPicture(File1.Path "\" File1.List(Index))
End Sub
如果对您有帮助，请记得采纳为满意答案，谢谢！祝您生活愉快！
vaela
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
PictureBox1.Image = Image.FromFile("D:\python\001.jpg")
PictureBox2.Image = Image.FromFile("D:\python\001.png")
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
其他问题再找我。
picture本身不是文本控件，文本是“画”上去的，换行需要用代码测量每个字在指定字体下的宽度，判断在当前picture的宽度之下，一行能容纳多少文字，剩下的文字就在下一行绘制。
两种方法：
图片框上盖个Label 向其输入内容。
载入图片，通过内存直接 DrawImage绘制个新图，然后在图上盖文字。最后赋值给图片框。
VB6的print 实质是向图片框打印文字，不管有无图都能在上面Print. 考虑速度和实现难度问题，如果纯粹显示，最好直接盖个Label最简单。第二种方法 需要考虑文字大小、颜色、坐标定位等等。如果一行文字显示不下，不会自动换行，得自己切。