Public Declare Function GetInputState Lib "user32" () As Long 

Public Sub newDoEvents() '这个是比较简单,功能较少
If GetInputState() <> 0 then DoEvents 
End Sub 

'------------------------
Public Const QS_HOTKEY = &H80 
Public Const QS_KEY = &H1 
Public Const QS_MOUSEBUTTON = &H4 
Public Const QS_MOUSEMOVE = &H2 
Public Const QS_PAINT = &H20 
Public Const QS_POSTMESSAGE = &H8 
Public Const QS_SENDMESSAGE = &H40 
Public Const QS_TIMER = &H10 
Public Const QS_ALLINPUT = (QS_SENDMESSAGE Or QS_PAINT Or QS_TIMER Or QS_POSTMESSAGE Or QS_MOUSEBUTTON Or QS_MOUSEMOVE Or QS_HOTKEY Or QS_KEY)
Public Const QS_MOUSE = (QS_MOUSEMOVE Or QS_MOUSEBUTTON) 
Public Const QS_INPUT = (QS_MOUSE Or QS_KEY) 
Public Const QS_ALLEVENTS = (QS_INPUT Or QS_POSTMESSAGE Or QS_TIMER Or QS_PAINT Or QS_HOTKEY) 
Public Declare Function GetQueueStatus Lib "user32" (ByVal qsFlags As Long) As Long

Public Function cGetInputState() '这个可以按自己的要求定义,接收到什么消息才DoEvents 
Dim qsRet As Long 
qsRet = GetQueueStatus(QS_HOTKEY Or QS_KEY Or QS_MOUSEBUTTON Or QS_PAINT) 
if qsRet<>0 then DoEvents 
End Function 
'有了上面2个函数就不怕影响循环中的运算效率了
'它可以让你的程序循环速度比使用 DoEvents 更快


 

Declare   Function   GetScrollRange   Lib   "user32"  
 (ByVal   hWnd   As   Long,   ByVal   nBar   As   Long,   lpMinPos   As   Long,   lpMaxPos   As   Long)   As   Long   
  Public   Const   SB_HORZ   =   &H0   
  Public   Const   SB_VERT   =   &H1   
    
  Public   Function   VsScroll(MshGrid  As  MSHFlexGrid)  As Boolean                     -------------------判断水平滚动条的可见性   
  Dim   i   As   Long   
  VsScroll   =   False   
  i   =   GetScrollRange(MshGrid.hWnd,   SB_HORZ,   lpMinPos,   lpMaxPos)   
  If   lpMaxPos   <>   lpMinPos   Then  
 VsScroll   =   True   
  End   Function   
 
  Public Function HeScroll(MshGrid As MSHFlexGrid) As Boolean                     ----------------------判断垂直滚动条的可见性   
  Dim   i   As   Long   
  HeScroll   =   False   
  i   =   GetScrollRange(MshGrid.hWnd,   SB_VERT,   lpMinPos,   lpMaxPos)   
  If   lpMaxPos   <>   lpMinPos   Then   
HeScroll   =   True     
  End   Function  

constants 常数指的是程序在执行过程中可能不会改变的固定值。 这些固定值也称为文字。
常量可以是任何基本数据类型，如整数常量，浮点常量，字符常量或字符串常量。 还有枚举常量。
常量被视为常规变量，除了它们的值不能在它们的定义之后被修改。
enumeration 枚举是一组命名的整数常量。
声明常量

在VB.Net中，常量是使用Const语句声明的。 Const语句用于模块，类，结构，过程或块级别，以用于替换文字值。
Const语句的语法是：

[ < attributelist> ] [ accessmodifier ] [ Shadows ]

Const constantlist

1、attributelist：指定应用于常量的属性列表; 您可以提供多个属性，以逗号分隔。 可选的。
2、accessmodifier：指定哪些代码可以访问这些常量。 可选的。 值可以是：Public, Protected, Friend, Protected Friend, or Private.
3、Shadows:这使常量隐藏基类中相同名称的编程元素。 可选的。
4、Constantlist：给出声明的常量的名称列表。 必填。
其中，每个常量名都有以下语法和部分：
constantname [ As datatype ] = initializer

1、constantname 常量名：指定常量的名称
2、data type 数据类型：指定常量的数据类型
3、initializer 初始值设定：指定分配vb.net教程给常量的值
例如，
'The following statements declare constants.'
Const maxval As Long = 4999
Public Const message As String = "HELLO" 
Private Const piValue As Double = 3.1415

示例

以下示例演示了常量值的声明和使用：
Module constantsNenum
   Sub Main()
      Const PI = 3.14159
      Dim radius, area As Single
      radius = 7
      area = PI * radius * radius
      Console.WriteLine("Area = " & Str(area))
      Console.ReadKey()
   End Sub
End Module

当上述代码被编译和执行时，它产生了以下结果：
Area = 153.938
在VB.Net中输出和显示常量

VB.Net提供以下打印和显示常量：




Constant
描述




vbCrLf
回车/换行字符组合。


vbCr
回车字符。


vbLf
换行字符。


vbNewLine
换行字符。


vbNullChar
空字符。


vbNullString
不等于零长度字符串（“”）; 用于调用外部过程。


vbObjectError
错误号。用户定义的错误号应大于此值。例如：


Err.Raise
（数字）= vbObjectError + 1000


vbTab
标签字符。


vbBack
退格字符。


声明枚举

使用Enum语句声明枚举类型。 Enum语句声明一个枚举并定义其成员的值。 Enum语句可以在模块，类，结构，过程或块级别使用。
Enum语句的语法如下：

