原文链接：VB.Net 教学（四）变量
         一个变量只是一个给我们的程序可以操作的存储区域的名字。http://VB.Net中的每个变量都有一个特定的类型，它决定了变量内存的大小和布局; 可以存储在该存储器内的值的范围; 以及可以应用于该变量的一组操作。
我们已经讨论了各种数据类型。http://VB.Net中提供的基本值类型可以分为：
http://VB.Net还允许定义其他值类型的变量，如枚举和类的变量的引用类型。我们将在后续章节讨论日期类型和类。
http://VB.Net中的变量声明
        Dim语句用于一个或多个变量的变量声明和存储分配。Dim语句用于模块，类，结构，过程或块级别。http://VB.Net中变量声明的语法是：
[ < attributelist> ] [ accessmodifier ] [[ Shared ] [ Shadows ] | [ Static ]]
[ ReadOnly ] Dim [ WithEvents ] variablelist
1、attributelist是适用于变量的属性列表。可选的。
2、accessmodifier定义变量的访问级别，它具有值 - Public，Protected，Friend，Protected Friend和Private。可选的。
3、Shared共享声明一个共享变量，它不与类或结构的任何特定实例相关联，而是可用于类或结构的所有实例。可选的。
4、Shadows阴影表示变量在基类中重新声明和隐藏一个同名的元素或一组重载的元素。可选的。
5、Static表示变量将保留其值，即使在声明它的过程终止之后。可选的。
6、ReadOnly表示变量可以读取，但不能写入。可选的。
7、WithEvents指定该变量用于响应分配给变量的实例引发的事件。可选的。
8、Variablelist提供了声明的变量列表。
变量列表中的每个变量具有以下语法和部分：
variablename[ ( [ boundslist ] ) ] [ As [ New ] datatype ] [ = initializer ]
1、variablename：是变量的名称
2、boundslist：可选。它提供了数组变量的每个维度的边界列表。
3、New：可选。当Dim语句运行时，它创建一个类的新实例。
4、datatype：如果Option Strict为On，则为必需。它指定变量的数据类型。
5、initializer：如果未指定New，则为可选。创建时评估并分配给变量的表达式。
一些有效的变量声明及其定义如下所示：
Dim StudentID As Integer
Dim StudentName As String
Dim Salary As Double
Dim count1, count2 As Integer
Dim status As Boolean
Dim exitButton As New System.Windows.Forms.Button
Dim lastTime, nextTime As Date
http://VB.Net中的变量初始化
变量被初始化（赋值）一个等号，然后是一个常量表达式。初始化的一般形式是：
variable_name = value;
例如:
Dim pi As Double
pi = 3.14159
您可以在声明时初始化变量，如下所示：
Dim StudentID As Integer = 100
Dim StudentName As String = "Bill Smith"
示例
尝试下面的例子，它使用各种类型的变量：
Module variablesNdataypes
   Sub Main()
      Dim a As Short
      Dim b As Integer
      Dim c As Double
      a = 10
      b = 20
      c = a + b
      Console.WriteLine("a = {0}, b = {1}, c = {2}", a, b, c)
      Console.ReadLine()
   End Sub
End Module
当上述代码被编译和执行时，它产生了以下结果：
a = 10, b = 20, c = 30
接受来自用户的值
System命名空间中的控制台类提供了一个函数ReadLine，用于接受来自用户的输入并将其存储到变量中。例如，
Dim message As String
message = Console.ReadLine
下面的例子说明：
Module variablesNdataypes
   Sub Main()
      Dim message As String
      Console.Write("Enter message: ")
      message = Console.ReadLine
      Console.WriteLine()
      Console.WriteLine("Your Message: {0}", message)
      Console.ReadLine()
   End Sub
End Module
当上述代码被编译和执行时，它产生了以下结果（假设用户输入的Hello World）：
Enter message: Hello World
Your Message: Hello World
Lvalues和Rvalues
有两种表达式：
lvalue：作为左值的表达式可能出现在赋值的左侧或右侧。
rvalue：作为右值的表达式可能出现在作业的右侧但不是左侧。
变量是左值，因此可能出现在作业的左侧。数字文字是右值，因此可能不会分配，不能出现在左侧。以下是有效的语句：
Dim g As Integer = 20
但以下并不是有效的语句，并会生成编译时的错误：
20 = g

