system.frm

实用条码转换系统下载

VERSION 5.00
Begin VB.Form system 
   Caption         =   "金字塔条码转换系统"
   ClientHeight    =   5625
   ClientLeft      =   165
   ClientTop       =   555
   ClientWidth     =   4275
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "system.frx":0000
   ScaleHeight     =   5625
   ScaleWidth      =   4275
   StartUpPosition =   1  '所有者中心
   Begin VB.Menu wenjian 
      Caption         =   "文件"
      WindowList      =   -1  'True
      Begin VB.Menu dayin 
         Caption         =   "打印"
      End
      Begin VB.Menu tuichu 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu yiweitiaoma 
      Caption         =   "一维条码"
      Begin VB.Menu tiaoma 
         Caption         =   "25码"
      End
      Begin VB.Menu jiaochatiaoma 
         Caption         =   "交叉25码"
      End
      Begin VB.Menu shangpintiaoma 
         Caption         =   "商品条码"
         Begin VB.Menu EN13 
            Caption         =   "EN-13"
         End
         Begin VB.Menu EM8 
            Caption         =   "EN-8"
         End
         Begin VB.Menu UPCA 
            Caption         =   "UPC-A"
         End
      End
   End
   Begin VB.Menu erwei 
      Caption         =   "二维条码"
      Enabled         =   0   'False
   End
   Begin VB.Menu xz 
      Caption         =   "        版本：xz1.7"
      Enabled         =   0   'False
   End
End
Attribute VB_Name = "system"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub dayin_Click()
button = MsgBox("Can't connecting！", , "False")
End Sub

Private Sub EM8_Click()
Form8.Show
Unload system
End Sub

Private Sub EN13_Click()
Form13.Show
Unload system
End Sub

Private Sub jiaochatiaoma_Click()
Forminter25.Show
Unload system
End Sub

Private Sub tiaoma_Click()
Form25.Show
Unload system
End Sub

Private Sub tuichu_Click()
End
End Sub

Private Sub UPCA_Click()
FormUPCA.Show
Unload system
End Sub