【正文】 窗體和常用控件 (2) 窗體實例化和顯示 在多重窗體程序中 ,只有啟動窗體 (假定為Form1)的實例化是 . 其他所有窗體都是通過代碼實例化并顯示的 . 例如顯示窗體 form2要使用下列語句 : dim f2 as new form2 ?定義 f2為類 form2的對象 ( ) 或 () 42 (3). 不同窗體間數(shù)據(jù)的訪問 ? 兩個窗體之間數(shù)據(jù)的訪問有下列 2種形式 . a. 窗體實例化后，窗體數(shù)據(jù)的互訪 ① 窗體 form1訪問窗體 form2上的數(shù)據(jù) . Form1中代碼形式如下 : 窗體和常用控件 Dim frm2 as new from2 () ‘ 顯示窗體 frm2 = 注意寫法 : 不能寫為 form2 43 窗體和常用控件 ② 窗體 form2訪問窗體 form1上的數(shù)據(jù) . Form2中某事件代碼形式如下 : Dim frm1 as new from1 = () ?顯示窗體 frm1 Form2中 , = 錯誤 44 b. 通過在模塊中定義公共變量實現(xiàn)相互訪問 . 如：建立一個模塊 Module1。在其中定義公共變量： Public x as Imteger 窗體和常用控件 例 (P175)： 多重窗體應用示例。 45 ? 標簽控件用于顯示文本信息 ， 不能輸入文本信息 （ 輸入用文本框 ） 。 1. label（標簽控件） (1) 主要屬性 Name、 text、 location、 forecolor、 size 、 backcolor 、 visible 、 Font(字體 )、 BorderStyle(邊框風格 ) 、 常用控件 46 (2) 主要事件 Click、 DoubleClick、 Change（ 改變 ） Contextmenu(快捷菜單 ), TextAlign(文字在標簽中的對齊方式 )、 image(背景圖片 )、 AutoSize(自動大小 ) 常用控件 47 ? 文本框是一個文本編輯框 ， 用戶可以在該框中輸入 、 編輯 、 修改和顯示文本內(nèi)容 。 2. TextBox（文本框） (1) 主要屬性 Name、 location、 forecolor、 size 、backcolor 、 visible 、 Font(字體 ) 、 BorderStyle(邊框風格 ) 其他屬性見下頁 常用控件 48 屬性 類型 意義 Text 字符串 框中編輯內(nèi)容 MaxLength 整型 允許輸入最多字符數(shù) MultiLine 邏輯 允許多行輸入否， false ScrollBars 枚舉 選擇滾動條 ,MultiLine為 true時 PassWordChar 字符 文本框用于輸入口令時，顯示的字符 ReadOnly 邏輯 只讀， False SelectionStart 整型 選定的正文開始的位置，第 1個字符位置為 0 SelectionLength 整型 選定的正文長度 SelectedText 字符串 選定的正文內(nèi)容 常用控件 49 (2) 主要事件 TextChanged:文本框中內(nèi)容改變時觸發(fā) . KeyPress/KeyDown：當焦點在文本框上時 ， 用戶按了鍵時觸發(fā) 。 LostFocus：當文本框失去焦點時觸發(fā) . Gotfocus: 當文本框得到焦點時觸發(fā) . (3) 主要方法 Focus: 將光標移到文本框上 . 例如 : () 常用控件 50 窗體和常用控件 例如 : Sub textbox1_keypress(… ,ByVal e … )… If asc()=13 then … endif End Sub 或 If =chr(13) then …. 51 3. Button（命令按鈕） (1) 主要屬性 Name、 text、 location、 forecolor、 size 、 backcolor 、 visible 、 Font(字體 )、 Enabled、 BorderStyle(邊框風格 )、 TextAlign image(圖片 , 建圖形按鈕時用 )、 常用控件 52 例 按鈕應用。界面、功能如下圖所示。 = New Font(隸書 , 16, ) 窗體和常用控件 演示 收集 3個圖片，存放在項目的bin文件夾下。 53 4. 單選 按鈕、復選框和分組框 ? 單選 按鈕 (RadioButton) 與復選框(ChekBox)的區(qū)別 ： ? 單選 按鈕任何時候最多只能選擇一項 , 一般利用 Panel(面板 )或 GroupBox(分組框 )將相同性質(zhì)按鈕歸類在一組；復選框列出多項 ， 用戶可從中選擇一項或多項 。 見下頁圖所示 。 窗體和常用控件 54 窗體和常用控件 單選按鈕 復選框 55 (1) 主要屬性 Name、 Font(字體 )、 forecolor、 visible 、 Enabled、 text、 Checked: 邏輯值 ， 表示單選按鈕或復選框選中否 。 (2) 主要事件 Click、 CheckedChanged(對象值改變時觸發(fā) ) 常用控件 56 Panel(面板 )與 GroupBox(分組框 ) 都是用于將相同性質(zhì)的對象歸類 。 當我們移動分組框或面板時 ， 其中的對象也會跟著移動 。 ?分組框的主要屬性 ： text, BackgroundImage , font ?面板的主要屬性 : BorderStyle , BackColor, BackgroundImage 常用控件 57 5. 列表框和組合框 ? 列表框 (ListBox)：在框中提供若干選項供用戶選擇。只允許用戶選擇，不能輸入。 ? 組合框 (ComboBox)：由文本框和下拉列表框組合而成。用戶即可以在文本框中輸入又可在下拉列表中選擇。 常用控件 列表框 組合框 58 (1) 主要屬性 Items: 集合。存儲列表框或組合框中的所有選項。 SelectedIndex: 整型。程序運行時被選定的項的序號。第 1項的序號為 0。 SelectedItem:字符。被選定的項的內(nèi)容。 Text：用戶輸入或 選擇的值。 : 整型。程序中引用，值為列表框或組合框中的項數(shù)。 Sorted:邏輯。列表框或組合框的選項是否按字母表順序排序 . 常用控件 59 DropDownStyle: 設(shè)置組合框外觀和功能。 當 = ComboBoxStyle. DropDownList時 組合框只能通過選擇得到文本。 當 = ComboBoxStyle. DropDown時 組合框即可通過輸入又可選擇得到文本。 ? 組合框?qū)Ｓ袑傩裕? 常用控件 60 當 = ComboBoxStyle. Simple時 組合框即可輸入也可選擇得到文本。但外觀有改變。下拉列表將不折起。如下圖所示。 常用控件 Simple 61 (2) 常用方法 : 把一個選項加入到列表框或組合框。 (“puter”) : 從列表框或組合框中刪除指定的選項。 (“puter”) (Index):刪除列表框或組合框中指定位置上的選項。 (1) :清除列表框或組合框中的所有選項。 常用控件 62 (3) 常用事件 Click、 DoubleClick、 SelectedIndexChanged(SelectedIndex屬性值改變后觸發(fā) ) 例 列表框控件程序 。 界面如圖。 常用控件 63 6. 滾動條和進度條 ? 滾動條 (ScrollBar)：通常附在窗體上協(xié)助觀察數(shù)據(jù)或確定位置，也可用來作為數(shù)據(jù)的輸入工具。 滾動條有垂直滾動條 (VScrollBar)和水平滾動條 (HScrollBar) 2種。 ? 進度條 (ProgressBar)：通常指示事務(wù)處理的進度。 常用控件 64 (1) 主要屬性 Value:滑塊當前位置所代表的值，缺省值為 0。 Minimun、 Maximun :滾動條可以調(diào)整的最小值和最大值。 SmallChange:滾動條兩端的箭頭為微調(diào)箭頭，用戶單擊微調(diào)箭頭時， Value屬性增加或減少的值。(相當于步長 ) LargeChange:按下中間快卷區(qū)域時的移動量。 常用控件 65 (2) 主要事件 Scroll、 ValueChange:當滾動條內(nèi)滑塊位置發(fā)生變化時， ValueChange的值隨之改變時，觸發(fā)這兩個事件。 例 —滾 動條程序 。三個滾動條分別控制 PictureBox1的背景顏色（ red、 green、 Blue）。 Minimun=0, maximun=255, largechange=10, SmallChange=1 . 見下圖。 窗體和常用控件 66 Private Sub HScrollBar1_Scroll(…)… = (, , ) End Sub 常用控件 67 7. 定時器 Timer (1) 主要屬性 ? Enabled: 為 false 時，定時器不起作用。 ? Interval: 兩次觸發(fā) tick事件的時間間隔。其值以 ms（ ）為單位。即 1000為 1秒。 (2) 主要事件 Tick: 時間間隔一到觸發(fā)該事件。 常用控件 68 例 ：用定時器控制蝴蝶在窗體內(nèi)飛舞。 窗體中放三個 PictureBox控件。設(shè)計時，只有 PictureBox1的 visible=true。通過定時器控制在 PictureBox1中裝入 PictureBox2 和PictureBox3的圖像來實現(xiàn)。 窗體和常用控件 69 窗體和常用控件 事先收集 2個不同蝴蝶圖片，存放在項目的 bin文件夾下。 70 日期挑選控件 ? DateTimePicker控件 : 用戶不想輸入日期（或時間），可以通過該控件選擇一個日期（時間）。 常用控件 71 (1) 主要屬性： ? Value: 對象的當前值。 ? Format：顯示日期的格式。 Long(2022年 2月 25日 ) \ short(2022/2/25) \ time(僅顯示時間 ) \ custom(用戶所給格式 ) ? ShowUpDown：控制顯示的樣式 Flase/true Flase True 常用控件 72 例 程序界面如圖所示。 Private Sub DateTimePicker1_ValueChanged (… ) ( ） End Sub 常用控件 73 RichTextBox控件用于顯示 、 輸入和操作 格式化的文本 。 控件除了做 TextBox 控件所做的每件事外 ， 還可以顯示字體 、 顏色和鏈接 ， 從文件加載文本和加載嵌入的圖像 ， 以及查找指定的字符 (find方法 )。 RichTextBox 控件通常用于提供類似字處理應用程序 （ 如 Microsoft Word） 的文本操作和顯示功能 。 常用控件 9. RichTextBox控件 74 RichTextBox沒有 PasswordChar屬性 ， 但比 TextBox功能強大 ， 主要有： (1) 文本的長度沒有 64k限制； (2) 可對選中的文本設(shè)置格式 ， 如 SelectionBackColor、 SelectionColor、 SelectionFont等 (3) 可方便用 LoadFile和 SaveFile直接讀寫文件 。 常用控件 75 常用控件 ? RichTextBox常用的 2個方法： SaveFile: 將 RichTextBox 控件中內(nèi)容保存到文件中 LoadFile:將文件內(nèi)容加載到 RichTextBox 控件中 用法： RichTextBox1. LoadFile(路徑文件名 ,流類型 )