1、 向类添加属性 
向类中添加属性可以采用以下两种方式之一：“字段”或“属性过程”。还可以用属性的 Public、ReadOnly 或 WriteOnly 修饰符确定属性如何工作。 
字段和属性过程
字段其实只是类中的公共变量，可以从该类的外部设置或读取这些变量。它们对于无需验证的属性很有用，例如 Boolean（True 或 False）值。在 Persons 类中，可能有一个名为 Alive 的 Boolean 属性，它指定一个人是死了还是活着。由于只可能有两个值，所以字段最适合此属性。
向类中添加字段的代码如下所示。
Public Alive As Boolean
然而，大多数属性要比这复杂，因此多数情况下需要使用属性过程向类中添加属性。属性过程有三个部分：存储属性值的私有变量的声明；公开该值的 Get 过程以及 Set 过程，顾名思义，即设置该值的过程。
例如，Persons 类的 Name 属性的属性过程如下所示。
Private nameValue As String
Public Property Name() As String
    Get
        Name = nameValue
    End Get
    Set(ByVal value As String)
        nameValue = value
    End Set
End Property
第一行代码声明一个私有 String 变量 nameValue 来存储属性的值。属性过程本身以 Public Property 开始，以 End Property 结束。 
Get 过程包含您要读取属性值时将被执行的代码。例如，如果读取 Persons.Name 属性，该代码将会返回存储在 nameValue 变量中的值。
Set 过程包含用于为 nameValue 变量赋新值的代码，它将传递给该变量的值用作 value 参数。例如，如果编写代码 Persons.Name = "John"，则 String 值 John 将作为 value 参数传递；然后 Set 过程中的代码将其赋值给 NameValue 变量以存储。
您可能会问为什么舍近求远而不用字段表示 Name 属性。现实世界中的姓名有特定的规则。例如，姓名中通常不含数字。您可以在 Set 过程中添加代码以检查 value 参数，如其中含有数字则返回错误。
只读和只写属性
有时一个属性只能设置一次，以后在程序中执行时永远不能更改。例如，表示雇员编号的属性永远不能更改，所以它可以由另一个程序读取，但您不能允许该程序更改它的值。
ReadOnly 关键字用于指定只能读取但不能修改的属性值。如果尝试为 ReadOnly 属性赋值，代码编辑器中将会出现错误。 
要创建只读属性，需使用 Get 过程而不是 Set 过程来创建属性过程，如下所示。
Private IDValue As Integer
ReadOnly Property ID() As Integer
    Get
        ID = IDValue
    End Get
End Property
同样，WriteOnly 关键字允许设置属性值但不允许读取属性值，例如，不允许其他程序读取密码属性。您可以在类中使用该值，但需要使其保持为私有。
要创建只写属性，需使用 Set 过程而不是 Get 过程来创建属性，如下所示。
Private passwordValue As String
WriteOnly Property Password() As String
    Set(ByVal value As String)
        passwordValue = value
    End Set
End Property
当您想要获取一个属性值并将其转换为另一个不同的值时，ReadOnly 和 WriteOnly 属性过程也很有用。例如，以一个人的年龄为例。与姓名不同，年龄会随着时间的变化而变化——如果您将年龄分配给某个类，并在一年后读取回，此时的年龄就是错误的。
在 Persons 类中，可以添加两个属性来避免此类错误 — WriteOnlyBirthYear 属性和 ReadOnlyAge 属性，前者表示出生年份，它永远不变，后者通过计算当前年份与出生年份之间的差值返回值。
向类中添加 ReadOnly 和 WriteOnly 属性
在类模块开头的其他声明之下添加如下声明代码。
Private birthYearValue As Integer
在声明代码下面添加以下属性过程。
WriteOnly Property BirthYear() As Integer
    Set(ByVal value As Integer)
        birthYearValue = value
    End Set
End Property
ReadOnly Property Age() As String
    Get
        Age = My.Computer.Clock.LocalTime.Year - birthYearValue
    End Get
End Property
在“文件”菜单上，选择“全部保存”以保存所做的工作。

	

VB中的关键字大全
大家好，不知道大家在学习VB编程的过程中，有注意过VB中的关键字吗？
关键字是VB程序内部已经定义好的，可以供我们在编程时直接使用的。
大家要注意一点，在我们写VB代码时，变量或者常量的名字或者控件的Name属性值，一定不要和VB提供的关键字重复，否则，VB程序会自动提示下面的错误。
那么，VB编程中一共有多少个关键字呢？经过小编今天的系统整理，一共是42个，具体是哪些，可以看下面。
                AsBinaryByRefByValDateElseEmptyErrorFalseForFriendGetInputIs
