紫丁香社区 → VB编程 → 精华区文章阅读

VB 版 (精华区)

发信人: zxfsnow (希望的春天), 信区: VB
标  题: 如何用VB控制I／O口（全面综述） 
发信站: 哈工大紫丁香 (2000年06月05日12:49:27 星期一), 转信

发信人: gnim (哼哼..怕了吧), 信区: VB
标  题: 如何用VB控制I／O口（全面综述）
发信站: 虎踞龙蟠 (Thu Apr  6 18:14:29 2000), 转信

本文写得不错，是coolknight集大成者，感谢coolknight.

发信人: coolknight (酷骑士~~戒不掉了), 信区: VB
标  题: $?VB编程如何控制I/O口
发信站: 武汉白云黄鹤站 (Tue Jan 11 17:53:38 2000), 站内信件

VB没有提供直接读写I/O口的方法。所以只能借助其他语言来编写DLL，然后在VB中调用。
如果要在Windows 3.X下读写端口，也可以下载ftp://ftp.winsi 如果你在Windows下使
用过C/C++，那么编写这样的DLL可能没有什么困难。在C语言里都包括inp和outp函数。
可以把下面这段C语言代码

#include <conio.h>
#include <Windows.h>
/*作用：从指定端口读入一个字节

参数：portid端口号

返回值：读入的字节*/
int _stdcall Inportshort portid
return inpportid;

/*作用：向指定端口写入一个字节

参数：portid端口号

*/
void _stdcall outputshort portid, short byte outpportid,byte;

/*作用：从指定端口读入一个字节

参数：portid端口号

返回值：读入的字节*/
int _stdcall Inportwshort portid
return inpwportid;

/*作用：向指定端口写入一个字节
参数：portid端口号*/
void _stdcall Outportwshort portid,short word outpwportid,unsigned short word

注意：这种方法只能用于Windows 95，不能用于Windows NT。

$?如何过滤键盘录入

在 VB 的应用得到以前就处理键盘动作， 实现对键盘的全面控制， 可过滤任意的键。
下面的例子过滤了 CTRL+C 键， 并把该键模拟为在Command1 上单击。

Public Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, _
        ByVal nCode As Long, ByValwParam As Long, ByVal lParam As Long) _
        As Long
Public Declare Function UnhookWindowsHookEx Lib "user32" _
       (ByVal hHook As Long) As Long
