軟件設(shè)計(jì)中菜單的設(shè)計(jì)

1、一、實(shí)驗(yàn)名稱：菜單的制作二、實(shí)驗(yàn)?zāi)康?、認(rèn)識VB軟件，學(xué)會使用VB軟件2、學(xué)會用VB制作簡單的工程。三、實(shí)驗(yàn)步驟1、 打開VB菜單，創(chuàng)建一個(gè)新的工程2、 打開菜單編輯器，同時(shí)進(jìn)行編輯菜單，如下圖。3、 編寫自己想寫的菜單;4、編輯好菜單后，打開程序編寫界面，編寫程序，如下圖5、程序編輯好后，保存文件，然后生成exe文件后運(yùn)行程序，結(jié)果如下；S： FS： Foral輸入與退出字體外觀 字體名稱 字體大小 字體顏色口回區(qū)輸入信息活除信息退出春曉;春眠不覺曉.處處聞啼鳥 夜來風(fēng)雨聲 花落知多少晦工程 1 - MicromE下開始晦工程 1 - MicromE下開始四、實(shí)驗(yàn)程序Private Sub

2、clear_Click() Textl.Text = Textl.SetFocusEnd SubPrivate Sub Exit_Click()EndEnd SubPrivate Sub fon14_Click()Text1.fontSize = 14End SubPrivate Sub fon20_Click()Text1.fontSize = 20End SubPrivate Sub fon24_Click()Text1.fontSize = 24 End SubPrivate Sub fon32_Click()Textl.fontSize = 32End SubPrivate Sub f

3、onBlank_Click() Textl.ForeColor = vbBlack End SubPrivate Sub fonBlue_Click() Text1.ForeColor = vbBlue End SubPrivate Sub fonRed_Click() Text1.ForeColor = vbRed End SubPrivate Sub fonS_Click() Text1.fontName =宋體” End SubPrivate Sub fontBold_Click() Text1.fontBold = True End SubPrivate Sub fontItalic_

4、Click()Text1.fontItalic = TrueEnd SubPrivate Sub fontL_Click() Text1.fontName =隸書” End SubPrivate Sub fontStri_Click()Text1.FontStrikethru = TrueEnd SubPrivate Sub fontY_Click()Textl.fontName =幼圓”End SubPrivate Sub fonYellow_Click()Text1.ForeColor = vbYellowEnd SubPrivate Sub Form_Load()CR$ = Chr$(13) + Chr$(10)Text1.Text = ”春曉;” + CR$ + ”春眠不覺曉.”+ CR$ + 處處聞啼鳥” + CR$ + ”夜來風(fēng)雨聲” +CR$ + ”花落知多少”End SubPrivate Sub Input_Click()Text1.Text =Text1.SetFocusEnd SubPrivat