1、多窗体的建立 例:在考试文件夹下,新建一个项目 test1,该项目包含两个窗体,其中一
个窗体 form1 显示欢迎界面,时间为三秒,三秒后,Form1 消失,form2 出现。
注:1.子窗体的 AutoScroll 属性设为 true,则可根据父窗体大小进行伸缩。
2.Timer 控件的 Interval 属性设为 1000 表示以秒为单位。属性 Enabled 设为 True 表自动计时。
代码:在代码 Public Class Form1 下一行添加代码:Dim a As Integer
答案1:在Timer1控件加入代码:
If a = 3 Then
a = 0
Me.Visible = False
Form2.Show()
Timer1.Stop()
Else
a = a + 1
End If
拓展:随机数计时代码:
在 Timer1 控件加入代码:
Dim a As Integer
a=Int(Rnd() *37+1)
if (a>=3) Then
Me.visible=Flase
Timer1.stop()
Form2.show()
答案 2:将 Timer 控件的 Interval 属性设为 3000 表示以秒为单位
在Timer1控件加入代码:
Me.Visible = False
Form2.Show()
Timer1.Stop()
2、菜单的建立:可以建立菜单,分别实现菜单的剪切、复制、粘帖的功能。
例 : 添 加 一 个 ContextmenuStrip 控 件 、
MenuStrip 控件、和一个 RichTextBox 控件
代码:复制:Me.RichTextBox1.Copy()
粘贴:Me.RichTextBox1.Paste()
剪切:Me.RichTextBox1.Cut()
3、文本框控件:可以设置文本框中字体的大小,多行显示,text 属性的值,并能将文本框
显示的内容存入 label 标签控件中
注:RichTextBox 文本框的 Multiline 属性改为 True 可以显示多行。
答案:添加一个 RichTextBox 控件、Label 控件、一个 FontDialog 控件、两个 Button 控件。
在Button1按钮(修改字体)加入以下代码:
Me.FontDialog1.ShowDialog()
Me.RichTextBox1.SelectionFont = Me.FontDialog1.Font
在Button2按钮(显示文本框内容) 加入代码:
Label1.Text = RichTextBox1.Text