xsp.frm
资源名称:WebSite1.rar [点击查看]
上传用户:vtryaojia
上传日期:2020-04-18
资源大小:1214k
文件大小:4k
源码类别:
SCSI/ASPI
开发平台:
Others
- VERSION 5.00
- Begin VB.Form xsp
- Caption = "添加新商品"
- ClientHeight = 5670
- ClientLeft = 60
- ClientTop = 450
- ClientWidth = 9450
- LinkTopic = "Form1"
- ScaleHeight = 5670
- ScaleWidth = 9450
- StartUpPosition = 3 '窗口缺省
- Visible = 0 'False
- Begin VB.Frame Frame1
- Caption = "请选择商品"
- Height = 5175
- Left = 120
- TabIndex = 0
- Top = 120
- Width = 8055
- Begin VB.CommandButton Command10
- Caption = "CD/DCD光驱"
- Height = 735
- Left = 3720
- TabIndex = 10
- Top = 3480
- Width = 975
- End
- Begin VB.CommandButton Command9
- Caption = "散热系统"
- Height = 735
- Left = 2160
- TabIndex = 9
- Top = 3480
- Width = 855
- End
- Begin VB.CommandButton Command8
- Caption = "机箱"
- Height = 735
- Left = 5520
- TabIndex = 8
- Top = 2160
- Width = 975
- End
- Begin VB.CommandButton Command7
- Caption = "音箱"
- Height = 735
- Left = 3720
- TabIndex = 7
- Top = 2160
- Width = 975
- End
- Begin VB.CommandButton Command6
- Caption = "硬盘"
- Height = 735
- Left = 2160
- TabIndex = 6
- Top = 2160
- Width = 855
- End
- Begin VB.CommandButton Command5
- Caption = "声卡"
- Height = 735
- Left = 480
- TabIndex = 5
- Top = 2160
- Width = 855
- End
- Begin VB.CommandButton Command4
- Caption = "PC电源"
- Height = 735
- Left = 5400
- TabIndex = 4
- Top = 600
- Width = 975
- End
- Begin VB.CommandButton Command3
- Caption = "主板"
- Height = 735
- Left = 3720
- TabIndex = 3
- Top = 600
- Width = 975
- End
- Begin VB.CommandButton Command2
- Caption = "内存"
- Height = 735
- Left = 2160
- TabIndex = 2
- Top = 600
- Width = 855
- End
- Begin VB.CommandButton Command1
- Caption = "CPU"
- Height = 735
- Left = 480
- TabIndex = 1
- Top = 600
- Width = 855
- End
- End
- End
- Attribute VB_Name = "xsp"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- Private Sub Command1_Click()
- cpu.Show
- End Sub
- Private Sub Command10_Click()
- cd.Show
- End Sub
- Private Sub Command2_Click()
- storage.Show
- End Sub
- Private Sub Command3_Click()
- mainboard.Show
- End Sub
- Private Sub Command4_Click()
- power.Show
- End Sub
- Private Sub Command5_Click()
- audio.Show
- End Sub
- Private Sub Command6_Click()
- harddisk.Show
- End Sub
- Private Sub Command7_Click()
- bafflebox.Show
- End Sub
- Private Sub Command8_Click()
- box.Show
- End Sub
- Private Sub Command9_Click()
- heatsink.Show
- End Sub