vb編程技術(shù)用戶定義與枚舉類型(完整版)
【正文】 方便輸入 Private Sub Text1_GotFocus(Index As Integer) Text1(Index).SelStart = 0 第 9章 用戶定義與枚舉類型 Text1(Index).SelLength = Len(Text1(Index).Text) End Sub Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii = 13 Then i = IIf(Index = 4, 0, Index + 1) Text1(i).SetFocus End If End Sub 程序運行結(jié)果如圖 。 平均成績定義為單精度數(shù) 第 9章 用戶定義與枚舉類型 End Type Dim stu() As studentrec 39。 設(shè)計方法如下： (1) 選擇新建工程，進(jìn)入窗體設(shè)計器。 學(xué)分元素為整型 avg As Single 39。 在 VB中提供了定義記錄結(jié)構(gòu)的語句 ， 稱這種語句為用戶定義數(shù)據(jù)類型 (user defined data type)。 第 9章 用戶定義與枚舉類型 用戶可以用 Type語句來定義自己的數(shù)據(jù)類型 ， 其格式為 [Public | Private] Type 〈 用戶類型名 〉 〈 字段名 1〉 As 〈 類型名 1〉 [〈 字段名 2〉 As 〈 類型名 2〉 ] [〈 字段名 n〉 As 〈 類型名 n〉 ] End Type 第 9章 用戶定義與枚舉類型 建立和使用用戶定義類型變量 1. 建立用戶定義類型變量 用戶數(shù)據(jù)類型定義后 ， 可以用 Dim、 Redim、 Static建立一個具有這種數(shù)據(jù)類型的變量 。 平均成績?yōu)閱尉刃? End Type 第 9章 用戶定義與枚舉類型 編寫命令按鈕的 Click事件代碼為 Private Sub Command1_Click() Dim stu As studentrec 39。 第 9章 用戶定義與枚舉類型 圖 建立用戶界面和設(shè)計對象 第 9章 用戶定義與枚舉類型 (2) 編寫代碼 。 定義記錄數(shù)組 窗體的 Load事件代碼為 Private Sub Form_Load() ReDim stu(0) End Sub “輸入 ” 按鈕 Command1的 Click事件代碼為 Private Sub Command1_Click() n = UBound(stu) ReDim stu(n + 1) 第 9章 用戶定義與枚舉類型 With stu(n + 1) .no = Text1(0).Text .na = Text1(1).Text .ch = Val(Text1(2).Text) .en = Val(Text1(3).Text) .ma = Val(Text1(4).Text) .ag = Int((.ch + .en + .ma) / 3) 39。 第 9章 用戶定義與枚舉類型 圖 輸入學(xué)生情況 ， 計算平均分并顯示各科成績 第 9章 用戶定義與枚舉類型 枚 舉 類 型 枚舉類型的概念 前面已經(jīng)介紹了 VB的基本數(shù)據(jù)類型，包括整型數(shù)、單精度數(shù)、浮點數(shù)等。 值為 1 Tuesday 39。 無論何時 ， 只要應(yīng)用程序或控件所包含的信息超過當(dāng)前窗口 (或者在 ScrollBars屬性被設(shè)置成 True時的文本框和MDI窗體 )所能顯示的信息 ， 滾動條就會自動出現(xiàn) 。 在程序運行過程中，每當(dāng)滾動條的 Value屬性
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1