■古诗欣赏 回☒ 丰乐庭游春 ▣X 山行 回X 请选择要阅读的古诗 丰乐庭游春 山行 结束 返回 返回 设计步骤： ①创建窗体1。 新建一个工程。设置窗体的Caption,属性值为“古 诗词欣赏”，按如图()所示在窗体中添加1个 “标签”和三个“命令按钮”，其按钮的Name属 性值为cmd1、cmd2、cmd3
设计步骤： ①创建窗体1。 新建一个工程。设置窗体的Caption属性值为“古 诗词欣赏” ，按如图 (a)所示在窗体中添加1个 “标签”和三个“命令按钮” ，其按钮的Name属 性值为cmd1、cmd2、cmd3
②创建窗体2 选择“工程”菜单的“添加窗体”命令，在随 后出现的“添加窗体”对话框中选择“新建”选项卡，选 中“窗体”选项，单击“打开”按钮。设置窗体的 Caption属性值为“丰乐庭游春” ,Fontsize属性值为18 Fontname属性值为“楷体”。在窗体右下角添加一个 “命令按钮”，其Name属性值为cmdreturn, 窗体2界 面如图(b)。 ③创建窗体3 选择“工程”菜单的“添加窗体”命令， 再添加一个 窗体。设置窗体的Caption属性值为“山行 Fontsize 属性值为18，Fontname属性值为“隶书”。在窗体右下 角添加一个“命令按钮”，其Name属性值为cmdreturn 窗体3界面如图(c)
②创建窗体2 选择“工程”菜单的“添加窗体”命令，在随 后出现的“添加窗体”对话框中选择“新建”选项卡，选 中“窗体”选项，单击“打开”按钮。设置窗体 的 Caption属性值为“丰乐庭游春” ，Fontsize属性值为18， Fontname属性值为“楷体” 。在窗体右下角添加一个 “命令按钮” ， 其Name属性值为cmdreturn，窗体2界 面如图 (b)。 ③创建窗体3 选择“工程”菜单的“添加窗体”命令，再添加一个 窗体。设置窗体的Caption属性值为“山行” ，Fontsize 属性值为18，Fontname属性值为“隶书” 。在窗体右下 角添加一个“命令按钮” ， 其Name属性值为cmdreturn， 窗体3界面如图 (c)
④编写各窗体的事件过程代码 Form1窗体事件过程代码：.在“工程资源 篪窗体洗o富 ，单击“查看 按钮，编写茹卡事件过程代码。 Private Sub cmd1_Click() Form2.Show Form1.Hide End Sub Private Sub cmd2 Click() Form3.Show Form1.Hide End Sub Private Sub cmd3_Click() End End Sub
④编写各窗体的事件过程代码 Form1窗体事件过程代码：在“工程资源 管理器”窗体中选择Form1窗体，单击“查看 代码”按钮，编写如下事件过程代码。 Private Sub cmd1_Click() Form2.Show Form1.Hide End Sub Private Sub cmd2_Click() Form3.Show Form1.Hide End Sub Private Sub cmd3_Click() End End Sub
大婴 9 Form2窗体事件过程代码： CHIN Private Sub Form_Activate() Print Tab(6);"丰乐庭游春" Print Tab(6);"(宋)欧阳修" Print Print Tab(4);"红树青山日欲斜，" Print Tab(4);"长郊草色绿无崖。" Print Tab(4);"游人不管春将老，" Print Tab(4);"来往庭前踏落花。" End Sub Private Sub cmdreturn_Click() Cls Form1.Show Form2.Hide End Sub
Form2窗体事件过程代码： Private Sub Form_Activate() Print Tab(6); "丰乐庭游春" Print Tab(6); "(宋)欧阳修" Print Print Tab(4); "红树青山日欲斜， " Print Tab(4); "长郊草色绿无崖。 " Print Tab(4); "游人不管春将老， " Print Tab(4); "来往庭前踏落花。 " End Sub Private Sub cmdreturn_Click() Cls Form1.Show Form2.Hide End Sub
Form3窗体事件过程代码： Private Sub Form_Activate() Print Tab(6);"山行 Print Tab(6);"(唐)杜牧" Print Print Tab(4);"远上寒山石径斜，" Print Tab(4);"白云生处有人家。 Print Tab(4);"停车坐爱枫林晚，" Print Tab(4);"霜叶红于二月花。" End Sub Private Sub cmdreturn_Click() CIs Form1.Show Form3.Hide End Sub
Form3窗体事件过程代码： Private Sub Form_Activate() Print Tab(6); "山行" Print Tab(6); "(唐)杜牧" Print Print Tab(4); "远上寒山石径斜， " Print Tab(4); "白云生处有人家。 " Print Tab(4); "停车坐爱枫林晚， " Print Tab(4); "霜叶红于二月花。 " End Sub Private Sub cmdreturn_Click() Cls Form1.Show Form3.Hide End Sub