VB窗體與常用控件初步

1、VB窗體與常用控件初步 實驗R的了解并掌握窗體的基本屬性與常用方法、事件。了解并掌握標(biāo)簽、文本框、命令按鈕的基本屬性與應(yīng)用技巧。實驗題目1）設(shè)計一個簡單窗體，界面如圖實驗二01所示。實現(xiàn)載入窗體背景圖，窗體自動居 中，左、右移動窗體等功能。圖實驗二012）設(shè)計一個簡易的“VB文字編輯器”，界面如圖實驗二02所示。實現(xiàn)文字的錄入、 剪切、復(fù)制與粘貼。圖實驗二02實驗背景及準(zhǔn)備1）已初步學(xué)習(xí)了窗體、標(biāo)簽、命令按鈕的屬性、事件與方法。2）已初步學(xué)習(xí)使用了文件、視圖、運行等菜單功能。3）準(zhǔn)備了題目1的背景圖片、題目2的3個圖片。4）通過幫助文件學(xué)習(xí)了 Loadpicture。、left。、Mid（）等

2、函數(shù)的功能。實驗過程與主要步驟1）題目1：在窗體Forml中，手工修改屬性。Borderstyle=l使邊界固定；startupposition=2使 窗體初始位置居中。其余屬性通過事件響應(yīng)程序由命令自動完成。所用事件有Load、 Initialize Activate Resize 等；所用方法有 Move 與 Print。在窗體上加載一個標(biāo)簽Label 1,手工設(shè)置屬性。Caption廿VB實驗之標(biāo)簽 Backcoler為紅色;Font屬性手工設(shè)置如圖實驗二03所示（fontname=隸書”，fontsize廿 三號）；autosize=true使標(biāo)簽?zāi)茏詣诱{(diào)整大小顯示所有內(nèi)容；wordw

3、rap=True使標(biāo)簽?zāi)?顯示多行內(nèi)容。字體0不例A確定逃體GB2312。宋, ，）宋體-PUA o宋體一方正超大字符 （）新宋體 生幼回字體電）：效果廠刪除線（K）廠下劃線）字形d）：大小（S）:微軟中文軟件字符集笆|CHINESE_GB2312V圖實驗二03移動窗體使用move方法，其格式為：object.Move left, top. width, height裝載背景圖片使用loadpicture()函數(shù)，其格式為:LoadPicture(/z/e/?6zme, size, colordepth,xfy)窗體1的代碼程序如下：Private Sub Command 1 _Click()

4、Forml.Move (Forml.Left - 50)End SubPrivate Sub Command2_Click()Forml.Move (Forml.Left + 50)End SubPrivate Sub Form_Activate()Forml.Picture = LoadPicture(app.path & sy02t-0Ljpg)用 Loadpicture(0 函數(shù)裝載背景圖。Forml.Print Hello!napp.path 為當(dāng)前目錄End SubPrivate Sub Form_Initialize()Form 1.Left = (Screen.Width - F

5、orm 1.Width) / 2 ，自動居中，Scree 為屏幕對象名。Form 1 .Top = (Screen.Height - Form 1.Height) / 2End SubPrivate Sub Form_Load()Form 1.Caption=”設(shè)置窗體屬性”End SubPrivate Sub Form_Resize()Command 1 .Caption 二“左移”Command2.Caption =“右移”End Sub2)題目2：首先在窗體上加載三個命令按鈕，同時選中三個按鈕，通過“格式”菜單調(diào)節(jié)，使 之一樣大小。對每一按鈕，修改caption屬性，可設(shè)置訪問鍵；在Pi

6、cture屬性中加載相應(yīng)圖片文 件。編寫每個按鈕的Click事件響應(yīng)程序。例如Commandl按鈕，設(shè)置屬性Caption & A 剪切”，&A用以說明A為訪問鍵，使用中可用Alt-A激活Click事件；設(shè)置屬性picture 為預(yù)先準(zhǔn)備的圖片文件cut.jpg；設(shè)置ToolTipText二”剪切。使鼠標(biāo)移至該控件時，顯示 “剪切”兩字。分析題目，程序中要解決的問題包括：如何記錄光標(biāo)位置與所選中的文字？如何截掉或添加一段字符？前者用到文本框的seistart與seitext屬性，后者用到字符串截取函數(shù)left。、Mid()。 Seistart是選擇開始的位置，也是光標(biāo)所在的位置。seitext

7、記錄所選中的字符。Left () 從左邊截取字符串，mid ()從中間截取字符串。兩個字符串可用“ + ”運算連接。因為粘貼時的seitext已更新，所以需要變量保存選擇時的seltexto題目2代碼窗口的程序代碼如下：Public temp，全局變量Temp,適用于所有程序段。Private Sub Command 1 _Click()temp = Textl.SelTextTextl = Left(Textl.Text, Textl.SelStart) + Mid(Textl.Text, Text 1 .SeiStart + Textl.SelLength + 1) End SubPriv

8、ate Sub Command2_Click()temp = Textl.SelTextEnd SubPrivate Sub Command3_Click()Textl = Left(Textl.Text, Textl.SelStart) + temp + Mid(Textl.Text, Textl.SelStart + 1) End SubPrivate Sub Form_Initialize()Form 1.Caption = VB 文字編輯器”Text 1 .Text = 世有伯樂，然后有千里馬。千里馬常有，而伯樂不常有。故雖有名馬，只辱于 奴隸人之手，駢死于槽楊之間，不以千里稱也?！盓nd Sub 實驗小結(jié)1)窗體、標(biāo)簽、文本框、命令按鈕每個對象都有自身的屬性、事件與方法，既有相同的也 有不同的。不同處構(gòu)成其特點。2)文本框中Seistart表示當(dāng)前光標(biāo)位置，也是所選字符的開始位置，默認值是1 ； SelText 代表當(dāng)前所選擇的文本。3) Temp作為中間變量使用，代表先前選下的字符，也就是通常剪貼板中的值。因為要跨 越兩個程序段使用，所以在放在通用程序段，