vb的一點知識總結(jié) 適合初學者.doc

1）文件的打開 Open 文件名 for 模式 #文件號 文件號是1255的整數(shù)三種模式：1）Output (輸出) 2）Input（輸入） 3）Append （添加）Eg: Open D:date.txt For Input as #1 絕對路徑 Open App.Path & date.txt For Input as #1 相對路徑2）從txt文件中讀取數(shù)據(jù)(1) 將內(nèi)容全部讀取在文本框中 一行行的讀入：Dim InputDate as string Text1.text=“”O(jiān)pen d:1.txt For Input As #1 (Open app.path &1.txt For Input As #1)(相對路徑) Do while not EOF(1) EOF相當于end of file line Input #1,inputDate Text1.Text = Text1.Text + InputDate + vbCrLf（換行） LoopClose #1 一個字符一個字符的讀入 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)(相對路徑) Do while 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)(相對路徑)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)(相對路徑) Input #1, s1 : input #1, s2：Input #1, s3 對每個字符定義 Text1.Text =s1+s2+s3+s4+ 想要讀取得的字符 Close #13） 圖片的調(diào)用（LoadPicture函數(shù)） LoadPicture（路徑名）基本用法： Picture1.Picture = LoadPicture (C:文件名) 一般用法： Picture1.Picture = LoadPicture (App.Path & 文件名) 一般用法解釋： 一般程序跟一個文件夾，里面放置程序所需的圖片，用app.path 表示是當前的相對路徑， 這樣即使程序的文件夾移位，也可以正常顯示。 上面的回答再提醒一點，第二個例子的app.path 需要判斷一下右邊的字符是不是，比如：圖片在C:dd.bmp的話應(yīng)該是App.Path & dd.bmp而 圖片在C:aadd.bmp的話應(yīng)該是App.Path & dd.bmp 4）讀取、寫入EXCEL數(shù)據(jù) vb調(diào)用Excel單元格的內(nèi)容第一步：更改設(shè)置 （必須更改，否則所編程序不能運行）在vb界面 點擊 “工程引用”EXCEL類型庫，勾選下面的選項 點擊 確定 如下圖： 第二步：編寫代碼 （紅色代碼可省去）Private Sub Command1_Click()Dim VBExcel As Excel.Application 定義application對象Dim VBExcelbook As Excel.Workbook 定義workbook對象Dim VBExcelsheet As Excel.Worksheet 定義sheet對象Set VBExcel = Excel.Application 設(shè)置EXCEL對象，打開文件并顯示Set VBExcelbook = VBExcel.Workbooks.Open(文件名) 打開Excel文件VBExcelbook.Worksheets （1）. ActivateText2.Text = VBExcelbook.ActiveSheet.Cells(1, 1).Value 調(diào)用第一個單元格的內(nèi)容以下是關(guān)閉Excel的代碼VBExcelbook.Close (True)VBExcel.QuitSet VBExcelbook = NothingSet VBExcel = Nothing VBExcelbook.RunAutoMacros (xlAutoClose) 執(zhí)行EXCEL關(guān)閉宏 VBExcelbook.Close (True) 關(guān)閉EXCEL工作簿 VBExcel.Quit 關(guān)閉EXCELEnd Sub5）相對路徑App.Path中文件名是變量 App.Path & & 變量 &.文件名后綴如果文件名是某文本框里的內(nèi)容，但文本框的內(nèi)容又是變化的 Eg：一文件名為 心想飛.jpg 而且“心想飛”是文本檔Text1里的內(nèi)容Pic1.Picture = LoadPicture(App.Path & & Text1.Text & .jpg) （Text1.Text 是變量）（其他控件也是這樣）6） 對多個同類型的控件賦值Eg：有Text1Text12 十二個文本框?qū)ζ滟x同一值For j=1 to 12Set TT = Controls(Text & j) 定義TT控件TT.Text=“” 對TT控件賦值賦值Next j7）vb中插入Flash動畫 (1)工具箱里添加【ShockWave Flash】控件 （勾選） （2）詳細代碼：1.播放： ShockwaveFlash1.Movie = App.Path & 文件名 讀取同一目錄下的Flash動畫文件 ShockwaveFlash1.Play2.暫停： ShockwaveFlash1.Playing = False（0）3.繼續(xù)： ShockwaveFlash1.Playing = True （1） 特別注意：VB shockwaveflash保存可能會出現(xiàn) 系統(tǒng)錯誤&H80004005(-2147467259).未指定的錯誤 解決方法：方法一：安裝使用低版本的Flash軟件 方法二：不使用shockwaveflash控件，編寫代碼插入Flash模塊 代碼： Private Sub Form_Load()Dim tmpCtl As Object 定義控件 Set tmpCtl = Controls.Add(ShockwaveFlash.ShockwaveFlash, Flash) 自動添加控件tmpCtl.Width = Me.Width 設(shè)置控件寬度tmpCtl.Height = Me.Height 設(shè)置控件高度tmpCtl.Visible = True 控件窗體可見tmpCtl.object.LoadMovie 0, app.Path & 文件名 讀取同一目錄下的Flash動畫End Sub8） 登陸密碼錯誤三次 自動退出 Private Sub Command1_Click()Dim a%If Text1.Text = ThenForm1.Hide