vb的一點知識總結 適合初學者

1、1）文件的打開 Open 文件名 for 模式 #文件號 文件號是1255的整數三種模式：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文件中讀取數據(1) 將內容全部讀取在文本框中 一行行的讀入：Dim InputDate as string Text1.text=“”O(jiān)pen "d:1.txt" For Input As #1 (Open app.p

2、ath &"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&quo

3、t; For Input As #1)(相對路徑) Do while not EOF(1) InputDate=Input$(1,#1)Text1.Text = Text1.Text + InputDate LoopClose #1 一次性的將內容讀入 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 "

4、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） 圖片的調用（LoadPicture函數） LoadPicture（路徑名）基本用法：&

5、#160;  Picture1.Picture = LoadPicture ("C:文件名") 一般用法：   Picture1.Picture = LoadPicture (App.Path & "文件名") 一般用法解釋：   一般程序跟一個文件夾，里面放置程序所需的圖片，用app.path 表示是當前的相對路徑， 這樣即使程序的文件夾移位，也可以正常顯示。 上面的回答再提醒一點，第二個例子的app.path 需要判斷一下右邊的字符是不是""，比如：圖片在"C:d

6、d.bmp"的話應該是App.Path & "dd.bmp"而   圖片在"C:aadd.bmp"的話應該是App.Path & "dd.bmp" 4）讀取、寫入EXCEL數據 vb調用Excel單元格的內容第一步：更改設置 （必須更改，否則所編程序不能運行）在vb界面 點擊 “工程引用”EXCEL類型庫，勾選下面的選項 點擊 確定 如下圖：  第二步：編寫代碼 （紅色代碼可省去）Private Sub Command1_Click()Dim VBExcel As Excel.A

7、pplication 定義application對象Dim VBExcelbook As Excel.Workbook 定義workbook對象Dim VBExcelsheet As Excel.Worksheet 定義sheet對象Set VBExcel = Excel.Application 設置EXCEL對象，打開文件并顯示Set VBExcelbook = VBExcel.Workbooks.Open(文件名) 打開Excel文件VBExcelbook.Worksheets （1）. ActivateText2.Text = VBExcelbook.ActiveSheet.Cells(

8、1, 1).Value 調用第一個單元格的內容以下是關閉Excel的代碼VBExcelbook.Close (True)VBExcel.QuitSet VBExcelbook = NothingSet VBExcel = Nothing  VBExcelbook.RunAutoMacros (xlAutoClose) 執(zhí)行EXCEL關閉宏  VBExcelbook.Close (True) 關閉EXCEL工作簿  VBExcel.Quit 關閉EXCELEnd Sub5）相對路徑App.Path中文件名是變量 App.Path & ""

9、 & 變量 &".文件名后綴"如果文件名是某文本框里的內容，但文本框的內容又是變化的 Eg：一文件名為 心想飛.jpg 而且“心想飛”是文本檔Text1里的內容Pic1.Picture = LoadPicture(App.Path & "" & Text1.Text & ".jpg") （Text1.Text 是變量）（其他控件也是這樣）6） 對多個同類型的控件賦值Eg：有Text1Text12 十二個文本框對其賦同一值For j=1 to 12Set TT = Controls("T

10、ext" & 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 shoc

11、kwaveflash保存可能會出現 系統(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 設置控件寬度tmp

12、Ctl.Height = Me.Height 設置控件高度tmpCtl.Visible = True 控件窗體可見tmpCtl.object.LoadMovie 0, app.Path & "文件名" 讀取同一目錄下的Flash動畫End Sub8） 登陸密碼錯誤三次 自動退出 Private Sub Command1_Click()Dim a%If Text1.Text = "" ThenForm1.HideForm2.ShowElseIf Text1 <> "333" ThenIf a < 2 Thena

13、 = a + 1 ： Text1.Text = "" ： Text1.SetFocusMsgBox "密碼錯誤，請重新輸入，你還有" & 3 - a & "次機會", , "錯誤提示"ElseIf a = 2 ThenMsgBox "對不起，因3次輸入錯誤，所以無權使用", , "錯誤提示"EndEnd IfEnd IfEnd Sub9）冒泡排序Private Sub Command1_Click()Dim nums()Dim i%, j%, n%, t%n = Val(InputBox("請輸入參加排序數的個數（正整數）：", "排序數個數")ReDim nums(1 To n)For i = 1 To nnums(i) = Val(InputBox("請輸入第" & Str(i) & "個參加排