1. <wbr id="m8vu6"></wbr>

      <del id="m8vu6"><center id="m8vu6"><source id="m8vu6"></source></center></del>
        <p id="m8vu6"><sub id="m8vu6"></sub></p>

        VB.net 2010 視頻教程 VB.net 2010 視頻教程 python基礎視頻教程
        SQL Server 2008 視頻教程 c#入門經典教程 Visual Basic從門到精通視頻教程
        當前位置:
        首頁 > 編程開發 > vb >
        • vb教程之打字效果怎樣使用VB6.0實現打字效果

          在某些演示場所,你可能會看到用于演示的電腦在自動地一個字一個字地顯示廣告信息。其實,用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中文企業版運行通過。
        相關教程
                
        免费看成年人视频大全_免费看成年人视频在线观看