完整版第七章用户界面设计.ppt

菜单编辑器的使用技巧 * * * * * * * * * * * * * * * * * 设窗体上有一个Combol的组合框，并有以下程序 Private Sub Combol_KeyPress(KeyAscii As Integer) If =13 Then For k=0 To Combol.ListCount-1 If Combol.Text=Combol.List(k) Then Combol.Text= Exit For End If Next k If Combol.Text Then Combol.AddItem End If End If End Sub 程序的功能是：在组合框的编辑区中输入文本后按回车键，则检查列表中有无与此文本相同的项目，若有，则把编辑区中的文本删除，否则把编辑区中文本添加到列表的尾部。请填空 Combol.Text KeyAscii 例：在窗体上画一个命令按钮和两上文本，分别为 Command1 、 Text1 和 Text2 ，然后编写如下程序： Dim S1 As String, S2 As String Private Sub Form_Load() Text1. Text=”” ：Text2. Text=”” End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) S2=S2 Chr(KeyCode) End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) S1=S1 chr(KeyAscii) End Sub Private Sub Command1_Click() Text1.Text=S2 ：Text2.Text=S1 S1= “” ：S2= “” End Sub 程序运行后，在 Text1 中输入“ abc ”，然后单击命令按 钮，在文本框 Text1 和 Text2 中显示的内容分别为 A）abc 和 ABC B ）abc 和 abc C）ABC 和 abc D ）ABC 和 ABC 例：在窗体上画1个命令按钮和1个文本框，分别为 Command1和Text1，写如下代码：Dim SaveAll As StringPrivate Sub Command1_Click() Text1.Text=Left(UCase(SaveAll)，4)End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) SaveAll=SaveAll+Chr(KeyAscii)End Sub程序运行后，在文本框中输入abcdefg，单击命令按钮， 则文本框中显示的内容是 。 ABCD 7.6 应用程序向导 功能：用来生成一个应用程序的界面 选择文件|新建工程|VB应用程序向导命令： 选择菜单和子菜单项 选取工具栏按钮 例7.21设计字幕滚动程序：用时钟控件和滚动条调节和控制字幕滚动速度。文字的大小及距离窗体顶端的距离是随机的，从右向左连续滚动 Private Sub Form_Load() Timer1.Interval = 100 HScroll1.Min = 1：HScroll1.Max = 10 HScroll1.Value = 5 HScroll1.SmallChange = 1 HScroll1.LargeChange = 2 Label1.Top = Int(Rnd * ScaleHeight) Label1.FontSize = Int(Rnd * 30 + 1) Label1.Left = Form1.Width End Sub Private Sub Timer1_Timer() Label1.Move Label1.Left - HScroll1.Value * 100 If Label1.Left 0 Then Label1.Left = Form1.Width Label1.Top = Int(Rnd * ScaleHeight) Label1.FontSize = Int(Rnd * 30 + 1)