在form1、標(biāo)題為“鼠標(biāo)光標(biāo)形狀”的窗體上添加一個文本框

《在form1、標(biāo)題為“鼠標(biāo)光標(biāo)形狀”的窗體上添加一個文本框》由會員上傳分享，免費在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫。

1、基礎(chǔ)題(1)【解題思路】先將窗體的Caption屬性設(shè)置為"鼠標(biāo)光標(biāo)形狀"，然后再添加一個名稱為Text1的文本框。通過文本框和窗體的MousePointer屬性的設(shè)置，使鼠標(biāo)在文本框中時，鼠標(biāo)光標(biāo)為箭頭(Arrow)形狀；在窗體中其他位置處，鼠標(biāo)光標(biāo)為十字(Cross)形狀?！静僮鞑襟E】步驟1：新建一個窗體，在窗體中添加一個窗體和一個文本框，然后按照題目要求設(shè)置控件屬性。程序中用到的控件及屬性見表3.78。表3.78步驟2：調(diào)試并運行程序，關(guān)閉程序后按題目要求存盤?；A(chǔ)題(2)【解題思路】通過標(biāo)簽的Name、Caption屬性設(shè)置標(biāo)簽的名稱和標(biāo)題，通過命令按鈕的Name、Capti

2、on屬性設(shè)置命令按鈕的名稱和標(biāo)題。【操作步驟】步驟1：建立界面，在窗體中添加3個文本框，一個命令按鈕和兩個標(biāo)簽控件。并設(shè)置控件的屬性。程序中用到的控件及屬性見表3.79和表3.80。步驟2：打開代碼編輯窗口，在指定位置編寫代碼。參考答案PrivateSubCommand1_Click()Text3=Text1.SelLengthText2=Text1.SelStartEndSub步驟3：調(diào)試并運行程序，關(guān)閉程序后按題目要求存盤?！九e一反三】可以通過第35套第二大題的第二小題來進(jìn)行同類知識點的練習(xí)。簡單題(1)【解題思路】窗體載入時，通過滾動條的Min、Max屬性設(shè)置兩個滾動條的移動刻

3、度值的范圍，滾動條刻度值的范圍是圓可以在矩形中移動的范圍。形狀控件的Top和Left屬性值隨著滾動條的Value屬性值的變化而改變，使水平滾動條的滾動塊在最左邊時，圓靠在矩形的左邊線上，滾動塊在最右邊時，圓靠在矩形的右邊線上。垂直滾動條的情況與此類似。【操作步驟】步驟1：打開本題工程文件。步驟2：分析并編寫程序代碼。程序提供代碼PrivateSubForm_load()HScroll1.Min=Shape2.Left'　HScroll1.Max=Shape2.Width+Shape2.Left-Shape1.?VScroll1.Min=Shape2.Top'　VScroll1.Max

4、=Shape2.Height+?-Shape1.HeightHScroll1.Value=1000VScroll1.Value=1000EndSubPrivateSubHScroll1_Change()'??？=HScroll1.ValueEndSubPrivateSubVScroll1_Change()'　Shape1.Top=?EndSub程序結(jié)束參考答案第1個？處填入：Width第2個？處填入：Shape2.Top第3個？處填入：Shape1.Left第4個？處填入：VScroll1.Value步驟3：調(diào)試并運行程序，關(guān)閉程序后按題目要求存盤?！九e一反三】可以通過第19套第二大題

5、的第二小題來進(jìn)行同類知識點的練習(xí)。簡單題(2)【解題思路】計時器的Interval屬性用來控制計時器事件發(fā)生的時間間隔(Interval是以毫秒為單位)。當(dāng)單擊"發(fā)射"按鈕時開始計時，將計時器控件的Enabled屬性設(shè)置為True。航天飛機(jī)圖標(biāo)將向上運動，速度逐漸加快，通過形狀控件的Height、Top屬性判斷是否全部進(jìn)入云中后，如果全部進(jìn)入則停止，這時需要將計時器控件的Enabled屬性設(shè)置為False，并把飛行距離d、所用時間(單位為秒)分別顯示在標(biāo)簽Label1和Label2中；單擊"保存"按鈕，則把飛行距離、所用時間存入考生文件夾下的out4.txt文件中?！静僮鞑襟E】步驟1

6、：打開本題工程文件。步驟2：分析并編寫程序代碼。程序提供代碼Dima,t,dPrivateSubCommand1_Click()'　Timer1.?=Trued=Image1.TopEndSubPrivateSubCommand2_Click()OpenApp.Path&"out4.txt"ForOutputAs#1Print#1,Label1,Label2Close#1EndSubPrivateSubForm_Load()a=1t=0EndSubPrivateSubTimer1_Timer()Image1.Top=Image1.Top-a*50IfImage1.Top+Image

7、1.Height<=Image2.Top+Image2.Height-200Then'??？=False'　d=?-Image1.Top　　　　Label1=d　　　　Label2=t*Timer1.Interval/1000EndIfa=a+0.1'　t=?EndSub程序結(jié)束參考答案第1個？處填入：Enabled第2個？處填入：Timer1.Enabled第3個？處填入：d第4個？處填入：t+1步驟3：調(diào)試并運行程序，關(guān)閉程序后按題目要求存盤。綜合題【舉