Len
Let
Lock
Me
Mid
New
Next
Nothing
Null
On
Option
Optional
ParamArray
Print
PrivatePropertyPublicResumeSeekSetStaticStepStringThenTimeToTrueWithEvents
这些关键字大家在平时学习的时候，一定要熟练掌握其用法，有的用在语句中，有的用在方法声明或者参数中。
推荐阅读
1. VB编程语言基础知识点总结
2. VB编程基本数据类型完整剖析
3. VB连接串口实现超市收银支付系统！
4. VB与数据库开发实际项目应用！
长按上图
关注跟我学VB公众号

INI 文件就是 Windows 中常见的以 .ini 为扩展名的文件，其内部格式和各部分的名称如下：
[Section1]
Key1=Value1
Key2=Value2
Key3=Vlaue3
[Section2]
Key1=Value1
Key2=Value5
Key4=Value4
Key5=...
...
INI 文件中分若干个段 (Section)，每个段中有若干个键 (Key) 值 (Value) 对
。一个键值对保存一个信息；段则将属性类似的一些键值对组织在一起。同一个段中不
能出现两次以上同样的键，但不同的段中可以出现相同的键。

现在明白了吗？要是还不明白，就到 Windows 里找两个 INI 文件看看，文本编辑
器就可以打开的。明白了 INI 文件就要开始学习怎样在 VB 中读写 INI 了。
VB 读写 INI 文件，难吗？不难，因为 Windows 已经为我们做好了一切，我们只
需要调用它的 API 函数就可以了。为了读写 INI 文件，我们可能用到以下 API 函数
：
GetPrivateProfileInt
GetPrivateProfileString
WritePrivateProfileString
其中 WritePrivateProfileString 是用来向 INI 文件写信息的，而
GetPrivateProfileInt 和 GetPrivateProfileString 则是用来从 INI 文件中读信息
的，前者用于读取整型数据，后者则用于读取字符串型数据。

上述三个 API 函数在 VB 中的申明和说明如下：
Private Declare Function GetPrivateProfileInt Lib "kernel32" _
Alias "GetPrivateProfileIntA" ( _        ' 返回所读取的长整型值
ByVal lpApplicationName As String, _     ' 要读取的段 (Section) 名称
ByVal lpKeyName As String, _             ' 要读取的的键 (Key) 名称
ByVal nDefault As Long, _                ' 指定默认值，如果读取时出错，则返回该值
ByVal lpFileName As String) As Long      ' 指定要读的 INI 文件名
Private Declare Function GetPrivateProfileString Lib "kernel32" _
Alias "GetPrivateProfileStringA" ( _     ' 返回所读取的字符串值的真实长度
ByVal lpApplicationName As String, _     ' 要读取的段 (Section) 名称
ByVal lpKeyName As Any, _                ' 要读取的的键 (Key) 名称
ByVal lpDefault As String, _             ' 指定默认值，如果读取时出错，则返回该值
ByVal lpReturnedString As String, _      ' 指定接收返回值的字符串变量
ByVal nSize As Long, _                   ' 指定允许字符串值的最大长度
ByVal lpFileName As String) As Long      ' 指定要读的 INI 文件名
Private Declare Function WritePrivateProfileString Lib "kernel32" _
Alias "WritePrivateProfileStringA" ( _   ' 如果成功返回非 0 值，失败返回 0
ByVal lpApplicationName As String, _     ' 要写入的段 (Section) 名称
ByVal lpKeyName As Any, _                ' 要写入的的键 (Key) 名称
ByVal lpString As Any, _                 ' 要写入的值 (Value)，以字符串表示
ByVal lpFileName As String) As Long      ' 指定要写的 INI 文件名
 
我们的目的是要在 VB 中写一个读写 INI 文件的类，所以在 VB 中新建一个工程，并添加一个类模块 (Class Module)，命令类为 CIniFile，并且将上面的申明添加到类模块中。然后开始为类添加属性和方法。


从上面的注释说明中，我们可以知道，每次调三个 API 之一都需要指定 INI 文件
名。而在我们的 CIniFile 的每一个实例中，应该始终访问同一个 INI 文件，所以属
性之一就是文件名：
Private IniFileName As String
另外，调用 API 的过程中可能会出现错误，那么 CIniFile 应该能提供错误信息
，所以定义一个保存错误信息的变量作为 CIniFile 的第二个属性
Public ErrorMsg As String
由于访问什么段、什么键以及写入什么值都可以通过参数的形式传递给方法，而获
取的值也都可以通过方法的返回值得以，所以不再需要其它属性了。不过在定义方法之
前还需要对属性进行初始化：
Private Sub Class_Initialize()
    IniFileName = vbNullString
    ErrorMsg = vbNullString
