| | | 用 eMbedded Visual Basic 编写移动应用程序 | | 2001-12-14·
·Larry Roof··microsoft
| 上一页 1 2 3 4 5 下一页
添加代码
在“工程”窗口中，选择 Project1。在“属性”窗口中，将“名称”更改为“HelloWorld”。
打开窗体模块的“代码”窗口。在模块的“一般声明”部分添加以下代码行：
Dim strDirection As String
Dim strMessage As String
Dim strTemp As String |
变量 strDirection 将用于跟踪字幕滚动的方向。变量 strMessage 将用于保存在滚动字幕显示区显示的消息。变量 strTemp 用于处理在字幕中显示的消息。
在 Form Load 事件过程中插入以下代码：
Private Sub Form_Load()
' 初始化变量。
strDirection = "向前"
strMessage = "嗨，eVB 很酷吧？"
strTemp = String(30, Asc(" ")) & strMessage
' 启动字幕。
ceTimer.Enabled = True
End Sub |
该代码首先初始化该程序自始至终使用的三个字符串变量，然后打开定时器控件，定时器控件继而运行字幕。
在定时器控件的 Timer 事件过程中插入以下代码：
Private Sub ceTimer_Timer()
' 根据滚动的方向，将该
' 字符串最左边或最右边的字符
' 取走并将其附加到相反的一端。
If (strDirection = "向前") Then
strTemp = Right(strTemp, Len(strTemp) - 1) & _
Mid(strTemp, 1, 1)
Else
strTemp = Right(strTemp, 1) & Mid(strTemp, 1, _
Len(strTemp) - 1)
End If
' 显示字符串，让人感觉
' 文本正在滚动。
txtDisplay.Text = strTemp
End Sub |
该代码首先确定字幕滚动的方向。然后，它使用 eVB 的 Right、Len 和 Mid 函数来处理显示的字符串，使该应用程序具有滚动字幕的外观。
在 cmdChangeDirection 控件的 Click 事件中插入以下代码。
Private Sub cmdChangeDirection_Click()
' 切换方向标记。
Select Case strDirection
Case "向前"
strDirection = "向后"
Case "向后"
strDirection = "向前"
End Select
End Sub |
上述几行代码处理用于跟踪字幕滚动方向的标记切换。
这就是一个应用程序。您的第一个应用程序构建完毕。
上一页 1 2 3 4 5 下一页 | | | 感谢
访问天极网，如果您觉得该文章涉及版权问题，请看这里！
|
|
