VB.net 2010 视频教程 VB.net 2010 视频教程 VB.net 2010 视频教程
当前位置:
主页 > 编程开发 > 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中文企业版运行通过。
相关教程
  • 新中国第一张彩色报纸《人民日报》 2018-12-13
  • 新编《思维学》续五;《情绪论》 2018-12-13
  • 明年起全面供应国六标准汽柴油 2018-12-12
  • 有神论跟无神论的差别在哪你都不知道,还要扯啥呢。 2018-12-12
  • 互联网与金融 回归·绿色·共享 2018-12-12
  • 中国保险监督管理委员会原主席项俊波受贿案一审开庭 2018-12-10
  • 紫光阁中共中央国家机关工作委员会 2018-12-10
  • 广州市食药监局:端午粽抽检全部合格 2018-12-10
  • 中国足球与中国股市谁最牛?请投下你神圣一票 2018-12-10
  • “碎尸案别墅”拍出后 拖欠的物业费谁付? 2018-12-09
  • 保温杯,嘴边的健康隐患 2018-12-09
  • 马来西亚总理马哈蒂尔 我要去中国看一看,感受无现金社会 2018-12-08
  • 这泼猴总给人萌萌达的感觉 2018-12-08
  • 我们的国际主义义务就是让那受苦受难的中东人去欧洲过上幸福,美好的生活。到中国来,又不自由,又不民主,茶叶蛋都吃不上,来干嘛泥? 2018-12-07
  • 一江清水何以来?(人民眼·生态补偿) 2018-12-07
  • 579| 223| 891| 245| 503| 127| 475| 879| 708| 949|