【正文】 標到你需要大小的位置 ，釋放鼠標按鈕，控件就出現(xiàn)在窗體中。 我們可以用這種方法，將 OptionButton,TextBox,ComboBox ,label,Frame, CommandButton等控件添加到窗體中去，還可以調整控件大小，移動和鎖定控件。一旦我們將控件的大小和位置調整好后，就可以鎖定控件的位置，可以從“格式”菜單上選定“鎖定控件”或在窗體編輯器工具欄上單擊“鎖定控件”。如何使用“屬性窗口”來設置屬性呢 ?首先，打開屬性窗口，屬性窗口顯示所選窗體或控件的屬性設置值；然后， 從屬性列表中選定屬性項；接著，在右列輸入或選定新的屬性設置值。代碼窗口包含如下元素： 對象列表框 :顯示所選對象的名稱 ,單 擊列表框右邊的箭頭，顯示和窗體有關的所有對象清單。 4． 1 示例創(chuàng)建窗體編寫代碼 如何創(chuàng)建事件過程呢？事件過程包含了事件發(fā)生時要執(zhí)行的 代碼， Visual Basic應用程序就是由這些過程的小的代碼組稱屬性中所指定的下劃線和事件名組合而成。這個語法采用 “ Object. property， Command2是對象 ， Caption是屬性 ， 響應應用程序運行中發(fā)生的事件時 ，可以用這種語法來改變任何窗體或控件的屬性設置值。用 PrintForm打印 19 39。 mm = Mn = Z1 21 = Z2 = D1 amp。 mm 表 42 控件屬性設置 控件 屬性 設置值 Frame1 Caption 校核結果 Frame1 Enabled True CommandButton1 Caption 完成 CommandButton1 Default False CommandButton2 Caption 上一步 CommandButton2 Visible True Lablel1 Caption 接觸應力校核結果 Lablel1 Enabled True Lablel1 Autosize False Lablel2 Caption Lablel2 Enabled False Lablel2 Visible True = 圓錐齒輪傳動參數(shù)設計系統(tǒng) words = = 150 22 = True = End Sub Private Sub timer1_timer() lenth = Len(words) txtword = Left(words, ii) = txtword ii = ii + 1 If ii lenth Then ii = 0 End If End Sub 窗體設計 Form1 窗體代碼 Option Explicit Private Const fTitle As String = 基于 VB的圓錐齒輪參數(shù)設計 39。 Private Sub Command1_Click() 軟件介紹 .Show Unload Me 23 End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Command3_Click() End End Sub Private Sub timer1_timer() Static I As Long, J As Boolean Dim tmpStr As String, sLen As Long sLen = Len(fTitle) If J = True Then I = I + 1 Else I = I 1 End If If I MaxSpace + Len(fTitle) Then I = MaxSpace + sLen J = Not J End If If I sLen Then 24 I = sLen J = Not J End If If I = 0 And I = MaxSpace Then tmpStr = Space(I) amp。 Mid(fTitle, 1, sLen Abs(I MaxSpace)) End If End If = tmpStr End Sub Form2 窗體代碼 Option Explicit Dim words As String Dim ii As Integer Dim txtword As String Dim lenth As Integer Private Sub Command1_Click() 25 齒輪介紹 .Show Unload Me End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Command3_Click() 齒輪介紹 .Show Unload Me End Sub Private Sub Command4_Click() End End Sub Private Sub Command5_Click() Unload Me End Sub Private Sub Form_Load() = 齒輪傳動參數(shù)設計系統(tǒng) :請選擇傳動設計類型 words = = 150 26 = True = End Sub Private Sub timer1_timer() lenth = Len(words) txtword = Left(words, ii) = txtword ii = ii + 1 If ii lenth Then ii = 0 End If End Sub Form3 窗體代碼 Dim words As String Dim ii As Integer Dim txtword As String Dim lenth As Integer Private Sub Combo1_Click() Select Case Case 0 Ge = 1 27 Case 1 Ge = 2 Case 2 Ge = 3 End Select End Sub Private Sub Combo2_Click() Select Case Case 0 Wl = 1 Case 1 Wl = 2 Case 2 Wl = 3 End Select End Sub Private Sub Combo3_Click() Select Case Case 0 r = 1 Case 1 r = 2 28 End Select End Sub Private Sub Command1_Click() Lh = P = T = * * 10 ^ 6 / N1 = I = Chikuanxishu = On Error GoTo lbl: If = Then MsgBox 功率為初始數(shù)據(jù)，請輸入功率 , vbOKOnly, 警告 Exit Sub lbl: If 0 Then MsgBox amp。 End If End If zjj = If CInt() = 10 Or CInt() = 170 Then MsgBox 軸交角必須在 10176。之間 , vbOKOnly, 警告 Exit Sub 29 End If End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Form_Load() 電動機汽輪機燃氣輪機 單缸內燃機 多缸內燃機 均勻、輕 微 中等沖擊 較大沖擊 單向嚙合 雙向嚙合 = 0 = 0 = 0 = 圓錐齒輪傳動參數(shù)設計系統(tǒng) words = 30 = 150 = True = If = True Then = 90 = amp。 MPa = 250 + * amp。 MPa = 349 + * amp。 MPa = 335 + * amp。 MPa = 170 + * amp。 MPa = 293 + * amp。 MPa = 70 + * amp。 MPa = 120 + * amp。 HBS Select Case Case 0 = 220 + * amp。 MPa Case 1 = 354 + * amp。 MPa Case 2, 3, 4, 5 = 331 + * amp。 MPa Case 6, 7, 8 = 198 + * amp。 MPa Case 9 = 245 + * amp。 MPa Case 10, 11 = 222 + * amp。 MPa Case 12, 13, 14, 15 = 272 + * amp。 MPa End Select = amp。 HBS End Sub Private Sub HScroll4_Change() =