- Private Sub Form_Load()
- Me.Image36.Picture = CurrentProject.Path & "/" & "img" & "/" & "bj.bmp" '图片控件
- Me.Form.Picture = CurrentProject.Path & "/" & "img" & "/" & "bj1.bmp" '窗体背景
- End Sub
用代码动态链接图片源
最新推荐文章于 2026-06-25 14:11:23 发布
416
2171
1632
971

被折叠的 条评论
为什么被折叠?
