產品包裝紙箱cad系統(tǒng)設計方案說明書(編輯修改稿)
2025-05-22 13:23 本頁面
【文章內容簡介】 興中國包裝業(yè)的重大使命，畢竟一個行業(yè)的進步，繁榮需要靠一代人甚至幾代人的共同努力，同時也不僅僅局限于一個行業(yè)，更重要的是社會的重視和支持，我只想通過這次的課程設計更加明確自己的前進的方向和奮斗的目標。從而能對今后的學習起到積極作用，我想應該這就足夠了！7． 課程設計分工：方聰聰 主要程序代碼編寫 部分窗體外觀設計沈姚佳 部分程序代碼編寫 主要窗體外觀設計 說明書編寫參考文獻：書名出版社運輸包裝印刷工業(yè)出版社包裝計算機輔助設計印刷工業(yè)出版社Visual Basic 中文版提高與應用電子工業(yè)出版社Visual Basic 面向對象與可視化程序設計清華大學出版社包裝結構設計中國輕工業(yè)出版社附錄：VB源程序開始界面Private Sub Image1_Click( End SubPrivate Sub Image2_Click( Unload MeEnd Sub菜單界面Private Sub Form_Load( = GetSetting(, Settings, MainLeft, 1000 = GetSetting(, Settings, MainTop, 1000 = GetSetting(, Settings, MainWidth, 6500 = GetSetting(, Settings, MainHeight, 6500End SubPrivate Sub Form_Unload(Cancel As Integer Dim i As Integer 39。close all sub forms For i = 1 To 1 Step 1 Unload Forms(i Next If vbMinimized Then SaveSetting , Settings, MainLeft, SaveSetting , Settings, MainTop, SaveSetting , Settings, MainWidth, SaveSetting , Settings, MainHeight, End IfEnd SubPrivate Sub tbToolBar_ButtonClick(ByVal Button As On Error Resume Next Select Case Case 新建 39。應做:添加 39。新建39。 按鈕代碼。 MsgBox 添加 39。新建39。 按鈕代碼。 Case 打開 39。應做:添加 39。打開39。 按鈕代碼。 MsgBox 添加 39。打開39。 按鈕代碼。 Case 保存 39。應做:添加 39。保存39。 按鈕代碼。 MsgBox 添加 39。保存39。 按鈕代碼。 Case 打印 39。應做:添加 39。打印39。 按鈕代碼。 MsgBox 添加 39。打印39。 按鈕代碼。 Case 剪切 39。應做:添加 39。剪切39。 按鈕代碼。 MsgBox 添加 39。剪切39。 按鈕代碼。 Case 復制 39。應做:添加 39。復制39。 按鈕代碼。 MsgBox 添加 39。復制39。 按鈕代碼。 Case 粘貼 39。應做:添加 39。粘貼39。 按鈕代碼。 MsgBox 添加 39。粘貼39。 按鈕代碼。 Case 粗體 39。應做:添加 39。粗體39。 按鈕代碼。 MsgBox 添加 39。粗體39。 按鈕代碼。 Case 斜體 39。應做:添加 39。斜體39。 按鈕代碼。 MsgBox 添加 39。斜體39。 按鈕代碼。 Case 下劃線 39。應做:添加 39。下劃線39。 按鈕代碼。 MsgBox 添加 39。下劃線39。 按鈕代碼。 Case 左對齊 39。應做:添加 39。左對齊39。 按鈕代碼。 MsgBox 添加 39。左對齊39。 按鈕代碼。 Case 置中 39。應做:添加 39。置中39。 按鈕代碼。 MsgBox 添加 39。置中39。 按鈕代碼。 Case 右對齊 39。應做:添加 39。右對齊39。 按鈕代碼。 MsgBox 添加 39。右對齊39。 按鈕代碼。 End SelectEnd SubPrivate Sub mnu輸出設計結果輸出設計圖樣_Click( End SubPrivate Sub mnu輸出設計結果輸出計算結果_Click( End SubPrivate Sub mnuHelp使用指南_Click( End SubPrivate Sub mnuHelp版本信息_Click( End SubPrivate Sub mnuEdit確定包裝要素_Click( End SubPrivate Sub mnuEdit輸入產品信息_Click( End SubPrivate Sub mnuFile保存為word文檔_Click( Dim myDoc, WordApp As ObjectSet WordApp = CreateObject(Set myDoc = ( E:\Set ap = NothingDim L As StringDim m As StringDim X As StringL = m = X = If = True ThenL = A 39。A楞型的代號End IfIf = True ThenL = B 39。B楞型的代號End IfIf = True ThenL = C 39。C楞型的代號End IfIf = True Thenm = AB 39。Ab楞型的代號En
公司管理相關推薦
鄂ICP備17016276號-1