[ < attributelist > ] [ accessmodifier ]  [ Shadows ]

Enum enumerationname [ As datatype ]

memberlist

End Enum

1、attributelist:指应用于变量的属性列表。 可选的。
2、asscessmodifier：指定哪些代码可以访问这些枚举。 可选的。 值可以是：公共，受保护，朋友或私人。
3、Shadows：这使枚举隐藏基类中相同名称的编程元素。 可选的。
4、enumerationname：枚举的名称。 必填
5、datatype：指定枚举的数据类型及其所有成员。
6、memberlist：指定在此语句中声明的成员常数的列表。 必填。
成员列表中的每个成员具有以下语法和部分：
[< attribute list>] member name [ = initializer ]

name 名称 ：指定成员的名称。必填。
initializer 初始化 ：分配给枚举成员的值。可选的。
例如，
Enum Colors
   red = 1
   orange = 2
   yellow = 3
   green = 4
   azure = 5
   blue = 6
   violet = 7
End Enum

示例

以下示例演示了Enum变量颜色的声明和使用：
Module constantsNenum
   Enum Colors
      red = 1
      orange = 2
      yellow = 3
      green = 4
      azure = 5
      blue = 6
      violet = 7
   End Enum
   Sub Main()
      Console.WriteLine("The Color Red is : " & Colors.red)
      Console.WriteLine("The Color Yellow is : " & Colors.yellow)
      Console.WriteLine("The Color Blue is : " & Colors.blue)
      Console.WriteLine("The Color Green is : " & Colors.green)
      Console.ReadKey()
   End Sub
End Module

当上述代码被编译和执行时，它产生了以下结果：
The Color Red is: 1
The Color Yellow is: 3
The Color Blue is: 6
The Color Green is: 4

原文链接：VB.Net 教学（五）常数和枚举
constants 常数指的是程序在执行过程中可能不会改变的固定值。这些固定值也称为文字。
常量可以是任何基本数据类型，如整数常量，浮点常量，字符常量或字符串常量。还有枚举常量。
常量被视为常规变量，除了它们的值不能在它们的定义之后被修改。
enumeration 枚举是一组命名的整数常量。
声明常量
在http://VB.Net中，常量是使用Const语句声明的。Const语句用于模块，类，结构，过程或块级别，以用于替换文字值。Const语句的语法是：
[ < attributelist> ] [ accessmodifier ] [ Shadows ]
Const constantlist
1、attributelist：指定应用于常量的属性列表; 您可以提供多个属性，以逗号分隔。可选的。
2、accessmodifier：指定哪些代码可以访问这些常量。可选的。值可以是：Public, Protected, Friend, Protected Friend, or Private.
3、Shadows:这使常量隐藏基类中相同名称的编程元素。可选的。
4、Constantlist：给出声明的常量的名称列表。必填。
其中，每个常量名都有以下语法和部分：
constantname [ As datatype ] = initializer
1、constantname 常量名：指定常量的名称
2、data type 数据类型：指定常量的数据类型
3、initializer 初始值设定：指定分配给常量的值
例如:
'The following statements declare constants.'
Const maxval As Long = 4999
Public Const message As String = "HELLO"
Private Const piValue As Double = 3.1415
示例
以下示例演示了常量值的声明和使用：
Module constantsNenum
   Sub Main()
      Const PI = 3.14149
      Dim radius, area As Single
      radius = 7
      area = PI * radius * radius
      Console.WriteLine("Area = " & Str(area))
      Console.ReadKey()
   End Sub
End Module
当上述代码被编译和执行时，它产生了以下结果：
Area = 153.933
在http://VB.Net中输出和显示常量
http://VB.Net提供以下打印和显示常量：
声明枚举
使用Enum语句声明枚举类型。Enum语句声明一个枚举并定义其成员的值。Enum语句可以在模块，类，结构，过程或块级别使用。Enum语句的语法如下：
[ < attributelist > ] [ accessmodifier ]  [ Shadows ]
Enum enumerationname [ As datatype ]
   memberlist
End Enum
1、attributelist:指应用于变量的属性列表。可选的。
2、asscessmodifier：指定哪些代码可以访问这些枚举。可选的。值可以是：公共，受保护，朋友或私人。
3、Shadows：这使枚举隐藏基类中相同名称的编程元素。可选的。
4、enumerationname：枚举的名称。必填
5、datatype：指定枚举的数据类型及其所有成员。
6、memberlist：指定在此语句中声明的成员常数的列表。必填。
成员列表中的每个成员具有以下语法和部分：
[< attribute list>] member name [ = initializer ]
name 名称 ：指定成员的名称。必填。
initializer 初始化 ：分配给枚举成员的值。可选的。
例如:
Enum Colors
   red = 1
   orange = 2
   yellow = 3
   green = 4
   azure = 5
   blue = 6
   violet = 7
End Enum
示例
以下示例演示了Enum变量颜色的声明和使用：
Module constantsNenum
   Enum Colors
      red = 1
      orange = 2
      yellow = 3
      green = 4
      azure = 5
      blue = 6
      violet = 7
   End Enum
   Sub Main()
      Console.WriteLine("The Color Red is : " & Colors.red)
      Console.WriteLine("The Color Yellow is : " & Colors.yellow)
      Console.WriteLine("The Color Blue is : " & Colors.blue)
      Console.WriteLine("The Color Green is : " & Colors.green)
      Console.ReadKey()
   End Sub
End Module
当上述代码被编译和执行时，它产生了以下结果：
The Color Red is: 1
The Color Yellow is: 3
The Color Blue is: 6
The Color Green is: 4