VarType() 函数返回的是 integer 型值,这个函数返回的是字符串。
Public Function getDataType(v As Variant) As String
Select Case VarType(v)
Case vbArray
getDataType = "vbArray"
Case vbBoolean
getDataType = "vbBoolean"
Case vbByte
getDataType = "vbByte"
Case vbCurrency
getDataType = "vbCurrency"
Case vbDataObject
getDataType = "vbDataObject"
Case vbDate
getDataType = "vbDate"
Case vbDecimal
getDataType = "vbDecimal"
Case vbDouble
getDataType = "vbDouble"
Case vbEmpty
getDataType = "vbEmpty"
Case vbError
getDataType = "vbError"
Case vbInteger
getDataType = "vbInteger"
Case vbLong
getDataType = "vbLong"
Case vbNull
getDataType = "vbNull"
Case vbObject
getDataType = "vbObject"
Case vbSingle
getDataType = "vbSingle"
Case vbString
getDataType = "vbString"
Case vbUserDefinedType
getDataType = "vbUserDefinedType"
Case vbVariant
getDataType = "vbVariant"
Case Else
getDataType = "Unknown Data Type"
End Select
End Function
分享到:
相关推荐
vb 判断字符串是否为日期或时间,在输入框输入任意字符串类型,程序将会判断出该字符串是否是时间字符串,这个判断方法VB员自带有函数,使用IsDate即可实现,下面是使用IsDate的简单用法示例: If IsDate(Text1) =...
EnumPrintProcessorDatatypes 枚举由一个打印处理器支持的数据类型 EnumPrintProcessors 枚举系统中可用的打印处理器 Escape 设备控制函数 FindClosePrinterChangeNotification 关闭用...
4、vb6保存(读取)数据到注册表里.txt 5、vb6背景色透明.txt 6、vb6打开任意类型的文件.txt 7、vb6打开网页.txt 8、vb6单击按钮复制文本框内的内容.txt 9、vb6单击按钮最小化窗体.txt 10、vb6点击最大化最小化和...
程序中为生成条形码,创建了一些函数,比如显示可见条码文字 如果小于40 不显示文字、获取条形码宽和放大系数、获得条码图形、根据编号获得条纹、获取目标对应的数据、偶数检测判断、获取128图形等,在VB.NET生成...
包含vb的窗体控件应用,运算符和各种数据类型混合优先级,分支结构(输入年份和月份判断天数) print函数格式显示,各种循环结构以及窗体控件的综合应用,是初学者的好帮手。
4、当某文本框输入数据后(按了回车键),进行判断认为数据输入错,怎样删除原来数据?怎样使焦点回到文本框重新输入? 5、怎样把关于Command命令按钮的Enabled属性的帮助示例代码复制到你的代码窗口?已知帮助中的...
内容包括在vb工程中调用activex控件和dll动态链接库等开发板卡数据采集与控制程序,在vb工程中利用mscomm控件、调用api函数等方法开发串口通信程序等。每种程序都提供了多个设计方法,每个设计都提供了线路图、详细...
学习目标 VB语法的基本元素 编码规则 变量与常量 数据类型 运算 表达式 内部函数 计算机程序设计-VB语言基础全文共30页,当前为第2页。 复习与总结 ' Error Code Private Sub Command1_Click() text1.backcolor=...
第三节 数据类型 1 第四节 变量与常量 1 第五节 数组 2 第六节 注释和赋值语句 2 第七节 书写规范 2 第八节 判断语句 2 第九节 循环语句 3 第十节 其他类语句和错误语句处理 4 第十一节 过程和函数 5 一.Sub过程 5 ...
vb小游戏定义蛇的运动速度枚举值 Private Enum tpsSpeed QUICKLY = 0 SLOWLY = 1 End Enum '定义蛇的运动方向枚举值 Private Enum tpsDirection D_UP = 38 D_DOWN = 40 D_LEFT = 37 D_RIGHT = 39 End Enum '...
---- 2、声明窗体级变量与加载函数LoadControl Dim WithEvents oControl As VBControlExtender '地图仿真控件对象 Dim mblnTheory As Boolean '是否显示原理图 Private Function LoadControl(intType As Integer) ...
第三节 数据类型 1 第四节 变量与常量 1 第五节 数组 2 第六节 注释和赋值语句 2 第七节 书写规范 2 第八节 判断语句 2 第九节 循环语句 3 第十节 其他类语句和错误语句处理 4 第十一节 过程和函数 4 一.Sub过程 4 ...
Hus Angela 5是一个有真正意义的编程语言,语法上吸收DELPHI、VB、C、Flash的优点,功能上全面超越VBS(兼容所有VBS语句,所有的VBS功能都能在Hus Angela中使用),并有所创新,比如自动判断数据类型;一行代码调用...
Angela 是一个部分面向问题的编程语言,语法上吸收DELPHI、VB、C、Flash的优点,功能上全面超越VBS(兼容所有VBS语句,所有的VBS功能都能在Hus Angela中使用),并有所创新,比如自动判断数据类型;一行代码调用File...
内容包括在vb工程中调用activex控件和dll动态链接库等开发板卡数据采集与控制程序,在vb工程中利用mscomm控件、调用api函数等方法开发串口通信程序等。每种程序都提供了多个设计方法,每个设计都提供了线路图、详细...
├─Example091-判断控件类型 ├─Example092-Line控件 ├─Example093-使用Shape控件 ├─Example094-引入系统监视器 ├─Example095-媒体文件浏览器 ├─Example096-列表播放媒体文件 ├─Example097-在应用程序...
4.1.1 数据类型判断 4.1.2 格式化函数 4.1.3 数据类型转换函数 4.1.4 数学运算函数 4.1.4 日期时间处理函数 4.1.5 字符串处理函数 4.2 程序范例:Hello 4.2.1 范例介绍 4.2.2 函数介绍——MsgBox函数 4.2.3 程序清单...
1.5 SQL开发环境 1.5.1 SQL环境介绍 1.5.2 SQL的层次结构 1.5.3 SQL环境中的对象 1.5.4 SQL环境中的程序系统 1.6 SQL语句基础 1.6.1 SQL常量 1.6.2 SQL表达式 1.6.3 SQL数据类型 1.6.4 注释符 1.6.5 批处理 1.6.6 ...