vb中如何得到USB设备名称
在VB中如何获得USB端口上的每一个设备的名称，及USBID，应该用哪个API？
试一试这个，不知道有用否。
VB code:
'调用API函数 GetVolumeInformation?
'API声明:
Private Declare Function GetVolumeInformation Lib "kernel32" _
Alias "GetVolumeInformationA" _
(ByVal lpRootPathName As String, _
ByVal lpVolumeNameBuffer As String, _
ByVal nVolumeNameSize As Long, _
lpVolumeSerialNumber As Long, _
lpMaximumComponentLength As Long, _
lpFileSystemFlags As Long, _
ByVal lpFileSystemNameBuffer As String, _
ByVal nFileSystemNameSize As Long) As Long
'程序:
Private Sub Form_Load()
Dim sDriveLetter As String
Dim RetVal As Long
Dim lpName As String
Dim nSize As Long
Dim nSerial As Long
Dim lpMaxComp As Long
Dim nFileFlags As Long
Dim lpFileName As String
lpName = Space(255)
lpFileName = Space(255)
nSize = 255
sDriveLetter = "G:\" '这里你可以指定任何盘号
RetVal = GetVolumeInformation(sDriveLetter, lpName, _
nSize, nSerial, lpMaxComp, nFileFlags, lpFileName, nSize)
'你可以看出,不仅能得到序列号,还可以得到其他很多信息
Debug.Print lpName
Debug.Print nSerial
Debug.Print lpMaxComp
Debug.Print nFileFlags
Debug.Print lpFileName
Debug.Print nSize
If RetVal = 0 Then
'这里是你�
相关问答：
我用Delphi写了一个DLL, DLL里有MDI的子窗体,DLL初始化时 传递调用者的TApplication给DLL, 在Delphi7中调用已经通过,但是不知道在VB中有无TApplication对应类型, 是否能在VB中调用?
你好，用instance不是就可以了&# ......
vb写的程序编译后,运行若出错,如何知道到在哪一行?
按Ctrl+F5预编译，出错时会跳转到错误行
不是那样的了,我是要求编译成EXE后运行,提示出错能否提示错在哪一行.
我编译后在我的电脑上运行没问题,但� ......
在vb中怎么判断，插入到数据库中的值是重复的，本人才刚接触VB语言，甚是有好多地方还不懂，还请各位大侠们给出代码，谢谢了呀！！！
插入之前select一下阿。
或者写一个组合SQL插入语句，例如
IF not Exist(
& ......
我想做个用vb6做的程序，可以控制GPRS MODEM拨号，如拨我自己的手机
可以啊
你先下个AT命令集合学习学习
我来顶
顶贴
LZ好厉害
不顶不行
老是排MP
引用
LZ好厉害
......
有没有杭州的朋友，熟悉VB的，有兴趣做的话留下联系方式
VB6 OR VB.NET?
可惜不在杭州,遠程可否?
兄台联系方式呢
我也联系一下，不过在宁波
可惜我也不在杭州
北京的行不？
我在苏州， ......
