乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 39|回复: 1

[编程交流] VB。Net预览图形

[复制链接]

16

主题

35

帖子

30

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
91
发表于 2022-7-6 21:43:25 | 显示全部楼层 |阅读模式
全部的
 
我已经创建了一个应用程序,可以执行一些不同的任务。其中之一是将打印内容发送到打印机,或创建PDF。这就是为什么我会挣扎。有没有办法显示图形文件的预览。我没有一个确切的方式,它需要做的,只是需要显示一个预览的绘图。  
 
任何入门代码都很好。我四处搜索,试图找到PlotFactory的一些示例。创建预览引擎,没有任何运气。
 
提前感谢您的帮助。
 

 
 
回复

使用道具 举报

1

主题

3

帖子

2

银币

初来乍到

Rank: 1

铜币
5
发表于 2022-7-6 22:45:36 | 显示全部楼层

 
是否要使用浏览器中使用的图形预览图像?
 
如果是这样,那么像这样的事情可能会奏效,每种文件类型背后的IDE都是相同的,因此现在每个CAD文件都有一个嵌入式位图,explorer可以查看。
  1. Public Sub PreviewBitmap_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PreviewBitmap.Click
  2.         DrawBitmapPreview(aFile)
  3.     End Sub
  4.     Private Sub DrawBitmapPreview(ByVal file As IEdmFile5)
  5.         Try
  6.             Dim varEnum As IEdmEnumeratorVariable5
  7.             varEnum = file.GetEnumeratorVariable
  8.             Dim preview As IEdmBitmap5
  9.             preview = varEnum.GetThumbnail
  10.             If preview Is Nothing Then Exit Sub
  11.             preview.Draw(Me.Handle.ToInt32(), 45, 220, 0, 0)
  12.         Catch ex As System.Runtime.InteropServices.COMException
  13.             MessageBox.Show("HRESULT = 0x" + ex.ErrorCode.ToString("X") + " " + ex.Message)
  14.         Catch ex As Exception
  15.             MessageBox.Show(ex.Message)
  16.         End Try
  17.     End Sub
复制自:http://help.solidworks.com/2017/english/api/epdmapi/get_bitmap_preview_of_file_example_vbnet.htm
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-4 16:41 , Processed in 0.394132 second(s), 56 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表