怎么在照片上加 拷贝_百度知道
怎么在照片上加 拷贝
提问者采纳
照片加拷贝复制原图层照片名加拷贝鼠标右键图片重命名
提问者评价
太给力了，你的回答完美解决了我的问题！
旅游,80后,狂吃不胖,微博控,怕不,善良,幸福ING,摄影,记忆力超常
其他类似问题
照片的相关知识
按默认排序
其他2条回答
装图片编辑器
你是iPhone么
如果是iphone。在照片里打开一张照片。长按照片。就出来拷贝了
如果我的答案帮到你希望采纳谢谢
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁请教：可不可以用clipboard复制图片框中选择出的部分粘贴到指定位置_vb吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：47,762贴子：
请教：可不可以用clipboard复制图片框中选择出的部分粘贴到指定位置收藏
请教：可不可以用clipboard复制图片框中选择出的部分粘贴到指定位置，而不要全部复制？
可以的话，讲讲你的思路
1.建立一个模块，复制以下代码：Option ExplicitPrivate Declare Function CopyImage Lib "user32" (ByVal handle As Long, ByVal imageType As Long, ByVal newWidth As Long, ByVal newHeight As Long, ByVal lFlags As Long) As LongPrivate Const IMAGE_BITMAP = 0Private Const LR_COPYRETURNORG = &H4Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As LongPrivate Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hDC As Long) As LongPrivate Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hDC As Long) As LongPrivate Declare Function DeleteDC Lib "gdi32" (ByVal hDC As Long) As LongPrivate Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hDC As Long, ByVal nWidth As Long, ByVal nHeight As Long) As LongPrivate Declare Function SelectObject Lib "gdi32" (ByVal hDC As Long, ByVal hObject As Long) As LongPrivate Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As LongPrivate Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As LongPrivate Const SRCCOPY = &HCC0020Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As LongPrivate Declare Function EmptyClipboard Lib "user32" () As LongPrivate Declare Function SetClipboardData Lib "user32" (ByVal wFormat As Long, ByVal hMem As Long) As LongPrivate Declare Function CloseClipboard Lib "user32" () As LongPrivate Const CF_BITMAP = 2Public Sub CopyPart(pic As StdPicture, X1 As Long, Y1 As Long, X2 As Long, Y2 As Long)&& Dim lTmp As Long&&&& Dim hDC As Long&& Dim hMemDC1 As Long&& Dim hBmp1 As Long&& Dim hBmpPrev1 As Long&& Dim hMemDC2 As Long&& Dim hBmp2 As Long&& Dim hBmpPrev2 As Long&&&& If X1 & X2 Then&&&& lTmp = X1&&&& X1 = X2&&&& X2 = lTmp&& End If&& If Y1 & Y2 Then&&&& lTmp = Y1&&&& Y1 = Y2&&&& Y2 = lTmp&& End If&&&& hDC = GetDC(0)&& hMemDC1 = CreateCompatibleDC(hDC)&& hBmp1 = CopyImage(pic.handle, IMAGE_BITMAP, 0, 0, LR_COPYRETURNORG)&& hBmpPrev1 = SelectObject(hMemDC1, hBmp1)&& hMemDC2 = CreateCompatibleDC(hDC)&& hBmp2 = CreateCompatibleBitmap(hDC, X2 - X1, Y2 - Y1)&& hBmpPrev2 = SelectObject(hMemDC2, hBmp2)&& BitBlt hMemDC2, 0, 0, X2 - X1, Y2 - Y1, hMemDC1, X1, Y1, SRCCOPY&& SelectObject hMemDC1, hBmpPrev1&& DeleteObject hBmp1&& DeleteDC hMemDC1&& SelectObject hMemDC2, hBmpPrev2&& DeleteDC hMemDC2&& ReleaseDC 0, hDC&&&& If OpenClipboard(0&) = 0 Then&&&& MsgBox "无法打开剪贴板"&& Else&&&& EmptyClipboard&&&& If SetClipboardData(CF_BITMAP, hBmp2) = 0 Then&&&&&& MsgBox "无法向剪贴板中放入图片"&&&& Else&&&&&& MsgBox "选中区域已放入剪贴板"&&&& End If&&&& CloseClipboard&& End IfEnd Sub
2. 在窗口中加入一个Picture控件，为它设置一幅图片，然后复制以下代码：Option ExplicitDim lStartX As LongDim lStartY As LongDim lEndX As LongDim lEndY As LongPrivate Sub Form_Load()&& With Picture1&&&& .ScaleMode = vbPixels&&&& .AutoRedraw = True&&&& .ForeColor = &HFFFF00&&&& .DrawStyle = vbDot&&&& .DrawMode = vbXorPen&& End WithEnd SubPrivate Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)&& If Button = 1 Then&&&& lStartX = X&&&& lStartY = Y&& ElseIf Button = 2 Then&&&& Picture1.Cls&& End IfEnd SubPrivate Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)&& If Button = 1 Then&&&& Picture1.Cls&&&& Picture1.Line (lStartX, lStartY)-(lStartX, Y)&&&& Picture1.Line (lStartX, lStartY)-(X, lStartY)&&&& Picture1.Line (lStartX, Y)-(X, Y)&&&& Picture1.Line (X, lStartY)-(X, Y)&& End IfEnd SubPrivate Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)&& If Button = 1 Then&&&& lEndX = X&&&& lEndY = Y&&&& If lEndX - lStartX && 0 And lEndY - lStartY && 0 Then&&&&&& CopyPart Picture1.Picture, lStartX, lStartY, lEndX, lEndY&&&& End If&& End IfEnd Sub
3. 粘贴代码比较简单，比如要粘贴到Image1中，可以用：Private Sub Image1_Click()&& If Clipboard.GetFormat(vbCFBitmap) Then&&&& Image1.Picture = Clipboard.GetData(vbCFBitmap)&& End IfEnd Sub 要将一幅图片的指定部分显示在另一控件中，建议尽量不要通过剪贴板，毕竟不知道里面有没有重要内容，而且技术上也可行。
十年奇迹，十年经典！奇迹荣耀归来，经典等你再续！
谢谢小fisher 受益匪浅
登录百度帐号我的游戏推荐游戏
后查看最近玩过的游戏
吧友热玩游戏排行 类型：FPS游戏136万人在玩 类型：角色扮演118万人在玩 类型：角色扮演122万人在玩 类型：角色扮演112万人在玩 类型：角色扮演108万人在玩 类型：角色扮演106万人在玩 类型：角色扮演105万人在玩 类型：角色扮演103万人在玩 类型：角色扮演98万人在玩 类型：角色扮演99万人在玩
使用签名档&&
为兴趣而生，贴吧更懂你。或比如现在我是淘宝上的卖家，我把别人的商品图片复制过来让后加上自己的水印（别人的图片原没有水印的）_百度知道
比如现在我是淘宝上的卖家，我把别人的商品图片复制过来让后加上自己的水印（别人的图片原没有水印的）
别能能举报我盗用图片举报功
提问者采纳
原片投诉盗图般淘宝受理并要求架修改
原图？要是说他的原图没有打LOGo，这又能证明吗？
原图就是原始照片，照相机照出来的图片，没有后期处理过的。
其他类似问题
按默认排序
其他2条回答
现卖家都做销商基本加水印盗品牌图片再加运气特别发现刚家要投诉认命般情况像我宝贝 纸尿裤图片销商弄自新编辑打水印提前都我沟通楼主妙吧
有些是官网图片，大家都用，什么盗不盗的
水印的相关知识
等待您来回答
您可能关注的推广回答者：
下载知道APP
随时随地咨询
出门在外也不愁