如何获取默认打印机的状态,包括缺纸.卡纸.无连接等状态,还有将某文件打印后,如何得知打印成功? Option ExplicitDeclare Function MapPhysToLin Lib "WinIo.dll" (ByVal PhysAddr As Long, ByVal PhysSize As Long, ByRef PhysMemHandle) As LongDeclare Function UnmapPhysicalMemory Lib "WinIo.dll&qu

通常web技术无法设置本地计算机的默认打印机,包括用代码设置纸张大小,如果业务系统中真遇到这种需求,只能通过其它辅助手段(比如ActiveX)实现.下面这段代码,出自网上被广泛使用的"泥人张打印API"(抱歉未找到原始出处),已经用C#封装了很多关于底层打印的API方法 using System; using System.Collections.Generic; using System.Text; using System.Runtime.InteropServices; usin

如何制作vb安装程序,是在学习Vb6.0过程中比较常见的一个入门问题. 在此笔者介绍一个最简单的安装方法,就是用VB自带的打包程序进行打包,虽然比较普通,不过内部却有不少窍门,相信这一点知道的人可能不多吧!!(请大家一定看到最后,好戏在后头)好了,不废话了,开始进入正题. ①运行打包向导,如下图所示: ②点击“浏览”按钮,选择要打包的工程.然后单击“打包”按钮(在此只介绍打包,其他的功能不做介绍).进入下一个页面,如下图所示: ③选择要打包的类型,普通的EXE工程选择“标准安装包”就可以了,控件

VB6.0毕竟是很古老的开发工具了,其对所使用的第三方组件依赖性比较强,例如在打开从其它电脑上拿来的VB6.0的软件(系统)的工程文件(源代码)时,经常会遇到"不能加载MSCOMCTL.OCX“的错误提示,如图所示: 产生这种问题的可能性很多,例如目标电脑上MSCOMCTL.OCX组件的版本与开发该软件的电脑上的该组件版本不一样(可能性很大):目标电脑上没有该组件:该组件文件已经被破坏或者是不可读等.下面针对第一种可能性给出解决方案(如果是后面的几种可能性,则还需要自己到网上下载或者是到原电脑上

本文主要介绍如何获取以及设置系统的默认打印机. 1.获取系统中的所有打印机 获取系统中的所有打印机可以使用EnumPrinters()函数,该函数可以枚举全部的本地.网络打印机信息.其函数原型为: BOOL WINAPI EnumPrinters( DWORD Flags, LPSTR Name, DWORD Level, LPBYTE pPrinterEnum, DWORD cbBuf, LPDWORD pcbNeeded, LPDWORD pcReturned ); 其中,参数Flags可以

获取默认打印机: SELECT * FROM Win32_Printer WHERE Default=True 常用的几个WMI: 主板:Win32_BaseBoard http://msdn.microsoft.com/en-us/library/aa394072(VS.85).aspx CPU:  Win32_Processor  http://msdn.microsoft.com/en-us/library/aa394373(VS.85).aspx 显卡:Win32_VideoContro

往事不堪回首,折腾了个把月的老系统,心中郁结,不吐不快.系统架构是ASP +VBS +VB6.0 + SQL Server2000, 第一个版本开发完成大概是在2000年.基本是处于交接无力,看代码就如同走迷宫的节奏.不过我觉得第一批开发人员应该可以自傲了,它们做的系统这么多年过去了居然还活着. 为了对得起这几天死掉的脑细胞,就权且在这里留下它们阵亡的痕迹. 变量的声明 VB6.0: Dim x as integer VBS: Dim x 同样的功能,由于代码太过Dirty,有部分模块写在了AS

VB6.0应用程序安装包的生成,利用其自带的打包工具生成的安装程序很简陋,一点不美观:如果想让自己的应用程序安装的时候显得高大上一点,本教程提供使用Setup Factory 9.0制作安装包的方法. 工具/原料 Setup Factory 9.0 VB6.0 方法/步骤  首先调试好的程序,需要加入ico图标会更美观(默认状态下应用程序的快捷方式带有VB标示,比较难看). 附:(具体加入方法)把你的程序中某个窗体加上图标 Form的ICON 属性加图标 :点工程菜单--工程属性 打开生成选项卡

目录 第1章 VB6.0调用DLL    1 1 VC++编写DLL    1 1.1 使用__stdcall    1 1.2 使用 .DEF 文件    1 2 简单数据类型    2 2.1 传值(ByVal)    2 2.2 传址(ByRef)    3 2.3 传址(VarPtr)    4 2.4 转换为Variant    4 3 String    6 3.1 BSTR内存布局    6 3.2 StrPtr.VarPtr    7 3.3 示例代码    7 3.4 转换为V

