科技软件公司网站模板下载,wordpress 采集蜘蛛,芯片设计培训,公司的宣传片怎么制作文章目录#xff1a;
一#xff1a;效果演示
二#xff1a;实现思路
三#xff1a;代码实现
form1
效果图
代码
form2
效果图
代码
form3
效果图
代码 一#xff1a;效果演示 效果图◕‿◕✌✌✌ 代码下载 二#xff1a;实现思路 窗口1#xff1a;龟兔赛…文章目录
一效果演示
二实现思路
三代码实现
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 Subform2
效果图 代码 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 HC000End If
End SubPrivate Sub Form_Load()Form3.BackColor HC000
End Sub
