当前位置:
新疆25选7开奖号码 > 编程开发 > vb >
-
vb教程之打字效果怎样使用VB6.0实现打字效果
- 2017-09-21 16:13 来源：未知
在某些演示场所，你可能会看到用于演示的电脑在自动地一个字一个字地显示广告信息。其实，用VB6.0可以很容易地实现这种效果。
我先介绍函数sendkeys，它的作用是将一个或多个按键消息发送到活动窗口，就如同在键盘上进行输入一样。语法是:SendKeys string［, wait］
SendKeys语句的语法主要具有两个命名参数:
1.string必要。字符串表达式，指定要发送的按键消息。
2.Wait可选。指定等待方式的Boolean值。如果为False（缺省值），则控件在按键发送出去之后立刻返回到过程;如果为True，则按键消息必须在控件返回到过程之前加以处理。
具体方法:首先在窗体上添加一个textbox控件text1及一个timer控件timer1。然后，将text1的text属性设为空，multiline属性设为true;timer1的Interval属性可以设为200。
程序清单如下:
Dim i As Integer
Private Sub Timer1_Timer()
Dim str1 As String
str1 = “学软件、用软件、买软件，就看《新
潮电子》” '显示信息
len1 = Len(str1)
With Text1
.FontSize = 20
.FontName = "黑体"
.ForeColor = &HFF0000
.BackColor = &HFFFF&
End With
str2 = Mid$(str1, i + 1, 1)
'一个字一个字地显示
SendKeys str2
i = i + 1
If (i + 1) > len1 Then
SendKeys "{enter}" '换行
i = 0
End If
End Sub
本程序在中文Windows 98上用VB6.0中文企业版运行通过。
我先介绍函数sendkeys，它的作用是将一个或多个按键消息发送到活动窗口，就如同在键盘上进行输入一样。语法是:SendKeys string［, wait］
SendKeys语句的语法主要具有两个命名参数:
1.string必要。字符串表达式，指定要发送的按键消息。
2.Wait可选。指定等待方式的Boolean值。如果为False（缺省值），则控件在按键发送出去之后立刻返回到过程;如果为True，则按键消息必须在控件返回到过程之前加以处理。
具体方法:首先在窗体上添加一个textbox控件text1及一个timer控件timer1。然后，将text1的text属性设为空，multiline属性设为true;timer1的Interval属性可以设为200。
程序清单如下:
Dim i As Integer
Private Sub Timer1_Timer()
Dim str1 As String
str1 = “学软件、用软件、买软件，就看《新
潮电子》” '显示信息
len1 = Len(str1)
With Text1
.FontSize = 20
.FontName = "黑体"
.ForeColor = &HFF0000
.BackColor = &HFFFF&
End With
str2 = Mid$(str1, i + 1, 1)
'一个字一个字地显示
SendKeys str2
i = i + 1
If (i + 1) > len1 Then
SendKeys "{enter}" '换行
i = 0
End If
End Sub
本程序在中文Windows 98上用VB6.0中文企业版运行通过。
最新更新
C#教程之秋葉隨風去 冰比冰比冰 C#实现多
C#教程之动软代码生成器基础使用
C#教程之C#开发微信小程序
C#教程之C# 利用反射将枚举绑定到下拉框
C#教程之.Net使用RabbitMQ
C#教程之C#/VB.NET 操作Word批注（二）——如
C#教程之C#语言各个版本特性(一)
C#教程之WPF 控件库——仿制Windows10的进度
C#教程之C#语言各个版本特性
C#教程之C#语言各个版本特性
asp.net教程之纯ASP上传图像文件到数据库实
asp.net教程之ASP错误处理
asp.net教程之ASP网站防范黑客技巧
asp.net教程之用ASP取出HTML里面的图片地址
asp.net教程之ASP实现网页打开任何类型文件
asp.net教程之ASP木马Webshell安全解决办案
asp.net教程之几招让你的网站免受采集之苦
asp.net教程之ASP使用MYSQL数据库全攻略
asp.net教程之Ad Rotator 组件参考
asp.net教程之在Asp中使用存储过程数值类型
sql语句大全之SQL递归查询知多少
sql语句大全之SQL Server 2012 - 多表连接查询
sql语句大全之SQL Server 2012 - 开窗函数
sql语句大全之“RESOURCE MONITOR“CPU占用特别
sql语句大全之关系型数据库基本概念及
sql语句大全之T-SQL语句
sql语句大全之记一个常见的ms sql server中取
sql语句大全之游标 的使用
sql语句大全之sp_executesql 或者 EXECUTE 执行
sql语句大全之SQL Server 用角色(Role)管理数
