Visual Basic中实现I/O端口控制,VB示例

如果你在Windows下使用过C/C++，那么编写这样的DLL可能没有什么困难。在C语言里都包括inp和outp函数。可以把下面这段C语言代码（32位）编译生成DLL，然后在VB中调用。

#include
#include
/*作用：从指定端口读入一个字节
参数：portid端口号
返回值：读入的字节*/
int _stdcall Inport(short portid)
{
　return inp(portid);}
　/*作用：向指定端口写入一个字节
　参数：portid端口号*/
　void _stdcall output(short portid,short byte)
　{
　　outp(portid,byte);
　}
　/*作用：从指定端口读入一个字节
　参数：portid端口号
　返回值：读入的字节*/
　int _stdcall Inportw(short portid)
　{
　　return inpw(portid);}
　　/*作用：向指定端口写入一个字节
　　　参数：portid端口号*/
　　void _stdcall Outportw(short portid,short word)
　　{
　　　outpw(portid,(unsigned short) word);
　　}

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

　　VB6.0中DRAGDROP事件与DRAGOVER事件的使用

　　在WINDOWS中，拖动意味着移动光标到对象上，按住鼠标，接着移动鼠标使对象在屏幕内滑动以重新定位对象。当释放鼠标按钮时，在拖动对象所在控件边界内放开鼠标会触发DragDrop事件。如果放开鼠标时对象不在一个控件的上面，那么对象定位于窗体本身。

　　拖动对象的DragDrop事件不是用来存放有关放开对象时执行某些指令的地方。而应将这些指令放到背景的DragDrop事件中或者拖动对象所放开的目标控件中。

　　一个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 conterol，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) As Long

　　然后将以上的声明放在.bas的一般模块中，如果放在 Form 之中，须在Declare之前再加上 Private。然后使用以下叙述调用：

　　ret = GetDriveType ( "D:\")

　　若传回值 ret 等于 5 , 即表示 "D:\" 为光碟机，至于其他传回值的意义则是：

　　2:软碟, 3:硬碟, 4:Server端磁碟, 6:RAMDISK。

　　如何过滤键盘录入

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

Public Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam 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 lpfn 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 = &H20000000
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202
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) <> 0 Then
　　　If (lParam And &HC0000000) = 0 Then
　　　　模拟在Command1 中单击
　　　　Form1.Command1.SetFocus
　　　　Call PostMessage(Form1.Command1.hwnd, WM_LBUTTONDOWN, 0, &H20002)
　　　　Call PostMessage(Form1.Command1.hwnd, WM_LBUTTONUP, 0, &H20002)
　　　　KeyboardProc = 1
　　　　Exit Function
　　　End If
　　End If
　End If
　KeyboardProc = CallNextHookEx(hHook, nCode, wParam, lParam)
End Function
　
Private Sub Form_Load()
　将 KeyboardProc 连接到中断上
　hHook = SetWindowsHookEx(WH_KEYBOARD, AddressOf KeyboardProc, 0&, App.ThreadID)
End Sub

Private Sub Form_Unload(Cancel As Integer)
　Call UnhookWindowsHookEx(hHook)
End Sub