End Sub

为了指定 INI 文件名给 CIniFile，需要定义一个方法：
Public Sub SpecifyIni(FilePathName)
    IniFileName = Trim(FilePathName)
End Sub
在每次读写值之前还需要先判断是否已经指定了 INI 文件名，不然读什么写什么啊
？
Private Function NoIniFile() As Boolean
    NoIniFile = True
    If IniFileName = vbNullString Then
        ErrorMsg = "没有指定 INI 文件"
        Exit Function
    End If
    ErrorMsg = vbNullString
    NoIniFile = False
End Function 准备工作完成，现在才是重头戏，读写 INI 文件。似乎“写”要简单一些，就先“
写”吧：
Public Function WriteString(Section As String, key As String, Value As String) As Boolean
    WriteString = False
    If NoIniFile() Then
        Exit Function
    End If
    If WritePrivateProfileString(Section, key, Value, IniFileName) = 0 Then
        ErrorMsg = "写入失败"
        Exit Function
    End If
    WriteString = True
End Function 该方法在 INI 文件中写入一个键值，成功返回 True，失败返回 False。根据
WritePrivateProfileString 的需要，除了文件名这一参数不用提供之外，需要提供段
名、键名和值三个参数，而且这三个参数当然来自用户。而
WritePrivateProfileString 是通过返回值是否为 0 来判断是否成功的，所以可以通
过判断 WritePrivateProfileString 的返回值是否非 0 来返回 True 或 False。
而读 INI 就要稍稍麻烦一点了，两个读取 INI 文件的的函数中，读取字符串那个
虽然参数多些，但实现起来却更简单，所以，先写这个：
Public Function ReadString(Section As String, key As String, Size As Long) As String
    Dim ReturnStr As String
    Dim ReturnLng As Long
    ReadString = vbNullString
    If NoIniFile() Then
        Exit Function
    End If
    ReturnStr = Space(Size)
    ReturnLng = GetPrivateProfileString(Section, key, vbNullString, ReturnStr, Size, IniFileName)
    ReadString = Left(ReturnStr, ReturnLng)
End Function 这个方法在 INI 文件中读取一个键值，作为字符串返回。如果参数 Size 给定的
大小不够，将不能返回完整的值串，但不会有任何提示。
写这个函数的关键在 ReturnStr 的初始化和取值上。VB 中是不需要对字符串进行
初始化的，也不需要分配空间。但是这里如果不将它初始化为一个足够长的字符串，就
不能正确返回结果。这和 C 语言的字符串有关，就不多说了。ReturnStr 的取值也需要
有趣，要使用 Left() 函数将其截断。如果不截断，取得的结果字符串就会有 Size 那
幺长，除了取得的值以外，其余部分都是用空格填充的。其原因与前面一点相同，与 C
语言的字符串有关。当然 Left() 函数也可以使用 Trim() 代替，效果是一样的。
最后我们不得不面对这个最麻烦的 ReadInt 方法了。它为什么麻烦呢？看看现在的
函数定义就知道了：
Public Function ReadInt(Section As String, key As String) As Long
    Dim ReturnLng As Long
    ReadInt = 0
    ReturnLng = GetPrivateProfileInt(Section, key, 0, IniFileName)
    If ReturnLng = 0 Then
        ReturnLng = GetPrivateProfileInt(Section, key, 1, IniFileName)
        If ReturnLng = 1 Then
            ErrorMsg = "不能读取"
            Exit Function
        End If
    End If
    ReadInt = ReturnLng
End Function 这个方法在 INI 文件中读取一个整数值，失败时返回 0。考虑到某些键的值也可能
为 0，故应结合 ErrorMsg 判断是否成功。
这个方法中调用了两次 GetPrivateProfileInt，为什么要这样呢？因为
GetPrivateProfileInt 如果成功则返回取得的值，如果不成功则返回给定的默认值。
这样就会出现一种情况：如果我给的默认值是 0，GetPrivateProfileInt 函数取得的
值也是 0，那么它是成功还是失败呢？同样，如果我给的默认值是
1，GetPrivateProfileInt 函数取得的值也是 1，那就是成功还是失败呢？既然一次取
值无法判断，那就多取一次，第一次设定默认值为 0，第二次设定默认值为 1，INI 文
件的中值不会跟着我的默认值变吧？！虽然这样麻烦一些，但毕竟把问题解决了。
自此，我们终于把一个 CIniFile 写完了——现在读写 INI 文件再也不需要像写
CIniFile 一样考虑许多东西了，CIniFile 已经帮我们做了