理學(xué)簡單的VisualBasic程序設(shè)計

2023/10/25機械工業(yè)出版社1常用控件PictureBox圖片框TextBox文本框CommandButton命令按鈕OptionButton選項按鈕ListBox列表框Vscroll垂直滾動條Label標(biāo)簽Frame框架CheckBox復(fù)選框ComboBox組合框Hscroll水平滾動條Timer計時器Shape形狀Line線條Image圖像框2023/10/25機械工業(yè)出版社23.3窗體和基本控件

3.3.1對象的公共屬性Name（名稱）屬性1)標(biāo)識引用對象的作用(所有對象都具有的屬性）2)每個對象在創(chuàng)建時，VB就自動為它創(chuàng)建一個默認(rèn)名稱(對象類名后跟編號，編號從1開始，依次順延)

；自行命名對象的命名規(guī)則：必須以一個字母或漢字開頭，可包含字母、數(shù)字、漢字和下劃線，但不能包含空格和西文標(biāo)點符號，長度不得超過40個字符3)在同一窗體中，控件對象的名稱屬性值是唯一的、不能同名，在同一工程中，窗體對象也不能同名4)設(shè)計態(tài)時，通過屬性窗口設(shè)置Name屬性；在程序運行時，它是只讀的，不能改變圖3-12對象的Name屬性2023/10/25機械工業(yè)出版社33.3.1對象的公共屬性位置屬性（Left、Top、Width、Height）Left和Top屬性決定對象左上角在它所在容器對象里的相對位置坐標(biāo)。Width和Height屬性決定對象自身的寬度和高度。圖3-13對象的位置屬性2023/10/25機械工業(yè)出版社43.3.1對象的公共屬性Visible屬性

Visible屬性用以設(shè)置程序運行時對象是否可見，屬性值有：True：默認(rèn)值，程序運行時對象可見。False：程序運行時對象不可見，但仍然存在。2023/10/25機械工業(yè)出版社53.3.1對象的公共屬性Font屬性組窗體對象和凡是涉及到文本或標(biāo)題的對象都具有該屬性組?？梢愿奈谋净驑?biāo)題的字體、字體樣式、字體大小、是否具有下劃線等一系列屬性。2023/10/25機械工業(yè)出版社63.3.1對象的公共屬性Enabled屬性

Enabled屬性用于決定是否允許操作對象，一般在程序中設(shè)置，用于臨時屏蔽對窗體對象或其他對象的控制，屬性值有：True：默認(rèn)值，允許用戶操作對象。

False：呈暗淡色，禁止用戶進行操作。2023/10/25機械工業(yè)出版社73.3.1對象的公共屬性ForeColor、BackColor屬性ForeColor和BackColor屬性用來設(shè)置對象的前景色和背景色。前景色是該對象上顯示的文本（正文）的顏色。背景色則是正文以外其他區(qū)域的顏色。2023/10/25機械工業(yè)出版社83.3.1對象的公共屬性在設(shè)計階段用戶可在屬性框里相應(yīng)的屬性下用調(diào)色板直接選取，如圖3-14所示。圖3-14對象的BackColor屬性2023/10/25機械工業(yè)出版社93.2窗體窗體是VB最重要的對象，它用于創(chuàng)建VB應(yīng)用程序的用戶界面或?qū)υ捒?，是包容用戶界面或?qū)υ捒蛩璧母鞣N控件對象的容器在創(chuàng)建新工程時，VB會在窗體設(shè)計器中自動新建一個空白的窗體，要求以它為起點創(chuàng)建程序一個應(yīng)用程序通常包含多個窗體，其中應(yīng)有一個窗體作為程序的啟動窗體，也就是運行程序時首先出現(xiàn)的窗體。系統(tǒng)默認(rèn)第一個窗體，即屬性Name為Form1的窗體為啟動（起始）窗體。用戶也可使用工程菜單→工程屬性，自定義設(shè)置起始窗體2023/10/25機械工業(yè)出版社103.3.2窗體常用屬性Caption屬性該屬性是對象上或標(biāo)題欄上顯示的內(nèi)容，往往在外觀上起到提示和標(biāo)志的作用在設(shè)計態(tài)和程序運行時，均可修改該屬性值圖3-15窗體的Caption屬性2023/10/25機械工業(yè)出版社113.3.2窗體MinButton、MaxButton屬性

