-
VB DoEvents 语句的API升级版
2011-03-09 10:11:17Public Declare Function GetInputState Lib "user32" () As Long Public Sub newDoEvents() '这个是比较简单,功能较少If ... 0 then DoEvents End Sub '------------------------Public Const QS_HOTK...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 更快 -
vb中判断滚动条的简单语句
2010-08-31 13:27:00Declare Function GetScrollRange Lib "user32" (ByVal hWnd As Long, ByVal nBar As Long, lpMinPos As Long, lpMaxPos As Long) As Long Public Const SB_HORZ = ...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
-
VB.Net - 常数和枚举
2021-02-27 11:19:56constants 常数指的是程序在执行过程中可能不会改变的...在VB.Net中,常量是使用Const语句声明的。 Const语句用于模块,类,结构,过程或块级别,以用于替换文字值。 Const语句的语法是: [ < attributelist> ]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 输出_VB.Net 教学(五)常数和枚举
2020-12-14 15:57:41原文链接:VB.Net 教学(五)常数和枚举constants 常数指的是程序在执行过程中可能不会改变的固定值。这些固定值也称为文字。常量可以是任何基本数据类型,...声明常量在http://VB.Net中,常量是使用Const语句声明的...原文链接: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
-
VB.NET修饰符汇总
2010-12-15 10:43:00VB.NET修饰符1.Shadows Shadows 关键字指示被声明的编程元素隐藏基类中一个同名元素或... Shadows 关键字用于下面的上下文中:Class 语句 Const 语句 Declare 语句 Delegate 语句 Dim 语句 Enum 语句 Event 语句... -
VB.NET修饰符详细概念总结
2011-04-09 17:09:00VB.NET修饰符1.... Shadows 关键字用于下面的上下文中:Class 语句 Const 语句 Declare 语句 Delegate 语句 Dim 语句 Enum 语句 Event 语句 Function 语句 Interface 语句 Property 语句 Structure 语 -
VB.Net - 指令
2021-02-27 13:20:38这些指令不是语句。 VB.Net编译器没有单独的预处理器; 然而,指令被处理,就像有vb.net教程一个。 在VB.Net中,编译器指令用于帮助条件编译。 与C和C ++指令不同,它们不用于创建宏。 在 VB.Net 中的编译器指令 VB... -
枚举类型未设定范围_VB.Net 教学(五)常数和枚举
2021-01-26 04:39:02原文链接:VB.Net 教学(五)常数和枚举constants 常数指的是程序在执行过程中可能不会改变的固定值。这些固定值也称为文字。常量可以是任何基本数据类型,...声明常量在http://VB.Net中,常量是使用Const语句声明的... -
vb Script参考文档
2009-07-28 22:13:02Const 语句 声明用于字母值的常数。 Cos 函数 返回角度的余弦值。 CreateObject 函数 创建并返回对“自动”对象的引用。 CSng 函数 返回已被转换为单精度子类型的变体的表达式。 CStr 函数 返回已被转换为字符... -
了解VB.NET中的常量与枚举功能
2009-04-02 21:22:00在程序运行的过程中始终固定不变的量称为常量。由于在程序设计和开发时...vB.NET中常量的来源有两种,由用户利用Const语句自定义,或者是系统预先定义的,可以通过菜单中“视图”一“其他窗口”一“对象浏览器”... -
VB宏定义(条件编译方法)
2019-04-21 17:55:12VB条件编译——宏定义 前言 ❤我们在开发软件时,如果该软件是应用在多产品或者多平台上面,不同的地方使用不同的代码,这时候条件编译就会变得很方便。 内容 ❤条件编译语句:#If。。。Then。。。 #Else。。。#Else... -
可在WPS环境中通用的vb6代码修改方法
2019-07-12 09:49:41Public Const xlUp = -4162 '这几条常量赋值语句如果是Excel在引用中先期绑定,是不需要的,但是如果Excel是后期绑定的,则是必须的。 Public Const xlWhole = 1 Public Const xlPart = 2 Public Const xl... -
vb.net做的俄罗斯方块
2010-06-14 20:59:23Vb写的俄罗斯方块 基本功能全'声明一个整数常量Width,表示游戏界面横向的小正方形数目,初始化为16 Public Const Width As Integer = 16 '声明一个整数常量Height,表示游戏界面横向的小正方形数目,初始化为30 ... -
为什么MFC里可以引用的API函数,到VB.NET却不能用?
2016-01-16 03:48:21查阅了许多关于VB的资料(或许 VB6 与 VB.NET 的规则有点不同),编写代码如下。这个代码的目的很简单:就是要让Form1的button1被按下时候,关掉Form2。 要想达到这个目的,需要Form1对Form2发出WM_CLOSE消息。 ... -
非Access数据库在VB中的编程及应用
2009-05-12 17:26:13而且,尽管dBASE、Paradox本身的DDL (Data Definition Language,即数据定义语言)和DML(Data Manipulation Language,即数据操纵语言)是非结构化查询的,但它们仍然可以使用VB的SQL语句和JET引擎来操纵。... -
vb.net access 打开程序数据没了_跨平台跨数据库的面向对象存储方案
2020-11-20 07:31:4351 面向对象存储我想把一个c++对象直接存到数据库而不写任何sql语句有办法吗?比如我写了一个student类如下:class student { public: student (const std::string& name, unsigned short age) : name _... -
VBS基础篇 - 常数(1) - 创建常数
2014-08-26 11:08:26常数在VBScript中是表示不变的值,用于代替数字或字符串。其内部定义了许多常数,都是以vb开头,例如在Hello World程序...当自带常数不能满足我们的需求时,我们也可以自定义常数,在VBScript中是使用Const语句来定义常 -
PHP中变量为什么要用$?
2014-08-10 17:36:022、运算符操作数(包括VB中的赋值语句) 3、数组下标(包括PHPkey标) 能产生值(数和字符串)的位置 1、简单变量 2、数组元素 3、结构成员 4、函数 5、常量(一般字面常量、C和PHP中define常量、VB中const常变量)... -
abc能创建文件不 mkdir_请问,“MkDir”命令不能创建多级文件夹吗?
2020-12-23 17:55:08你的位置:问答吧-> VB-> 问题详情请问,“MkDir”命令不能创建多级文件夹吗...已编写如下语句:Const TmpFilesPath = "C:\Documents and Settings\LocalService\Local Settings\Temp\Temporary Internet Files... -
vbs基本编程
2018-01-17 15:30:28【常量变量的定义】 '常量变量的定义 Option Explicit '强制变量声明,有了此语句必须申明...Const vbPI=3.14 '常量 前面加vb或者con一般表示是常数 opera=InputBox("please input a's value") operb=InputBox("ple