文章目录:
一:效果演示
二:实现思路
三:代码实现
form1
效果图
代码
form2
效果图
代码
form3
效果图
代码
一:效果演示
效果图◕‿◕✌✌✌
代码下载
二:实现思路
窗口1:龟兔赛跑单击按钮,通过图片属性控制移动Timer控制自动移动窗口2:猜数字游戏输入框和文本框信息进行比较判断窗口3:背景颜色变换设置初始背景颜色,再依次对窗体背景颜色进行判断,然后重新赋值背景颜色,最好行成一个一个判断闭环主窗口页面之间的跳转是通过可见否,判断那些窗口显示那些窗口隐藏
三:代码实现
form1
效果图
代码
Private Sub Command1_Click()Picture1.Left = Picture1.Left + 70 End SubPrivate Sub Command2_Click()Form1.Visible = FalseForm3.Visible = True End SubPrivate Sub Form_Load()End SubPrivate Sub Timer1_Timer()Picture2.Left = Picture2.Left + 20 End Sub
form2
效果图
代码
Option ExplicitPrivate Sub Command1_Click()Dim num As Variantnum = Val(InputBox("请输入我猜想的数:"))If num = Text1.Text ThenMsgBox ("恭喜你,猜想正确!")ElseMsgBox ("抱歉,你猜错了!")End If End SubPrivate Sub Command2_Click()Form2.Visible = FalseForm3.Visible = True End SubPrivate Sub Form_Load()End Sub
form3
效果图
代码
Option ExplicitPrivate Sub Command1_Click()Form3.Visible = FalseForm1.Visible = True End SubPrivate Sub Command2_Click()Form3.Visible = FalseForm2.Visible = True End SubPrivate Sub Command3_Click()If Form3.BackColor = &HC000& ThenForm3.BackColor = vbRedElseIf Form3.BackColor = vbRed ThenForm3.BackColor = vbBlueElseIf Form3.BackColor = vbBlue ThenForm3.BackColor = vbGreenElseForm3.BackColor = &HC000&End If End SubPrivate Sub Form_Load()Form3.BackColor = &HC000& End Sub