| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- VB.NET源码修改 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=51724) |
| -- 作者：land089 -- 发布时间：2014/6/2 7:36:00 -- VB.NET源码修改 哪位大侠帮我改下源码！谢 谢！ 主要是DLL引用，谁帮我看看怎么改成狐表的代码！ Public Class FormPassword Inherits System.Windows.Forms.Form Dim NetDog As New Dog End Class Public Class Dog Public DogBytes As Integer = 0 Public DogAddr As Integer = 1 Public DogCascade As Integer = 0 Public NewCascade As Integer = 0 Public DogPassword As Integer = 0 Public NewPassword As Integer = 0 Public DogResult As Integer = 0 Public CurrentNu As Integer = 0 Public DogData(199) As Byte Public RetCode As Integer = 0 Declare Function Check_Dog Lib "htbdog.dll" (ByVal DogCascade As Integer, ByVal DogPassword As Integer, ByRef RetCode As Integer) As Integer Declare Function Read_Dog Lib "htbdog.dll" (ByVal DogCascade As Integer, ByVal DogPassword As Integer, ByVal DogAddr As Integer, ByVal DogBytes As Integer, ByVal DogData() As Byte, ByRef RetCode As Integer) As Integer Declare Function Write_Dog Lib "htbdog.dll" (ByVal DogCascade As Integer, ByVal DogPassword As Integer, ByVal DogAddr As Integer, ByVal DogBytes As Integer, ByVal DogData() As Byte, ByRef RetCode As Integer) As Integer Declare Function Convert_Dog Lib "htbdog.dll" (ByVal DogCascade As Integer, ByVal DogPassword As Integer, ByVal DogBytes As Integer, ByVal DogData() As Byte, ByRef DogResult As Integer, ByRef RetCode As Integer) As Integer Declare Function DisableShare_Dog Lib "htbdog.dll" (ByVal DogCascade As Integer, ByVal DogPassword As Integer, ByRef RetCode As Integer) As Integer Declare Function SetPassword_Dog Lib "htbdog.dll" (ByVal DogCascade As Integer, ByVal DogPassword As Integer, ByVal NewPassword As Integer, ByRef RetCode As Integer) As Integer Declare Function SetCascade_Dog Lib "htbdog.dll" (ByVal DogCascade As Integer, ByVal DogPassword As Integer, ByVal NewCascade As Integer, ByRef RetCode As Integer) As Integer Declare Function GetCurrentNo_Dog Lib "htbdog.dll" (ByVal DogCascade As Integer, ByRef CurrentNu As Integer, ByRef RetCode As Integer) As Integer End Class [此贴子已经被作者于2014-6-4 0:22:32编辑过]
|
| -- 作者：狐狸爸爸 -- 发布时间：2014/6/3 9:43:00 -- 把上面的代码，复制到foxtable的全局代码中： http://www.foxtable.com/help/topics/1842.htm http://www.foxtable.com/help/topics/2417.htm
|
| -- 作者：land089 -- 发布时间：2014/6/4 0:22:00 -- 找到问题了，dll在foxtable里面引用了一次。 Public Class FormPassword Inherits System.Windows.Forms.Form Dim NetDog As New Dog End Class Public Class Dog End Class
狐爸狐表里不能定义类吗？ |