VB.net 2010 视频教程 VB.net 2010 视频教程 VB.net 2010 视频教程
  • 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中文企业版运行通过。
相关教程
  • 【砥砺奋进的5年】空气质量优良 "南宁蓝"常驻绿城 2019-02-17
  • 机关党建工作巡礼——广东“走前头作表率” 2019-02-17
  • 为什么说一直辛苦劳作的农民没有富起来?而不说一直勤劳的农民没有富起来? 2019-02-17
  • 中欧美六国商会签约 国际战略合作在石达成 2019-02-17
  • 【专题】走龙江丝路 向北看发展 华南城 全国重点网媒龙江集中采访活动 2019-02-16
  • 彩民复式追加投注 斩获体彩大乐透1425万 2019-02-16
  • 多彩课堂熔铸红色魂——甘祖昌干部学院教学素描 2019-02-16
  • 张佳宁杂志玩转新娘风 甜系女生展俏皮魅力 2019-02-15
  • 中央调剂制度促进养老保险制度可持续发展 2019-02-15
  • 西安高科工程技术学校——陕西省政府直属中等职业院校西安高科工程技术学校2018招生简章-陕西教育新闻 2019-02-14
  • 旅游低价团暗藏玄机 治理需保持高压态势--旅游频道 2019-02-14
  • 【高清】傈僳族乡村女教师熊文碧:背着娃娃教书 2019-02-13
  • QS世界大学排名发布:中国11所大学进百强,清华排名创历史 2019-02-13
  • 辽宁贯彻十九大精神:领导沉下去 群众用心学 2019-02-13
  • 多部门三令五申禁网售彩票,世界杯竞猜APP上仍热卖 2019-02-12
  • 106| 843| 314| 383| 178| 36| 774| 865| 285| 760|