Image控件能够读取剪切板图片

sj15627581616

1. Private Sub UserForm_Initialize()
   
2.     Image1.Left = 5
   
3.     Image1.Top = 9
   
4.     Image1.Picture = LoadPicture(Environ("USERPROFILE") & "\Desktop\11.bmp")
   
5.     Image1.PictureSizeMode = fmPictureSizeModeStretch '等比压缩
   
6.     Image1.BorderStyle = fmBorderStyleNone '无边框
   
7. End Sub
   

复制代码

Image1控件除了插入图片外，有办法直接读取剪切板的图片导入吗？目前是将图片保存到本地 然后插入，图片来自剪切板保存

perfect131

Office 剪切板

sj15627581616

perfect131 发表于 2024-1-14 18:07
Office 剪切板

和保存图片代码就一行 SET 对象的差别，不过在测试中，受窗体某些控件参数影响会出现崩溃的情况，具体是哪方面没有那个精力去测试了，直接用代码操作控件各参数不会发生崩溃现象，这里算是给广大坛友一个提醒，出现崩溃情况，直接代码撸控件参数，尽量不要手动设置参数，不然崩得可能会有点莫名其妙

大灰狼1976

我和perfect老兄对这个还是有点研究的，看到他回复后我就不回了，但真有人认为这个是简单的事情啊，网上查到的都是半吊子，有些直接从外文网站转载的，功能也有问题，perfect兄能不卖关子直接给出成品，我很敬佩。

opel-wong

perfect131 发表于 2024-1-14 18:07
Office 剪切板

测试可行！API用的很娴熟！
学习了！

sj15627581616

aaaaaaa1111 发表于 2024-1-23 10:20
别人都菜，你很厉害喽，那你为什么还在发求助？你这不是自相矛盾么，也就是个半瓶晃荡，像你这种看到别人帖 ...

你有认真看我的回复？我特意回复就是在我测试中，有出现崩溃的情况，提醒坛友出现此类异常导致的因素，至少我已经说明了，我已经有保存图到本地然后再导入，在我提出这个求助帖之前，我自己问题本身就算解决了，只是想到可有优化空间，想不出来，所以才有这个求助贴，听你这么说哈，你应该不会有任何问题向任何求助，毕竟，你这样高度的人，求助不符合你的身份

sj15627581616

aaaaaaa1111 发表于 2024-1-23 10:20
别人都菜，你很厉害喽，那你为什么还在发求助？你这不是自相矛盾么，也就是个半瓶晃荡，像你这种看到别人帖 ...

突然有个人，出来喷我，我在想，你是不是前两天求助word插入图片，对坛友各种喷那个，貌似帖子都找不到了，难道是因为你喷人太狠，被版主封号删帖了？一级一回复，精准回复喷人，其他几个，你多半也去喷了

sj15627581616

大灰狼1976 发表于 2024-1-23 10:26
我和perfect老兄对这个还是有点研究的，看到他回复后我就不回了，但真有人认为这个是简单的事情啊，网上查 ...

perfect兄专门玩VBA的，知识面很广，尤其是用VBA玩网抓，在认识的人里面是数一数二的

大灰狼1976

sj15627581616 发表于 2024-1-23 12:43
perfect兄专门玩VBA的，知识面很广，尤其是用VBA玩网抓，在认识的人里面是数一数二的

其实我回贴的目的不是为了加深对perfect兄的了解，而是也感觉你回复的态度有点问题，或者说有点违和感，仅此而已。