理學(xué)簡(jiǎn)單的VisualBasic程序設(shè)計(jì)

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

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

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

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

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

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

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

Icon屬性用于改變系統(tǒng)提供的默認(rèn)窗體圖標(biāo)。可以單擊屬性窗口中Icon項(xiàng)右邊的“...”按鈕，選擇一個(gè)存在的圖標(biāo)文件裝入即可。2023/10/25機(jī)械工業(yè)出版社123.3.2窗體BorderStyle屬性

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

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

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

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

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

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

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

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

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

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

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

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

Form1.Print"VisualBasic程序設(shè)計(jì)教程"EndSubPrivateSubForm_DblClick()Form1.ClsEndSub2023/10/25機(jī)械工業(yè)出版社253.3.2窗體【例3-3】設(shè)計(jì)應(yīng)用程序，要求程序運(yùn)行時(shí)，窗體上無(wú)最大化、最小化按鈕，標(biāo)題欄顯示“窗體的裝入事件”，在窗體上裝入一幅圖片作為背景，如圖3-17a)所示；圖3-17a)【例3-3】Load事件過(guò)程的運(yùn)行結(jié)果2023/10/25機(jī)械工業(yè)出版社263.3.2窗體當(dāng)用戶單擊窗體時(shí)，去除窗體背景，標(biāo)題欄顯示“窗體的單擊事件”，如圖3-17b)所示。圖3-17b)【例3-3】Click事件過(guò)程的運(yùn)行結(jié)果2023/10/25機(jī)械工業(yè)出版社273.3.2窗體分析：使用Form的Load事件過(guò)程在啟動(dòng)應(yīng)用程序時(shí)對(duì)窗體的Caption屬性和Picture屬性初始化可實(shí)現(xiàn)窗體標(biāo)題和窗體背景的改變。在窗體的Click事件過(guò)程中通過(guò)設(shè)置窗體的Picture屬性和Caption屬性可實(shí)現(xiàn)去除窗體背景和窗體標(biāo)題的改變。編寫代碼2023/10/25機(jī)械工業(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機(jī)械工業(yè)出版社293.3.2窗體Move方法Move方法用于在屏幕上移動(dòng)窗體或在窗體上移動(dòng)控件，并可以改變其大小，其語(yǔ)法格式如下：

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

其中：Left：表示窗體相對(duì)于屏幕左邊緣的水平坐標(biāo)(x軸)。Top：表示窗體相對(duì)于屏幕頂部的垂直坐標(biāo)(y軸)。Width：表示窗體的新寬度。Height：表示窗體的新高度。2023/10/25機(jī)械工業(yè)出版社303.3.2窗體【例3-4】設(shè)計(jì)應(yīng)用程序，在窗體上添加兩個(gè)標(biāo)簽，要求當(dāng)用戶單擊窗體時(shí)，窗體自己向右下移動(dòng)(100,100)的位移，同時(shí)窗體的寬和高均放大1.5倍，并在2個(gè)標(biāo)簽中分別顯示窗體當(dāng)前的坐標(biāo)信息，如圖3-18所示。圖3-18【例3-4】運(yùn)行結(jié)果2023/10/25機(jī)械工業(yè)出版社313.3.2窗體分析：在窗體的Click事件過(guò)程中使用Move方法和設(shè)置標(biāo)簽Label1及標(biāo)簽Label2的Caption屬性可實(shí)現(xiàn)設(shè)計(jì)要求。設(shè)計(jì)界面創(chuàng)建工程，在窗體上添加2個(gè)標(biāo)簽控件。2023/10/25機(jī)械工業(yè)出版社323.3.2窗體設(shè)置對(duì)象屬性編寫代碼對(duì)象對(duì)象名屬性屬性值窗體Form1CaptionMove方法標(biāo)簽Label1Caption空Label2Caption空2023/10/25機(jī)械工業(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機(jī)械工業(yè)出版社343.3.2窗體Show方法用于在屏幕上顯示窗體，使指定的窗體在屏幕上可見，語(yǔ)法格式為：[窗體名稱.]Show[0|1]其中：0－非模式窗體（默認(rèn)）1－模式窗體2023/10/25機(jī)械工業(yè)出版社353.3.2窗體Hide方法用于隱藏指定的窗體，使指定的窗體在屏幕上不可見，語(yǔ)法格式為：[窗體名稱.]Hide2023/10/25機(jī)械工業(yè)出版社363.3.3基本控件標(biāo)簽控件（Label）標(biāo)簽控件常用于在界面上標(biāo)注和顯示提示信息，標(biāo)識(shí)那些本身不具有標(biāo)題（Caption）屬性的控件。常用屬性Caption屬性：是標(biāo)簽的默認(rèn)屬性，該屬性用來(lái)改變標(biāo)簽中顯示的文本。2023/10/25機(jī)械工業(yè)出版社373.3.3基本控件Alignment屬性：用于設(shè)置Caption屬性中文本的對(duì)齊方式，屬性值有：0-LeftJustify：默認(rèn)值，顯示的標(biāo)題左對(duì)齊。1-RightJustify：顯示的標(biāo)題右對(duì)齊。2-CenterJustify：顯示的標(biāo)題居中對(duì)齊。2023/10/25機(jī)械工業(yè)出版社383.3.3基本控件AutoSize屬性確定標(biāo)簽是否會(huì)隨標(biāo)題內(nèi)容的多少自動(dòng)變化，屬性值有：True：默認(rèn)值，根據(jù)顯示的標(biāo)題內(nèi)容的多少自動(dòng)調(diào)整標(biāo)簽大小，且不換行。False：標(biāo)簽的尺寸不能自動(dòng)調(diào)整，超出尺寸范圍的內(nèi)容不予顯示。2023/10/25機(jī)械工業(yè)出版社393.3.3基本控件BorderStyle屬性用于確定標(biāo)簽是否有邊框，屬性值有：0-None：默認(rèn)值，標(biāo)簽沒(méi)有邊框。1-FixedSingle：標(biāo)簽有單邊框。常用事件標(biāo)簽控件支持Click、DblClick等常用事件。2023/10/25機(jī)械工業(yè)出版社403.3.3基本控件【例3-5】設(shè)計(jì)應(yīng)用程序，在窗體上添加一個(gè)具有單邊框的標(biāo)簽，標(biāo)題為“大家好！”居中，并且能根據(jù)內(nèi)容自動(dòng)調(diào)整大小，設(shè)計(jì)界面如圖3-19所示。要求當(dāng)用戶單擊“放大兩倍”按鈕時(shí)，標(biāo)簽中文字放大兩倍，當(dāng)用戶單擊“隸書”按鈕時(shí)，標(biāo)簽中文字的字體變?yōu)椤半`書”。圖3-19【例3-5】設(shè)計(jì)界面2023/10/25機(jī)械工業(yè)出版社413.3.3基本控件分