MinButton屬性和MaxButton屬性分別用于設(shè)置窗體右上角的最大化按鈕和最小化按鈕。Icon屬性

Icon屬性用于改變系統(tǒng)提供的默認(rèn)窗體圖標(biāo)?？梢詥螕魧傩源翱谥蠭con項右邊的“...”按鈕，選擇一個存在的圖標(biāo)文件裝入即可。2023/10/25機械工業(yè)出版社123.3.2窗體BorderStyle屬性

BorderStyle屬性用于設(shè)置窗體的邊框樣式。BorderStyle屬性取值如下表所示。屬性值樣式名稱意義0None無邊框。無法移動及改變大小1FixedSingle固定單邊框?？梢园刂撇藛慰?，標(biāo)題欄，最大化按鈕和最小化按鈕。只有使用最大化和最小化按鈕才能改變大小2Sizable（默認(rèn)值）可調(diào)整大小的邊框2023/10/25機械工業(yè)出版社133.3.2窗體屬性值樣式名稱意義3FixedDialog固定對話框?？梢院刂撇藛慰蚝蜆?biāo)題欄，不包含最大化和最小化按鈕，不能改變尺寸4FixedToolWindow固定工具窗口。不能改變尺寸，顯示關(guān)閉按鈕并用縮小的字體顯示標(biāo)題欄5SizableToolWindow可變尺寸工具窗口。可變大小，顯示關(guān)閉按鈕并用縮小的字體顯示標(biāo)題欄2023/10/25機械工業(yè)出版社143.3.2窗體Picture屬性Picture屬性用于設(shè)置在窗體上顯示的背景圖片。在程序代碼中設(shè)置該屬性的方法如下：

[Form1.]Picture=LoadPicture(圖形文件源路徑及文件名)如果裝入的圖片與應(yīng)用程序在同一文件夾，圖形文件源路徑及文件名為：

App.Path+"\文件名"2023/10/25機械工業(yè)出版社153.3.2窗體WindowState屬性

WindowState屬性用于設(shè)置該窗體首次出現(xiàn)時的狀態(tài)，其取值如下表所示：屬性值狀態(tài)名稱意義0Normal（缺省值）正常狀態(tài)1Minimized最小化狀態(tài)，以圖標(biāo)方式運行2Maximized最大化狀態(tài)，無邊框，充滿整個屏幕2023/10/25機械工業(yè)出版社163.3.2窗體常用事件Click事件當(dāng)用戶將鼠標(biāo)置于窗體上，按下鼠標(biāo)左鍵并立即釋放（即單擊事件），此時，便會在窗體上觸發(fā)Click事件。事件過程格式為：

PrivateSubForm_Click()......EndSub2023/10/25機械工業(yè)出版社173.3.2窗體DblClick事件當(dāng)用戶在窗體上雙擊時觸發(fā)DblClick事件。事件過程格式為：

PrivateSubForm_DblClick()......EndSub2023/10/25機械工業(yè)出版社183.3.2窗體Load事件在裝載一個窗體時觸發(fā)Load事件。當(dāng)應(yīng)用程序啟動時，F(xiàn)orm_Load()事件過程將被自動執(zhí)行。因此，通常用來在啟動應(yīng)用程序時對屬性和變量初始化。事件過程格式為：

PrivateSubForm_Load()......EndSub2023/10/25機械工業(yè)出版社193.3.2窗體主要方法Print方法Print方法用于在窗體對象上輸出相關(guān)信息。語法格式為：

