关于点击pictureBox时_vue

当前位置：网站建设 > 技术支持

资料来源：网络整理时间：2023/3/4 6:42:48 共计：3616 浏览

关于点击pictureBox时？

'加载图片后,pictureBox控件与文件路径就没有关联了,只能在加载图片时保存路径,

'自定义函数同时加载图片和保存路径,假设这些pictureBox不是控件数组

Dim Names As New Collection '定义一个集合

Sub myLoadPicture(pic As PictureBox, FileName As String)

pic.Picture = LoadPicture(FileName) '加载图片

On Error Resume Next

Names.Remove pic.Name

Names.Add FileName, pic.Name '保存路径

End Sub

Sub SwapPicture(pic1 As PictureBox, pic2 As PictureBox)

Set SP = pic1.Picture

pic1.Picture = pic2.Picture

pic2.Picture = SP '交换PictureBox的图片

On Error Resume Next

a = Names(pic1.Name)

b = Names(pic2.Name)

Names.Remove pic1.Name

Names.Remove pic2.Name

Names.Add b, pic1.Name

Names.Add a, pic2.Name '交换图片路径

End Sub

'调取图片和获取路径

myLoadPicture Picture1, "01.bmp" '在Picture1中显示图片"01.bmp"

Names(Picture1.Name) '获取Picture1中的图片路径

SwapPicture Picture1, Picture2 '交换Picture1和Picture2的图片

版权说明：
本网站凡注明“广州京杭原创”的皆为本站原创文章，如需转载请注明出处！
本网转载皆注明出处，遵循行业规范，如发现作品内容版权或其它问题的，请与我们联系处理！
欢迎扫描右侧微信二维码与我们联系。