xsp.frm
上传用户:vtryaojia
上传日期:2020-04-18
资源大小:1214k
文件大小:4k
源码类别:

SCSI/ASPI

开发平台:

Others

  1. VERSION 5.00
  2. Begin VB.Form xsp 
  3.    Caption         =   "添加新商品"
  4.    ClientHeight    =   5670
  5.    ClientLeft      =   60
  6.    ClientTop       =   450
  7.    ClientWidth     =   9450
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   5670
  10.    ScaleWidth      =   9450
  11.    StartUpPosition =   3  '窗口缺省
  12.    Visible         =   0   'False
  13.    Begin VB.Frame Frame1 
  14.       Caption         =   "请选择商品"
  15.       Height          =   5175
  16.       Left            =   120
  17.       TabIndex        =   0
  18.       Top             =   120
  19.       Width           =   8055
  20.       Begin VB.CommandButton Command10 
  21.          Caption         =   "CD/DCD光驱"
  22.          Height          =   735
  23.          Left            =   3720
  24.          TabIndex        =   10
  25.          Top             =   3480
  26.          Width           =   975
  27.       End
  28.       Begin VB.CommandButton Command9 
  29.          Caption         =   "散热系统"
  30.          Height          =   735
  31.          Left            =   2160
  32.          TabIndex        =   9
  33.          Top             =   3480
  34.          Width           =   855
  35.       End
  36.       Begin VB.CommandButton Command8 
  37.          Caption         =   "机箱"
  38.          Height          =   735
  39.          Left            =   5520
  40.          TabIndex        =   8
  41.          Top             =   2160
  42.          Width           =   975
  43.       End
  44.       Begin VB.CommandButton Command7 
  45.          Caption         =   "音箱"
  46.          Height          =   735
  47.          Left            =   3720
  48.          TabIndex        =   7
  49.          Top             =   2160
  50.          Width           =   975
  51.       End
  52.       Begin VB.CommandButton Command6 
  53.          Caption         =   "硬盘"
  54.          Height          =   735
  55.          Left            =   2160
  56.          TabIndex        =   6
  57.          Top             =   2160
  58.          Width           =   855
  59.       End
  60.       Begin VB.CommandButton Command5 
  61.          Caption         =   "声卡"
  62.          Height          =   735
  63.          Left            =   480
  64.          TabIndex        =   5
  65.          Top             =   2160
  66.          Width           =   855
  67.       End
  68.       Begin VB.CommandButton Command4 
  69.          Caption         =   "PC电源"
  70.          Height          =   735
  71.          Left            =   5400
  72.          TabIndex        =   4
  73.          Top             =   600
  74.          Width           =   975
  75.       End
  76.       Begin VB.CommandButton Command3 
  77.          Caption         =   "主板"
  78.          Height          =   735
  79.          Left            =   3720
  80.          TabIndex        =   3
  81.          Top             =   600
  82.          Width           =   975
  83.       End
  84.       Begin VB.CommandButton Command2 
  85.          Caption         =   "内存"
  86.          Height          =   735
  87.          Left            =   2160
  88.          TabIndex        =   2
  89.          Top             =   600
  90.          Width           =   855
  91.       End
  92.       Begin VB.CommandButton Command1 
  93.          Caption         =   "CPU"
  94.          Height          =   735
  95.          Left            =   480
  96.          TabIndex        =   1
  97.          Top             =   600
  98.          Width           =   855
  99.       End
  100.    End
  101. End
  102. Attribute VB_Name = "xsp"
  103. Attribute VB_GlobalNameSpace = False
  104. Attribute VB_Creatable = False
  105. Attribute VB_PredeclaredId = True
  106. Attribute VB_Exposed = False
  107. Private Sub Command1_Click()
  108.  cpu.Show
  109. End Sub
  110. Private Sub Command10_Click()
  111. cd.Show
  112. End Sub
  113. Private Sub Command2_Click()
  114.   storage.Show
  115. End Sub
  116. Private Sub Command3_Click()
  117. mainboard.Show
  118. End Sub
  119. Private Sub Command4_Click()
  120. power.Show
  121. End Sub
  122. Private Sub Command5_Click()
  123. audio.Show
  124. End Sub
  125. Private Sub Command6_Click()
  126. harddisk.Show
  127. End Sub
  128. Private Sub Command7_Click()
  129. bafflebox.Show
  130. End Sub
  131. Private Sub Command8_Click()
  132. box.Show
  133. End Sub
  134. Private Sub Command9_Click()
  135. heatsink.Show
  136. End Sub