vb課程設計(繪制機械圖)-在線瀏覽
2025-07-10 17:57本頁面
【正文】 、格式和內容限制 其中對 x、 y、 z、 a、 b、 c、 d 輸入的類型都為 Integer 型 ； msg1 、 msg2 、 msg3 為 String型， 內容限制必須為數(shù)值型。其次利用 Line 控件繪制相 應的邊線框。然后通過對窗體中添加 Label、 text 控件，用于可參數(shù)化設計通過對 text 中的數(shù) 據(jù)輸入確定相應的相對位置尺寸和外形尺寸。之后在窗體中添加 mand 控件，更改其 caption 值。 2）在窗體上放置 7個 label 控件， 7個 text 控件， 3個 Command 按鈕控件， 將控件里的 text 屬性值清空，用于輸入相應的定型與定位尺寸； 7 個 label 控件，分別放在相應的 text 控件前用于表示相應的尺寸。 通過 text 中所對應的 x、 y、 z、 a、 b、 c、 d 賦值可改變相應 的每個點的坐 標， 因為所對應的邊與線的距離為固定的大小 ，所以圖形一定在所對應的窗體內。 通 過這個程序： respone = MsgBox(對不起，您輸入的參數(shù)不正確！請重新輸入！ , vbOKOnly + vbExclamation, 出錯 )來提示輸入?yún)?shù)錯誤時的信息。 用 來設定線寬。 如果以后要編輯更深層次的程序，我們還得更加努力 的學習和請教老師，還得 多加練習，希望我以后能更好的掌握這門課程 沈陽理工大學課程設計專用 紙 № 沈陽理工大 學 六 ． 源 程序清單 Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer, d As Integer, x As Integer, y As Integer, z As Integer x = Val() y = Val() z = Val() a = Val() b = Val() d = Val() If x = 0 Or y = 0 Or z = 0 Or a = 0 Or b = 0 Or c = 0 Or d = 0 Or x = a Or x = c Or z = (b + d) Then respone = MsgBox(對不起，您輸入的參數(shù)不正確！請重新輸入！ , vbOKOnly + vbExclamation, 出錯 ) Else Sca
范文總結相關推薦
鄂ICP備17016276號-1