|
| |
VB.NET - Ein- und Umsteiger| Umwandeln von vb6 nach .net | |  | | Autor: Paddy75 | | Datum: 14.10.06 23:25 |
| Hallo,
habe hier eine Code vom Hardwarehersteller geliefert bekommen, um eine
USB-Relaiskarte anzusteuern. Beim konvertieren in .net bekomme ich
"UPGRADE_WARNING". Was ist denn hier mit "Delegaten" und
"Marshalling-Attribute" gemeint?. Werde aus der Hilfe allerdings nicht so schlau. Wie kann ich diese Fehler beheben?
VB6 code:
Declare Function GetDeviceError Lib "USB8IO.dll" (ByVal DevNumber As Byte) _
As Long
Declare Sub GetDeviceDescriptor Lib "USB8IO.dll" (ByVal DevNumber As Byte, _
ByVal usbDD As TUSB_DEVICE_DESCRIPTOR)
Declare Sub SetBootEEP Lib "USB8IO.dll" (ByVal DevNumber As Byte, ByVal _
EPPType As Byte, ByVal Addr As Byte, ByVal DeviceID As Long)
Public Sub SetCallBackHandles()
' Funktions-Pointer an DLL übergeben
Call SetCallBackHandle(EX0, AddressOf Interrupt_EX0)
Call SetCallBackHandle(EX1, AddressOf Interrupt_EX1)
End Sub
Public Sub Interrupt_EX1(DevNum As Byte)
' CallBack-Routinen für Interruptanwendung
Int1_Counter = Int1_Counter + 1
Form1.LblInt1Cnt.Caption = Str(Int1_Counter) + " "
End Sub
Public Sub Interrupt_EX0(DevNum As Byte)
' CallBack-Routinen für Interruptanwendung
Int0_Counter = Int0_Counter + 1
Form1.LblInt0Cnt.Caption = Str(Int0_Counter) + " "
End Sub.net:
Declare Function GetDeviceError Lib "USB8IO.dll" (ByVal DevNumber As Byte) _
As Integer
'UPGRADE_WARNING: Für die Struktur TUSB_DEVICE_DESCRIPTOR müssen
' Marshalling-Attribute möglicherweise als ein Argument in dieser
' Declare-Anweisung weitergegeben werden. Klicken Sie hier für weitere
' Informationen:
' 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="C4" & _
"9C3A5-5D47-4CD9-8F51-74A1616405DC"'
Declare Sub GetDeviceDescriptor Lib "USB8IO.dll" (ByVal DevNumber As Byte, _
ByRef usbDD As TUSB_DEVICE_DESCRIPTOR)
Declare Sub SetBootEEP Lib "USB8IO.dll" (ByVal DevNumber As Byte, ByVal _
EPPType As Byte, ByVal Addr As Byte, ByVal DeviceID As Integer)
Public Sub SetCallBackHandles()
Dim EX1 As Object
Dim EX0 As Object
Dim SetCallBackHandle As Object
' Funktions-Pointer an DLL übergeben
'UPGRADE_WARNING: Einen Delegaten für AddressOf Interrupt_EX0
' hinzufügen Klicken Sie hier für weitere Informationen:
' 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword=_
"E9E157F7-EF0C-4016-87B7-7D7FBBC6EE08"'
Call SetCallBackHandle(EX0, AddressOf Interrupt_EX0)
'UPGRADE_WARNING: Einen Delegaten für AddressOf Interrupt_EX1
' hinzufügen Klicken Sie hier für weitere Informationen:
' 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword=_
"E9E157F7-EF0C-4016-87B7-7D7FBBC6EE08"'
Call SetCallBackHandle(EX1, AddressOf Interrupt_EX1)
End Sub
Public Sub Interrupt_EX1(ByRef DevNum As Byte)
Dim Form1 As Object
Dim Int1_Counter As Object
' CallBack-Routinen für Interruptanwendung
'UPGRADE_WARNING: Die Standardeigenschaft des Objekts Int1_Counter
' konnte nicht aufgelöst werden. Klicken Sie hier für weitere
' Informationen:
' 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword=_
"6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
Int1_Counter = Int1_Counter + 1
'UPGRADE_WARNING: Die Standardeigenschaft des Objekts Form1.LblInt1Cnt
' konnte nicht aufgelöst werden. Klicken Sie hier für weitere
' Informationen:
' 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword=_
"6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
'UPGRADE_WARNING: Die Standardeigenschaft des Objekts Int1_Counter
' konnte nicht aufgelöst werden. Klicken Sie hier für weitere
' Informationen:
' 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword=_
"6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
Form1.LblInt1Cnt.Caption = Str(Int1_Counter) & " "
End Sub
Public Sub Interrupt_EX0(ByRef DevNum As Byte)
Dim Form1 As Object
Dim Int0_Counter As Object
' CallBack-Routinen für Interruptanwendung
'UPGRADE_WARNING: Die Standardeigenschaft des Objekts Int0_Counter
' konnte nicht aufgelöst werden. Klicken Sie hier für weitere
' Informationen:
' 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword=_
"6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
Int0_Counter = Int0_Counter + 1
'UPGRADE_WARNING: Die Standardeigenschaft des Objekts Form1.LblInt0Cnt
' konnte nicht aufgelöst werden. Klicken Sie hier für weitere
' Informationen:
' 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword=_
"6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
'UPGRADE_WARNING: Die Standardeigenschaft des Objekts Int0_Counter
' konnte nicht aufgelöst werden. Klicken Sie hier für weitere
' Informationen:
' 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword=_
"6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
Form1.LblInt0Cnt.Caption = Str(Int0_Counter) & " "
End Sub | |
 | Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
 Einloggen | Neu registrieren |
 |
|
sevWizard für VB5/6 
Professionelle Assistenten im Handumdrehen
Erstellen Sie eigene Assistenten (Wizards) im Look & Feel von Windows 2000/XP - mit allem Komfort und zwar in Windeseile :-) Weitere InfosTipp des Monats  Oktober 2025
Matthias KozlowskiUmlaute konvertierenErsetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.) Access-Tools Vol.1 
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
| |
|
Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|
Sie sind aktuell nicht angemeldet.
