Dim pic As WinForm.PictureViewer
pic = Forms("主窗_菜单").CreateControl("图片", ControlTypeEnum.PictureViewer)
pic.Width = Forms("主窗_菜单").Width
pic.CommandVisible = False '控制命令是否显示
pic.OpenEnabled = True '是否允许用户单击打开命令调用第三方程序来打开图片
pic.AutoSize = False '是否自动缩放图片
pic.BindingField = "产品库_活动家具.图片" '绑定表列 pic.Height = 400
pic.Left = 5
pic.Top = 5
Forms("主窗_菜单").Controls("菜单页面").Tabpages("菜单").AddControl(pic)
此主题相关图片如下:企业微信截图_20220605221536.png
[此贴子已经被作者于2022/6/5 22:16:10编辑过]