1、學(xué)院:姓名:學(xué)號(hào):實(shí)驗(yàn)日期:專(zhuān)業(yè):實(shí)驗(yàn)室號(hào):年 月 日指導(dǎo)教師簽字:年級(jí):計(jì)算機(jī)號(hào):成績(jī):報(bào)告退發(fā)（訂正、重做）實(shí)驗(yàn)八：常用控件（二）一、實(shí)驗(yàn)?zāi)康模?）掌握：計(jì)時(shí)器和圖形控件（圖片框、圖像框、形狀和直線控件）的常用屬性、事件和方法（2） 掌握：常用的繪圖方法（Line、Circle、Pset）（3）熟悉：焦點(diǎn)與 Tab順序、鍵盤(pán)和鼠標(biāo)的事件（4）了解：鼠標(biāo)的拖動(dòng)與放下相應(yīng)的屬性、事件和方法二、實(shí)驗(yàn)內(nèi)容1500，與窗體的左邊距離為1000的1請(qǐng)?jiān)跇?biāo)題為“形狀”的窗體上設(shè)一個(gè)如圖所示的高、寬均為 形狀控件。注：在屬性窗口中完成所有設(shè)計(jì)。以Sy8-1.frm和Sy8-1.vbp文件名保存在 D:VB

2、程序。2請(qǐng)按圖設(shè)一個(gè)大小能自動(dòng)調(diào)整以適應(yīng)其顯示圖片的尺寸的圖片框（ "清空”兩個(gè)按鈕（Comma nd1單擊“清空”則清空?qǐng)D片框。注：程序中無(wú)需使用任何變量。Picture1）以及“顯示”和、Command2 ）。運(yùn)行時(shí)，單擊“顯示”，在圖片框中顯示自選圖片；Sy8-2.frm和Sy8-2.vbp文件名保存在 D:VB程序。兩.Forrvil3設(shè)計(jì)如圖所示的模擬秒表，一個(gè)文本框。請(qǐng)編寫(xiě)適當(dāng)?shù)氖录^(guò)程，使得程序運(yùn)行時(shí)，單擊標(biāo)題為“開(kāi)始”的命令按鈕，計(jì)時(shí) 器開(kāi)始計(jì)時(shí)，并在文本框中顯示動(dòng)態(tài)的時(shí)間變化；單擊標(biāo)題為“記錄”的命令按鈕，將當(dāng)前文本 框顯示的時(shí)間添加到列表框，文本框顯示的時(shí)間還在變

3、化；單擊標(biāo)題為“停止”的命令按鈕，將停止計(jì)時(shí)，文本框的記錄內(nèi)容不再變化。以Sy8-3.frm和Sy8-3.vbp文件名保存在 D:VB程序。在窗體體上畫(huà)三個(gè)標(biāo)簽、三個(gè)命令按鈕、一個(gè)計(jì)時(shí)器、一個(gè)列表框、漠?dāng)M秒表4設(shè)計(jì)如圖所示的簡(jiǎn)易畫(huà)板，在窗體上畫(huà)一個(gè)圖片框、一個(gè)命令按鈕和一組單選按鈕。請(qǐng)編寫(xiě)適當(dāng) 的事件過(guò)程，使程序運(yùn)行時(shí)，選擇相應(yīng)單選按鈕，在圖片框上可以實(shí)現(xiàn)相應(yīng)的功能。如選擇“畫(huà)直 線”單選按鈕，可在圖片框上畫(huà)一條直線；如選擇“畫(huà)矩形”單選按鈕，可在圖片框上畫(huà)一矩形； 如選擇“畫(huà)圓”單選按鈕，可在圖片框上畫(huà)一圓；如選擇“畫(huà)橢圓”單選按鈕，可在圖片框上畫(huà)一 橢圓；單擊標(biāo)題為“ CIS ”的命令按鈕

4、，則清除圖片框的內(nèi)容。注：程序中無(wú)需使用任何變量以。以Sy8-4frm和Sy8-4.vbp文件名保存在 D:VB程序。CLe5請(qǐng)按下圖設(shè)計(jì)程序，在窗體上畫(huà)一個(gè)圖像框，并在設(shè)計(jì)時(shí)裝好圖片。請(qǐng)編寫(xiě)適當(dāng)?shù)氖录^(guò)程，使程序運(yùn)行時(shí)，可以用鼠標(biāo)將圖像框拖動(dòng)到窗體內(nèi)任意的，準(zhǔn)確的位置。以Sy8-5.frm 和Sy8-5.vbp文件名保存在D:VB程序。* fpi'i實(shí)驗(yàn)環(huán)境(1)(2)四、硬件：PC機(jī)軟件：Windows 操作系統(tǒng)、Visual Basic 6.0實(shí)驗(yàn)步驟1500，與窗體的左邊距離為1000的1、請(qǐng)?jiān)跇?biāo)題為“形狀”的窗體上設(shè)一個(gè)如圖所示的高、寬均為 形狀控件。注：在屬性窗口中完成所有

