vb的一點(diǎn)知識(shí)總結(jié) 適合初學(xué)者

1、-作者xxxx-日期xxxxvb的一點(diǎn)知識(shí)總結(jié) 適合初學(xué)者【精品文檔】1）文件的打開(kāi) Open 文件名 for 模式 #文件號(hào) 文件號(hào)是1255的整數(shù)三種模式：1）Output (輸出) 2）Input（輸入） 3）Append （添加）Eg: Open D:date.txt For Input as #1 絕對(duì)路徑 Open App.Path & date.txt For Input as #1 相對(duì)路徑2）從txt文件中讀取數(shù)據(jù)(1) 將內(nèi)容全部讀取在文本框中 一行行的讀入：Dim InputDate as string Text1.text=“”O(jiān)pen d:1.txt For Inpu

2、t As #1 (Open app.path &1.txt For Input As #1)(相對(duì)路徑) Do while not EOF(1) EOF相當(dāng)于end of file line Input #1,inputDate t = Text1.Text + InputDate + vbCrLf（換行） LoopClose #1 一個(gè)字符一個(gè)字符的讀入 Dim InputDate as sting*1 Text1.text=“”O(jiān)pen d:1.txt For Input As #1 (Open app.path &1.txt For Input As #1)(相對(duì)路徑) Do while

3、 not EOF(1) InputDate=Input$(1,#1)Text1.Text = Text1.Text + InputDate LoopClose #1 一次性的將內(nèi)容讀入 Text1.text=“”O(jiān)pen d:1.txt For Input As #1 (Open app.path &1.txt For Input As #1)(相對(duì)路徑)Text1.Text =Input$(LOF(1),1)Close #1（2） 只讀取某些字符 Open d:1.txt For Input As #1 (Open app.path &1.txt For Input As #1)(相對(duì)路徑)

4、 Input #1, s1 : input #1, s2：Input #1, s3 對(duì)每個(gè)字符定義 Text1.Text =s1+s2+s3+s4+ 想要讀取得的字符 Close #13） 圖片的調(diào)用（LoadPicture函數(shù)） LoadPicture（路徑名）基本用法： Picture1.Picture = LoadPicture (C:文件名) 一般用法： Picture1.Picture = LoadPicture (App.Path & 文件名) 一般用法解釋?zhuān)?一般程序跟一個(gè)文件夾，里面放置程序所需的圖片，用app.path 表示是當(dāng)前的相對(duì)路徑， 這樣即使程序的文件夾移位，也可以

5、正常顯示。 上面的回答再提醒一點(diǎn)，第二個(gè)例子的app.path 需要判斷一下右邊的字符是不是，比如：圖片在C:dd.bmp的話(huà)應(yīng)該是App.Path & dd.bmp而 圖片在C:aadd.bmp的話(huà)應(yīng)該是App.Path & dd.bmp 4）讀取、寫(xiě)入EXCEL數(shù)據(jù) vb調(diào)用Excel單元格的內(nèi)容第一步：更改設(shè)置 （必須更改，否則所編程序不能運(yùn)行）在vb界面 點(diǎn)擊 “工程引用”EXCEL類(lèi)型庫(kù)，勾選下面的選項(xiàng) 點(diǎn)擊 確定 如下圖： 第二步：編寫(xiě)代碼 （紅色代碼可省去）Private Sub Command1_Click()Dim VBExcel As Excel.Application 定

6、義application對(duì)象Dim VBExcelbook As Excel.Workbook 定義workbook對(duì)象Dim VBExcelsheet As Excel.Worksheet 定義sheet對(duì)象 設(shè)置EXCEL對(duì)象，打開(kāi)文件并顯示Set VBExcelbook = VBExcel.Workbooks.Open(文件名) 打開(kāi)Excel文件VBExcelbook.Worksheets （1）. ActivateText2.Text = VBExcelbook.ActiveSheet.Cells(1, 1).Value 調(diào)用第一個(gè)單元格的內(nèi)容以下是關(guān)閉Excel的代碼VBExcel

7、book.Close (True)Set VBExcelbook = NothingSet VBExcel = Nothing VBExcelbook.RunAutoMacros (xlAutoClose) 執(zhí)行EXCEL關(guān)閉宏 VBExcelbook.Close (True) 關(guān)閉EXCEL工作簿 關(guān)閉EXCELEnd Sub App.Path & & 變量 &.文件名后綴如果文件名是某文本框里的內(nèi)容，但文本框的內(nèi)容又是變化的 Eg：一文件名為 心想飛.jpg 而且“心想飛”是文本檔Text1里的內(nèi)容Pic1.Picture = LoadPicture(App.Path & & Text1.

8、Text & .jpg) （Text1.Text 是變量）（其他控件也是這樣）6） 對(duì)多個(gè)同類(lèi)型的控件賦值Eg：有Text1Text12 十二個(gè)文本框?qū)ζ滟x同一值For j=1 to 12Set TT = Controls(Text & j) 定義TT控件TT.Text=“” 對(duì)TT控件賦值賦值Next j7）vb中插入Flash動(dòng)畫(huà) (1)工具箱里添加【ShockWave Flash】控件 （勾選） （2）詳細(xì)代碼：1.播放： ShockwaveFlash1.Movie = App.Path & 文件名 讀取同一目錄下的Flash動(dòng)畫(huà)文件 2.暫停： ShockwaveFlash1.Play

9、ing = False（0）3.繼續(xù)： ShockwaveFlash1.Playing = True （1） 特別注意：VB shockwaveflash保存可能會(huì)出現(xiàn) 系統(tǒng)錯(cuò)誤&H80004005(-2147467259).未指定的錯(cuò)誤 解決方法：方法一：安裝使用低版本的Flash軟件 方法二：不使用shockwaveflash控件，編寫(xiě)代碼插入Flash模塊 代碼： Private Sub Form_Load()Dim tmpCtl As Object 定義控件 Set tmpCtl = Controls.Add(ShockwaveFlash.ShockwaveFlash, Flash) 自動(dòng)添加控件tmpCtl.Width = Me.Width 設(shè)置控件寬度 設(shè)置控件高度tmpCtl.Visible = True 控件窗體可見(jiàn)tmpCtl.object.LoadMovie 0, app.Path & 文件名 讀取同一目錄下的Flash動(dòng)畫(huà)End Sub8） 登陸密碼錯(cuò)誤三次 自動(dòng)退出 Private Sub Command1_Click()Dim a%If Text1.Text = ThenE