職業(yè)教育論文-實(shí)驗(yàn)課編程技巧【摘要】本文在VB實(shí)驗(yàn)課的角度，為使學(xué)生更加深入地掌握編程技能，介紹了幾個(gè)常用和典型的編程技巧。VisualBasic利用可視化技術(shù)進(jìn)行編程，避免了面向過程語言的許多細(xì)節(jié)。因此，學(xué)生比較容易掌握VB程序設(shè)計(jì)的基本知識(shí)。就VB實(shí)驗(yàn)課而言，應(yīng)當(dāng)盡可能多的進(jìn)行編程的練習(xí)。本文介紹幾個(gè)較為典型的編程技巧，希望能對(duì)學(xué)習(xí)VB的同學(xué)有所幫助?！娟P(guān)鍵詞】VB實(shí)驗(yàn)課編程技巧一、創(chuàng)建自定義的光標(biāo)在設(shè)計(jì)一個(gè)應(yīng)用程序時(shí)，VisualBasic許多控件的MousePointer屬性允許程序員在預(yù)先定義好的若干個(gè)鼠標(biāo)光標(biāo)形狀之中任選其一。但在應(yīng)用程序中，有時(shí)候希望顯示一個(gè)不同于預(yù)定義形狀的光標(biāo)。那么可以添加代碼來改變控件的MouseMove和DragOver事件。下面用實(shí)例來說明當(dāng)鼠標(biāo)指針移動(dòng)到一個(gè)控件上時(shí)，如何改變成不同的形狀。首先創(chuàng)建窗體Form1。在Form1上添加一個(gè)文本框控件Text1。在Text1控件的DragIcon屬性的設(shè)置對(duì)話框中選擇一個(gè)指針形狀（.ICO文件）。將如下代碼添加到Text1的MouseMove事件中：PrivateSubText1_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Text1.Drag1icononEndSub將如下代碼添加到Form1的DragOver事件中：PrivateSubForm_DragOver(SourceAsControl,XAsSingle,YAsSingle,StateAsInteger)Text1.Drag0iconoffEndSub運(yùn)行此程序。將鼠標(biāo)指針移動(dòng)到該文本框控件上時(shí)，程序?qū)阉x中的.ICO文件作為默認(rèn)的鼠標(biāo)光標(biāo)；將鼠標(biāo)指針離開該控件時(shí)，光標(biāo)則會(huì)自動(dòng)恢復(fù)為默認(rèn)的形狀。其他控件也可以如此設(shè)置，包括沒有MousePointer屬性的控件。二、在窗體上單擊鼠標(biāo)右鍵彈出一個(gè)快捷菜單在操作系統(tǒng)和應(yīng)用軟件的視窗中，點(diǎn)鼠標(biāo)右鍵時(shí)，會(huì)彈出一個(gè)快捷選單。VisualBasic程序里也可以實(shí)現(xiàn)類似的功能。首先，利用VB的菜單編輯器（MenuEditor）編輯所希望彈出的菜單及子菜單，并將主菜單的Visible屬性設(shè)置為False，將其以下各級(jí)菜單的Visible屬性設(shè)置為True。假設(shè)主菜單名為“文件”，一級(jí)下拉菜單包括“新建”、“打開”、“關(guān)閉”三個(gè)菜單項(xiàng)。在窗體Form1（也可以是任意控件）的MouseDown事件中編寫如下代碼：PrivateSubForm-MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=vbRightButtonThen文件.Visible=TruePopupMenu文件EndIfEndSub運(yùn)行，在窗體上單擊右鍵，會(huì)彈出快捷菜單，菜單項(xiàng)包括：“新建”、“打開”、“關(guān)閉”。三、給PictureBox控件加滾動(dòng)條的方法VisualBasic的圖片框（PictureBox）控件可以在其中加載圖片。但是，往往所加載的圖片比圖片框大，只能看到圖片的一部分，那么，可以在圖片框內(nèi)部加上水平和垂直滾動(dòng)條，利用滾動(dòng)條來顯示看不到的圖片。具體方法如下：首先單擊菜單欄上的“工程(Project)”菜單，在彈出的下拉菜單中單擊“部件(Components)”，選中其中的“MicrosoftCommonDialogControl6.0”，完成加載工作；然后畫一個(gè)PictureBox，采用默認(rèn)名字Picture1,再在Picture1上面畫一個(gè)PictureBox，默認(rèn)名字為Picture2，設(shè)置：Picture2.AutoSize=TRUE；接著，加上水平和垂直滾動(dòng)條，默認(rèn)名字分別為：HScroll1，VScroll1；加載圖形到Picture2上；最后，在窗體中引入其它控件：一個(gè)按鈕（Command），默認(rèn)名為Command1和一個(gè)“MicrosoftCommonDialogControl”，默認(rèn)名為CommonDialog1。具體代碼如下：PrivateSubForm-Load()Picture2.Left=0：Picture2.Top=0：Picture2.Width=Picture1.WidthPicture2.Height=Picture1.HeightVScroll1.Min=0：HScroll1.Min=0：HScroll1.Min=0VScroll1.Max=Picture2.HeightPicture1.HeightHScroll1.Max=Picture2.WidthPicture1.WidthIfHScroll1.Max0ThenHScroll1.Enabled=FalseIfVScroll1.Max0ThenVScroll1.Enabled=FalseEndSubPrivateSubCommand-Click()OnErrorGoToErrExitCommonDialog1.Filter=“Bitmapfile(*.bmp)|*.bmp|AllFile(*.*)|*.*”CommonDialog1.FilterIndex=1：CommonDialog1.ShowOpenPicture2.Picture=LoadPicture(CommonDialog1.filename)VScroll1.Min=0：HScroll1.Min=0VScroll1.Max=Picture2.HeightPicture1.HeightHScroll1.Max=Picture2.WidthPicture1.WidthIfHScroll1.Max0ThenHScroll1.Enabled=FalseIfVScroll1.Max0ThenVScroll1.Enabled=FalseErrExit:EndSubPrivateSubHScroll1-Change()Picture2.Left=HScroll1.ValueEndSubPrivateSubVScroll1-Change()Picture2.Top=VScroll1.ValueEndSub該程序通過點(diǎn)擊Command1按鈕，在彈出的對(duì)話框中選擇一個(gè)圖形文件加載到Picture2中，利用水平和垂直滾動(dòng)條就可以實(shí)現(xiàn)圖片的滾動(dòng)。四、文本框中文本的某一特定字符或字符串同時(shí)高亮顯示的方法由于普通TextBox控件不支持不連續(xù)字符串的同時(shí)高亮顯示，所以選擇RichTextBox控件。單擊“工程（Project）”菜單，在彈出的下拉菜單中單擊部件（Components）選項(xiàng)，從彈出的對(duì)話框中選擇“MicrosoftRichTextboxControl6.0”復(fù)選框，確定加載RichTextBox控件。新建一個(gè)工程，在窗體（Form）上添加一個(gè)RichTextBox控件和兩個(gè)Command（按鈕）控件，都采用系統(tǒng)默認(rèn)的Name屬性值；設(shè)置RichTextBox的Text屬性值為空，Command1和Command2的Caption屬性值分別設(shè)為“輸入文本”和“選擇字符串”。添加如下VB代碼：PrivateSubCommand1-Click()DimstrAsString：DimTextAsString：str=輸入文本Text=InputBox(str)：RichTextBox1.Text=TextEndSubPrivateSubCommand2-Click()DimstrAsString：DimTextAsString：DimPositionAsInteger：DimLenthAsIntegerstr=“輸入要高亮顯示的字符串”：Text=InputBox(str)IfText“”ThenPosition=InStr(RichTextBox1.Text,Text)1Lenth=Len(Text)RichTextBox1.SelStart=PositionRichTextBox1.SelLength=LenthRichTextBox1.SelColor=RGB(255,0,0)DoWhileInStr(PositionLenth1,RichTextBox1.Text,Text)0Position=InStr(PositionLenth1,RichTextBox1.Text,Text)1RichTextBox1.SelStart=PositionRichTextBox1.SelLength=LenthRichTextBox1.SelColor=RGB(255,0,0)LoopEndIfEndSub運(yùn)行程序，單擊“輸入文本”按鈕，在彈出的對(duì)話框中輸入一些文本，確定后，剛剛輸入的文本將顯示在RichTextBox中；再單擊“選擇字符串”按鈕，在彈出的對(duì)話框中輸入希望高亮顯示的字符串，確定后，RichTextBox中相應(yīng)的字符串將以紅色高亮顯示。五、關(guān)聯(lián)文件列表框、目錄列表框和驅(qū)動(dòng)器列表框的方法一個(gè)對(duì)話窗體，包含驅(qū)動(dòng)器列表框、目錄列表框和文件列表框，并能實(shí)現(xiàn)三者的同步操作，在VB中可以通過Path屬性的改變引發(fā)Change事件來實(shí)現(xiàn)。首先，在目錄列表框（Dir1）的Change事件中加如下代碼：SubDir1-Change()File1.Path=Dir1.PathEndSub該事件過程使窗體上的目錄列表框（Dir1）和文件列表框（File1）產(chǎn)生同步。因?yàn)槟夸浟斜砜騊ath屬性的改變將產(chǎn)生Change事件，