5、設(shè)計(jì)。以Sy8-1.frm和Sy8-1.vbp文件名保存在 D:VB程序。操作步驟如下：（1）啟動(dòng)Visual Basic，在窗體上畫(huà)一個(gè)形狀控件。（2）窗體、形狀控件的屬性設(shè)置如下：控件名稱(chēng)屬性Form1Cap tion= “形狀”Shape1Shape1= 3 - CircleFillsyle = 6 - Cross（3）各控件布局如下:（4）單擊“文件” / “保存工程”菜單項(xiàng)，以 Sy8-1.frm和Sy8-1.vbp文件名將窗體和工程文件保存 在D:VB程序內(nèi)。2請(qǐng)按圖設(shè)一個(gè)大小能自動(dòng)調(diào)整以適應(yīng)其顯示圖片的尺寸的圖片框（Picture1）以及“顯示”和“清空”兩個(gè)按鈕（Command

6、1、Command2 ）。運(yùn)行時(shí)，單擊“顯示”，在圖片框中顯示自選圖片； 單擊“清空”則清空?qǐng)D片框。注：程序中無(wú)需使用任何變量。以Sy8-2.frm和Sy8-2.vbp文件名保存在 D:VB程序。控件名稱(chēng)屬性C1Cap tion= “顯示”C2Cap tion= “清空”P(pán) icture1Autosize = TrueC1和C2、一個(gè)圖片框。啟動(dòng)Visual Basic，在窗體上畫(huà)兩個(gè)命令按鈕，并將其名稱(chēng)分別改為 各控件屬性設(shè)置如下：操作步驟如下：（1）（2）顯示各控件布局如下:I 清空雙擊窗體，打開(kāi)代碼窗口，輸入如下代碼:(4)Private Sub Comma nd1_Click()P i

7、cture1 .P icture = Load Picture("D:to.bm p") End SubPrivate Sub Comma nd2_Click()Pictured Picture = Load PictureEnd Sub（5）單擊“文件” / “保存工程”菜單項(xiàng)，以 Sy8-2.frm和Sy8-2.vbp文件名將窗體和工程文件保存 在D:VB程序內(nèi)。3、設(shè)計(jì)如圖所示的模擬秒表，在窗體體上畫(huà)三個(gè)標(biāo)簽、三個(gè)命令按鈕、一個(gè)計(jì)時(shí)器、一個(gè)列表框、 一個(gè)文本框。請(qǐng)編寫(xiě)適當(dāng)?shù)氖录^(guò)程，使得程序運(yùn)行時(shí)，單擊標(biāo)題為“開(kāi)始”的命令按鈕，計(jì)時(shí)器 開(kāi)始計(jì)時(shí)，并在文本框中顯示動(dòng)態(tài)的

8、時(shí)間變化；單擊標(biāo)題為“記錄”的命令按鈕，將當(dāng)前文本框顯 示的時(shí)間添加到列表框，文本框顯示的時(shí)間還在變化；單擊標(biāo)題為“停止”的命令按鈕，將停止計(jì)時(shí)，文本框的記錄內(nèi)容不再變化。以Sy8-3.frm和Sy8-3.vbp文件名保存在 D:VB程序操作步驟如下：（1）啟動(dòng)Visual Basic，在窗體上畫(huà)三個(gè)命令按鈕、三個(gè)標(biāo)簽、一個(gè)計(jì)時(shí)器、一個(gè)列表框和一個(gè)文 本框。（2）各控件屬性設(shè)置如下：(3)各控件布局如下:控件名稱(chēng)屬性Form1Cap tion="模擬秒表”Command1Cap tion="開(kāi)始”Command2Cap tion= “記錄”Command3Cap tion=

9、"停止”Label1Cap tion= “大寫(xiě)顯示”Label2Cap tion= “小寫(xiě)顯示”Text1Text= “”Label1Cap tion="模擬秒表”Label2Cap tion="計(jì)時(shí)”Label3Cap tion =“記錄”List1List = “”模擬表計(jì)時(shí)開(kāi)始o(jì)I記錄I I停止(4)雙擊窗體，打開(kāi)代碼窗口，輸入如下代碼:記錄Dim H As In teger, M As In teger, S As In teger, mS As In tegerPrivate Sub Comma nd1_Click()Timer1.I nterval =

