控制面板　　模块: control.exe　　命令: rundll32.exe shell32.dll,Control_RunDLL　　结果: 显示控制面板窗口　　例子:　　Dim x　　x = Shell("rundll32.exe shell32.dll,Control_RunDLL")　　辅助选项　　模块: access.cpl　　命令: rundll32.exe shell32.dll,C... [阅读全文]

SQL中单记录1.ASCII返回和指定对应十进制数;SQL select ascii(\'A\') A,ascii(\'a\') a,ascii(\'0\') zero,ascii(\' \') space from dual; A A ZERO SPACE--------- --------- --------- --------- 65 97 48 32 ... [阅读全文]

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

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

这是个用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... [阅读全文]

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

名: abort 功 能: 异常终止个进程 用 法: void abort(void); 例: # # (void) { prf(\"Calling abort\\n\"); abort; 0; /* This is never reached */ } 名: abs 功 能: 求整数绝对值 用 法: abs( i); 例: # # (void) { ... [阅读全文]

名: bar 功 能: 画个 2维条形图 用 法: void far bar( left, top, right, bottom); 例: # # # # (void) { /* request auto detection */ gdriver = DETECT, gmode, errorcode; midx, midy, i; /* initia... [阅读全文]

首部 function AnsiResemblesText(const AText, AOther: ): Boolean; $[StrUtils.pas功能 返回两个串是否相似介绍说明 ANSI(American National Standards Institute)美国国家标准协会;不区分大小写参考 function StrUtils.SoundexPr... [阅读全文]

首部 function FindNext(var F: TSearchRec): Integer; $[SysUtils.pas功能 返回继续文件搜索介绍说明 搜索成功则返回0参考 function Windows.FindNextFile例子 参见FindFirst━━━━━━━━━━━━━━━━━━━━━首部 procedure FindClose(var ... [阅读全文]

首部 function Languages: TLanguages; $[SysUtils.pas功能 返回系统语言对象介绍说明 通过此可以得到系统语言环境参考 type SysUtils.TLanguages例子 ///////Begin Languagesprocedure TForm1.Button1Click(Sender: TObject);varI:... [阅读全文]

首部 function InquireSignal(RtlSigNum: Integer): TSignalState; $[SysUtils.pas功能 NULL介绍说明 Kylix参考 NULL例子 NULL━━━━━━━━━━━━━━━━━━━━━首部 procedure AbandonSignalHandler(RtlSigNum: Integer); ... [阅读全文]

首部 function FormatFloat(const Format: ; Value: Extended): ; $[SysUtils.pas功能 返回浮点数类型以指定格式串Format转换成串介绍说明 FormatFloat(\',.00\', 1234567890) = \'1,234,567,890.00\'参考 function SysUtils.... [阅读全文]

1、DateTime 数字型 .DateTime currentTime= .DateTime; 1.1 取当前年月日时分秒 currentTime=.DateTime.Now; 1.2 取当前年 年=currentTime.Year; 1.3 取当前月 月=currentTime.Month; 1.4 取当前日 日=currentTime.Day; 1.... [阅读全文]