用VB实现编程离不开及Windows API以下是笔者收集些实用小例程它们可以直接用在你实际编程中也可以根据实际应用加以扩充完善其中涉及Windows API代码你可以从VB5.0系统API查看器中复制定义内容以避免出错　　1.系统型表单　　系统型意味着用户完成当前表单操作的前无法进行其它操作这对于编制系统口令保护界面尤为重要如果你希望当前表单系统型表单需如下定义API:　　Declare Fun... [阅读全文]

前面已经接触到类变量、属性以及枚举但我们怎样才能更好利用它们呢？　　显然子过程就是其中种方式它几乎出现所有Visual Basic中所以这里来举例介绍说明　　在CDog类中添加下列代码:　　　　Public Sub Bark　　　MsgBox "Woof! Woof!"　　End Sub　　这里子过程是最常见我们可以简单地使用MyDog.Bark来它　　下面来试试:　　将表单Form1Comman... [阅读全文]

结构化查询语言SQL是操作数据库国际标准语言在开发VB数据管理软件Software过程中利用SQL可以使数据操作大为方便使VB和数据库联系更加紧密　　1 问题提出　　在数据库操作中常常会涉及数据表中记录个数、某字段最大值或最小值、某字段平均以及某字段总和等计算这些计算当然可以通过设计算法利用VB本身来实现但是如果利用VB中SQL合计则求解过程大为简化效率大大提高　　VB中SQL合计主要包括记录个数... [阅读全文]

返回个 String用以表示个文件名、目录名或文件夹名称它必须和指定模式或文件属性、或磁盘卷标相匹配 语法 Dir[(pathname[, attributes])] Dir 语法具有以下几个部分: 部分描述 pathname可选参数用来指定文件名串表达式可能包含目录或文件夹、以及驱动器如果没有找到 pathname则会返回零长度串 (\"\") attribu... [阅读全文]

描述 返回个货币值格式表达式它使用系统控制面板中定义货币符号 语法 FormatCurrency(Expression[,NumDigitsAfterDecimal [,IncludeLeadingDigit [,UseParensForNegativeNumbers [,GroupDigits]]]]) FormatCurrency语法有如下几部分: 部分描述... [阅读全文]

=sfontTime 返回系统时钟当前时间 Date 返回系统时钟当前日期 Now 返回代表当前日期和时间编码值该经常用作其它系统时钟参数 Hour(Time) 返回指定时间小时部分(0到23) Minute(Time) 返回指定时间分钟部分(0到59) Second(Time) 返回指定时间秒部分(0到59) Day(Date)... [阅读全文]

返回包含指定年、月、日 Variant (Date) 语法 DateSerial(year, month, day) DateSerial 语法有下列命名参数: 部分描述 year必要；Integer从 100 到 9999 间整数或数值表达式 month必要；Integer任何数值表达式 day必要；Integer任何数值表达式 介绍说明 为... [阅读全文]

这是个用VB实现收入调节税 有可能有人需要所以就发上来了Function iiatax(x,y) Dim basicnum As Integer Dim downnum As Variant, upnum As Variant, ratenum As Variant, deductnum As Variant If y = 0 Then basicnum = 1... [阅读全文]

1.RGB颜色 RGB是个颜色“R”代表Red(红)“G”代表Green(绿)“B”代表Blue(蓝)通过红、绿、蓝3种基本色混合产生某种颜色 格式:RGB(红绿蓝) 介绍说明: (1)红、绿、蓝3种基本色使用0～255的间整数 (2)从理论上来说3种基... [阅读全文]

VB下几个非常有用´————————(1)————————————´获得指定ini文件中某个节下面所有键值 TrueZq,,需要下面API声明´Private Declare Function GetPrivateProfileSection Lib \"kernel32\" Alias \"GetPrivateProfil... [阅读全文]

sp; 在VB中,提供了很多数据类型转换,特别是各种进制数据转换以及串和数字转换,本文将对这些做个简单小结.1. 各种进制转换 般数据进制包括十进制, 2进制,十 6进制.十进制就是我们日常生活用到数据进制,因此也是我们最熟悉和清楚; 2进制是计算机基础进制,主要是便于用物理器件实现 2进制; 8进制和十 6进制和 2进制天然亲密关系,并且表... [阅读全文]

FreeFile[(rangenumber)]可选的参数rangenumber是一个Variant，它指定一个范围，以便返回该范围之内的下一个可用文件号。指定0（缺省值）则返回一个介于1–255之间的文件号。指定1则返回一个介于256–511之间的文件号。说明使用FreeFile提供一个尚未使用的文件号。FreeFile函数示例本示例使用FreeFile函数来返回下一个可用的文件号。在循环中，共打... [阅读全文]

在API文本浏览器里，当我们在搜索栏输入任意字母，“可用项”里以该字母开头的项目以高亮显示以引起我们注意该项是不是我们所需的。象这样的功能一切提供搜索选项的程序都应该具备。以下例子采用SendMessage函数实现这一技术。 请给标准工程添加ListBox和TextBox控件各一个，其各项属性均取默认值，然后将下列代码拷贝到你的工程： Option Explicit \'申明API函数 Priva... [阅读全文]

前面已经接触到类变量、属性以及枚举但我们怎样才能更好利用它们呢？ 　　 显然子过程就是其中种方式它几乎出现所有visual basic中所以这里来举例介绍说明 　　 在cdog类中添加下列代码: 　　public sub bark 　　　 msgbox \"woof! woof!\" 　　 end sub 　　 这里子过程是最常见我们可以简单地使用mydog.b... [阅读全文]

在api文本浏览器里当我们在搜索栏输入任意字母“可用项”里以该字母开头项目以高亮显示以引起我们注意该项是不是我们所需象这样功能切提供搜索选项都应该具备以下例子采用sendmessage实现这技术 请给标准工程添加listbox和textboxControl控件各个其各项属性均取默认值然后将下列代码拷贝到你工程: option explicit \'申明api p... [阅读全文]

要建立个新过程只要使用Function语句声明即可Function语句语法在上小节中已经给出可以在标准模块、类模块以及窗体模块中创建不能在另外Function、Sub过程中定义过程 过程思路方法和通用Sub子过程略有区别使用名并在其后用圆括号给出相应参数列表来Function过程例如下面例子中在Cmd 1_C1ick事件过程中Hypotenuse来... [阅读全文]