– 命令按钮1(Cmdmove)的Default属性为True – 命令按钮2(CmdReset)的Cancel属性为True – 命令按钮3(CmdExit)的Caption属性为“退出 (&Q)”
江南大学信息工程学院计算机基础课部—VB教学
更上二层楼
• 滚动字幕的实现
– 将标签向右移动，待全部移出窗体后再从窗体左边开 始继续移动。
江南大学信息工程学院计算机基础课部—VB教学
更上三层楼
• 改进(代码)：
Private Sub cmdstart_Click() Timer1.Enabled = True End Sub Private Sub cmdstop_Click() 当Timer控件的Enabled属性为 Timer1.Enabled = False True时，每隔Interval属性所 End Sub 设时间执行一次timer事件 Private Sub Timer1_Timer() lblmoving.Move lblmoving.Left + 100 If lblmoving.Left >= Form1.Width Then lblmoving.Left = -lblmoving.Width 另：当Timer控件的Interval属性为0时， End If Timer控件不起作用 End Sub 江南大学信息工程学院计算机基础课部—VB教学
例3 文本框操作
• 2)在名称为Form1的窗体上画一个文本框，名称为Text1，其 初始内容为0；画一个命令按钮，名称为C1，标题为“开始 计数”；再画一个名称为T1的计时器。要求在开始运行时不 计数，单击“开始计数”按钮后，则使文本框中的数每秒加1， 方法是：把计时器的相应属性设置为适当值，在计时器的适 当的事件过程中加入语句：Text1．Text＝Text1．Text+1； 并在命令按钮的适当事件过程中加入语句： T1．Enabled=True即可。运行时的窗体如图所示。 Text属性 Enabled属性＝False
• 改进：
– 将按钮CmdMove的Click事件过程改为: lblmoving.Move lblmoving.Left + 100 If语句 If lblmoving.Left >= Form1.Width Then lblmoving.Left = -lblmoving.Width End If
Text属性为空 Text1 PasswordChar属性为* Text属性为空
பைடு நூலகம்Text2
代码： Private Sub Text1_Change() Text2.Text=Text1.Text Text2 = Text1 因为Text是文本框的默认属性！ End Sub 江南大学信息工程学院计算机基础课部—VB教学
江南大学信息工程学院计算机基础课部—VB教学
例1
• 命令按钮(CommandButton)属性
– Name – Caption – Font
江南大学信息工程学院计算机基础课部—VB教学
更上一层楼
• 原界面，加入键盘控制功能，按Enter(回 车键)移动，按Esc键复位，按Alt+Q退出。 • 改进：
例2 文本操作
等价于：Form3.Print …… Me.Print …… 原因：属性名和方法名前缺省对象名，表示本窗体 Private Sub Form_Click() Print Space(10) & "课程表" Print 输出空行 Print "星期一", "星期二", "星期三" Print Print “计算机”, “英语”, “高等数学” End Sub
注：关于If语句的格式和使用，见第7章 江南大学信息工程学院计算机基础课部—VB教学
更上三层楼
• 自动移动
• 改进(界面)：
– 添加一个计时器控件，名为Timer1,设置以下 几个属性：Interval属性为200(单位为毫秒) Enabled 属性为False – 重新设计两个按钮，一个名为CmdStart,一个 名为CmdStop,Caption属性分别为“开始”和 “停止”。
，——标准格式，有间隔 ；——紧凑格式，无间隔
• 步骤三：在工程中再添加一个窗体Form3在 Form的Click事件中编程：
无任何间隔符号， 表示换行
江南大学信息工程学院计算机基础课部—VB教学
例3 文本框操作
• 1)在窗体上画二个文本框，名称分别为Text1、 Text2。请设置适当的控件属性，并编写适当的 事件过程，使得在运行时，如果在Text1中每输 入一个字符，则显示一个“*”，同时在Text2中 显示输入的内容(如图所示)。
例2 文本操作
• 将文本显示到界面
步骤一：设计Form1的界面，编写代码 Private Sub Command1_Click( ) Form2.Show End Sub
– 控件(可显示文本的控件) – 窗体(使用Print方法)
Private Sub Command2_Click( )
Form3.Show End Sub 江南大学信息工程学院计算机基础课部—VB教学
第2章 Visual Basic程序的 界面设计
——VB实践篇
例1
窗体的(Left，Top) • 窗体属性 相对于屏幕的左上角 标签的(Left，Top) – Name(名称) : Form1 相对于窗体的左上角 – Caption : 我的第一个VB程序
• 标签(Label)属性
– – – – – – Name(名称) :LblMoving Caption :Hello,VB! Font :三号，加粗 AutoSize :True Left :100 Top :100
例2 文本操作
• 步骤二：在工程中添加一个窗体Form2，在窗体 上依次放入若干控件，如图所示，在Form的 Click事件中编程：
Private Sub Form_Click() Form1.Caption = "我是窗体" Label1.Caption = "我是标签" Frame1.Caption = “我是框架" Command1.Caption = "我是命令按钮" Check1.Caption = "我是复选框" Option1.Caption = "我是单选按钮" Text1.Text = "我是文本框" End Sub 江南大学信息工程学院计算机基础课部—VB教学