home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / Enigma_X18288312132004.psc / Source / frmComputer.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2004-12-13  |  13.7 KB  |  389 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
  3. Begin VB.Form frmComputer 
  4.    BackColor       =   &H00FFFFFF&
  5.    BorderStyle     =   4  'Fixed ToolWindow
  6.    Caption         =   "Your Computer"
  7.    ClientHeight    =   4815
  8.    ClientLeft      =   45
  9.    ClientTop       =   315
  10.    ClientWidth     =   9135
  11.    Icon            =   "frmComputer.frx":0000
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   4815
  16.    ScaleWidth      =   9135
  17.    ShowInTaskbar   =   0   'False
  18.    StartUpPosition =   2  'CenterScreen
  19.    Begin VB.Frame fraSoftware 
  20.       BackColor       =   &H00FFFFFF&
  21.       Caption         =   "Software:"
  22.       BeginProperty Font 
  23.          Name            =   "MS Sans Serif"
  24.          Size            =   8.25
  25.          Charset         =   0
  26.          Weight          =   700
  27.          Underline       =   0   'False
  28.          Italic          =   0   'False
  29.          Strikethrough   =   0   'False
  30.       EndProperty
  31.       Height          =   2655
  32.       Left            =   2880
  33.       TabIndex        =   15
  34.       Top             =   1560
  35.       Width           =   6135
  36.       Begin EnigmaX.isButton cmdDelete 
  37.          Height          =   300
  38.          Left            =   5160
  39.          TabIndex        =   17
  40.          Top             =   2280
  41.          Width           =   855
  42.          _ExtentX        =   1508
  43.          _ExtentY        =   529
  44.          Icon            =   "frmComputer.frx":0E42
  45.          Style           =   9
  46.          Caption         =   "Delete"
  47.          IconAlign       =   1
  48.          iNonThemeStyle  =   0
  49.          Enabled         =   0   'False
  50.          Tooltiptitle    =   ""
  51.          ToolTipIcon     =   0
  52.          ToolTipType     =   0
  53.          ttForeColor     =   0
  54.       End
  55.       Begin MSComctlLib.ListView lstSoftware 
  56.          Height          =   2055
  57.          Left            =   120
  58.          TabIndex        =   16
  59.          Top             =   240
  60.          Width           =   5895
  61.          _ExtentX        =   10398
  62.          _ExtentY        =   3625
  63.          View            =   3
  64.          LabelEdit       =   1
  65.          Sorted          =   -1  'True
  66.          LabelWrap       =   -1  'True
  67.          HideSelection   =   -1  'True
  68.          FullRowSelect   =   -1  'True
  69.          GridLines       =   -1  'True
  70.          _Version        =   393217
  71.          Icons           =   "imgSoftware"
  72.          ColHdrIcons     =   "imgSoftware"
  73.          ForeColor       =   -2147483640
  74.          BackColor       =   -2147483643
  75.          Appearance      =   1
  76.          NumItems        =   4
  77.          BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  78.             Text            =   "Name"
  79.             Object.Width           =   4410
  80.             ImageIndex      =   1
  81.          EndProperty
  82.          BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  83.             SubItemIndex    =   1
  84.             Text            =   "Version"
  85.             Object.Width           =   2117
  86.             ImageIndex      =   4
  87.          EndProperty
  88.          BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  89.             SubItemIndex    =   2
  90.             Text            =   "Description"
  91.             Object.Width           =   7056
  92.             ImageIndex      =   2
  93.          EndProperty
  94.          BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  95.             SubItemIndex    =   3
  96.             Text            =   "Size"
  97.             Object.Width           =   2646
  98.             ImageIndex      =   3
  99.          EndProperty
  100.       End
  101.    End
  102.    Begin MSComctlLib.ImageList imgSoftware 
  103.       Left            =   120
  104.       Top             =   3960
  105.       _ExtentX        =   1005
  106.       _ExtentY        =   1005
  107.       BackColor       =   -2147483643
  108.       ImageWidth      =   16
  109.       ImageHeight     =   16
  110.       MaskColor       =   12632256
  111.       _Version        =   393216
  112.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  113.          NumListImages   =   4
  114.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  115.             Picture         =   "frmComputer.frx":0E5E
  116.             Key             =   ""
  117.          EndProperty
  118.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  119.             Picture         =   "frmComputer.frx":13F8
  120.             Key             =   ""
  121.          EndProperty
  122.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  123.             Picture         =   "frmComputer.frx":1992
  124.             Key             =   ""
  125.          EndProperty
  126.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  127.             Picture         =   "frmComputer.frx":1F2C
  128.             Key             =   ""
  129.          EndProperty
  130.       EndProperty
  131.    End
  132.    Begin EnigmaX.isButton cmdClose 
  133.       Height          =   375
  134.       Left            =   7200
  135.       TabIndex        =   12
  136.       Top             =   4320
  137.       Width           =   1815
  138.       _ExtentX        =   3201
  139.       _ExtentY        =   661
  140.       Icon            =   "frmComputer.frx":24C6
  141.       Style           =   9
  142.       Caption         =   "Close"
  143.       IconAlign       =   1
  144.       iNonThemeStyle  =   0
  145.       Tooltiptitle    =   ""
  146.       ToolTipIcon     =   0
  147.       ToolTipType     =   0
  148.       ttForeColor     =   0
  149.    End
  150.    Begin VB.Frame fraSpecs 
  151.       BackColor       =   &H00FFFFFF&
  152.       Caption         =   "Hardware:"
  153.       BeginProperty Font 
  154.          Name            =   "MS Sans Serif"
  155.          Size            =   8.25
  156.          Charset         =   0
  157.          Weight          =   700
  158.          Underline       =   0   'False
  159.          Italic          =   0   'False
  160.          Strikethrough   =   0   'False
  161.       EndProperty
  162.       Height          =   1575
  163.       Left            =   2880
  164.       TabIndex        =   1
  165.       Top             =   0
  166.       Width           =   6135
  167.       Begin VB.Label lblModem 
  168.          BackStyle       =   0  'Transparent
  169.          Caption         =   "Modem"
  170.          Height          =   255
  171.          Left            =   1440
  172.          TabIndex        =   11
  173.          Top             =   1200
  174.          Width           =   4575
  175.       End
  176.       Begin VB.Label lblMo 
  177.          Alignment       =   1  'Right Justify
  178.          BackStyle       =   0  'Transparent
  179.          Caption         =   "Modem:"
  180.          BeginProperty Font 
  181.             Name            =   "MS Sans Serif"
  182.             Size            =   8.25
  183.             Charset         =   0
  184.             Weight          =   700
  185.             Underline       =   0   'False
  186.             Italic          =   0   'False
  187.             Strikethrough   =   0   'False
  188.          EndProperty
  189.          Height          =   255
  190.          Left            =   120
  191.          TabIndex        =   10
  192.          Top             =   1200
  193.          Width           =   1215
  194.       End
  195.       Begin VB.Label lblHDD 
  196.          BackStyle       =   0  'Transparent
  197.          Caption         =   "Hard Drive"
  198.          Height          =   255
  199.          Left            =   1440
  200.          TabIndex        =   9
  201.          Top             =   960
  202.          Width           =   4575
  203.       End
  204.       Begin VB.Label lblHardDrive 
  205.          Alignment       =   1  'Right Justify
  206.          BackStyle       =   0  'Transparent
  207.          Caption         =   "Hard Drive:"
  208.          BeginProperty Font 
  209.             Name            =   "MS Sans Serif"
  210.             Size            =   8.25
  211.             Charset         =   0
  212.             Weight          =   700
  213.             Underline       =   0   'False
  214.             Italic          =   0   'False
  215.             Strikethrough   =   0   'False
  216.          EndProperty
  217.          Height          =   255
  218.          Left            =   120
  219.          TabIndex        =   8
  220.          Top             =   960
  221.          Width           =   1215
  222.       End
  223.       Begin VB.Label lblMemory 
  224.          BackStyle       =   0  'Transparent
  225.          Caption         =   "Memory"
  226.          Height          =   255
  227.          Left            =   1440
  228.          TabIndex        =   7
  229.          Top             =   720
  230.          Width           =   4575
  231.       End
  232.       Begin VB.Label lblMem 
  233.          Alignment       =   1  'Right Justify
  234.          BackStyle       =   0  'Transparent
  235.          Caption         =   "Memory:"
  236.          BeginProperty Font 
  237.             Name            =   "MS Sans Serif"
  238.             Size            =   8.25
  239.             Charset         =   0
  240.             Weight          =   700
  241.             Underline       =   0   'False
  242.             Italic          =   0   'False
  243.             Strikethrough   =   0   'False
  244.          EndProperty
  245.          Height          =   255
  246.          Left            =   225
  247.          TabIndex        =   6
  248.          Top             =   720
  249.          Width           =   1095
  250.       End
  251.       Begin VB.Label lblCpu 
  252.          BackStyle       =   0  'Transparent
  253.          Caption         =   "Cpu"
  254.          Height          =   255
  255.          Left            =   1440
  256.          TabIndex        =   5
  257.          Top             =   480
  258.          Width           =   4575
  259.       End
  260.       Begin VB.Label lblCpuInf 
  261.          Alignment       =   1  'Right Justify
  262.          BackStyle       =   0  'Transparent
  263.          Caption         =   "CPU:"
  264.          BeginProperty Font 
  265.             Name            =   "MS Sans Serif"
  266.             Size            =   8.25
  267.             Charset         =   0
  268.             Weight          =   700
  269.             Underline       =   0   'False
  270.             Italic          =   0   'False
  271.             Strikethrough   =   0   'False
  272.          EndProperty
  273.          Height          =   255
  274.          Left            =   120
  275.          TabIndex        =   4
  276.          Top             =   480
  277.          Width           =   1215
  278.       End
  279.       Begin VB.Label lblMotherb 
  280.          BackStyle       =   0  'Transparent
  281.          Caption         =   "Motherboard"
  282.          Height          =   255
  283.          Left            =   1440
  284.          TabIndex        =   3
  285.          Top             =   240
  286.          Width           =   4575
  287.       End
  288.       Begin VB.Label lblMotherboard 
  289.          Alignment       =   1  'Right Justify
  290.          BackStyle       =   0  'Transparent
  291.          Caption         =   "Motherboard:"
  292.          BeginProperty Font 
  293.             Name            =   "MS Sans Serif"
  294.             Size            =   8.25
  295.             Charset         =   0
  296.             Weight          =   700
  297.             Underline       =   0   'False
  298.             Italic          =   0   'False
  299.             Strikethrough   =   0   'False
  300.          EndProperty
  301.          Height          =   255
  302.          Left            =   120
  303.          TabIndex        =   2
  304.          Top             =   240
  305.          Width           =   1215
  306.       End
  307.    End
  308.    Begin VB.PictureBox imgComp 
  309.       Appearance      =   0  'Flat
  310.       AutoSize        =   -1  'True
  311.       BackColor       =   &H80000005&
  312.       BorderStyle     =   0  'None
  313.       ForeColor       =   &H80000008&
  314.       Height          =   3930
  315.       Left            =   0
  316.       Picture         =   "frmComputer.frx":24E2
  317.       ScaleHeight     =   3930
  318.       ScaleWidth      =   2835
  319.       TabIndex        =   0
  320.       Top             =   0
  321.       Width           =   2835
  322.    End
  323.    Begin EnigmaX.isButton cmdBuyHard 
  324.       Height          =   375
  325.       Left            =   2880
  326.       TabIndex        =   13
  327.       Top             =   4320
  328.       Width           =   1815
  329.       _ExtentX        =   3201
  330.       _ExtentY        =   661
  331.       Icon            =   "frmComputer.frx":45C1
  332.       Style           =   9
  333.       Caption         =   "Buy Hardware"
  334.       IconAlign       =   1
  335.       iNonThemeStyle  =   0
  336.       Tooltiptitle    =   ""
  337.       ToolTipIcon     =   0
  338.       ToolTipType     =   0
  339.       ttForeColor     =   0
  340.    End
  341.    Begin EnigmaX.isButton cmdBuySoftware 
  342.       Height          =   375
  343.       Left            =   5040
  344.       TabIndex        =   14
  345.       Top             =   4320
  346.       Width           =   1815
  347.       _ExtentX        =   3201
  348.       _ExtentY        =   661
  349.       Icon            =   "frmComputer.frx":45DD
  350.       Style           =   9
  351.       Caption         =   "Buy Software"
  352.       IconAlign       =   1
  353.       iNonThemeStyle  =   0
  354.       Tooltiptitle    =   ""
  355.       ToolTipIcon     =   0
  356.       ToolTipType     =   0
  357.       ttForeColor     =   0
  358.    End
  359. Attribute VB_Name = "frmComputer"
  360. Attribute VB_GlobalNameSpace = False
  361. Attribute VB_Creatable = False
  362. Attribute VB_PredeclaredId = True
  363. Attribute VB_Exposed = False
  364. Option Explicit 'Makes sure all the variables are declared
  365. Private Sub cmdBuyHard_Click() 'They Clicked the (Buy Hardware) button on the Form
  366.     frmHardware.Show vbModal, frmGame 'Shows the Hardware window
  367. End Sub
  368. Private Sub cmdBuySoftware_Click() 'They Clicked the (Buy Software) button on the Form
  369.     frmSoftware.Show vbModal, frmGame 'Shows the Software window
  370. End Sub
  371. Private Sub cmdClose_Click() 'They Clicked the (Close) Button
  372.     Unload Me 'Unloads this form
  373. End Sub
  374. Private Sub Form_Load()
  375.     'Loads the Current Computer Specs.
  376.     lblMotherb.Caption = MotherBoard 'Motherboard Duh! :-)
  377.     lblCpu.Caption = CPU 'Cpu
  378.     lblMemory.Caption = Memory 'Memory
  379.     lblHDD.Caption = HDDName 'Hard Drive Name
  380.     lblModem.Caption = Modem 'Modem
  381.     'This is for reference --- Probably
  382.     'Dim li
  383.     'Loads the Software -- Might have to change depending on load game, buy software etc
  384.     'Set li = lstSoftware.ListItems.Add(, , "View", 1) 'The View.exe program
  385.     'li.ListSubItems.Add , , "v1.0" 'Version
  386.     'li.ListSubItems.Add , , "View certain types of files. (*.txt, *.jpg etc.)" 'Description
  387.     'li.ListSubItems.Add , , "15,360 bytes" 'Size
  388. End Sub
  389.