有没有合适的视频资料共享一下呢
[color=#0000FF]PrivateSub Command1_Click() Dim wRetVal As Integer Dim InVal1 As Integer Dim InVal2 As Integer Dim InVal3 As Integer Dim i As Long wInitialCode = PIODIO_DriverInit() If wInitialCode <> PIODIO_NoError Then MsgBox "初始化失败", , "" Exit Sub End If If PIODIO_SearchCard(1, PIO_D56) <> PIODIO_NoError Then MsgBox "PIO_D56不存在", , "" Exit Sub End If wRetVal = PIODIO_GetConfigAddressSpace(0, wBaseAddr, wIrq, wSubVendor, wSubDevice, wSubAux, wSlotBus, wSlotDevice) If wRetVal <> PIODIO_NoError Then MsgBox "配置错误" Exit Sub End If PIODIO_OutputByte wBaseAddr, 1 Command2.Enabled = True End Sub[/color]这是个加载硬件信息的驱动程序,当按下按钮。程序驱动被激活。这个过程要给硬件一定的反应时间。可能就是所说的慢吧,但是这个过程结束以后,各个功能反应还是很快的。不知道我这样说对不对?