[窗體名.]Print[輸出項]2023/10/25機械工業(yè)出版社203.3.2窗體Cls方法Cls方法用于清除運行時在窗體上顯示的文本或圖形，使用時不帶任何參數(shù)。語法格式如下：

[窗體名.]Cls2023/10/25機械工業(yè)出版社213.3.2窗體【例3-2】設(shè)計應(yīng)用程序，要求程序運行時，當(dāng)用戶單擊窗體，在窗體上顯示“VisualBasic程序設(shè)計教程”，要求字體類型為楷體，字體大小為20磅，字形為粗斜體并且文字下具有下劃線，如圖3-16所示；當(dāng)用戶雙擊窗體，清除窗體上的所有內(nèi)容。圖3-16【例3-2】運行結(jié)果2023/10/25機械工業(yè)出版社223.3.2窗體分析：在窗體的Click事件過程中，使用窗體的Print方法可在窗體上輸出相關(guān)信息。在窗體的DblClick事件過程中，使用窗體的Cls方法可清除窗體上顯示的文本。2023/10/25機械工業(yè)出版社23Font系列字體屬性FontName字體類型FontSize字體大小FontBold粗體FontItalic斜體FontStrikethru加刪除線FontUnderLine加下劃線編寫代碼2023/10/25機械工業(yè)出版社243.3.2窗體PrivateSubForm_Click()Form1.FontName="楷體_GB2312"'設(shè)置字體為楷體

Form1.FontSize=20'設(shè)置字號為20Form1.FontBold=True'設(shè)置粗體

Form1.FontItalic=True'設(shè)置斜體

Form1.FontUnderline=True'設(shè)置下劃線

Form1.Print"VisualBasic程序設(shè)計教程"EndSubPrivateSubForm_DblClick()Form1.ClsEndSub2023/10/25機械工業(yè)出版社253.3.2窗體【例3-3】設(shè)計應(yīng)用程序，要求程序運行時，窗體上無最大化、最小化按鈕，標(biāo)題欄顯示“窗體的裝入事件”，在窗體上裝入一幅圖片作為背景，如圖3-17a)所示；圖3-17a)【例3-3】Load事件過程的運行結(jié)果2023/10/25機械工業(yè)出版社263.3.2窗體當(dāng)用戶單擊窗體時，去除窗體背景，標(biāo)題欄顯示“窗體的單擊事件”，如圖3-17b)所示。圖3-17b)【例3-3】Click事件過程的運行結(jié)果2023/10/25機械工業(yè)出版社273.3.2窗體分析：使用Form的Load事件過程在啟動應(yīng)用程序時對窗體的Caption屬性和Picture屬性初始化可實現(xiàn)窗體標(biāo)題和窗體背景的改變。在窗體的Click事件過程中通過設(shè)置窗體的Picture屬性和Caption屬性可實現(xiàn)去除窗體背景和窗體標(biāo)題的改變。編寫代碼2023/10/25機械工業(yè)出版社283.3.2窗體PrivateSubForm_Load()Form1.Caption="窗體的裝入事件"

Form1.Picture=LoadPicture(App.Path+"\niao.jpg")EndSubPrivateSubForm_Click()Form1.Picture=LoadPicture("")Form1.Caption="窗體的單擊事件"EndSub2023/10/25機械工業(yè)出版社293.3.2窗體Move方法Move方法用于在屏幕上移動窗體或在窗體上移動控件，并可以改變其大小，其語法格式如下：

[窗體名.]MoveLeft[，Top[，Width[，Height]]]

