[求助]怎样用代码实现让一个Picturebox 里再装一个picture - VB6论坛

r316999443

来　自：星城长沙
等　级：黑侠
威　望：1
帖　子：597
专家分：501
注　册：2006-11-7
结帖率：80%

楼主

问题点数：0 回复次数：7

[求助]怎样用代码实现让一个Picturebox 里再装一个picture

怎样用代码实现让一个Picturebox作为里面再装一个picture

搜索更多相关主题的帖子: picture　Picturebox　代码　

2007-05-10 12:24

r316999443

来　自：星城长沙
等　级：黑侠
威　望：1
帖　子：597
专家分：501
注　册：2006-11-7

第 3 楼

得分:0

不行,这样做不行

2007-05-12 21:38

hyhhd

等　级：论坛游民
威　望：1
帖　子：502
专家分：44
注　册：2006-5-12

第 5 楼

得分:0

试试这个：
Private Sub Command1_Click()
Me.Controls.Add "vb.PictureBox", "Pic2", Picture1

With Me!Pic2
.Left = 0
.Top = 0
.Width = Picture1.Width
.Height = Picture1.Height
.Picture = LoadPicture("C:\Documents and Settings\hyhwrfhd\My Documents\My Pictures\16.jpg")
.Visible = True

End With

End Sub

2007-05-13 13:41

kx25

等　级：新手上路
帖　子：31
专家分：0
注　册：2004-11-22

第 7 楼

得分:0

路过，学习了，hyhhd 真行啊

菜鸟在渐渐变老，终有一天会成为老鸟，并为自由翱翔作最后的准备！

2007-05-13 17:47