【正文】 2 Case 11 = 210 = 260 = ( + ) / 2 Case 12 37 = 170 = 230 = ( + ) / 2 Case 13 = 190 = 270 = ( + ) / 2 Case 14 = 180 = 250 = ( + ) / 2 Case 15 = 210 = 260 = ( + ) / 2 End Select End Sub Private Sub Command1_Click() Select Case Case 0 = 45鋼 = 正火 38 Case 1 = 45鋼 = 調(diào)質(zhì) Case 2 = 42SiMn = 調(diào)質(zhì) Case 3 = 40MnB = 調(diào)質(zhì) Case 4 = 35CrMo = 調(diào)質(zhì) Case 5 = 40Cr = 調(diào)質(zhì) Case 6 = ZG310－ 57 = 正火 Case 7 = ZG340－ 640 = 正火 Case 8 39 = ZG35CrMnSi = 正火、回火 Case 9 = ZG35CrMnSi = 調(diào)質(zhì) Case 10 = HT300 = Case 11 = HT350 = Case 12 = QT500－ 7 = Case 13 = QT600 3 = Case 14 = KTZ55002 = Case 15 = KTZ65004 40 = End Select Select Case Case 0 = 45鋼 = 正火 Case 1 = 45鋼 = 調(diào)質(zhì) Case 2 = 42SiMn = 調(diào)質(zhì) Case 3 = 40MnB = 調(diào)質(zhì) Case 4 = 35CrMo = 調(diào)質(zhì) Case 5 = 40Cr = 調(diào)質(zhì) Case 6 41 = ZG310－ 57 = 正火 Case 7 = ZG340－ 640 = 正火 Case 8 = ZG35CrMnSi = 正火、回火 Case 9 = ZG35CrMnSi = 調(diào)質(zhì) Case 10 = HT300 = Case 11 = HT350 = Case 12 = QT500－ 7 = Case 13 = QT600 3 42 = Case 14 = KTZ55002 = Case 15 = KTZ65004 = End Select Select Case Case 0 = 220 + * amp。與 170176。 amp。 fTitle Else If I 0 Then tmpStr = Mid(fTitle, Abs(I), sLen + I) Else tmpStr = Space(I) amp。Private Const fTitle As String = test..test..... Private Const MaxSpace As Long = 50 39。 mm = D2 amp。打印窗體的可見(jiàn)區(qū)域 End Sub Private Sub Command4_Click() Unload Me End Sub 31 Form8 Private Sub Form_Load() If Jsjcyl Qh1 And Jsjcyl Qh2 Then = 大小齒輪接觸疲勞強(qiáng)度都不夠請(qǐng)重新設(shè)計(jì) 20 ElseIf Jsjcyl Qh2 And Jsjcyl Qh1 Then = 大小齒輪接觸疲勞強(qiáng)度都符合 ElseIf Jsjcyl Qh2 Then = 大齒輪接觸疲勞強(qiáng)度都不夠請(qǐng)重新設(shè)計(jì) ElseIf Jsjcyl Qh1 Then = 小齒輪接觸疲勞強(qiáng)度都不夠請(qǐng)重新設(shè)計(jì) End If If Jswqyl1 Qf1 And Jswqyl2 Qf2 Then = 大小齒輪彎曲疲勞強(qiáng)度都符合 ElseIf Jswqyl1 Qf1 And Jswqyl2 Qf2 Then = 大小齒輪彎曲 疲勞強(qiáng)度都不夠請(qǐng)重新設(shè)計(jì) ElseIf Jswqyl1 Qf1 Then = 小齒輪彎曲疲勞強(qiáng)度都不夠請(qǐng)重新設(shè)計(jì) ElseIf Jswqyl2 Qf2 Then = 大齒輪彎曲疲勞強(qiáng)度都不夠請(qǐng)重新設(shè)計(jì) End If = = X1 = X2 = wzj amp。 本窗體其它對(duì)象的代碼如下 : Dim words As String Dim ii As Integer Dim txtword As String Dim lenth As Integer Private Sub Command1_Click() End End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Command3_Click() 39。下面以下圖 Command2（上一步）為例說(shuō)明創(chuàng)建事件過(guò)程 : 首先，在對(duì)象列表框中，選定活動(dòng)窗體中的對(duì)象 Command2，然后在過(guò)程列表框中選定指定的對(duì)象的事件 Click，此時(shí) Click事件已被選定，因?yàn)樗敲畎粹o的默認(rèn)過(guò)程，此時(shí)可以看到事件過(guò)程的代碼模板已顯示在代碼窗口中，在 Sub與 End sub語(yǔ)句之 18 間輸入如下代碼 : Private Sub Command2_Click() Unload Me End Sub 這段代碼就是將命令按鈕的 Caption屬性值添加到列表框中 ， 使命令按鈕獲得焦點(diǎn) ， 即使本窗體隱藏 ， 顯示本窗體的上一窗體 Form7。 過(guò)程列表框 :列出對(duì)象的過(guò)程和事件 ,選取該框右邊的箭頭可以顯示這個(gè)對(duì)象的全部事件。 4 應(yīng)用程序設(shè)計(jì) Visual Basic編寫(xiě)代碼的地方為代碼編輯器窗口，代碼由語(yǔ)句、常數(shù)和聲明部分組成，可以使用代碼編輯器窗口快速查看和編輯應(yīng)用程序代碼的任何部分。 設(shè)置控件的屬性 在設(shè)置好控件之后，緊接著就應(yīng)該給創(chuàng)建的控件設(shè)置屬性，用“視圖”菜單中的 17 “屬性窗口”命令或利用工具欄中的“屬性窗口”命令打開(kāi)屬性窗口。 當(dāng)我們選定窗體中的一個(gè)控件時(shí)，控件四周有一個(gè)小矩形框，稱(chēng)為尺寸柄，可以通過(guò)尺寸柄來(lái)調(diào)整控件的大小，就像用鼠標(biāo)調(diào)整 Windows系統(tǒng)中窗口的大小一樣，只要用鼠標(biāo)拖尺寸柄的邊框，就可以改變控件的大小，也可以用 Shift鍵加箭頭來(lái)調(diào)整控件的尺寸。 還有一個(gè)更簡(jiǎn)單的方法來(lái)繪制控件，只 要雙擊工具箱中的控件，這樣會(huì)在窗體中央創(chuàng)建一個(gè)尺寸為缺省值的控件，然后再用 鼠標(biāo)調(diào)整控件的大小，移動(dòng)控件到窗體中的其它位置。所謂繪制控件，就是要從工具箱中把我們把需要的控件添加到窗體中去。 功能過(guò)程描述 與傳統(tǒng)的齒輪傳動(dòng)設(shè)計(jì)相比，本系統(tǒng)具有計(jì)算精確，設(shè)計(jì)速度快、提供的可行方案多等優(yōu)點(diǎn)，流程圖如圖 26所示，具體步驟如下： 1． 選擇齒輪 類(lèi)型； 2．選擇齒輪材料、熱處理方法，求出許用應(yīng)力； 3．確定設(shè)計(jì)準(zhǔn)則； 4．進(jìn)行設(shè)計(jì)計(jì)算，求出齒輪的各項(xiàng)基本參數(shù)； 5．計(jì)算齒輪幾何尺寸，確定齒輪精度等級(jí)； 6．校核齒輪應(yīng)力； 7．?dāng)?shù)據(jù)保存及輸出。 3 系統(tǒng)設(shè)計(jì)過(guò)程 信息描述 15 對(duì)于齒輪傳動(dòng)參數(shù)設(shè)計(jì)系統(tǒng)，需要輸入及選擇的數(shù)據(jù)是 :傳遞的功率 P1，小齒輪轉(zhuǎn)速 n1，傳動(dòng)比 i，使用壽命 (總工作時(shí)數(shù) )，原動(dòng)機(jī)類(lèi)型，工作機(jī)載荷性質(zhì)，齒輪布置情況，齒輪嚙合情況，齒輪材料、熱處理方式及硬度，齒輪螺旋角度，變位系數(shù)，端面模數(shù)等。 下拉式菜單的實(shí)現(xiàn) 下拉式菜單是用戶(hù)在任何時(shí)候都可以在頂端菜單條上選擇后拉出的菜單。打開(kāi)菜單編輯器 (Menu Design Windows),在菜單的一定位置 增加一個(gè) Caption屬性為“ — ”的菜單項(xiàng)，它在菜單上就表現(xiàn)為一條橫線，注意分隔線菜單項(xiàng)同樣需要名稱(chēng)屬性，且不能重復(fù)。S)，當(dāng)文件菜單展開(kāi)后，可以用字母鍵“ S來(lái)使用這個(gè)菜單項(xiàng)。如果該菜單中有一子菜單項(xiàng)的標(biāo)題為“保存 (amp。如將一頂層菜單的標(biāo)題屬性設(shè)為“文件 (amp。訪問(wèn)鍵的設(shè)置使用“ amp。 具有子菜單的菜單項(xiàng)或者頂層菜單不能定義快捷鍵，只能定義訪問(wèn)鍵。對(duì)于一些常用的功能菜單項(xiàng)，有約定俗成的快捷鍵，例如，文件存盤(pán)用 CRTL十 S， 14 打印用 CTRL + P，等等，在設(shè)計(jì)菜單時(shí)嚴(yán)格遵循這些約定。 常用菜單項(xiàng)快捷操作的設(shè)置 菜單項(xiàng)快捷操作的設(shè)置分 為快捷鍵和訪問(wèn)鍵兩個(gè)部分?？梢?jiàn)與隱藏也有兩種方法，一是菜單編輯器中的“可見(jiàn)”選項(xiàng)，二是用代碼改變 visible屬性實(shí)現(xiàn)。當(dāng)因?yàn)槟撤N原因使得某個(gè)選項(xiàng)所代表的功能不能被實(shí)現(xiàn)時(shí)，就應(yīng)該禁止該選項(xiàng)被選中，表現(xiàn)在界面上為灰色，反之為正常黑色。一個(gè)好的菜單設(shè)計(jì)，不僅能使系統(tǒng)美觀，而且能使操作者使用方便，還可避免誤操作帶來(lái)的嚴(yán)重后果。這樣設(shè)置的目的是保證設(shè)計(jì)過(guò)程的連續(xù)性和嚴(yán)格先后順序。 采用嚴(yán)格的先后邏輯順序