10、 100Comma ndl.E nabled = FalseComma nd2.E nabled = TrueComma nd3.E nabled = TrueList1.ClearEnd SubPrivate Sub Comma nd2_Click()List1.AddItem Text1.TextEnd SubPrivate Sub Comma nd3_Click()Timer1.I nterval = 0H = 0: M = 0: S = 0: mS = 0Comma nd1.E nabled = TrueComma nd2.E nabled = FalseComma nd3.E nab

11、led = FalseText1.Text = "0:0.00"End SubPrivate Sub Form_Load()Comma nd2.E nabled = FalseComma nd3.E nabled = FalseText1.Text =""End SubP rivate Sub Timer1_Timer()If mS < 9 The nmS = mS + 1ElsemS = 0If S < 59 The nS = S + 1ElseS = 0If M < 59 The nM = M + 1ElseM = 0H = H +

12、 1End IfEnd IfEnd IfText1.Text = Str(H) + ":" + Str(M) + "." + Str(S) + "" + Str(mS)End Sub(5)單擊“文件” / “保存工程”菜單項(xiàng)，以 Sy8-3.frm和Sy8-3.vbp文件名將窗體和工程文件保存 在D:VB程序內(nèi)。4設(shè)計(jì)如圖所示的簡(jiǎn)易畫(huà)板， 件。請(qǐng)編寫(xiě)適當(dāng)?shù)氖录^(guò)程， 如選擇“畫(huà)直線”單選按鈕， 上畫(huà)一矩形；如選擇“畫(huà)圓” 圖片框上畫(huà)一橢圓；單擊標(biāo)題為“ 注：程序中無(wú)需使用任何變量以。以(1)(2)H.H在窗體上畫(huà)一個(gè)圖片框(P1)、一

13、個(gè)命令按鈕和一組單選按鈕的數(shù)組控使程序運(yùn)行時(shí)，選擇相應(yīng)單選按鈕，在圖片框上可以實(shí)現(xiàn)相應(yīng)的功能。 可在圖片框上畫(huà)一條直線；如選擇“畫(huà)矩形”單選按鈕，可在圖片框 單選按鈕，可在圖片框上畫(huà)一圓；如選擇“畫(huà)橢圓”單選按鈕，可在Cis ”的命令按鈕，則清除圖片框的內(nèi)容。Sy8-4frm 和Sy8-4.vbp文件名保存在 D:VB程序。啟動(dòng)Visual Basic，在窗體上畫(huà)一個(gè)圖片框、一組單選按鈕和一個(gè)命令按鈕。 各控件屬性設(shè)置如下：各控件布局如下:控件名稱(chēng)屬性Form1Cap tion= “簡(jiǎn)易畫(huà)板”O(jiān)p tion1(0)Cap tion= “畫(huà)直線”O(jiān)p tion1(1)Cap tion= “畫(huà)矩形

14、”O(jiān)p tion1(2)Cap tion= “畫(huà)圓”O(jiān)p tion1(3)Cap tion= “畫(huà)橢圓”Command1Cap tion= “ CLs ”O(jiān) o o o畫(huà)直線 畫(huà)矩形 畫(huà)圓畫(huà)橢圓cis控件名稱(chēng)屬性Image1FACE02.ICO ”各控件布局如下:啟動(dòng) Visual Basic，在窗體上一個(gè)圖像框。 各控件屬性設(shè)置如下：(4)雙擊窗體，打開(kāi)代碼窗口，輸入如下代碼:Private Sub Comma nd1_Click()P 1.CISEnd SubPrivate Sub Form_Load()P1.Scale (0, 0)-(50, 50)P 1.DrawWidth = 2En

15、d SubPrivate Sub Op tio n1_Click(l ndex As In teger)If Op tio n1(0).Value = True The nP 1.Li ne (5, 30)-(45, 10)ElseIf Op tio n1(1).Value = True The nP 1.Li ne (5, 5)-(40, 20), , BElseIf Op tio n1(2).Value = True The nP 1.Circle (25, 25), 15ElseIf Op tio n1(3).Value = True The nP 1.Circle (35, 30), 20, , , , 2End IfEnd Sub(5)單擊“文件” / “保存工程”菜單項(xiàng)，以 Sy8-4.frm和Sy8-4.vbp文件名將窗體和工程文件保存 在D:VB程序內(nèi)。5、請(qǐng)按下圖設(shè)計(jì)程序，在窗體上畫(huà)一個(gè)圖像框，并在設(shè)計(jì)時(shí)裝好圖片。請(qǐng)編寫(xiě)適當(dāng)?shù)氖录^(guò)程，使 程序運(yùn)行時(shí)，可以用鼠標(biāo)將圖像框拖動(dòng)到窗體內(nèi)任意的，準(zhǔn)確的位置。以Sy8-5.frm和Sy8-5.vbp文