主题：[求助]Crtl+C后，如何图片格式粘贴到微信

如题，如何像excel一样，Crtl+C后，以图片格式粘贴到微信，以原格式快速呈现给对方？

 你通过何种方式操作？手机操作？你可以用分享的方式给对方发送图片或者连接

 

https://mp.weixin.qq.com/wiki?action=doc&id=mp1421141115&t=0.5317730098525313#fxjk

 

电脑上操作，狐表中直接对几行数据Crtl+C，然后通过桌面企业微信发送对方。

图片必须上传到微信接口，才能使用的。微信只支持通过mediaid发送图片消息

方法一：截屏，表格keydown事件。

 

If e.keycode = Keys.c AndAlso e.control = True Then
    Dim t As Table = CurrentTable
    Dim c1table As C1FlexGrid.C1FlexGrid = t.Grid
    Dim rc As C1FlexGrid.CellRange = c1table.Selection
    Dim cellrect As System.Drawing.Rectangle = c1table.RectangleToScreen(c1table.GetCellRect(rc.r1,rc.c1))
    Dim width As Double = 0
    Dim height As Double = 0
    For i As Integer = t.LeftCol To t.RightCol
        width += iif(t.grid.cols(i+1).Width=-1, t.DefaultColWidth,t.grid.cols(i+1).Width)
    Next
    For i As Integer = t.TopRow To t.BottomRow
        height += iif(t.grid.rows(i+1).height=-1, t.DefaultRowHeight, t.grid.rows(i+1).height)
    Next
    Dim myGraphics As Graphics = basemainform.CreateGraphics()
    Dim s As new Size(width, height) '截取的大小
   
    Dim bit As New Bitmap(s.Width, s.Height, myGraphics)
    Dim memoryGraphics As Graphics = Graphics.FromImage(bit)
    memoryGraphics.CopyFromScreen(cellrect.x, cellrect.y, 0, 0, s) '截取的开始位置,坐标(100, 200)
   
    'bit.save("d:\test.jpg")
    ClipBoard.SetImage(bit)
    bit.dispose
    e.cancel = True
End If

你想的跟我说的不大一样。咱们不用微信，比如粘到邮件里，或是QQ里给对方发过去，主要是保持格式不变的呈现，有啥办法没有？

 方法二：根据表格内容，画表格和画字符，最后生成图片

 

http://www.foxtable.com/webhelp/scr/1482.htm

 

方法一：截屏，表格keydown事件。

 

这种办法，能不能判断往狐表里面粘贴时，粘贴的不是图片，还是原文本？

 判断剪切板里面的数据是图片还是字符

 

If ClipBoard.GetImage Is Nothing Then
    If ClipBoard.GetText IsNot Nothing Then
        msgbox("文本")
    End If
Else
    msgbox("图片")
End If

方法一：截屏，表格keydown事件。

 

在实际使用中，发现这个只能截出来显示的，如果屏上只能显示10行，但选择了15行，这时，如何把这15数据截出来图片哪？