Public Declare Function SetWindowsHookEx Lib "user32" Alias _
        "SetWindowsHookExA" (ByVal idHook As Long, ByVal lfn As Long, _
        ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" _
        (ByVal hwnd As Long, ByVal wMsg As Long,ByVal wParam As Long, _
         ByVal lParam As Long) As Long
Public Const WH_KEYBOARD = 2
Public Const KBH_MASK = &H2000
0000
Public Const WM_LBUTTONDOWN =&H201
Public Const WM_LBUTTONUP = &H202
Global hHook As Long
Global hHook As Long

'KeyboardProc 在 VB 应用动作前发生
Public Function KeyboardProc(ByVal nCode As Long, ByVal wParam As Long, _
        ByVal lParam As Long) as long
If nCode >= 0 Then
 '处理你希望过滤的键
 If wParam = Asc("C") And lParam And KBH_MASK Then
  If lParam And &HC0000000 = 0 Then
    '模拟在Command1 中单击
    Form1.Command1.SetFocus
    Call PostMessageForm1.Command1.hwnd, WM_LBUTTONDOWN, 0, &H20002
    Call PostMessageForm1.Command1.hwnd, WM_LBUTTONUP, 0, &H20002
    KeyboardProc = 1
    Exit Function
  End If
 End If
End If
KeyboardProc = CallNextHookExhHook, nCode, wParam, lParamhHook, _
               nCode, wParam, lParam
End Function

Private Sub Form_Load
'将 KeyboardProc 连接到中断上
 hHook = SetWindowsHookExWH_KEYBOARD, AddressOf KeyboardProc, 0&, App.ThreadID
End Sub

Private Sub Form_UnloadCancel() As Integer
 Call UnhookWindowsHookExhHook
End Sub

$?打印机技巧

用 API 打开打印对话框
使用通用对话框控件当然可以打开打印对话框， 不过要浪费更多的资源和增加了一个
OCX 部件。 而用 API 会高效。
声明:
Declare Function PRINTDLG Lib "comdlg32.dll" Alias "PrintDlgA" _
        (pPrintdlg As PRINTDLG)

Type PRINTDLG
  lStructSize As Long
  hwndOwner As Long
  hDevMode As Long
  hDevNames As Long
  hdc As Long
  flags As Long
  nFromPage As Integer
  nToPage As Integer
  nMinPage As Integer
  nMaxPage As Integer
  nCopies As Integer
  hInstance As Long
  lCustData As Long
  lpfnPrintHook As Long
  lpfnSetupHook As Long
  lpPrintTemplateName As String
  lpSetupTemplateName As String
  hPrintTemplate As Long
  hSetupTemplate As Long
End Type

使用：
Private Sub Command1_Click
  Dim p As PRINTDLG
  p.lStructSize = Lenp
  p.hwndOwner = Me.hWnd
  p.nFromPage = 1
  p.nToPage = 1
  p.nMinPage = 1
  p.nMaxPage = 1
  p.nCopies = 1
  x = PRINTDLGp
  Printer.Print Text1.Text
End Sub

在打印字符串时自动换行
感谢 shijia 的代码测试。
其中 len1 为打印的宽度， Str 为打印的文本。

Do While LenStr > 0
 str1 = Str
 Do While len1 > 0 And Printer.
  TextWidthstr1 > len1
  str1 = Leftstr1, Lenstr1 - 1
 Loop
 Printer.Print str1 '打印
 Printer.Print str1 '打印
 If Lenstr1 = 0 Then Exit Do
 '不匹配
 Str = MidStr, LenStr1+1
 '截断！
Loop


让打印机只打印一行

在 Win95 下，只有在使用 EndDoc 或 NewPa
ge 时，打印机才开始打印，而且每次都要换页。使用以下的方法，可以只打印一
行，并且一个DragDrop事件提供三条信息－－

DragDrop（Source as Control，X as Single，Y as Single）Source

是已经放开的图片，图标或控肌X和Y值，是放开事件所在目表对象的水平和垂直方向
位置。如：

Sub pictrue1_DragDrop（Source as Control，X as Single，Y as Single）
  Pictrue1．DrawWidth＝6
  picture1．pset（x，y），QBcolor（4）
End Sub

当一个控件拖动到另一个之上时，发生一个DragOver事件，
以警告被入侵的控件或窗体发生了拖动。一个DragOver事件提供四条信息：
DragOver（Source as control，X as Single，Y as Single，State as Integer）
“Source”为入侵者标志。入侵者在被入侵的控件或窗体内的当前位置由X，Y来确定
入侵者的状态，如是否刚刚进入。仍在其内或将要离开等由State变化报告。
通过允许用户拖动一个指针在屏幕上移动，接触窗口内的不同区域引起事情发生。一
种常用的编程技术是和一状态栏一同使用。状态栏随程序运行时的情况而副，报告光
标的当前位置，变量如Font等的状态，提供一种有效的帮助功能。

$?如 何 判 断 某 一 个 Drive 是 否 为 光 碟 机 ？

须 调 用 Windows API 的 GetDriveType ，首先 声 明 以 下 API :

Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" _
        (ByVal nDrive As String)
然 后 将 以 上 的 声 明 放 在 .bas 的 一 般 模 块 中 ，如 果 放 在 Form 之
中， 须 在 Declare 之 前 再 加 上 Private。 然 后 使 用 以 下 叙 述调 用 ：

ret = GetDriveType  "D:\"

若 传 回 值 ret 等 于 5 , 即 表 示 "D:\" 为 光 碟 机 ， 至 于 其 他 传 回
值 的 意 义 则 是 ：2:软碟, 3:硬碟, 4:Server端磁碟, 6:RAMDISK。

$?如 何 让 点 阵 打 印 机 每 次 印 出 一 行？

VB 的 Printer 事 件 必 须 调 用 EndDoc 或 NewPage， 才 会 将 列 印的 资 料
输 出 到 打 印 机 ， 但 每 印 就 是 一 页，我 希 望 每 输 出一 行 资 料 就
立 刻 印 在 点 阵 打 印 机 上 面 ， 该 如 何 进 行 呢 ？

文 件 名 称 "PRN" 对 DOS 而 言 ， 指 的 是 打 印 机 ， 对 Windows 而 言 仍
然 是 适 用 的 ， 因 此 先 利 用 以 下 叙 述�

开 启 "PRN"印表 机 ：
Open "PRN" For Output As #1
然 后 再 利 用 以 下 的 Print 叙 述 便 可 以 逐 行 印 出 资 料 ：
        Print #1, 资 料
注 ： 如 果 想 输 出 中 文 ， 必 须 使 用 中 文打 印 机 ， 因 为 以 上 的
列 印 方 法 并 未 通 过 Windows 的 打 印 机 驱 动 程 序 ， 所 以 无 法 在
英 文 打 印 机 上 面 输 出 中 文 字 。

$?如何改变 Windows 预设的打印机？

在 VB 里面， 原本改变预设打印机的方法是：假设安装有两种打印机驱动程序
Set Printer = Printers0 ' 将预设打印机设定成第一种打印机
Set Printer = Printers1 ' 将预设打印机设定成第二种打印机
但实际上以上叙述有时候不会成功原因不详， 为了能够成功地改变预设打印机，以下
是调用 Windows API 的方法：补充说明: 此一解决方案适用于 Winows 95, 至于 NT
设定预设打印机的方法请叁考 98/04/05 的每周小技巧
1. API 的声明：
Const HWND_BROADCAST = &HFFFF&
Const WM_WININICHANGE = &H1A
Private Declare Function GetProfileString Lib "kernel32" Alias _
        "GetProfileStringA" (ByVal lpAppName As String, _
        ByVal lpKeyName As String, ByVal lpDefault As String, _
        ByVal lpReturnedString As String, ByVal nSize As Long) As Long
Private Declare Function WriteProfileString Lib "kernel32" Alias _
        "WriteProfileStringA" ByVal lpszSection As String, _
        ByVal lpszKeyName As String, ByVal lpszString As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
        (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
         lParam As Any) As Long
注：如果以上的声明放在「一般模块」底下， 应在 Const 之前加上 Public 保留字，
并且将 Private 保留字去掉。

2. 程序范例：
PrinterName = "您想设定的打印机名称"
Dim S As String, length As Lon
g, hKey As Long
S = String80, Chr0
length = GetProfileString"devices", PrinterName, "", S, LenS
S = LeftS, length
Call WriteProfileString"windows", "device", PrinterName & "," & S
Call SendMessage (HWND_BROADCAST, WM_WININICHANGE, &H7FFF&, ByVal "windows")

以笔者的所安装的打印机为例， 含有 "HP LaserJet 4L" 及 "HP LaserJet 5L
Traditional" 两种， 若想将预设打印机设定成 "HP LaserJet4L"， 则须将以上程序的
「PrinterName = "您想设定的打印机名称"」改成：
PrinterName = "HP LaserJet 4L"

$?如何改变 NT 预设的打印机？

前面介绍的「如何改变 Windows 预设的打印机？」，只适用于 Windows， 对 NT 则没
有效用， 其实在 NT 底下想要改变 VB 程序列印的打印机，请使用:
Set Printer = Printers0
Set Printer = Printers1
但以上叙述却对 Windows 95 没有效用， 所以才会有98/03/01 所介绍的「如何改变
Windows 预设的打印机？」。

至于改变 NT 预设打印机的方法， 则是改变登录资料库Registry
HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows subkey
的 Device value

以笔者机器的设定为例， 将 "HP LaserJet 4L" 设定为预设打印机，则
Device = "HP LaserJet 4L,winspool,LPT1:"，
假设笔者想将预设印机改成 "HP LaserJet 4M"先决条件是安装有 "HP LaserJet 4M" 的
打印机驱动程序，98/03/01 所介绍的「如何改变 Windows 预设的打印机？」。方法是
把 Device 的 value 改成 "HP LaserJet 4M,winspool,LPT1:"。

至于在程序中改变登录资料库的方法， 则请叁阅 Run!PC50 期3 月号「Windows 的登录
资料库」。


--
欢迎访问下面的主页：
http://asp.gbsource.net/home/coolknight   虚拟社区2000(教育网内)
(网站新开张急需大量斑竹，经验值达到100即刻做斑竹!)
http://202.114.3.124/coolknight/index.htm  VB爱好者(教育网华工镜像)
http://coolvb.163.net                      VB爱好者(163网)


--
※ 修改:·gnim 於 Apr  8 10:49:49 修改本文·[FROM: 202.119.27.47]

--

 以科计为本,以产业报国!
  超越自我,飞跃无限!
  

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.235.249]
[百宝箱] [返回首页] [上级目录] [根目录] [返回顶部] [刷新] [返回]
Powered by KBS BBS 2.0 (http://dev.kcn.cn)
页面执行时间：203.382毫秒