VB程序設(shè)計(jì)第四章數(shù)據(jù)輸入輸出.ppt

VisualBasic程序設(shè)計(jì)教程,內(nèi)蒙古科技大學(xué)實(shí)踐訓(xùn)練中心,第四章數(shù)據(jù)輸入輸出,4.1數(shù)據(jù)輸入輸出控件,4.1.1用標(biāo)簽輸出數(shù)據(jù)標(biāo)簽主要用于顯示文本信息。它所顯示的內(nèi)容只能用Caption屬性來(lái)設(shè)置或修改。例【4-1】利用兩個(gè)標(biāo)簽顯示具有浮雕效果的文字。解題思路：所謂浮雕效果就是使顯示的文字利用黑色和白色的錯(cuò)位疊加來(lái)實(shí)現(xiàn)，第一個(gè)標(biāo)簽的背景必須為透明的，兩個(gè)標(biāo)簽的文字、字體大小必須一致。,4.1數(shù)據(jù)輸入輸出控件,4.1.2用文本框輸入輸出數(shù)據(jù)文本框是一個(gè)文本編輯區(qū)域，常用于在程序運(yùn)行時(shí)接收用戶(hù)輸入的數(shù)據(jù)。例【4-2】在一個(gè)文本框中輸入字符，另一文本框輸出其ASCII碼值。解題思路：利用文本框的KeyPress事件輸出字符的ASCII碼值。,Privatesubtext1_keypress(keyasciiasinteger)text2.text=keyasciiEndsub,4.1數(shù)據(jù)輸入輸出控件,4.1.2用文本框輸入輸出數(shù)據(jù)例【4-3】在利用文本框?qū)斎氲姆菙?shù)字?jǐn)?shù)據(jù)進(jìn)行字符串連接。解題思路：在文本框中輸入數(shù)據(jù)，可通過(guò)回車(chē)表示輸入結(jié)束，在KeyPress事件中對(duì)輸入的鍵是否為回車(chē)符（ASCII碼為13）進(jìn)行判斷；也可以通過(guò)按Tab鍵或單擊其他對(duì)象不是輸入結(jié)束，本題采用第二種方式表示輸入結(jié)束。,4.2數(shù)據(jù)輸出方法,4.2.1Print方法Print方法可以在窗體上顯示文本字符串和表達(dá)式的值，也可在其他圖形對(duì)象或打印機(jī)上輸出信息。格式：對(duì)象名.Print表達(dá)式表,|;說(shuō)明：“對(duì)象名”可以是窗體(Form)、立即窗口(Debug)、圖片框(PictureBox)、打印機(jī)(Printer)，若省略，則在當(dāng)前窗體上輸出。例如：Print“GoodMorning”將字符串GoodMorning顯示在窗體上Picture1.print“GoodMorning”把字符串GoodMorning顯示在圖片Picture1上Printer.Print“GoodMorning”將“GoodMorning”輸出到打印機(jī),4.2數(shù)據(jù)輸出方法,4.2.1Print方法“表達(dá)式表”是一個(gè)或多個(gè)表達(dá)式。對(duì)于數(shù)值表達(dá)式，先計(jì)算出表達(dá)式的值，再輸出；而字符串則原樣輸出；若省略，則輸出一個(gè)空行。例如：Print180/3輸出表達(dá)式的值60Print輸出一空行Print“X=180/3”輸出字符串”X=180/3”表達(dá)式表中各表達(dá)式之間用分隔符（逗號(hào)或分號(hào)）隔開(kāi)。用逗號(hào)分隔：按標(biāo)準(zhǔn)輸出格式顯示數(shù)據(jù)項(xiàng)，以14個(gè)字符位置為單位將輸出行分成若干個(gè)區(qū)域，每區(qū)段輸出一個(gè)表達(dá)式的值。用分號(hào)分隔：以緊湊格式輸出。例如：a=10:b=15:c=30Printa,b,c,”ABCD”P(pán)rintPrint“X=“;a+b+c,4.2數(shù)據(jù)輸出方法,4.2.1Print方法Print方法具有計(jì)算和輸出的雙重功能，對(duì)于表達(dá)式，則先計(jì)算后輸出；例：x=5:y=10Print(x+y)/3結(jié)果為5分號(hào)或逗號(hào)為結(jié)尾符號(hào)。一般每執(zhí)行一次Print方法要自動(dòng)換行，而以逗號(hào)或分號(hào)作為結(jié)尾符號(hào)則不換行，仍按緊湊格式或標(biāo)準(zhǔn)格式顯示下一個(gè)信息。例如：print1,2,print3;print4結(jié)果：1234,4.2數(shù)據(jù)輸出方法,4.2.2與Print方法有關(guān)的函數(shù)1、Tab函數(shù)格式：Tab(n)與Print方法一起使用，在參數(shù)n指定的位置輸出其后的表達(dá)式的值。例：PrintTab（25）；“ABC”將在第25個(gè)位置顯示”ABC”說(shuō)明：參數(shù)n為一整數(shù)，用來(lái)指定表達(dá)式輸出的起始列數(shù)；若省略，則Tab將輸出點(diǎn)移動(dòng)到下一個(gè)輸出區(qū)的起點(diǎn)；若n>”;strx$fontsize=18fontname=“Terminal”print“Terminal>>”；strx$endsub,4.4字體、字形和顏色,4.4.3其他屬性1、粗體字：由FontBold屬性設(shè)置格式：FontBoldBoolean省略選項(xiàng)時(shí)，F(xiàn)ontBold屬性返回其當(dāng)前值。參數(shù)Boolean取值為T(mén)rue時(shí)，F(xiàn)ontBold屬性為粗體，否則文本按正常字體輸出，默認(rèn)為False。2、斜體字：由FontItalic屬性設(shè)置格式：FontItalicBoolean3、加中劃線(xiàn)：由FontStrikethru屬性設(shè)置格式：FontStrikethruBoolean4、加下劃線(xiàn)：由FontUnderLine屬性設(shè)置格式：FontUnderLineBoolean5、重疊顯示：當(dāng)以圖形或文本為背景顯示新的信息時(shí)，有時(shí)需要保留原來(lái)的背景，使新顯示的信息與背景信息重合，可由FontTransparent屬性設(shè)置。格式：FontTransparentBoolean,4.4字體、字形和顏色,4.4.3其他屬性注意：除重疊顯示屬性（FontTrasparent）只適用于窗體和圖片控件外，其他屬性適用于各種控件及打印機(jī)。默認(rèn)對(duì)象名為窗體，否則應(yīng)加對(duì)象名：Printer.FontItalic=True設(shè)置一種屬性后，該屬性即開(kāi)始起作用，只有再次設(shè)置該屬性，才會(huì)改變其值。,4.4字體、字形和顏色,4.4.3其他屬性例【4-11】字體風(fēng)格的設(shè)定Privatesubform_click()sample$=“VB程序設(shè)計(jì)”fontsize=20字體大小為20printsample$fontbold=true字體加粗printsample$fontitatlic=true字體為斜體printsample$fontstrikethru=true加中劃線(xiàn)printsample$fontunderline=true加下劃線(xiàn)printsample$fonttransparent=true設(shè)置變量重疊printsamplecurrentx=1000設(shè)置當(dāng)前光標(biāo)的x、y坐標(biāo)currenty=1500print“AAAAAAAAAA”在(x,y)處輸出EndSub,4.4字體、字形和顏色,4.4.4顏色及顏色參數(shù)1、調(diào)色板從屬性窗口中找到要設(shè)置的顏色屬性；從“視圖”>“調(diào)色板”中設(shè)置顏色屬性；2、顏色參數(shù)使用RGB函數(shù)格式：RGB(紅色值，綠色值，藍(lán)色值)3個(gè)參數(shù)均為整數(shù)，取值范圍：0255；0亮度最低，255亮度最高例如，黃色RGB(255,255,0),其中0代表沒(méi)有藍(lán)色白色RGB(255,255,255)Form1.Backcolor=RGB(0,128,0)設(shè)定窗體背景色為綠色Form1.ForecolorRGB(255,255,0)設(shè)定窗體前景色為黃色,4.4字體、字形和顏色,4.4.4顏色及顏色參數(shù)2、顏色參數(shù)QBColor函數(shù)格式：QBColor(顏色值)“顏色值”的取值范圍為：015例如：Forme1.BackColor=QBColor(3)設(shè)置窗體背景色為青色顏色常數(shù)VisualBasic定義了8種常用顏色和Windows控制面板使用的系統(tǒng)顏色。具體見(jiàn)教材列表。,4.4字體、字形和顏色,4.4.4顏色及顏色參數(shù)常用顏色常量,4.4字體、字形和顏色,4.4.4顏色及顏色參數(shù)2、顏色參數(shù)直接使用顏色設(shè)置值通常用十六進(jìn)制表示顏色值：Printer.Page輸出結(jié)果為9NewPage方法：用于結(jié)束對(duì)象中的當(dāng)前頁(yè)，實(shí)現(xiàn)換頁(yè)操作格式：Printer.NewPage一般情況下，打印機(jī)打完一頁(yè)后自動(dòng)換頁(yè)。若調(diào)用NewPage方法，則可強(qiáng)制打印機(jī)換頁(yè)，將打印機(jī)位置重置到新頁(yè)面的左上角，Page屬性自動(dòng)加1;EndDoc方法：用于結(jié)束文件打印，并將Page屬性加1格式：Printer.EndDoc,4.5打印機(jī)輸出,4.5.2窗體輸出格式：窗體.PrintForm“窗體輸出”是先將要輸出的信息送到窗體上，然后用printform方法把窗體的內(nèi)容打印出來(lái)。【例】通過(guò)窗體將指定信息輸出打印機(jī)privatesubform_click()fontname=“courier”fontsize=24currentx=800currenty=500print“printtest”fontname=“黑體”currentx=800currenty=1000print“打印機(jī)測(cè)試”printformendsub,4.5打印機(jī)輸出,4.5.2窗體輸出說(shuō)明：窗體打印可以先在屏幕上修改要輸出的內(nèi)容格式，滿(mǎn)意后再在打印機(jī)上輸出。為實(shí)現(xiàn)窗體打印，必須在屬性窗口中把窗體的AutoRedraw屬性設(shè)置為T(mén)rue，該屬性可以保存窗體上的信息。用PrintForm方法不僅可以打印窗體上的文本，而且可以打印窗體上的任何可見(jiàn)控件和圖形；,4.5打印機(jī)輸出,4.5.3打印源程序代碼1、直接打印菜單“文件”>”打印“命令實(shí)現(xiàn)。2、間接打印選用文本編輯器（Notepad、Word等）打印.frm、.bas等文件。,