VB基本控Word版

1、VB基本控件教學(xué)目的：1、 熟悉VB中基本控件的屬性及事件。2、 掌握VB中常用控件的特點及使用方法。教學(xué)重點：1、 VB中控件基本概念的理解。2、 VB中基本控件的屬性設(shè)置及事件編程。課時安排：理論教學(xué)安排16課時，上機(jī)練習(xí)16課時VB基本控件（一）一、 窗體 屬性: 事件:Load()-載入的窗體不在屏幕上顯示.如果顯示,必須調(diào)用show方法.unload()click()dblclick()keypress(keyascii as integer)-按鍵事件.例如:Private Sub Form_KeyPress(KeyAscii As Integer)print keyascii;E

2、nd Sub窗體方法:Print,cls練習(xí):VB函數(shù)例2.1改進(jìn)Private Sub Command1_Click()Dim x As Integer, a As IntegerDim b As Integer, c As Integerx = Val(Text1.Text)a = Int(x / 10)b = x Mod 10c = b * 10 + aText2.Text = cEnd Sub作業(yè):1試寫出輸入一個三位數(shù),交換三位數(shù)的程序代碼.例如.輸入”123”,則輸出”321”2 寫出產(chǎn)生隨機(jī)三位整數(shù)的隨機(jī)數(shù)公式.3 寫出利用int函數(shù)進(jìn)行四舍五入取整的公式.你能利用它實現(xiàn)精確到小

3、數(shù)點后兩位的方法嗎?P36例2.2隨機(jī)函數(shù)rnd及取整函數(shù)int的應(yīng)用.Rnd-用來產(chǎn)生0到1之間的隨機(jī)數(shù).1 / 19Private Sub Form_Click()Dim x As SingleRandomizex = RndPrint xEnd Sub產(chǎn)生其它范圍的隨機(jī)數(shù).通過對rnd進(jìn)行變化來實現(xiàn).Rnd*100-用來產(chǎn)生(0,100)之間的隨機(jī)數(shù).Int(rnd*100)-用來產(chǎn)生(0,100)之間的隨機(jī)整數(shù).產(chǎn)生a,b隨機(jī)整數(shù),使用: Int(b-a+1)*rnd+a)例2.2Private Sub Form_Click()Dim a As Integer, b As Intege

4、r, c As IntegerRandomizea = Int(90 * Rnd + 10)b = Int(90 * Rnd + 10)c = a + bPrint "產(chǎn)生的兩個隨機(jī)數(shù)為" a, bPrint "和為" cEnd Sub改進(jìn)程序:在窗體上加上標(biāo)簽label1.加上按鈕command1,按鈕的標(biāo)題為”產(chǎn)生隨機(jī)數(shù)”.單擊按鈕時,在標(biāo)簽顯示所產(chǎn)生的三位隨機(jī)數(shù).Dim a As IntegerRandomizea=Int(900* Rnd + 100)label1.caption=a 將a保存到標(biāo)簽中P45上機(jī)練習(xí)3:練習(xí)命令按鈕的屬性Visib

5、le-設(shè)置按鈕是否可見.true(可見),flase(不可見)改進(jìn)程序:在窗體中加入c1,c2兩個按鈕.初始設(shè)置c1可見,c2不可見.單擊c1時,c2可見同時c1消失; 單擊c2時,c1可見同時c2消失.Private Sub C1_Click()C2.Visible = TrueC1.Visible = FalseEnd SubPrivate Sub C2_Click()C1.Visible = TrueC2.Visible = FalseEnd SubPrivate Sub Form_Load()C1.Visible = TrueC2.Visible = FalseEnd SubP46上機(jī)

6、練習(xí)4:窗體的windowstate屬性.取值三個:Form1.windowstate=0-正常 Form1.windowstate=1-最小化Form1.windowstate= 2-最大化按鈕屬性練習(xí):Private Sub Form_Click()Command1.FontSize = 16Command1.FontItalic = TrueCommand1.Caption = "確定"Command1.Enabled = FalseCommand2.FontSize = 14Command2.Caption = "取消"End Sub學(xué)習(xí)總結(jié):1

7、數(shù)學(xué)函數(shù)的使用. 掌握int()及rnd()兩個函數(shù)的應(yīng)用.2窗體對象的屬性方法事件事件: Keypress事件-是一個帶有參數(shù)keysacii的事件.屬性: Picture-用來給窗體添加圖形背景.loadpictue(圖片地址)函數(shù)的應(yīng)用. Visble-窗體的可見屬性 Enabled-窗體的可操作屬性二、VB中的基本控件（一）控件的公共屬性1、name-控件對象的名稱。在程序中，用name來表示對象。它只能在屬性窗口中來改變，程序中不可變，程序中用name來表示對象本身。2、caption-控件對象的標(biāo)題?？梢栽趯傩源翱诩俺绦蛑懈淖儭２糠挚丶]有caption屬性。3、visible-控

8、件的可見性。例：在窗體上加入兩個按鈕。單擊窗體時，按鈕一不可見，按鈕二的標(biāo)題為“命令按鈕二”。Private Sub Form_Click()Command1.Visible = FalseCommand2.Caption = "命令按鈕二"End Sub練習(xí)：單擊按鈕二，按鈕一出現(xiàn)，并且標(biāo)題為“命令按鈕一”。Private Sub Command2_Click()Command1.Visible = TrueCommand1.Caption = "命令按鈕一"End Sub4、enabled-可響應(yīng)用戶事件的。用來設(shè)置對象是否能響應(yīng)用戶的事件。Priv

9、ate Sub Command1_Click()Text1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text1.Enabled = FalseEnd Sub練習(xí)：在窗體上加入一個標(biāo)簽及一個按鈕。單擊窗體時，標(biāo)簽的背景色變?yōu)辄S色，并且不可用。按鈕則不可見。Private Sub Form_Click()Label1.BackColor = RGB(255, 255, 0)Label1.Enabled = FalseCommand1.Visible = FalseEnd Sub5、位置及大小

10、屬性（left,top,width,height）6、色彩屬性（bgcolor,forecolor）作業(yè)：1、 寫出下列print語句的輸出效果。（1）Dim a as integer,b as integer Print “a=”,”b=” A=9:b=7 Print a,b (2) Print 1;2;3,”1”;”2”;”3” Print 1; printPrint 2 (3) Dim a as integer,b as integer A=3:b=7 Print “a=”;a,”b=”;b A=a+b:b=a+b Print “a=”;a,”b=”;b2、列舉VB中控件的基本屬性及含義

11、。（二）標(biāo)簽控件（label）1、系統(tǒng)給標(biāo)簽的命名形式為label1,label2,2、標(biāo)簽作用：程序設(shè)計中，經(jīng)常使用標(biāo)簽的caption來完成結(jié)果的輸出或者用于顯示提示用戶的信息。2、 標(biāo)簽的特殊屬性Alignment-標(biāo)簽的對齊方式。Private Sub Command1_Click()L1.Alignment = 0 標(biāo)簽名可以由用戶在屬性口中設(shè)置。End SubPrivate Sub Command2_Click()L1.Alignment = 2End SubPrivate Sub Command3_Click()L1.Alignment = 1End SubPrivate Sub

12、 Form_Load()L1.BackColor = RGB(255, 0, 0)L1.Alignment = 1End Sub Autosize-標(biāo)簽的大小隨內(nèi)容的多少而變化。 Borderstyle-標(biāo)簽是否有邊框。 Backstyle-標(biāo)簽的背景模式。 Wordwrap-標(biāo)簽的加行變動。3、 標(biāo)簽的事件方法ClickDblclickMove(移動方法)（三）按鈕控件1、系統(tǒng)給按鈕的名稱command1,command2,2、按鈕的作用： 接收用戶的單擊操作。3、 特殊屬性：Default-設(shè)置按鈕的默認(rèn)屬性為“enter”鍵。Cancel-設(shè)置按鈕的默認(rèn)屬性為“esc”鍵。Style-設(shè)

13、置按鈕的外觀屬性。4、 常用事件與方法ClickSetfocus(設(shè)置焦點方法)注意：按鈕無雙擊操作。上機(jī)練習(xí)：P70例3.10P73例3.12P79上機(jī)調(diào)試4Private Sub Form_Load()Text1.Text = "left屬性的使用"End SubPrivate Sub Command2_Click()Text1.Left = Form1.Width - Text1.WidthEnd SubPrivate Sub Command3_Click()Text1.Left = (Form1.Width - Text1.Width) / 2End Sub（四）文

14、本框（text）1、系統(tǒng)給文本框的名稱形如text1,text2,2、文本框的作用： 程序設(shè)計中用于交互式輸入數(shù)據(jù)；輸出程序的運行結(jié)果。3、 文本框特殊屬性： Maxlength-表示文本框可接收字符的最大長度。 Multiline-文本框允許多行輸入。（用來設(shè)置多行文本框與單行文本框） Passwordchar-用來設(shè)置文本框的密碼輸入。Private Sub Text2_Change()Text1.Text = Text2.TextEnd Sub Scrollbars-用來設(shè)置多行文本框是否出現(xiàn)滾動條。Selstart-用來記錄在文本框中選擇文本的開始位置。Sellength-用來記錄在文

15、本框中選擇文本的長度。Seltext-用來記錄在文本框中選擇文本。Text-用來記錄文本框的所有內(nèi)容。Locked-用來鎖定文本框，禁止用戶對文本框的編輯。4、 事件與方法： 事件：click,dblclick,change 方法：setfocus,move上機(jī)練習(xí)：P65例3.7P70例3.9,3.11練習(xí)： 可選擇部分文本，并完成剪切。用到P37字符串函數(shù)（left(),mid()）。VB中的基本控件(三)一、 計時器控件（timer）1、 系統(tǒng)給計時器默認(rèn)名為timer1,程序運行時在窗體上不可見的控件。2、 屬性：Enabled-啟用計時器Interval-確定計時器的時間間隔。（以毫

16、秒為單位）-只有設(shè)置了interval值才能觸發(fā)timer事件。 半分鐘：500 一分鐘：10003、 事件：timer1_timer()與時間相關(guān)的函數(shù)：1） Date 取計算機(jī)的當(dāng)前日期2） Time 取計算機(jī)的當(dāng)前時間3） Year(date) 取當(dāng)前年號4） Month(date) 取當(dāng)前月份5） Day(date) 取當(dāng)前日期Private Sub Form_Load()Label1.Caption = "今天是" & Year(Date) & "年" & Month(Date) & "月"

17、& Day(Date) & "日"End SubPrivate Sub Timer1_Timer()Text1.Text = Time()End Sub上機(jī)練習(xí)：1、 P96 例4.112、 北京歡迎你小動畫：定義三個全程變量，str1表示顯示的字符串，n,m用來記數(shù)，n是字符串的長度。Public str1 As StringPublic n As Integer, m As IntegerPrivate Sub Form_Load()str1 = "中國2008，北京歡迎你！"n = Len(str1) 求字符串的長度保存在n中m =

18、 1End SubPrivate Sub Timer1_Timer()如果m大于n，表示字符串已顯示完If m <= n ThenLabel1.Caption = Label1.Caption + Mid(str1, m, 1)m = m + 1ElseLabel1.Caption = ""m = 1End IfEnd Sub改進(jìn)程序2，在上面加入“開始”，“停止”，“退出”按鈕。Timer1.enabled的值為true,時鐘開始，為false時，時鐘停。3、 P97 4.12倒記時。4、 P108 上機(jī)調(diào)試題6二、 單選按鈕（成組出現(xiàn)）系統(tǒng)給單選按鈕的默認(rèn)名為:o

19、ption1,option2,常用屬性：Option1.caption-用來顯示按鈕的標(biāo)題。Option1.value-用來表示按鈕的狀態(tài)（選中，未選中）。常用事件： Click-改變按鈕的value值。例：1、利用單選按鈕改變窗體背景色。Private Sub Option1_Click()If Option1.Value = True Then Form1.BackColor = RGB(255, 0, 0)End IfEnd SubPrivate Sub Option2_Click()If Option2.Value = True Then Form1.BackColor = RGB(0

20、, 255, 0)End IfEnd SubPrivate Sub Option3_Click()If Option3.Value = True Then Form1.BackColor = RGB(0, 0, 255)End IfEnd Sub2、帶開關(guān)的時鐘。Private Sub Form_Load()Label1.Caption = "今天是" & Year(Date) & "年" & Month(Date) & "月" & Day(Date) & "日"En

21、d SubPrivate Sub Option1_Click()開啟時鐘If Option1.Value = True Then Timer1.Enabled = TrueEnd IfEnd SubPrivate Sub Option2_Click() 關(guān)閉時鐘If Option2.Value = True Then Timer1.Enabled = FalseEnd IfEnd SubPrivate Sub Timer1_Timer()Text1.Text = Time()End Sub上機(jī)練習(xí)：1、 P92 例4.82、 隨機(jī)加減法器Dim m As Integer, s As Integ

22、erDim total1 As Integer, count1 As IntegerDim a As Integer, b As Integer, c As IntegerPrivate Sub Command1_Click()Timer1.Enabled = TrueRandomizea = Int(900 * Rnd + 100)b = Int(900 * Rnd + 100)If a > b Then Text1.Text = a & "-" & b & "=" c = a - bElse Text1.Text = a

23、 & "+" & b & "=" c = a + bEnd IfText2.SetFocusEnd SubPrivate Sub Command2_Click()total1 = total1 + 1If Val(Text2.Text) = c Then count1 = count1 + 1End IfText2.Text = ""Randomizea = Int(900 * Rnd + 100)b = Int(900 * Rnd + 100)If a > b Then Text1.Text = a &

24、amp; "-" & b & "=" c = a - bElse Text1.Text = a & "+" & b & "=" c = a + bEnd IfText2.SetFocusPicture1.ClsPicture1.Print "你共答了" & total1 & "題，"Picture1.Print "其中答對了" & count1 & "題"End S

25、ubPrivate Sub Form_Load()Timer1.Enabled = FalseText3.Text = "02:00"End SubPrivate Sub Timer1_Timer()Dim temp As StringDim score As Integerm = Val(Left(Text3.Text, 2)s = Val(Right(Text3.Text, 2)If s > 0 Then s = s - 1Else If m > 0 Then m = m - 1 s = 59 End IfEnd IfIf m = 0 And s = 0 T

26、hen Text2.Enabled = False score = Int(count1 / total1 * 100) MsgBox "答題時間到" & Chr(13) & Chr(10) & "你的成績?yōu)?quot; & score Timer1.Enabled = FalseEnd IfIf m < 10 Then temp = "0" & m & ":"Else temp = m & ":"End IfIf s < 10 Then

27、 temp = temp & "0" & sElse temp = temp & sEnd IfText3.Text = tempEnd SubVB中的控件（四）一、 列表框（可以用存放一組值） 系統(tǒng)的默認(rèn)名稱為list1,list2,1、 屬性： List-用來存放列表項。屬性窗口錄入列表項時，使用ctrl+enter來換行。List中存放的是一組值，用list(0),list(1),表示。在程序方式，list屬性的使用方法：list1.list(0) Listcount-用來存放列表項的數(shù)目。 Text-用來存放用戶對list的最后選擇表項。 M

28、ultiselect-設(shè)置列表可以選擇多個選項。 Selected-用來存放列表項的選中狀態(tài)，只有true和false。Selected中存放一組值，與list對應(yīng)。在程序中,selected屬性的使用方法：list1.selected(0)2、 事件：click(),dbclick()3、 方法：（1） 添加列表項：List1.additem “列表項值”，列表項位置（2） 刪除列表項：List1.clearList1.removeitem 列表項位置上機(jī)練習(xí)：1、 P122-124 例5.13,5.14例5.13循環(huán)變量范圍：100-800Dim n as integerFor n=100

29、 to 800 step 1 If n mod 3=0 and n mod 8=0 then List1.additem n endifNext n2、 P135 上機(jī)調(diào)試33、 P112-113例5.5，例5.6, 例5.74、 P134-135上機(jī)調(diào)試題1,2二、 組合框（combobox）系統(tǒng)給組合框的默認(rèn)名為combo1,combo2,屬性： List-是一組值，同listbox相同。引用的時候使用combo1.list(1),combo1.list(2) 其它屬性與listbox相同。 Style-用來決定組合框的不同類型。 0：下拉組合框。可以錄入列表項。 1：簡單組合框?？梢凿浫?/p>

30、新列表項。 2：下拉列表框。不能錄入新的列表項。事件與方法與listbox相同。上機(jī)練習(xí)：1、 P125例5.15Private Sub Command1_Click()條件式用來判斷組合框的輸入框是否為空，如果不為空則是用戶要添加的列表項。Len（）用來求字符串長度。If Len(Combo1.Text) > 0 Then Combo1.AddItem Combo1.Text Text1.Text = Combo1.ListCountEnd IfCombo1.Text = ""Combo1.SetFocusEnd SubPrivate Sub Command2_Cl

31、ick()Dim ind As Integer ind用來記錄表項在組合框內(nèi)的順序。當(dāng)值為-1時，沒有選中的列表項。ind = Combo1.ListIndexIf ind <> -1 Then Combo1.RemoveItem ind Text1.Text = Combo1.ListCountEnd IfEnd SubPrivate Sub Command3_Click()Combo1.ClearText1.Text = Combo1.ListCountEnd SubPrivate Sub Command4_Click()EndEnd SubPrivate Sub Form_L

32、oad()Combo1.AddItem "電子商務(wù)"Combo1.AddItem "網(wǎng)頁制作"Combo1.AddItem "internet簡明教程"Combo1.AddItem "計算機(jī)網(wǎng)絡(luò)基礎(chǔ)"Combo1.AddItem "多媒體技術(shù)"Combo1.Text = ""Text1.Text = Combo1.ListCountEnd Sub2、 P134-135上機(jī)調(diào)試題1,2上機(jī)調(diào)試題1：S=1/(1+1*4)+1/(1+2*4)+1/(1+n*4)+的前100項之和

33、。Dim s as single,I as integerS=0 For i=1 to 100 step 1S=s+1/(1+i*4)Next iS=(int(s*100+0.5)/100Print “和為” & s上機(jī)調(diào)試題2:三位數(shù)：設(shè)x為三位數(shù)，變化范圍（100，999）求x的百位數(shù)字a：a=int(x/100)求x的十位數(shù)字b：b=int(x-a*100)/10)求x的個位數(shù)字c：c=x mod 10條件式：a3+b3+c3=x代碼如下：Dim x as integer,a as integer,b as integer,c as integerDim I as integer

34、I=0For x=100 to 999 step 1a=int(x/100)b=int(x-a*100)/10)c=x mod 10if a3+b3+c3 =x then list1.additem x list1.list(i)=x:i=i+1endifnext x3、 P128例5.174、 P135 上機(jī)調(diào)試5（模仿例5.14）P241框架控件：（frame，用來對多組控件進(jìn)行分類）屬性：caption屬性（顯示分類的標(biāo)準(zhǔn)）利用frame對單選按鈕進(jìn)行分組的實例。Dim pro As StringDim colo As StringPrivate Sub Command2_Click()

35、MsgBox "你選擇的產(chǎn)品是" & pro & "色彩是" & coloEnd SubPrivate Sub Form_Click()Command1.Enabled = TrueEnd SubPrivate Sub Form_Load()Command1.Enabled = FalseEnd SubPrivate Sub Option1_Click()If Option1.Value Then colo = "紅色"End IfEnd SubPrivate Sub Option2_Click()If Opt

36、ion2.Value Then colo = "綠色"End IfEnd SubP242例10.5小練習(xí)：可以變色的小按鈕。1） 在ps中制作按鈕(包含文本)2） 保存圖片為web網(wǎng)頁格式(gif圖片)3） 同樣方法重復(fù)1）2）制作多個。4） 在VB中加入按鈕對象。修改屬性style為1設(shè)置屬性picture為一種圖形，屬性downpicture為另一種圖形。P244 滾動條常用屬性：1） Min,max-2） Value-3） Smallchange,largechange-事件：1)Scroll2)change上機(jī)練習(xí)：P245 例10.6P246VB中的圖形系統(tǒng)：1、

37、 坐標(biāo)原點在左上角。2、 圖形方法：1） 畫點：對象名.pset (x,y ),color2） 畫線：對象名.line (x1,y1)-（x2,y2）,color例如：（窗體隨機(jī)線）Private Sub Form_Click()Dim x1 As Integer, y1 As IntegerDim x2 As Integer, y2 As IntegerDim r As Integer, g As Integer, b As IntegerDim i As IntegerRandomizeFor i = 1 To 3000 Step 1x1 = Int(Form1.Width + 1) *

38、Rnd)y1 = Int(Form1.Height + 1) * Rnd)x2 = Int(Form1.Width + 1) * Rnd)y2 = Int(Form1.Height + 1) * Rnd)r = Int(256 * Rnd)g = Int(256 * Rnd)b = Int(256 * Rnd)Form1.Line (x1, y1)-(x2, y2), RGB(r, g, b)Next iEnd Sub3） 畫圓:對象名.circle (x,y),r,color,起點，終點，縱橫比上機(jī)練習(xí)：P247 例10.7VB中的圖形控件：1） 圖像框image(不支持print方法，不是

39、容器對象)2） 圖片框picturebox（支持print方法，是一個容器對象）3） 形狀對象sharp-用來裝飾界面 屬性：（1） sharp 屬性-設(shè)置不同形狀。（2） borderstyle,bordercolor-設(shè)置邊線的形及色彩。（3） fillstyle,fillcolor-設(shè)置填充的形及色彩。（4） backstyle,backcolor-4）直線對象line 屬性： (X1,y1),(x2,y2) Borderstyle,bordercolor上機(jī)練習(xí)：P251例10.8三條線的（x1,y1）的坐標(biāo)值。 X1=sharp1.left+sharp1.width/2 Y1=sha

40、rp1.top+sharp1.height/2P284 上機(jī)調(diào)試題1，2Public lens As Single 求指針的長度Public i As Integer 計數(shù)Const pi = 3.14159Private Sub Command1_Click() 開始按鈕Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click() 停止按鈕Timer1.Enabled = FalseEnd SubPrivate Sub Form_Load() 初始化lens = Line1.Y1 - Line1.Y2 求長度Timer1.Enabled =

41、 False 停止timeri = 0End SubPrivate Sub Timer1_Timer()i = i + 1If i > 60 Then i = i 60 60秒的轉(zhuǎn)換Line1.X2 = Line1.X1 + lens * Sin(pi * i / 30)Line1.Y2 = Line1.Y1 - lens * Cos(pi * i / 30)End Sub4） P128例5.17VB中的數(shù)據(jù)庫操作：1、 data控件（提供數(shù)據(jù)庫連接）識別ACCESS97格式的數(shù)據(jù)庫文件。1） 準(zhǔn)備好ACCESS數(shù)據(jù)庫2） 加入data控件，設(shè)置屬性： Databasename-指定的庫

42、文件 Recordsource-指定的表文件3） 字段名與文本框的綁定。 Datasource-data控件名 Datafield-表的字段名例：顯示表中的多行記錄。Private Sub Command1_Click()If Not Data1.Recordset.EOF ThenData1.Recordset.MoveNextElseData1.Recordset.MoveFirstEnd IfEnd SubData的屬性：Databasename-Recordsource-SQL的select語句。Exclusive-用戶是否獨占數(shù)據(jù)庫。Readonly-以只讀方式打開庫文件。Data的

43、子對象recordset的屬性:Bof,eof-第一條記錄時，bof的值為true；最后一條記錄時，eof的值為trueRecordcount-記錄的總數(shù)。Nomatch-查找成功時值為true,不成功為false。Fields-字段對象集。Data的子對象recordset的方法:1）move方法-移動當(dāng)前記錄到指定位置。 Data1.recordset.move n Data1.recordset.movefirstData1.recordset.movelastData1.recordset.movenextData1.recordset.movePrevious2)seek方法/find方法-用來查找符合條件的記錄。 Da