其中：Left：表示窗體相對于屏幕左邊緣的水平坐標(biāo)(x軸)。Top：表示窗體相對于屏幕頂部的垂直坐標(biāo)(y軸)。Width：表示窗體的新寬度。Height：表示窗體的新高度。2023/10/25機械工業(yè)出版社303.3.2窗體【例3-4】設(shè)計應(yīng)用程序，在窗體上添加兩個標(biāo)簽，要求當(dāng)用戶單擊窗體時，窗體自己向右下移動(100,100)的位移，同時窗體的寬和高均放大1.5倍，并在2個標(biāo)簽中分別顯示窗體當(dāng)前的坐標(biāo)信息，如圖3-18所示。圖3-18【例3-4】運行結(jié)果2023/10/25機械工業(yè)出版社313.3.2窗體分析：在窗體的Click事件過程中使用Move方法和設(shè)置標(biāo)簽Label1及標(biāo)簽Label2的Caption屬性可實現(xiàn)設(shè)計要求。設(shè)計界面創(chuàng)建工程，在窗體上添加2個標(biāo)簽控件。2023/10/25機械工業(yè)出版社323.3.2窗體設(shè)置對象屬性編寫代碼對象對象名屬性屬性值窗體Form1CaptionMove方法標(biāo)簽Label1Caption空Label2Caption空2023/10/25機械工業(yè)出版社333.3.2窗體PrivateSubForm_Click()

Form1.MoveForm1.Left+100,Form1.Top+100,Form1.Width*1.5,Form1.Height*1.5Label1.Caption=Form1.LeftLabel2.Caption=Form1.TopEndSub2023/10/25機械工業(yè)出版社343.3.2窗體Show方法用于在屏幕上顯示窗體，使指定的窗體在屏幕上可見，語法格式為：[窗體名稱.]Show[0|1]其中：0－非模式窗體（默認(rèn)）1－模式窗體2023/10/25機械工業(yè)出版社353.3.2窗體Hide方法用于隱藏指定的窗體，使指定的窗體在屏幕上不可見，語法格式為：[窗體名稱.]Hide2023/10/25機械工業(yè)出版社363.3.3基本控件標(biāo)簽控件（Label）標(biāo)簽控件常用于在界面上標(biāo)注和顯示提示信息，標(biāo)識那些本身不具有標(biāo)題（Caption）屬性的控件。常用屬性Caption屬性：是標(biāo)簽的默認(rèn)屬性，該屬性用來改變標(biāo)簽中顯示的文本。2023/10/25機械工業(yè)出版社373.3.3基本控件Alignment屬性：用于設(shè)置Caption屬性中文本的對齊方式，屬性值有：0-LeftJustify：默認(rèn)值，顯示的標(biāo)題左對齊。1-RightJustify：顯示的標(biāo)題右對齊。2-CenterJustify：顯示的標(biāo)題居中對齊。2023/10/25機械工業(yè)出版社383.3.3基本控件AutoSize屬性確定標(biāo)簽是否會隨標(biāo)題內(nèi)容的多少自動變化，屬性值有：True：默認(rèn)值，根據(jù)顯示的標(biāo)題內(nèi)容的多少自動調(diào)整標(biāo)簽大小，且不換行。False：標(biāo)簽的尺寸不能自動調(diào)整，超出尺寸范圍的內(nèi)容不予顯示。2023/10/25機械工業(yè)出版社393.3.3基本控件BorderStyle屬性用于確定標(biāo)簽是否有邊框，屬性值有：0-None：默認(rèn)值，標(biāo)簽沒有邊框。1-FixedSingle：標(biāo)簽有單邊框。常用事件標(biāo)簽控件支持Click、DblClick等常用事件。2023/10/25機械工業(yè)出版社403.3.3基本控件【例3-5】設(shè)計應(yīng)用程序，在窗體上添加一個具有單邊框的標(biāo)簽，標(biāo)題為“大家好！”居中，并且能根據(jù)內(nèi)容自動調(diào)整大小，設(shè)計界面如圖3-19所示。要求當(dāng)用戶單擊“放大兩倍”按鈕時，標(biāo)簽中文字放大兩倍，當(dāng)用戶單擊“隸書”按鈕時，標(biāo)簽中文字的字體變?yōu)椤半`書”。圖3-19【例3-5】設(shè)計界面2023/10/25機械工業(yè)出版社413.3.3基本控件分