多媒体程序设计3

VB内置函数与API函数应用 一与文本操作相关函数 Replace expression find replacewith compare count start 返回字符串 其中指定数目的某子字符串被替换为另一个子字符串 参数描述expression必选 字符串表达式 包含要替换的子字符串 find必选 被搜索的子字符串 replacewith必选 用于替换的子字符串 start可选 expression中开始搜索子字符串的位置 如果省略 默认值为1 count可选 执行子字符串替换的数目 如果省略 默认值为 1 表示进行所有可能的替换 compare可选 指示在计算子字符串时使用的比较类型的数值 有关数值 请参阅 设置 部分 例 replace text1 护理 检验 InStr start string1 string2 返回指定一字符串在另一字符串中最先出现的位置 start可选参数 为数值表达式 设置每次搜索的起点 如果省略 将从第一个字符的位置开始 string1必要参数 接受搜索的字符串表达式 string2必要参数 被搜索的字符串表达式 文本框相关属性Text1 seltext获得当前所选文本Text1 selstart返回或设置所选文本的起始点 若没有选中文本返回插入点的位置 Text1 sellength返回或设置所选文本的字符数三者结合可以用于查找文本中的字符串 例 快速替换文本中的字符串 PrivateSubCommand1 Click DimiAsString 定义字符串变量i Text1 SelText 返回当前所选择文本的字符串Text3 Text Replace Text1 i Text2 用Replace替换EndSub 快速查找文本中的字符串 PrivateSubCommand1 Click Text1 SetFocus 获得焦点I InStr 1 Text1 Text2 字符串在另一字符串中最先出现的位置Text1 SelStart I 1 返回插入点位置Text1 SelLength Len Text2 返回所选择的字符数EndSub 二VB中与时间相关函数 DATE型变量及其相关函数 在内部 一个Date占8个字节的内存 你可以方便地用它来存储日期和时间 注意输入顺序与系统默认的时间表示顺序相同 例如 DimdAsDated 5 23 9911 45 34AM Now函数可返回今天的日期及时间 如 PrivateSubForm Click DimdAsDated NowPrintdEndSubtime函数可返回当前的时间 DateValue和TimeValue函数则可将代表日期和时间的字符串转化为Date型 并且也可以叠加 d DateValue 1999 5 23 TimeValue 11 45 34 以以上日期为例 如想显示其中的一部分信息可使用以下函数 PrintMonth d 5PrintDay d 23PrintYear d 1999PrintHour d 11 常用于时间分段 PrintMinute d 45PrintSecond d 34PrintWeekDay d 1 1代表星期日 TimeSerial函数 定义和用法TimeSerial函数可把时 分 秒合并成为时间 语法TimeSerial hour minute second 参数描述Hour 介于0 23的数字 或数值表达式 Minute 介于0 59的数字 或数值表达式 Second 介于0 59的数字 或数值表达式 DateSerial函数可以把年 月 日的数字组合成一个Date值 灵活地应用以上的函数 可以大大地简化程序 例如想计算10000秒等于几小时几分几秒可写为 PrivateSubForm Click DimdAsDated TimeSerial 0 0 10000 PrintdEndSub结果为2 46 40 记录时间的API函数 GetTickCountWindowsAPI函数可返回Windows启动以来消失的毫秒数 这为我们编程提供了很大的方便 例如想知道你的电脑连续工作多久了 可新建一工程 然后添加以下代码 PrivateDeclareFunctionGetTickCountLib kernel32 AsLongPrivateSubForm Load DimdAsDateDimtAsIntegerForm1 Showt GetTickCount 1000d TimeSerial 0 0 t PrintdEndSub 例 使用TimeSerial函数自制闹钟 在WindowsAPI函数的有一个PlaySound函数 它用于播放WAV格式的声音文件 我们可以用它来播放一个指定的WAV文件来实现提醒功能 CallPlaySound 文件名 0 1 停止播放CallPlaySound 0 0 0 PrivateSubCommand1 Click Timer1 Enabled TrueTimer1 Interval 1000EndSubPrivateSubCommand2 Click UnloadMeEndSubPrivateSubTimer1 Timer IfTimeSerial Text1 Text2 Text3 TimeThenCallPlaySound App path 01 wav 0 1 Command1 Enabled TrueEndIfEndSub 课后实践作业 制作桌面模拟时钟 要求 分组完成 每组成员不多于3人 分组名单于3月28日上报 作