摘要: Public Function GetImageFromFile()Function GetImageFromFile(ByVal pstrFileName As String) As Boolean Dim strExt As String = "" '扩展文件名 Dim blnFlag As Boolean = False If ((pst... 阅读全文
posted @ 2008-06-14 09:27 追风 阅读(2854) 评论(0) 推荐(0) 编辑
摘要: '从 Byte() 中读取图像 Public Function GetImageFromStream()Function GetImageFromStream(ByVal ImageStream As Byte()) As Image Me.mobjImage = Nothing If (ImageStream Is Nothing) Then R... 阅读全文
posted @ 2008-06-14 09:26 追风 阅读(585) 评论(0) 推荐(0) 编辑
摘要: 在给网络打印机添加自定义纸张时,必须是 administrator 用户登录才行,不然则需要把程序放到 网络计算机上运行一次 'Imports System.IO 'Imports System.Xml 'Imports System.Drawing Imports System.ComponentModel 'Imports System.Drawing.Design Imports Syste... 阅读全文
posted @ 2008-06-14 09:23 追风 阅读(3655) 评论(3) 推荐(0) 编辑
摘要: 详细设计规格书: /Files/betterfar/gsdggs.doc 阅读全文
posted @ 2008-06-11 18:25 追风 阅读(554) 评论(0) 推荐(0) 编辑