仿照本章中的例子（例13.1）建立多窗体程序。
    设计一个“古诗选读”程序，该程序由3个字体构成，其中一个窗体为封面窗体，一个窗体为诗歌列表窗体，一个为诗歌显示窗体。，程序运行后，先显示封面窗体，接着显示列表窗体，在该窗体中列出所要阅读的古诗目录，双击某个目录后，在另一个窗体的文本框中显示相应的诗文内容。
 
1.首先建立第一个窗体，中间一个image控件（加入漂亮图片，起美化作用），下面两个按钮，如下图所示。
  此窗体属性：
  Name:"多窗体程序示例"
  Caption:ListForm
  按钮字体为“隶书”，大小为小二


编写如下代码：（注意，此代码只输入了四首诗歌，其它的大家自己输入吧。）

Private Sub Command1_Click()
ListForm.Show
FormCover.Hide
End Sub

Private Sub Command2_Click()
End
End Sub

2.编写第二个窗体（ListForm），即诗歌选择窗体，窗体中一个标签，一个按钮，再加一个列表框控件。各控件字体大小等属性可自己选择（本示例中，标签选择行楷字体，大小为二号；列表框字体为幼圆，字体大小为三号；按钮字体为隶书，大小为小二）。


编写如下代码

Private Sub Command1_Click()
    Unload Me
End Sub

Private Sub Form_Load()
    List1.AddItem "望天门山"
    List1.AddItem "黄鹤楼送孟浩然之广陵"
    List1.AddItem "黄鹤楼"
    List1.AddItem "蜀相"
    List1.AddItem "早发白帝城"
    List1.AddItem "秋日登岳阳楼晴望"
    List1.AddItem "经河源军汉村作"
    List1.AddItem "金陵怀古"
    List1.AddItem "赋得古原草送别"
End Sub

Private Sub Form_Unload(Cancel As Integer)
    FormCover.Show
End Sub

Private Sub List1_DblClick()
    ListForm.Hide
    SG.Caption = List1.Text

    Select Case List1.ListIndex
      Case 0

        SG.Label1.Caption = "李白"
        SG.Text1.Text = "天门中断楚江开，" & Chr(13) & Chr(10) & _
                        "碧水东流至此回。" & Chr(13) & Chr(10) & _
                        "两岸青山相对出，" & Chr(13) & Chr(10) & _
                        "孤帆一片日边来。"
      Case 1

        SG.Label1.Caption = "李白"
        SG.Text1.Text = "故人西辞黄鹤楼，" & Chr(13) & Chr(10) & _
                        "烟花三月下扬州" & Chr(13) & Chr(10) & _
                        "孤帆远影碧空尽，" & Chr(13) & Chr(10) & _
                        "唯见长江天际流。"

      Case 2

        SG.Label1.Caption = "崔颢"
        SG.Text1.Text = "昔人已乘黄鹤去，" & Chr(13) & Chr(10) & _
                        "此地空余黄鹤楼。" & Chr(13) & Chr(10) & _
                        "黄鹤一去不复返，" & Chr(13) & Chr(10) & _
                        "白云千载空悠悠。" & Chr(13) & Chr(10) & _
                        "晴川历历汉阳树，" & Chr(13) & Chr(10) & _
                        "芳草萋萋鹦鹉洲。" & Chr(13) & Chr(10) & _
                        "日暮乡关何处是？" & Chr(13) & Chr(10) & _
                        "烟波江上使人愁。"
      Case 3

        SG.Label1.Caption = "杜甫"
        SG.Text1.Text = "丞相祠堂何处寻，" & Chr(13) & Chr(10) & _
                        "锦官城外柏森森。" & Chr(13) & Chr(10) & _
                        "映阶碧草自春色，" & Chr(13) & Chr(10) & _
                        "隔叶黄鹂空好音。" & Chr(13) & Chr(10) & _
                        "三顾频烦天下计，" & Chr(13) & Chr(10) & _
                        "两朝开济老臣心。" & Chr(13) & Chr(10) & _
                        "出师未捷身先死，" & Chr(13) & Chr(10) & _
                        "长使英雄泪满襟。"
      Case 4

      Case 5

      Case 6

    End Select

    SG.Show
End Sub

3.最后编写诗歌显示窗体（SG）
窗体有三个控件：一个标签，用于显示诗歌作者，（作者名称就直接用窗体的Caption来显示了），一个文本框，用来显示诗歌，一个按钮，用于返回。


编写代码如下：
Private Sub Command1_Click()
    Unload Me
End Sub

Private Sub Form_Unload(Cancel As Integer)
    ListForm.Show
End Sub

最后运行程序，显示诗歌效果如下图所示。

来源：visual basic程序设计教程第四版答案(刘炳文)

本文链接：http://www.wb98.com/vb1/post/vb_13.8.html