动态添加控件的操作问题求救~~~

2009-12-08 10:15:57 99 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

NHANES数据库的介绍及使用（一）一、数据库概况 NHANES（National Health and Nutrition Examination Survey）是一项旨在评估美国成人和儿童健康和营养状况的研究计划，计划始于20世纪60年代初期，是一项针对不同人群或健康主题的调查。 1999年该调查成为一项持续计划，涉及各种健康和营养测量，项目每年调查一个全国代表性的样本，约5000人，这些人群位于全国各县，每年对其中15个县进行访问。 NHANES访谈部分包括人口统计学、社会经济学、饮食和健康相关问题。体检部分包括生理测量、实验室检查等阅读详情

从数据库中读取信息，根据信息创建新的图片控件
用语句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 Sub







Private Sub Command1_Click()

'调用editPic修改一些图片的属性，例如修改 id 是5的图片

editPic(这里写什么啊？写picture_5是错误的)

End Sub





Private Sub editPic(传什么参数进来？)'修改图片的一些属性这个应该怎么写啊

例如修改图片的BorderStyle 属性

end sub