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

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

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

方法一：截屏，表格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

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

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

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

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

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+t.HeaderRows).height=-1, t.DefaultRowHeight, t.grid.rows(i+t.HeaderRows).height)
Next

Dim doc As New PrintDoc '定义一个新报表
Doc.PageSetting.LeftMargin = 1 '设置左边距
Doc.PageSetting.RightMargin = 0 '设置右边距
Doc.PageSetting.TopMargin = 1 '设置上边距
Doc.PageSetting.BottomMargin = 0 '设置下边距
doc.PageSetting.Width = width / 96 * 25.4 + 10
doc.PageSetting.Height = height / 96 * 25.4 + 5
Dim rt As New prt.RenderTable '定义一个新表格
Dim tb As Table = CurrentTable
rt.Width = "Auto" '表格宽度为自动,也就是等于各列设置宽度之和
rt.SplitHorzBehavior = prt.SplitBehaviorEnum.SplitIfNeeded '表格宽度超出页宽时,可以水平换页
rt.Style.Font = tb.Font
For c As Integer = tb.LeftCol To tb.RightCol '逐列设置和填入内容
    rt.Cols(c).Width = tb.Cols(c).PrintWidth '列宽等于实际列宽
    If tb.Cols(c).IsNumeric OrElse tb.Cols(c).IsDate Then '如果是数值或日期列
        rt.Cols(c).Style.TextAlignHorz = prt.AlignHorzEnum.Right '数据水平靠右
    End If
    Dim i As Integer = 0
    For r As Integer = tb.TopRow To tb.BottomRow '开始填入该列内容
        rt.Cells(i, c).Text = iif(tb.Rows(r).isnull(tb.cols(c).name), "", tb.Rows(r)(c))
        rt.Rows(i).Height = new C1.C1Preview.Unit(cstr(iif(t.grid.rows(r+t.HeaderRows).height=-1, t.DefaultRowHeight, t.grid.rows(r+t.HeaderRows).height)/96*25.4-0.5))
        i += 1
    Next
Next
rt.Style.Gridlines.All = New prt.Linedef(Color.Gray) '灰色网格线
rt.CellStyle.Spacing.All = 0.5 '单元格内距设为0.5毫米
rt.Style.TextAlignVert = prt.AlignVertEnum.Center
doc.Body.Children.Add(rt) '将表格加入到报表
doc.Preview()
'doc.saveimage(ProjectPath & "test/temp.jpg")
'Dim img = getimage(ProjectPath & "test/temp_page1.jpg")

'ClipBoard.SetImage(img)

改一下

For i As Integer = t.TopRow To t.BottomRow
    height += iif(t.grid.rows(i+t.HeaderRows).height=-1, t.DefaultRowHeight, t.grid.rows(i+t.HeaderRows).height)
Next

改代码

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+t.HeaderRows).height=-1, t.DefaultRowHeight, t.grid.rows(i+t.HeaderRows).height)
Next

Dim doc As New PrintDoc '定义一个新报表
Doc.PageSetting.LeftMargin = 1 '设置左边距
Doc.PageSetting.RightMargin = 0 '设置右边距
Doc.PageSetting.TopMargin = 1 '设置上边距
Doc.PageSetting.BottomMargin = 0 '设置下边距
doc.PageSetting.Width = width / 96 * 25.4 + 10
doc.PageSetting.Height = height / 96 * 25.4 + 5
Dim rt As New prt.RenderTable '定义一个新表格
Dim tb As Table = CurrentTable
rt.Width = "Auto" '表格宽度为自动,也就是等于各列设置宽度之和
rt.SplitHorzBehavior = prt.SplitBehaviorEnum.SplitIfNeeded '表格宽度超出页宽时,可以水平换页
rt.Style.Font = tb.Font
For c As Integer = tb.LeftCol To tb.RightCol '逐列设置和填入内容
    rt.Cols(c).Width = tb.Cols(c).PrintWidth '列宽等于实际列宽
    If tb.Cols(c).IsNumeric OrElse tb.Cols(c).IsDate Then '如果是数值或日期列
        rt.Cols(c).Style.TextAlignHorz = prt.AlignHorzEnum.Right '数据水平靠右
    End If
    Dim i As Integer = 0
    For r As Integer = tb.TopRow To tb.BottomRow '开始填入该列内容
        rt.Cells(i, c).Text = iif(tb.Rows(r).isnull(tb.cols(c).name), "", tb.Rows(r)(c))
        rt.Rows(i).Height = new C1.C1Preview.Unit(cstr(iif(t.grid.rows(r+t.HeaderRows).height=-1, t.DefaultRowHeight, t.grid.rows(r+t.HeaderRows).height)/96*25.4-0.5))
        i += 1
    Next
Next
rt.Style.Gridlines.All = New prt.Linedef(Color.Gray) '灰色网格线
rt.CellStyle.Spacing.All = 0.5 '单元格内距设为0.5毫米
rt.Style.TextAlignVert = prt.AlignVertEnum.Center
doc.Body.Children.Add(rt) '将表格加入到报表
doc.Preview()
'doc.saveimage(ProjectPath & "test/temp.jpg")
'Dim img = getimage(ProjectPath & "test/temp_page1.jpg")

'ClipBoard.SetImage(img)