⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 frmmain.frm

📁 模仿Windows任务管理器,visual basic 网上找的.
💻 FRM
📖 第 1 页 / 共 4 页
字号:
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form frmMain 
   Caption         =   "(TM) Task Manager v1.1"
   ClientHeight    =   5250
   ClientLeft      =   165
   ClientTop       =   825
   ClientWidth     =   7050
   Icon            =   "frmMain.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   350
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   470
   StartUpPosition =   3  '窗口缺省
   Begin TabDlg.SSTab SSTab1 
      Height          =   5115
      Left            =   60
      TabIndex        =   0
      Top             =   0
      Width           =   6915
      _ExtentX        =   12197
      _ExtentY        =   9022
      _Version        =   393216
      Style           =   1
      TabHeight       =   529
      ShowFocusRect   =   0   'False
      TabCaption(0)   =   "计算机"
      TabPicture(0)   =   "frmMain.frx":0442
      Tab(0).ControlEnabled=   -1  'True
      Tab(0).Control(0)=   "Frame9"
      Tab(0).Control(0).Enabled=   0   'False
      Tab(0).Control(1)=   "Frame8"
      Tab(0).Control(1).Enabled=   0   'False
      Tab(0).ControlCount=   2
      TabCaption(1)   =   "进程"
      TabPicture(1)   =   "frmMain.frx":045E
      Tab(1).ControlEnabled=   0   'False
      Tab(1).Control(0)=   "Frame3"
      Tab(1).Control(0).Enabled=   0   'False
      Tab(1).Control(1)=   "Frame6"
      Tab(1).Control(1).Enabled=   0   'False
      Tab(1).Control(2)=   "Frame7"
      Tab(1).Control(2).Enabled=   0   'False
      Tab(1).Control(3)=   "Frame2"
      Tab(1).Control(3).Enabled=   0   'False
      Tab(1).Control(4)=   "Timer2"
      Tab(1).Control(4).Enabled=   0   'False
      Tab(1).ControlCount=   5
      TabCaption(2)   =   "内存"
      TabPicture(2)   =   "frmMain.frx":047A
      Tab(2).ControlEnabled=   0   'False
      Tab(2).Control(0)=   "Frame1"
      Tab(2).Control(0).Enabled=   0   'False
      Tab(2).Control(1)=   "Frame5"
      Tab(2).Control(1).Enabled=   0   'False
      Tab(2).Control(2)=   "Frame4"
      Tab(2).Control(2).Enabled=   0   'False
      Tab(2).Control(3)=   "cmmDlg"
      Tab(2).Control(3).Enabled=   0   'False
      Tab(2).Control(4)=   "Timer1"
      Tab(2).Control(4).Enabled=   0   'False
      Tab(2).ControlCount=   5
      Begin VB.Timer Timer2 
         Interval        =   10000
         Left            =   -68580
         Top             =   360
      End
      Begin VB.Timer Timer1 
         Interval        =   1000
         Left            =   -68580
         Top             =   360
      End
      Begin MSComDlg.CommonDialog cmmDlg 
         Left            =   -69060
         Top             =   360
         _ExtentX        =   847
         _ExtentY        =   847
         _Version        =   393216
      End
      Begin VB.Frame Frame2 
         Height          =   3855
         Left            =   -74880
         TabIndex        =   26
         Top             =   360
         Width           =   6675
         Begin ComctlLib.ListView lstTasks 
            Height          =   3495
            Left            =   105
            TabIndex        =   27
            Top             =   210
            Width           =   6435
            _ExtentX        =   11351
            _ExtentY        =   6165
            View            =   3
            LabelEdit       =   1
            LabelWrap       =   -1  'True
            HideSelection   =   -1  'True
            _Version        =   327682
            ForeColor       =   49152
            BackColor       =   0
            BorderStyle     =   1
            Appearance      =   1
            NumItems        =   4
            BeginProperty ColumnHeader(1) {0713E8C7-850A-101B-AFC0-4210102A8DA7} 
               Key             =   ""
               Object.Tag             =   ""
               Text            =   "映像名称"
               Object.Width           =   2540
            EndProperty
            BeginProperty ColumnHeader(2) {0713E8C7-850A-101B-AFC0-4210102A8DA7} 
               SubItemIndex    =   1
               Key             =   ""
               Object.Tag             =   ""
               Text            =   "优先权"
               Object.Width           =   2540
            EndProperty
            BeginProperty ColumnHeader(3) {0713E8C7-850A-101B-AFC0-4210102A8DA7} 
               SubItemIndex    =   2
               Key             =   ""
               Object.Tag             =   ""
               Text            =   "序号"
               Object.Width           =   2540
            EndProperty
            BeginProperty ColumnHeader(4) {0713E8C7-850A-101B-AFC0-4210102A8DA7} 
               SubItemIndex    =   3
               Key             =   ""
               Object.Tag             =   ""
               Text            =   "线程"
               Object.Width           =   2540
            EndProperty
         End
      End
      Begin VB.Frame Frame8 
         Height          =   4635
         Left            =   1620
         TabIndex        =   38
         Top             =   360
         Width           =   5175
         Begin VB.PictureBox Picture9 
            BackColor       =   &H00000000&
            Height          =   795
            Left            =   120
            ScaleHeight     =   735
            ScaleWidth      =   4875
            TabIndex        =   58
            Top             =   240
            Width           =   4935
            Begin VB.Label lblUserName 
               BackColor       =   &H00FFFFFF&
               BackStyle       =   0  'Transparent
               ForeColor       =   &H0000FF00&
               Height          =   195
               Left            =   1620
               TabIndex        =   62
               Top             =   420
               Width           =   3135
            End
            Begin VB.Label lblComputerName 
               BackColor       =   &H00FFFFFF&
               BackStyle       =   0  'Transparent
               ForeColor       =   &H0000FF00&
               Height          =   195
               Left            =   1620
               TabIndex        =   61
               Top             =   120
               Width           =   3135
            End
            Begin VB.Label Label18 
               BackColor       =   &H00000000&
               Caption         =   "计算机名:"
               ForeColor       =   &H0000C000&
               Height          =   195
               Left            =   630
               TabIndex        =   60
               Top             =   120
               Width           =   930
            End
            Begin VB.Label Label17 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00000000&
               Caption         =   "用户名:"
               ForeColor       =   &H0000C000&
               Height          =   195
               Left            =   360
               TabIndex        =   59
               Top             =   420
               Width           =   1095
            End
         End
         Begin VB.PictureBox Picture8 
            BackColor       =   &H00000000&
            Height          =   1155
            Left            =   120
            ScaleHeight     =   1095
            ScaleWidth      =   4875
            TabIndex        =   53
            Top             =   1080
            Width           =   4935
            Begin VB.Label Label21 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00FFFFFF&
               BackStyle       =   0  'Transparent
               Caption         =   "更新:"
               ForeColor       =   &H0000C000&
               Height          =   195
               Left            =   300
               TabIndex        =   69
               Top             =   780
               Width           =   1155
            End
            Begin VB.Label lblOSUpdate 
               BackColor       =   &H00FFFFFF&
               BackStyle       =   0  'Transparent
               ForeColor       =   &H0000FF00&
               Height          =   195
               Left            =   1620
               TabIndex        =   63
               Top             =   780
               Width           =   3135
            End
            Begin VB.Label lblOSPlatform 
               BackColor       =   &H00FFFFFF&
               BackStyle       =   0  'Transparent
               ForeColor       =   &H0000FF00&
               Height          =   195
               Left            =   1620
               TabIndex        =   57
               Top             =   180
               Width           =   3135
            End
            Begin VB.Label lblOSVersion 
               BackColor       =   &H00FFFFFF&
               BackStyle       =   0  'Transparent
               ForeColor       =   &H0000FF00&
               Height          =   195
               Left            =   1620
               TabIndex        =   56
               Top             =   480
               Width           =   3135
            End
            Begin VB.Label Label16 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00000000&
               Caption         =   "操作系统:"
               ForeColor       =   &H0000C000&
               Height          =   195
               Left            =   540
               TabIndex        =   55
               Top             =   180
               Width           =   915
            End
            Begin VB.Label Label15 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00000000&
               Caption         =   "操作系统版本:"
               ForeColor       =   &H0000C000&
               Height          =   195
               Left            =   270
               TabIndex        =   54
               Top             =   480
               Width           =   1185
            End
         End
         Begin VB.PictureBox Picture7 
            BackColor       =   &H00000000&
            Height          =   1095
            Left            =   120
            ScaleHeight     =   1035
            ScaleWidth      =   4875
            TabIndex        =   46
            Top             =   2280
            Width           =   4935
            Begin VB.Label lblProcessorMake 
               BackColor       =   &H00FFFFFF&
               BackStyle       =   0  'Transparent
               ForeColor       =   &H0000FF00&
               Height          =   195
               Left            =   1620
               TabIndex        =   52
               Top             =   120
               Width           =   3135
            End
            Begin VB.Label lblProcessorModel 
               BackColor       =   &H00FFFFFF&
               BackStyle       =   0  'Transparent
               ForeColor       =   &H0000FF00&
               Height          =   195
               Left            =   1620
               TabIndex        =   51
               Top             =   420
               Width           =   3135
            End
            Begin VB.Label lblProcessorSpeed 
               BackColor       =   &H00FFFFFF&
               BackStyle       =   0  'Transparent
               ForeColor       =   &H0000FF00&
               Height          =   195
               Left            =   1620
               TabIndex        =   50
               Top             =   720
               Width           =   3135
            End
            Begin VB.Label Label14 
               Alignment       =   1  'Right Justify
               BackColor       =   &H00000000&
               Caption         =   "CPU 制造商:"
               ForeColor       =   &H0000C000&
               Height          =   195
               Left            =   60

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -