精-VB6.0授課全套筆記-含大量案例及代碼

1、第一章 VB 緒論一、常用單詞：1、 Form：窗體2、 CommandButton:命令按鈕3、 TextBox:文本框4、 Caption：顯示窗體或者命令按鈕上的文字5、 Text：修改文本框的顯示內(nèi)容二、保存：注意存兩個文件， 窗體文件（ .frm），工程文件（ .vbp）三、生成可執(zhí)行程序：【文件】 -【生成 】 -保存一個擴(kuò)展名為 .exe 的文件第二章VB 基礎(chǔ)知識一、 VB 的特點(diǎn)Visual-可視或可見Basic-基礎(chǔ)1、 可視化的編程界面2、 事件驅(qū)動機(jī)制3、 面向?qū)ο蠖?、基本概念?、 對象（ Object）:任何事物都可以看做對象， VB 中窗體和控件都是對象。2、 屬

2、性（ Property）:對象的特點(diǎn)3、 事件（ Event）:發(fā)生在對象上的動作4、 方法（ Method）三、應(yīng)用舉例：1、一號對象 窗體（ Form1 ）1）Caption: 改窗體名稱2）BackColor: 背景色3）Height ：高度4）Width: 寬度2、二號對象 命令按鈕（ Command1,2,3 ）1）Caption: 設(shè)置命令按鈕的顯示文本2）Height ：高度3）Width: 寬度3、三號對象 文本框（ Text1 ）1) BackColor: 背景色2)Font: 字體3）ForeColor: 字體顏色4）Text ：顯示文本5）Height: 高度6）Widt

3、h: 寬度* 利用【格式】菜單下的相關(guān)命令調(diào)整大小、對齊、鎖定等四、代碼：Private SubEnd SubClick ：單擊事件第三章創(chuàng)建簡單應(yīng)用程序一、加法器：功能：把兩個 數(shù)字（數(shù)值） 相加將結(jié)果顯示出來二、界面：窗體3 個文本框（ Text1,Text2,Text3 ）3 個標(biāo)簽（ Label1,Label2,Label3 ）3 個按鈕（ Command1,Command2,Command3 ）三、代碼：1、 求和（加法）：Text3.text=Val(Text1.text)+Val(Text2.text)2、 清除：3、 關(guān)閉：四、知識點(diǎn)：1、 Val （參數(shù)）：把文本格式轉(zhuǎn)換為數(shù)

4、值格式，參與計(jì)算2、 Label 標(biāo)簽控件，起解釋說明作用，一般不需加代碼。1) Caption ：2) AutoSize: 調(diào)整大小，設(shè)置為 True第四章編程語言核心知識點(diǎn)（VB ）一、數(shù)據(jù)類型：（一）數(shù)值型數(shù)據(jù)：整型數(shù)和浮點(diǎn)數(shù)（二）字符型數(shù)據(jù)：文字排列符，字母Text 中的數(shù)字默認(rèn)是字符型（三）布爾型數(shù)據(jù)（邏輯型數(shù)據(jù)）真（ True ）或假（ False）（四）變體型數(shù)據(jù)：程序沒有說明默認(rèn)的數(shù)據(jù)類型，可存放上述任何數(shù)據(jù)類型二、常用語句：（一）賦值語句：Text1.text=計(jì)”算機(jī) 1032 真棒！ ”結(jié)構(gòu)：目標(biāo)操作符 =原操作符，把等號后面的賦值給前面的作用：兼賦值和計(jì)算雙重功能Tex

5、t2.text=30Text3.text=58*30（二）聲明變量語句：格式： Dim 變量名 AS 數(shù)據(jù)類型Dim r as integer（三）結(jié)束語句：終止程序的運(yùn)行格式： End（四）注釋語句：Rem 注釋內(nèi)容三、運(yùn)算符和表達(dá)式（一）運(yùn)算符：1、算術(shù)運(yùn)算符：算術(shù)運(yùn)算。如： +-*(乘)/（除） （冪）Mod(取余 )2、字符串運(yùn)算符：連接：&+3、關(guān)系運(yùn)算符：比較 0 then在第二個文本框輸出 “這個數(shù)是正數(shù) ”Else在第二個文本框輸出 “這個數(shù)是負(fù)數(shù)或0”End if代碼：Dim a as doublea=val(text1.text)If a0 thenText2.text=這

6、”個數(shù)是正數(shù) ”ElseText2.text=這”個數(shù)是負(fù)數(shù)或0”End if思考題： 計(jì)算圓面積，當(dāng)輸入的數(shù)是正數(shù)或 0 時，參與計(jì)算，否則在面積對應(yīng)的文本框中輸出 “您輸入的數(shù)是負(fù)數(shù)，不能參與計(jì)算 ”第二種： Select 語句【格式】：Select case 變量CaseEnd select（四）循環(huán)結(jié)構(gòu)：重復(fù)執(zhí)行一行或一段代碼，三種結(jié)構(gòu)ForNext 結(jié)構(gòu)【格式】：For 循環(huán)變量 =初始值 To 終值 【Step 步長值】需重復(fù)執(zhí)行語句塊Next 循環(huán)變量注： Step 可正可負(fù)，如不寫，默認(rèn)步長值為120 遍輸出Dim I as integerFor I=1 to 20 step

7、1重復(fù)執(zhí)行的語句塊Print這“是我輸出的 ”Next i第五章常用控件一、等差數(shù)列求和：1、標(biāo)簽控件（ label）：縮寫 Lab2、文本框控件（ TextBox ）:縮寫 txt3、命令按鈕控件（ CommandButton ）：縮寫 Cmd4、窗體（ Form ）：縮寫 Frm任務(wù)：1. 把所有控件按統(tǒng)一格式命名；2. 作者信息按鈕：修改窗體的屬性3. 完成清除按鈕功能4. 關(guān)閉按鈕：Msgbox 消息框1）聲明一個整型變量：Dim zsj as integer2) 寫消息對話框：Zsj=msgbox( “提示信息 ”，是否顯示 +問號標(biāo)志 ,“對話框標(biāo)題信息 ”)所有符號必須用英文二、

8、 簡單文本顯示器：（一） 添加 Text 控件，設(shè)置：Text 屬性：顯示制作者信息及最喜歡的一句話；Multiline屬性： True ，實(shí)現(xiàn)多行顯示Scrollbar 屬性： both ，實(shí)現(xiàn)顯示水平和垂直滾動條（二） 添加 Frame 控件： 3 個（三）添加單選按鈕和復(fù)選按鈕控件并設(shè)置caption 屬性1、 字體顏色：格式： text1.forecolor=vb 顏色英文（紅： red ，黃： yellow ，綠： green，黑： black ，白：white ，藍(lán)： blue ）2、 字體大?。焊袷剑?text1.fontsize= 字號3、 背景顏色：格式：4、復(fù)選框格式：If

9、 Check1.Value = vbChecked ThenText1.FontBold = TrueElseText1.FontBold = False End IfFontbold ( 加粗 )，F(xiàn)ontItalic （傾斜），F(xiàn)ontUnderline （下劃線）FontName （字體）換行： vbcrlf字符串連接：&（四）三個按鈕1、 顯示：分行顯示一首詩歌或者歌曲格式： text1.text= ”名稱 ” & vbcrlf& “第一句話 ” & vbcrlf &第“二句話 ”2、清除3、 退出：Dim a as integera=msgbox(“提示信息 ”,vbyesno+vb

10、qusetion, “對話框名稱 ”)if a=vbyes thenendend if三、個人信息收集器：標(biāo)簽控件、框架控件、命令按鈕控件、復(fù)選框控件、單選按鈕控件顯示基本信息：Label4.Caption = Label1.Caption & Text1.Text & Label2.Caption & Text2.Text & Label3.Caption & Text3.Text戶口所在地：If Option1.Value=true ThenLabel4.Caption = Label4.Caption & Option1.Caption & End If愛好：If Check1.Valu

11、e = 1 ThenLabel4.Caption = Label4.Caption & Check1.Caption & End If知識點(diǎn)歸納：單選按鈕（ Option ）：屬性 Caption 設(shè)置顯示文本，屬性 value 設(shè)置狀態(tài)， value=true 表示被選中， value=false 表示未被選中復(fù)選框（ Check）：屬性 value 有 3 個值，取 0 表示未被選中，取1 表示被選中，取 2 表示灰色不可用。四、閃字 -定時器控件（ Timer ）知識點(diǎn)：定時器控件（時鐘控件 -Timer ）周期性地每隔一段時間 自動執(zhí)行一次代碼。周期性：由 Timer 的 Timer

12、事件控制；每隔一段時間： Interval 屬性控制（ 1ms65s）操作步驟：1、加足夠多字 -label 控件：1）Caption2）Font3）Autosize2、加一個時鐘控件 -timer設(shè)置 interval 屬性為 1003、給 Timer1_timer （ ）事件添加代碼：設(shè)置隨機(jī)函數(shù)Randomize設(shè)置三個隨機(jī)變量r,g,b 控制三個顏色變量r=255*rndg=255*rndb=255*rnd設(shè)置單個標(biāo)簽顏色Label1.ForeColor = RGB(r, g, b)多個？五、滾動字幕：（一）利用代碼設(shè)置Label 屬性：1、把 Label1 和 Label2 初始位置

13、設(shè)置在窗體之外：Label1.left =-70002、把 Label1 和 Label2 的 Caption 屬性：Label1.Caption= “我是計(jì)算機(jī) 1032 班* ”這些代碼寫在 Form_Load （ ）事件中，使程序運(yùn)行后內(nèi)容顯示（二）開始滾動按鈕：內(nèi)容自左向右滾動，同時字體閃動，按下按鈕之后，按鈕顯示為停止?jié)L動1、自左向右滾動：Label1.Left = Label1.Left + 50If Label1.Left = 9000 Then 判斷文字是否移出屏幕Label1.Left = -7000End If2、閃字3、按鈕變幻內(nèi)容（三）、退出按鈕：消息對話框（五）快速和

14、慢速滾動：If Option1.Value = True ThenTimer1.Interval = 25 減小時間間隔ElseTimer1.Interval = 50 初始時間間隔End If注： Interval 屬性控制 Timer 控件執(zhí)行周期長度，越長滾動越慢第六章 菜單編輯器一、文本顯示器字體（ FontName ），字號（ FontSize）字體顏色（ ForeColor ），背景（ BackColor ）二、計(jì)算器：（一）窗體方法：Print輸出Load 加載Unload 卸載退出窗體：在退出按鈕的Click 事件中Unload Me（二）聲明變量：全局變量，在通用里聲明，可以應(yīng)用到各個程序段中Dim 變量名 As 數(shù)據(jù)類型（三）計(jì)算result- 存結(jié)果把 1和 2的值求和result=val(text1.text)+val(text2.text) 把結(jié)果賦值為 3text3.text=str(result)第七章 多窗體調(diào)用及對話框一、多窗體調(diào)用：1、窗體命名規(guī)則：主窗體 -FrmMain子窗體 -Frm01,Frm02以上內(nèi)容 選中窗體，在名稱屬性中改