最稳的pk10计划iphone 北京pk10计划手机软件 北京pk10数字的规律 超神手机版pk10软件 pk10北京赛车9码技巧 pk10四期倍投计划表 pk10极速赛车论坛 北京赛车冠军怎样选5码 北京赛车系统下载安装 pk10教程视频 北京pk10选号公式 北京赛车pk10赚钱技巧 北京赛车怎么提升概率 pk10技巧北京快三 北京pk10大小计划
VB.net 2010 視頻教程 VB.net 2010 視頻教程 VB.net 2010 視頻教程
SQL Server 2008 視頻教程 c#入門經典教程 Visual Basic從門到精通視頻教程
當前位置:
首頁 > 編程開發 > 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中文企業版運行通過。
pk10赛车冠军技巧
最稳的pk10计划iphone 北京pk10计划手机软件 北京pk10数字的规律 超神手机版pk10软件 pk10北京赛车9码技巧 pk10四期倍投计划表 pk10极速赛车论坛 北京赛车冠军怎样选5码 北京赛车系统下载安装 pk10教程视频 北京pk10选号公式 北京赛车pk10赚钱技巧 北京赛车怎么提升概率 pk10技巧北京快三 北京pk10大小计划
高中音乐老师赚钱么 工作难做不赚钱 猫盘为什么提现不了 小小航海士 赚钱姿势 三分彩走势图 如何开一家赚钱的淘宝店 11选5顺口溜 微博上回收手机如何赚钱 欢乐斗棋牌捕鱼技巧