从数据库中读取信息,根据信息创建新的图片控件
用语句Controls.Add("VB.PictureBox", "picture_" & id, Form1)创建的
现在我想操作这些动态生产的图片,却操作部了,帮忙看看,谢谢!!!
Private Sub Form_Load(id)
数据库代码略。。
'这里是从数据里取数据,id,然后根据id建立新的图片
Set rs = conn.Execute(mysqlstr) '建立记录集
Do While Not rs.EOF
id = rs.Fields(0) '获取id
Call AddOrgPic(id) '添加图片 .....................
rs.MoveNext
Loop
end sub
Private Sub AddPic(id)
'根据搜到的信息,动态增加图片控件 Set NewPicture = Controls.Add("VB.PictureBox", "picture_" & id, Form1) '增加新的图片
'NewPicture.Move zb_heng, zb_shu '确定新增按钮cmdNew的位置
NewPicture.left = zb_left '坐标
NewPicture.top = zb_top '坐标
NewPicture.BorderStyle = 0 '样式
NewPicture.Width = 440 '图片宽度
NewPicture.Height = 440 '图片高度 NewPicture.Visible = True '显示该按钮
End SubPrivate Sub Command1_Click()
'调用editPic修改一些图片的属性,例如修改 id 是5的图片
editPic(这里写什么啊?写picture_5是错误的)
End Sub
Private Sub editPic(传什么参数进来?)'修改图片的一些属性这个应该怎么写啊
例如修改图片的BorderStyle 属性
end sub或者有什么别的好方法?不用我这种方法?
Dim zb_left As IntegerPrivate Sub Form_Load()
Dim i As Integer
i = 1
Do While i <= 5
id = i
Call AddPic(id) '添加图片 .....................
i = i + 1
zb_left = zb_left + 480
Loop
End Sub
Private Sub AddPic(id)
'根据搜到的信息,动态增加图片控件 Set newpicture = Me.Controls.Add("VB.PictureBox", "picture_" & id, Form1) '增加新的图片
'NewPicture.Move zb_heng, zb_shu '确定新增按钮cmdNew的位置
newpicture.Left = zb_left '坐标
newpicture.Top = zb_top '坐标
newpicture.BorderStyle = 0 '样式
newpicture.Width = 440 '图片宽度
newpicture.Height = 440 '图片高度
newpicture.Picture = LoadPicture("c:\1.gif")
newpicture.Visible = True '显示该按钮
End SubPrivate Sub Command1_Click()
'调用editPic修改一些图片的属性,例如修改 id 是5的图片
editPic Me("picture_5") '(这里写什么啊?写picture_5是错误的)
End SubPrivate Sub editPic(obj As Object)
'例如修改图片的BorderStyle 属性
obj.BorderStyle = 1
End Sub