从计算机专业毕业到进入IT行业,说来也有些年头了.相比较而言算是幸运,也有很多的同学进入了其他行业,也有一些朋友又想进入这个行业.现在回想自己的一路历程,总结一下,也是一份记忆. 基于以上的原因,希望推出这个系列的文章,能够对想进入这个行业的人员有一定的帮助.内容预计会以循序渐进,学习与实际案例结合的方式,划分不同的掌握程度进行引导,过程中有问题可以多多交流.对于IT行业的大神们,请默默无视~ 入门IT行业,普遍学习的都是C语言或者VB6.0.鉴于C语言的命令行窗口,不一定能引起大家的学习兴趣,

Delphi获取默认打印机名称及端口 在前段时间写的收银系统中由于目前市场上很多电脑主板上已经没有并口,而POS机却又需要并口,所以目前需要用PCI转接卡,这个就导致不同门店使用的端口就有可能不同,这就给我们程序中弹出钱箱的指令带来一定的难度.所以就通过获取Window自带的默认,得出打印机信息. 在Windows文件下有个win.ini,里面自带默认打印机的信息.通过调用API函数Getprofilestring这个函数获取打印机信息.   在界面上拖个button,在其单击事件中写: pro

http://cache.baiducontent.com/c?m=9f65cb4a8c8507ed4fece763105790245b09c0252bd7a74a2485d315d2390f07506694ea7a7d0d5d83d87f6305ac4957f7b86c65377571eb8f8dd50a8bb485582a9f5631671df65663d50edcba5154cb37e12efeae69f0caf625e7aec5a5de4320c944040a9780fb4d7467&p

为VB6.0编写程序模拟数据测试使用. 一.VB6.0 控件MSComm,来发送接收串口数据 CommPort 属性设置并返回通讯端口号,虚拟端口为COM2. Settings 属性设置并返回端口的波特率.奇偶校验位.数据位和停止位参数. PortOpen 属性为true时端口被打开.设置为false时将关闭端口并清除接收和传输缓冲区的数据. Input 属性用来返回并删除接收缓存区中的数据流 Output 属性用来传输数据流 InBufferSize属性是指整个接收缓冲区的大小.默认值是102

实现这个功能需要使用windows api [DllImport("winspool.drv")] public static extern bool SetDefaultPrinter(String Name); //调用win api将指定名称的打印机设置为默认打印机 private static PrintDocument PrintDocument = new PrintDocument(); public static void SetDefaultPrint(string

VB6.0 中 碰到 提示rs对象关闭,不允许操作,  吃一堑长一智 如果碰到 这个错误提示 则请检查 你执行的每一个语句中的数据类型,包括 如果有存储过程的话,还要检查 存储过程中每一个变量和数据表中字段的数据类型及长度是否一致, 否则就会出现这个问题... 搞死我了...

通过以下语句,可指定windows默认打印机LODOP.SET_PRINT_MODE("WINDOW_DEFPRINTER",某打印机名或序号);这种默认打印机是指的windows操作系统的默认打印机.普通指定的方法就是进入windows的控制面板,然后进入打印机设备相关选项,在windows打印机列表里,选中需要设置的默认打印机,然后右键-选设置为默认打印机.这就是windows的默认打印机,在打印机列表里带有对号的就是默认打印机.通过该语句,可以通过该语句修改windows默认打印

VB6.0中,日期.时间控件不允许为空时,采用文本框与日期.时间控件相互替换赋值,或许是一个不错的选择. 实现效果如下图: 文本框txtStopTime1 时间框DTStopTime1(DTPicker控件) 右键-属性-选择格式3 - dtpCustom  HH:mm:ss若没有DTPicker控件,在部件中添加 工具-部件-控件-“Microsoft Windows Common Controls-2.6.0”-应用-确定 代码如下: Private Sub Form_Load()     

VB6.0和VB.Net的对照表 VB6.0 VB.NET AddItem Object名.AddItem Object名.Items.Add ListBox1.Items.Add ComboBox1.Items.Add Abs 函数 System.Math.Abs 方法 API 函数关系 MicrosoftWin32和Microsoft .NET Framework API的对应 App.Path 等 1. System.Reflection.Assembly.GetExecutingAsse

最近有在做一个需求,需要在VB6.0中调用存储过程,整理了一下,供大家参考, 范例: Function callStoredProcedure(sEmployeeID As String, Optional sNotes As String = "") As String On Error GoTo errHand Dim conn As ADODB.Connection Set conn = "driver={SQL Server};server=(local);uid=s

VB6.0和VB.Net的对照表 VB6.0 VB.NET AddItem Object名.AddItem Object名.Items.Add ListBox1.Items.Add ComboBox1.Items.Add Abs 函数 System.Math.Abs 方法 API 函数关系 MicrosoftWin32和Microsoft .NET Framework API的对应 App.Path 等 1. System.Reflection.Assembly.GetExecutingAsse