【文章內(nèi)容簡介】 () amp。 ) (Str() amp。 amp。 Str(Loc(1))) Next i () End Sub 該過程從前面建立的隨機(jī)文件 ，從頭到尾讀取，并在“輸出”窗口中顯示出來。 下面是通過記錄號讀取隨機(jī)文件 ： Sub File_read2() Dim Getmorerecords As Boolean = True Dim recordnum As Integer Do recordnum = InputBox(請輸入要查看的記錄號 (輸入 0 結(jié)束 ):) If recordnum 0 And recordnum = recordnumber Then FileGet(1, recordvar, recordnum) () ( 姓名 單位 amp。 _ 年齡 工資 記錄號 ) () () ( amp。 Trim() amp。 ) (Str() amp。 ) (Str() amp。 amp。 Str(Loc(1))) () ElseIf recordnum = 0 Then Getmorerecords = False Else MsgBox(輸入的值超出記錄號范圍 , 請重新輸入 !) End If Loop While Getmorerecords End Sub 上述三個(gè)通用過程分別用來建立隨機(jī)文件、用順序方式和通過記錄號讀取文件記錄。在下面的窗體事件過程中調(diào)用這三個(gè)過程： Private Sub Form1_Click(ByVal sender As Object, _ ByVal e As ) Handles FileOpen(1, d:\test\, , _ , , recLen) recordnumber = LOF(1) / recLen Dim Newline As String = Chr(13) + Chr(10) Dim msg As String Dim resp As Integer msg = msg = msg + msg = msg + Newline + msg = msg + msg = msg + Newline + msg = msg + msg = msg + Newline + Newline + 請輸入數(shù)字選擇： msg = msg + Newline Begin: resp = InputBox(msg, 隨機(jī)文件存取 ) Select Case resp Case 0 FileClose(1) End Case 1 File_Write() Case 2 File_read1() Case 3 File_read2() Case 4 39。 Rec_replace() Case 5 39。 Deleterec End Select GoTo Begin End Sub 上述程序運(yùn)行后 ， 單擊窗體 ， 顯示一個(gè)輸入對話框 ， 如圖 。 此時(shí)輸入 0到 3（ 暫不輸入 4和 5） 的數(shù)字 ， 即可調(diào)用相應(yīng)的通用過程執(zhí)行隨機(jī)文件的讀寫操作 。 隨機(jī)文件中記錄的增加、代換與刪除 ? 在隨機(jī)文件中增加記錄，實(shí)際上是在文件的末尾附加記錄。其方法是，先找到文件最后一個(gè)記錄的記錄號，然后把要增加的記錄寫到它的后面。 ? 用 FilePut函數(shù)可以代換隨機(jī)文件中已有的記錄。實(shí)際上，只要給出記錄號，用 FilePut函數(shù)重寫該記錄，即可用新的記錄取代原來的記錄。 ? 在隨機(jī)文件中刪除一個(gè)記錄時(shí)，并不是真正刪除記錄，而是把下一個(gè)記錄重寫到要?jiǎng)h除的記錄，其后的所有記錄依次前移。 實(shí)現(xiàn) 代換操作 的通用過程如下： Sub Rec_replace() Dim rep As Long = InputBox(職工姓名 :) = InputBox(所在單位 :) = InputBox(職工年齡 :) = InputBox(職工工資 :) rep = InputBox(請輸入需要代換的記錄號 ) FilePut(1, recordvar, rep) End Sub Visual Basic. NET 程序設(shè)計(jì) 第 12章 對象和類 內(nèi)容提要 ? Visual Basic. NET中預(yù)定的類和對象 ? 對象變量 ? 類的定義 ? 屬性過程 ? 向類中添加事件 ? 構(gòu)造函數(shù) ? 重載與共享 ? 對象是 Visual 。 版以前的 Visual Basic支持面向?qū)ο蟮某绦蛟O(shè)計(jì)，但本身不是面向?qū)ο蟮某绦蛟O(shè)計(jì)語言，因?yàn)樗惶峁┝讼到y(tǒng)預(yù)定義的類和對象，不能由用戶自己定義類和對象。 Visual Basic Microsoft公司推出的第一個(gè)部分支持面向?qū)ο缶幊痰?Visual Basic版本，而 Visual 則全面支持面向?qū)ο蟪绦蛟O(shè)計(jì)。 Visual 對象 ? 我們知道， Visual ，包括窗體、控件等，這些對象是由 Visual 供的，稱為預(yù)定義對象。它們由系統(tǒng)建立，用戶可以直接使用，但不能進(jìn)行修改。當(dāng)用 Visual 建立應(yīng)用程序時(shí)，就是在用對象進(jìn)行操作。 ? 所有的對象都是作為它們的類的相同副本建立的。一旦它作為個(gè)別的對象存在，就可以改變它的屬性。 ? 為了簡單起見，在一般情況下，都不指明對象的類，而是稱為“ＸＸ控件”。 ? 預(yù)定義對象提供了各種不同的功能，用戶不用編寫代碼就可以使用這些功能。 對象的操作 ? 用屬性控制對象 ? 用方法執(zhí)行操作 ? 對一個(gè)對象執(zhí)行多個(gè)操作 = Ok = True = 20 = 50 = True With Button1 .Text = Ok .Visible = True .Top = 20 .Left = 50 .Enabled = True End With 對象變量 ? 變量可用來存儲(chǔ)值（字符串、數(shù)值、日期等），也可以用來存儲(chǔ)對象。存放數(shù)值的變量稱為數(shù)值變量，存放字符串的變量稱為字符串變量，而存放對象的變量稱為對象變量。 對象變量的聲明和賦值 ? 和普通變量一樣，為了使用對象變量，必須先聲明，然后把一個(gè)對象賦給聲明的對象變量。 1. 聲明對象變量 對象變量的聲明與普通變量的聲明基本相同，格式如下： {Dim |Private|Public} 變量名 As [New] 類名 這里的 Dim、 Private或 Public的含義與普通變量聲明中的含義相同，“變量名”是所聲明的對象變量的名字，“類名”是所聲明的變量的類，可以是預(yù)定義的類，也可以是用戶自己定義的類， New關(guān)鍵字用來指明所聲明的對象變量是 Visual 。 例如，可以聲明一個(gè)與窗體有關(guān)的對象變量，在應(yīng)用程序中該窗體的名稱為frmMain： Dim FrmVar As frmMain 39。 聲明一個(gè)類型為 frmMain的對象變量 也可以聲明能在應(yīng)用程序中引用任何窗體的對象變量： Dim anyForm As Form 39。 通用窗體變量 類似地，可以聲明在應(yīng)用程序中能引用任何文本框的對象變量： Dim anyText As TextBox 39。 可以引用任何文本框 也可以聲明能引用任何類型控件的對象變量： Dim anyControl As Control 39。 通用控件變量 2. 對象變量的賦值 對象變量的賦值與普通變量的賦值沒有什么區(qū)別。例如，假定聲明了如下一個(gè)對象變量： Dim Abutton As Control 而窗體上有一個(gè)名為 Button1的按鈕，則可用下面的語句： AButton = Button1 把按鈕 Button1賦給對象變量 AButton。此后如果執(zhí)行： = Ok 則可把按鈕 Button1的 Text屬性設(shè)置為“ Ok”。 和普通變量一樣，在把一個(gè)對象賦給一個(gè)對象變量后，如果再把另一個(gè)對象賦給該對象變量，則新對象將取代對象變量中原來的對象。例如，在窗體上畫兩個(gè)按鈕和一個(gè)文本框，其名稱分別為 Button Button2和 TextBox1，然后編寫如下代碼： Private Sub Button2_Click(ByVal sender As , _ ByVal e As ) Handles Dim AButton As Control AButton = Button1 = AButton = Button2 = End Sub 3. 專用對象類型和通用對象類型 從前面的例子可以看出，對象變量既可以聲明為“通用”類型，也可以聲明為“專用”類型。例如： Dim NewForm As Form 39。 聲明為通用類型窗體對象變量 Dim NewForm1 As Form1() 39。 聲明為專用類型窗體對象變量 Dim NewT As TextBox 39。 聲明為專用類型控件對象變量 Dim NewC As Control 39。 聲明為通用類型控件對象變量 對象變量必須引用一個(gè)特定的對象類型或類。一個(gè)專用窗體變量只能引用應(yīng)用程序中的一個(gè)窗體；類似地，一個(gè)專用控件變量只能引用應(yīng)用程序中的一個(gè)特定的控件類型，如 TextBox或 ListBox。例如，在窗體上畫一個(gè)按鈕和一個(gè)文本框，然后編寫如下事件過程： Private Sub Button1_Click(ByVal sender As , _ ByVal e As ) Handles Dim anyText As TextBox anyText = TextBox1 = Hello End Sub 實(shí)例 1. 關(guān)鍵字 New New關(guān)鍵字引入 New子句，該子句建立一個(gè)新的對象實(shí)例。 New子句必須指定一個(gè)可以用來建立實(shí)例的已定義的類。可以在聲明語句或賦值語句中使用 New。執(zhí)行該語句時(shí)，它將調(diào)用指定類的構(gòu)造函數(shù)，并傳送所提供的參數(shù)。 New關(guān)鍵字可以用于窗體對象。在設(shè)計(jì)階段建立的每個(gè)窗體都是一個(gè)類，可以用 New關(guān)鍵字建立類的新的實(shí)例。為了看清這是如何操作的，可在窗體上畫一個(gè)按鈕和其他幾個(gè)控件，然后編寫如下的事件過程： Private Sub Button1_Click(ByVal sender As , _ ByVal e As ) Handles Dim x As New F