正文
vb.net应为申明 vb申明变量
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
vb.net2010中的隐式声明和显示声明分别是什么
隐式声明就是指在使用某个变量之前,没有专门对其进行声明,
比如有个变量 J ,现在用DIM J AS ...对它进行专门的声明.就用它: J = 5 这就是隐式声明.
隐式声明会有一些风险.比如会写错变量明,使得前后本来要使用的是同一个变量的,却变成了两个.
显式声明和隐式声明相反,就是在用变量之前,对它进行了专门的声明.如:
dim a as string
a = "abc"
----------------------
在编程之前可以对程序进行设置,在编辑器的选项设置里 - VB默认值中 ,有个
Option Explicit 属性,如果选择ON,则会在写程序时,要求强制显式声明变量.如果没有进行显示声明的变量,在使用的时候会报错.
也可以在程序前使用 Option Explicit On 语句,来开启强制显式声明...
-------------------------
这么解释能理解吧?
相关问答
Q1: VB.net这个应为声明错误是怎么回事？
赋值语句应该放到过程或函数里面去。
把它放到form_load()或vb.net应为申明你vb.net应为申明的button1_click()里面去。
Q2: 请问为什么我公司的vb.net源码到了我的电脑上运行就会显示好多未声明啊？
用API 函数GetVolumeInformation得到的不是硬盘的序列号！！！
BOOL GetVolumeInformation(
LPCTSTR lpRootPathName,
LPTSTR lpVolumeNameBuffer,
DWORD nVolumeNameSize,
LPDWORD lpVolumeSerialNumber,
LPDWORD lpMaximumComponentLength,
LPDWORD lpFileSystemFlags,
LPTSTR lpFileSystemNameBuffer,
DWORD nFileSystemNameSize
);
看看英文啊：VolumeSerialNumber!得到的只是卷区序列号！
硬盘的序列号应该是
Drive Model Number________________: WDC WD400EB-00CPF0
Drive Serial Number_______________: WD-WCAATF083586
Drive Controller Revision Number__: 06.04G06
Controller Buffer Size on Drive___: 2097152 bytes
Drive Type________________________: Fixed
Drive Size________________________: 40020664320 bytes
中：
Drive Serial Number_______________: WD-WCAATF083586 这才是硬盘Serial Number！！！！
这个号是不会因为你格式化硬盘而改动，也不是网上流传的修改工具能改的，（其实网上流传的修改工具的也不过是卷区号而已！）
建议用 DiskID.dll或DiskID32.dll来获取
用diskid.dll和disk32.dll获得硬盘序列号
1.调用diskid.dll实现：
Option Explicit
Private Declare Function IsWinNT Lib "DiskID.DLL" () As Long
Private Declare Function ReadPhysicalDrive9X Lib "DiskID.DLL" (driveID As Long, buffer As Long, bufLen As Long) As Long
Private Declare Function ReadPhysicalDriveInNT Lib "DiskID.DLL" (driveID As Long, buffer As Long, bufLen As Long) As Long
Private Type DRIVER_INFO_OK
ModalNumber(39) As Byte
SerialNumber(19) As Byte
ControlNum(7) As Byte
DriveType As Long
Cylinders As Long
Heads As Long
Sectors As Long
End Type
Private Sub Command1_Click()
Dim x As DRIVER_INFO_OK
Dim i As Long
If IsWinNT = 1 Then
i = ReadPhysicalDriveInNT(ByVal 0, ByVal VarPtr(x), ByVal 256)
Else
i = ReadPhysicalDrive9X(ByVal 0, ByVal VarPtr(x), ByVal 256)
End If
Dim s As String
s = StrConv(x.ModalNumber, vbUnicode)
s = Left(s, InStr(1, s, Chr(0)) - 1)
MsgBox "硬件厂商代码为：" + s
s = StrConv(x.SerialNumber, vbUnicode)
s = Left(s, InStr(1, s, Chr(0)) - 1)
MsgBox "硬盘序列号为：" + s
End Sub
2.调用diskid32.dll实现：
Option Explicit
Private Declare Function DiskID32 Lib "DiskID32.DLL" (ByRef DiskModel As Byte, ByRef DiskID As Byte) As Long
Private Sub Command1_Click()
Dim DiskModel(31) As Byte, DiskID(31) As Byte, i As Integer, Model As String, ID As String
If DiskID32(DiskModel(0), DiskID(0)) 1 Then
MsgBox "get diskid32 err"
Exit Sub
End If
For i = 0 To 31
If Chr(DiskModel(i)) Chr(0) Then
Model = Model Chr(DiskModel(i))
End If
If Chr(DiskID(i)) Chr(0) Then
ID = ID Chr(DiskID(i))
End If
Next
MsgBox "硬件产生代码为：" + Model
MsgBox "硬盘序列号为：" + ID
End Sub
说明：diskid.dll可从下载
diskid32.dll可从下载
关于vb.net应为申明和vb申明变量的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。
