大家看我的问题错那了，知道 的说声，谢谢分全给你！

Question

内容如下：Option Explicit
Private Sub Command1_Click()
Dim Result As Boolean
 If Text1.Text = 119 Then
  Result = SetPortVal(Val("&H" + 378), Val("&H" + 1), 1)
  Else:
  Result = SetPortVal(Val("&H" + 378), Val("&H" + 0), 1)
ElseIf (Result = False) Then
    MsgBox "Whoops ! There is a problem with text.", vbOKOnly + vbCritical, "因为你人品问题,程序出错了！"
    Unload Form1
  End If
End Sub
Private Sub Command2_Click()
Unload Form1
End Sub
Private Sub Form_Load()
If InitializeWinIo = False Then
    MsgBox "Whoops ! There is a problem with InitializeWinIo.", vbOKOnly + vbCritical, "因为你人品问题，程序不运行了！"
    Unload Form1
  Else
    Call Command1_Click
  End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
  Call ShutdownWinIo
End Sub
模块声明如下Option Explicit
Declare Function MapPhysToLin Lib "WinIo.dll" (ByVal PhysAddr As Long, ByVal PhysSize As Long, ByRef PhysMemHandle) As Long
Declare Function UnmapPhysicalMemory Lib "WinIo.dll" (ByVal PhysMemHandle, ByVal LinAddr) As Boolean
Declare Function GetPhysLong Lib "WinIo.dll" (ByVal PhysAddr As Long, ByRef PhysVal As Long) As Boolean
Declare Function SetPhysLong Lib "WinIo.dll" (ByVal PhysAddr As Long, ByVal PhysVal As Long) As Boolean
Declare Function GetPortVal Lib "WinIo.dll" (ByVal PortAddr As Integer, ByRef PortVal As Long, ByVal bSize As Byte) As Boolean
Declare Function SetPortVal Lib "WinIo.dll" (ByVal PortAddr As Integer, ByVal PortVal As Long, ByVal bSize As Byte) As Boolean
Declare Function InitializeWinIo Lib "WinIo.dll" () As Boolean
Declare Function ShutdownWinIo Lib "WinIo.dll" () As Boolean
Declare Function InstallWinIoDriver Lib "WinIo.dll" (ByVal DriverPath As String, ByVal Mode As Integer) As Boolean
Declare Function RemoveWinIoDriver Lib "WinIo.dll" () As Boolean在调试时总是说找不到WINIO。DLL编译时内存益出，求救高手解决啊！

Answer 1

//找不到WINIO。DLL那就去找WINIO。DLL嘛

Answer 2

是不是没添加引用或者部件，或者没注册DLL，亦或者是你人品问题。

Answer 3

我用下载的源代码，就不寸在这样的问题，着程序是我改别人的，可是明明WINIO。DLL存在，他说找不到，怎么半啊

Answer 4

WinIo.dll 如果这个组件你在程序中用到的话，就需要有这个组件，然后注册啊，否则当然报错了

Answer 5

我开了下机器，又好了，晕！这样的程序赶给客人呀，可以编译又出现类型不匹配错误，原代码如下：
Result = SetPortVal(Val("&H" + TxtPortAddr), Val("&H" + TxtPortByte), 1)
  
  If (Result = False) Then
    MsgBox "Whoops ! There is a problem with SetPortByte.", vbOKOnly + vbCritical, "VBDumpPort32"
    Unload FrmVBDumpPort32
我该了下是：
Dim Result As Boolean
If (Result = True) ThenIf Text1.Text = "119" Then
Result = SetPortVal(Val("&H" + 378), Val("&H" + 1), 1)
Else
Result = SetPortVal(Val("&H" + 378), Val("&H" + 0), 1)
End If

Answer 6

帮你看看
-----------------------------------IT者--IT开发者的网站  10万篇技术资料
  http://www.itzhe.cn

Answer 7

Val("&H" + 378)改Val("&H" & 378)