VB程序設(shè)計(jì)試驗(yàn)報(bào)告

1、VB程序設(shè)計(jì)實(shí)驗(yàn)報(bào)告專(zhuān)業(yè)：信息管理與信息系統(tǒng)班級(jí)：1502班學(xué)號(hào)：姓名：_日期：2016年12月20日、實(shí)驗(yàn)題目：記事本程序的設(shè)計(jì)二、實(shí)驗(yàn)?zāi)康?、掌握菜單編輯器的使用方法。2、掌握菜單事件的編程方法。3、初步掌握多窗體程序設(shè)計(jì)方法。三、實(shí)驗(yàn)內(nèi)容與步驟1、實(shí)驗(yàn)內(nèi)容：設(shè)計(jì)一個(gè)記事本程序。2、 界面設(shè)計(jì)（貼出對(duì)象屬性表和界面設(shè)計(jì)圖）。在窗體frmPad上添加一個(gè)文本框textl,并根據(jù)下表修改窗體及控件屬 性。對(duì)象窗體屬性設(shè)置對(duì)象名屬性值FrmPadCapti on記事本”TextlMultiLi neTrueScrollBars2-VerticalText清空使用菜單編輯器在窗體上建立菜單：選中窗

2、體frmpad后，單擊工具”菜單的菜單編輯器”命令，彈出 菜單編輯器 對(duì)話(huà)框，如下圖所示根據(jù)下表設(shè)置菜單。菜單設(shè)置菜單項(xiàng)標(biāo)題菜單項(xiàng)名稱(chēng)快捷鍵其他屬性編輯mn uEdit剪切mnu CutCtrl+X復(fù)制mnu CopyCtrl+C粘貼mn uPasteCtrl+V文本風(fēng)格mnu Style粗體（&B）mn uBold復(fù)選屬性為T(mén)rue斜體（&I ）mn ultalic復(fù)選屬性為T(mén)rue彈出菜單popMe nu可見(jiàn)屬性為T(mén)rue剪切popCut復(fù)制popCopy粘貼popPaste設(shè)計(jì)好程序窗體如下圖所示菜單編輯器界面設(shè)計(jì)3、編寫(xiě)程序代碼。Private Sub Form_Load()Textl

3、.Fo ntSize = 16Textl.Text = Visual Basic程序設(shè)計(jì)mn uBold.Checked = False mn ultalic.Checked = FalseEnd SubPrivate Sub mnu Cut_Click()Clipboard.ClearClipboard.SetText Text1.SelTextText1.SelText =End Sub復(fù)制Private Sub mn uCopy_Click()Clipboard.ClearClipboard.SetText Text1.SelTextEnd Sub粘貼Private Sub mn uPa

4、ste_Click()Text1.SelText = Clipboard.GetTextEnd Sub粗體Private Sub mn uBold_Click()mn uBold.Checked = Not mn uBold.CheckedText1.Fo ntBold = mn uBold.CheckedEnd Sub斜體Private Sub mn ultalic_Click()mn ultalic.Checked = Not mn ultalic.CheckedText1.F on tItalic = mn ultalic.CheckedEnd Sub彈出菜單Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, YAs Si ngle)If Butt on = 2 The nPopupMe nu popMe nuEnd IfEnd SubPrivate Sub popCopy_Click() mnu Copy_ClickEnd SubPrivate Sub popCut_Click() mn u