hi, i have been trying to convert the following codes to vb.net for 2 weeks,
and it still do not work while the old vb6 codes work perfectly fine...i
really do not know what wrongs with it... here the vb6 codes...
Sub ChangeConnection()
Dim DeviceInfoSet As Long
Dim GuidPtr As GUID
Dim InterfaceDataPtr As Device_Interface_Data
Dim InterfaceDetailDataPtr As Device_Interface_Detail
Dim InterfaceDetailDataSize As Long
Dim DeviceCancel As Boolean
Dim DeviceFound As Long
Dim RetVal As Long
Dim i, x, y, z As Integer
Dim tmpString As String
Dim NumUSB As Integer
'show correct frame for printer selection information
For x = 0 To 2
If ConnectionType = x Then
FrameConnection(x).Visible = True
FrameConnection(x).Enabled = True
Else
FrameConnection(x).Visible = False
FrameConnection(x).Enabled = False
End If
Next x
'other setup stuff
frmMain.Caption = "QPrint"
If ConnectionType = TCPIP Then
mnuGetReturnData.Enabled = False
Else
mnuGetReturnData.Enabled = True
End If
'USB find devices
If ConnectionType = USB Then
NumUSB = 0
For x = 0 To 7
txtSerial(x).Text = ""
Next x
'test 3 GUIDs
For z = 1 To 3
If z = 1 Then
'HP800 GUID2k
GuidPtr.Data1 = 2106991576
GuidPtr.Data2 = -27832
GuidPtr.Data3 = 4561
GuidPtr.Data4(0) = 134
GuidPtr.Data4(1) = 37
GuidPtr.Data4(2) = 8
GuidPtr.Data4(3) = 0
GuidPtr.Data4(4) = 9
GuidPtr.Data4(5) = 221
GuidPtr.Data4(6) = 147
GuidPtr.Data4(7) = 92
ElseIf z = 2 Then
'HP900 GUID2k
GuidPtr.Data1 = 685215661
GuidPtr.Data2 = 23058
GuidPtr.Data3 = 4561
GuidPtr.Data4(0) = 174
GuidPtr.Data4(1) = 91
GuidPtr.Data4(2) = 0
GuidPtr.Data4(3) = 0
GuidPtr.Data4(4) = 248
GuidPtr.Data4(5) = 3
GuidPtr.Data4(6) = 168
GuidPtr.Data4(7) = 194
ElseIf z = 3 Then
'HP900 Test GUID
GuidPtr.Data1 = 8863711
GuidPtr.Data2 = 25000
GuidPtr.Data3 = 4561
GuidPtr.Data4(0) = 170
GuidPtr.Data4(1) = 94
GuidPtr.Data4(2) = 0
GuidPtr.Data4(3) = 192
GuidPtr.Data4(4) = 79
GuidPtr.Data4(5) = 177
GuidPtr.Data4(6) = 114
GuidPtr.Data4(7) = 139
End If
InterfaceDataPtr.cbsize = 28
InterfaceDetailDataPtr.cbsize = 5
'get usb device handle for HP printers
DeviceInfoSet = SetupDiGetClassDevs(GuidPtr, 0&, 0&, DIGCF_PRESENT
Or DIGCF_INTERFACEDEVICE)
DeviceCancel = False
Do
'get interface pointer
DeviceFound = SetupDiEnumDeviceInterfaces(DeviceInfoSet, 0&,
GuidPtr, NumUSB, InterfaceDataPtr)
'device found
If DeviceFound = 1 Then
'get detail data size
InterfaceDetailDataSize = 0
RetVal = SetupDiGetDeviceInterfaceDetail(DeviceInfoSet,
InterfaceDataPtr, 0&, 0, InterfaceDetailDataSize, 0&)
RetVal = SetupDiGetDeviceInterfaceDetail2(DeviceInfoSet,
InterfaceDataPtr, InterfaceDetailDataPtr, InterfaceDetailDataSize, 0&, 0&)
'create serial # for name & get full device id
x = -1
y = 0
tmpString = ""
USBDeviceID(NumUSB) = ""
Do
x = x + 1
USBDeviceID(NumUSB) = USBDeviceID(NumUSB) &
Chr(InterfaceDetailDataPtr.DataPath(x))
If InterfaceDetailDataPtr.DataPath(x) = 35 Then y = y + 1
'found serial #
If y = 2 And InterfaceDetailDataPtr.DataPath(x) <> 35 Then
tmpString = tmpString &
Chr(InterfaceDetailDataPtr.DataPath(x))
End If
Loop Until InterfaceDetailDataPtr.DataPath(x) = 0
If NumUSB < 8 Then txtSerial(NumUSB).Text = tmpString
NumUSB = NumUSB + 1
Else
DeviceCancel = True
End If
Loop Until DeviceCancel = True
Next z
RetVal = SetupDiDestroyDeviceInfoList(DeviceInfoSet)
End If
End Sub 1 1719
On 2005-03-24, notregister <no*********@discussions.microsoft.com> wrote: hi, i have been trying to convert the following codes to vb.net for 2 weeks, and it still do not work while the old vb6 codes work perfectly fine...i really do not know what wrongs with it... here the vb6 codes...
Sub ChangeConnection() Dim DeviceInfoSet As Long Dim GuidPtr As GUID Dim InterfaceDataPtr As Device_Interface_Data Dim InterfaceDetailDataPtr As Device_Interface_Detail Dim InterfaceDetailDataSize As Long
Dim DeviceCancel As Boolean Dim DeviceFound As Long Dim RetVal As Long Dim i, x, y, z As Integer Dim tmpString As String Dim NumUSB As Integer
'show correct frame for printer selection information For x = 0 To 2 If ConnectionType = x Then FrameConnection(x).Visible = True FrameConnection(x).Enabled = True Else FrameConnection(x).Visible = False FrameConnection(x).Enabled = False End If Next x
'other setup stuff frmMain.Caption = "QPrint" If ConnectionType = TCPIP Then mnuGetReturnData.Enabled = False Else mnuGetReturnData.Enabled = True End If
'USB find devices If ConnectionType = USB Then NumUSB = 0 For x = 0 To 7 txtSerial(x).Text = "" Next x 'test 3 GUIDs For z = 1 To 3 If z = 1 Then 'HP800 GUID2k GuidPtr.Data1 = 2106991576 GuidPtr.Data2 = -27832 GuidPtr.Data3 = 4561 GuidPtr.Data4(0) = 134 GuidPtr.Data4(1) = 37 GuidPtr.Data4(2) = 8 GuidPtr.Data4(3) = 0 GuidPtr.Data4(4) = 9 GuidPtr.Data4(5) = 221 GuidPtr.Data4(6) = 147 GuidPtr.Data4(7) = 92 ElseIf z = 2 Then 'HP900 GUID2k GuidPtr.Data1 = 685215661 GuidPtr.Data2 = 23058 GuidPtr.Data3 = 4561 GuidPtr.Data4(0) = 174 GuidPtr.Data4(1) = 91 GuidPtr.Data4(2) = 0 GuidPtr.Data4(3) = 0 GuidPtr.Data4(4) = 248 GuidPtr.Data4(5) = 3 GuidPtr.Data4(6) = 168 GuidPtr.Data4(7) = 194 ElseIf z = 3 Then 'HP900 Test GUID GuidPtr.Data1 = 8863711 GuidPtr.Data2 = 25000 GuidPtr.Data3 = 4561 GuidPtr.Data4(0) = 170 GuidPtr.Data4(1) = 94 GuidPtr.Data4(2) = 0 GuidPtr.Data4(3) = 192 GuidPtr.Data4(4) = 79 GuidPtr.Data4(5) = 177 GuidPtr.Data4(6) = 114 GuidPtr.Data4(7) = 139 End If InterfaceDataPtr.cbsize = 28 InterfaceDetailDataPtr.cbsize = 5
'get usb device handle for HP printers DeviceInfoSet = SetupDiGetClassDevs(GuidPtr, 0&, 0&, DIGCF_PRESENT Or DIGCF_INTERFACEDEVICE) DeviceCancel = False Do 'get interface pointer DeviceFound = SetupDiEnumDeviceInterfaces(DeviceInfoSet, 0&, GuidPtr, NumUSB, InterfaceDataPtr) 'device found If DeviceFound = 1 Then 'get detail data size InterfaceDetailDataSize = 0 RetVal = SetupDiGetDeviceInterfaceDetail(DeviceInfoSet, InterfaceDataPtr, 0&, 0, InterfaceDetailDataSize, 0&) RetVal = SetupDiGetDeviceInterfaceDetail2(DeviceInfoSet, InterfaceDataPtr, InterfaceDetailDataPtr, InterfaceDetailDataSize, 0&, 0&) 'create serial # for name & get full device id x = -1 y = 0 tmpString = "" USBDeviceID(NumUSB) = "" Do x = x + 1 USBDeviceID(NumUSB) = USBDeviceID(NumUSB) & Chr(InterfaceDetailDataPtr.DataPath(x)) If InterfaceDetailDataPtr.DataPath(x) = 35 Then y = y + 1 'found serial # If y = 2 And InterfaceDetailDataPtr.DataPath(x) <> 35 Then tmpString = tmpString & Chr(InterfaceDetailDataPtr.DataPath(x)) End If Loop Until InterfaceDetailDataPtr.DataPath(x) = 0 If NumUSB < 8 Then txtSerial(NumUSB).Text = tmpString NumUSB = NumUSB + 1 Else DeviceCancel = True End If Loop Until DeviceCancel = True Next z
RetVal = SetupDiDestroyDeviceInfoList(DeviceInfoSet) End If
End Sub
Can you give all the VB6 api declarations as well? I could look them
up, but I would rather see what you had :)
--
Tom Shelton [MVP] This thread has been closed and replies have been disabled. Please start a new discussion. Similar topics
by: Dave |
last post by:
After following Microsofts admonition to reformat my system before doing a
final compilation of my app I got many warnings/errors upon compiling an rtf
file created in word. I used the Help...
|
by: Tom |
last post by:
A question for gui application programmers. . .
I 've got some GUI programs, written in Python/wxPython, and I've got
a help button and a help menu item. Also, I've got a compiled file
made with...
|
by: wukexin |
last post by:
Help me, good men. I find mang books that introduce bit "mang header
files",they talk too bit,in fact it is my too fool, I don't learn it, I have
do a test program, but I have no correct doing...
|
by: Colin J. Williams |
last post by:
Python advertises some basic service:
C:\Python24>python
Python 2.4.1 (#65, Mar 30 2005, 09:13:57) on
win32
Type "help", "copyright", "credits" or "license" for more information.
>>>
With...
|
by: Corepaul |
last post by:
Missing Help Files
When I enter "recordset" as the keyword and search the Visual Basic Help index,
I get many topics of interest in the resulting list. But there isn't any
information available...
|
by: Steve |
last post by:
I have written a help file (chm) for a DLL and referenced it using Help.ShowHelp
My expectation is that a developer using my DLL would be able to access this help file during his development time...
|
by: Mark |
last post by:
I have loaded Visual Studio .net on my home computer and my laptop, but my
home computer has an abbreviated help screen not 2% of the help on my laptop.
All the settings look the same on both...
|
by: JonathanOrlev |
last post by:
Hello everybody,
I wrote this comment in another message of mine, but decided to post it
again as a standalone message.
I think that Microsoft's Office 2003 help system is horrible, probably...
|
by: trunxnirvana007 |
last post by:
'UPGRADE_WARNING: Array has a new behavior. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="9B7D5ADD-D8FE-4819-A36C-6DEDAF088CC7"'
'UPGRADE_WARNING: Couldn't resolve...
|
by: hitencontractor |
last post by:
I am working on .NET Version 2003 making an SDI application that calls MS Excel 2003.
I added a menu item called "MyApp Help" in the end of the menu bar to show Help-> About.
The application...
|
by: taylorcarr |
last post by:
A Canon printer is a smart device known for being advanced, efficient, and reliable. It is designed for home, office, and hybrid workspace use and can also be used for a variety of purposes. However,...
|
by: aa123db |
last post by:
Variable and constants
Use var or let for variables and const fror constants.
Var foo ='bar';
Let foo ='bar';const baz ='bar';
Functions
function $name$ ($parameters$) {
}
...
|
by: ryjfgjl |
last post by:
In our work, we often receive Excel tables with data in the same format. If we want to analyze these data, it can be difficult to analyze them because the data is spread across multiple Excel files...
|
by: emmanuelkatto |
last post by:
Hi All, I am Emmanuel katto from Uganda. I want to ask what challenges you've faced while migrating a website to cloud.
Please let me know.
Thanks!
Emmanuel
|
by: BarryA |
last post by:
What are the essential steps and strategies outlined in the Data Structures and Algorithms (DSA) roadmap for aspiring data scientists? How can individuals effectively utilize this roadmap to progress...
|
by: nemocccc |
last post by:
hello, everyone, I want to develop a software for my android phone for daily needs, any suggestions?
|
by: Sonnysonu |
last post by:
This is the data of csv file
1 2 3
1 2 3
1 2 3
1 2 3
2 3
2 3
3
the lengths should be different i have to store the data by column-wise with in the specific length.
suppose the i have to...
|
by: Hystou |
last post by:
Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can...
|
by: jinu1996 |
last post by:
In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven...
| |