就是不行,真气人

whf2003 2004-08-30 10:07:15
Dim PicCounts As Integer
Dim MYgroup As New GroupBox


' MYgroup.BackColor = Color.White


' 放在初始化处
For PicCounts = 0 To 5
MYMinPIc(PicCounts) = New PictureBox
MYMinPIc(PicCounts).Left = 500
MYMinPIc(PicCounts).Top = 132 * PicCounts
MYMinPIc(PicCounts).BackColor = Color.White
MYMinPIc(PicCounts).Size = New Size(176, 132)
MYMinPIc(PicCounts).BorderStyle = BorderStyle.FixedSingle
MYMinPIc(PicCounts).SizeMode = PictureBoxSizeMode.StretchImage
If PicCounts <> 0 Then
MYMinPIc(PicCounts).Visible = False
End If

MYgroup.Controls.Add(MYMinPIc(PicCounts))


AddHandler CType(MYMinPIc(PicCounts), PictureBox).Click, AddressOf AddPIc
Next
MYgroup.Location = New Point(500, 0)
MYgroup.Size = New Size(176, 782)

Me.Controls.Add(MYgroup)
只看见MYgroup添加到窗体,picturebox就是看不到添加到了MYgroup中怎么回事呀
...全文
125 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
kissnono 2004-08-30
  • 打赏
  • 举报
回复
groupbox和picturebox的坐标取的有问题.
你的picturebox的x坐标在groupbox之外,所以看不到picturebox.
ltzperson 2004-08-30
  • 打赏
  • 举报
回复
自己好好看看
cuiwb770111 2004-08-30
  • 打赏
  • 举报
回复
你先在窗体上加载Group控件,然后再在Group控件上加载Picture控件试一下
AntingZ 2004-08-30
  • 打赏
  • 举报
回复
同意楼上的,你这样

MYMinPIc(PicCounts).Left = 500



MYMinPIc(PicCounts).Left = 0

16,554

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