sz.frm
上传用户:guilu56566
上传日期:2021-04-07
资源大小:1585k
文件大小:11k
源码类别:

家庭/个人应用

开发平台:

Visual Basic

  1. VERSION 5.00
  2. Begin VB.Form sz 
  3.    BackColor       =   &H00000000&
  4.    Caption         =   "设置窗口"
  5.    ClientHeight    =   5865
  6.    ClientLeft      =   60
  7.    ClientTop       =   420
  8.    ClientWidth     =   4155
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   5865
  13.    ScaleWidth      =   4155
  14.    StartUpPosition =   1  '所有者中心
  15.    Begin VB.TextBox h11 
  16.       BackColor       =   &H00FFFFFF&
  17.       Height          =   375
  18.       Index           =   6
  19.       Left            =   2160
  20.       TabIndex        =   22
  21.       Top             =   4320
  22.       Width           =   1215
  23.    End
  24.    Begin VB.TextBox h11 
  25.       BackColor       =   &H00FFFFFF&
  26.       Height          =   375
  27.       Index           =   5
  28.       Left            =   2160
  29.       TabIndex        =   19
  30.       Top             =   3720
  31.       Width           =   1215
  32.    End
  33.    Begin VB.TextBox h11 
  34.       BackColor       =   &H00FFFFFF&
  35.       Height          =   375
  36.       Index           =   4
  37.       Left            =   2160
  38.       TabIndex        =   16
  39.       Top             =   3120
  40.       Width           =   1215
  41.    End
  42.    Begin VB.TextBox h11 
  43.       BackColor       =   &H00FFFFFF&
  44.       Height          =   375
  45.       Index           =   3
  46.       Left            =   2160
  47.       TabIndex        =   13
  48.       Top             =   2520
  49.       Width           =   1215
  50.    End
  51.    Begin VB.TextBox h11 
  52.       BackColor       =   &H00FFFFFF&
  53.       Height          =   375
  54.       Index           =   2
  55.       Left            =   2160
  56.       TabIndex        =   10
  57.       Top             =   1920
  58.       Width           =   1215
  59.    End
  60.    Begin VB.TextBox h11 
  61.       BackColor       =   &H00FFFFFF&
  62.       Height          =   375
  63.       Index           =   1
  64.       Left            =   2160
  65.       TabIndex        =   7
  66.       Top             =   1320
  67.       Width           =   1215
  68.    End
  69.    Begin VB.TextBox h11 
  70.       BackColor       =   &H00FFFFFF&
  71.       Height          =   375
  72.       Index           =   0
  73.       Left            =   2160
  74.       TabIndex        =   4
  75.       Top             =   720
  76.       Width           =   1215
  77.    End
  78.    Begin VB.CommandButton Command2 
  79.       Caption         =   "取消"
  80.       Height          =   375
  81.       Left            =   2400
  82.       TabIndex        =   2
  83.       Top             =   5040
  84.       Width           =   1095
  85.    End
  86.    Begin VB.CommandButton Command1 
  87.       BackColor       =   &H00000000&
  88.       Caption         =   "保存"
  89.       Height          =   375
  90.       Left            =   720
  91.       MaskColor       =   &H00FFFFFF&
  92.       TabIndex        =   1
  93.       Top             =   5040
  94.       Width           =   1095
  95.    End
  96.    Begin VB.Label xh1 
  97.       BackColor       =   &H000000FF&
  98.       BackStyle       =   0  'Transparent
  99.       Caption         =   "7"
  100.       BeginProperty Font 
  101.          Name            =   "黑体"
  102.          Size            =   18
  103.          Charset         =   134
  104.          Weight          =   700
  105.          Underline       =   0   'False
  106.          Italic          =   0   'False
  107.          Strikethrough   =   0   'False
  108.       EndProperty
  109.       ForeColor       =   &H000000FF&
  110.       Height          =   495
  111.       Index           =   6
  112.       Left            =   480
  113.       TabIndex        =   24
  114.       Top             =   4320
  115.       Width           =   375
  116.    End
  117.    Begin VB.Label h1 
  118.       BackColor       =   &H00FFFFFF&
  119.       BorderStyle     =   1  'Fixed Single
  120.       Height          =   375
  121.       Index           =   6
  122.       Left            =   840
  123.       TabIndex        =   23
  124.       Top             =   4320
  125.       Width           =   1095
  126.    End
  127.    Begin VB.Label xh1 
  128.       BackColor       =   &H000000FF&
  129.       BackStyle       =   0  'Transparent
  130.       Caption         =   "6"
  131.       BeginProperty Font 
  132.          Name            =   "黑体"
  133.          Size            =   18
  134.          Charset         =   134
  135.          Weight          =   700
  136.          Underline       =   0   'False
  137.          Italic          =   0   'False
  138.          Strikethrough   =   0   'False
  139.       EndProperty
  140.       ForeColor       =   &H000000FF&
  141.       Height          =   495
  142.       Index           =   5
  143.       Left            =   480
  144.       TabIndex        =   21
  145.       Top             =   3720
  146.       Width           =   375
  147.    End
  148.    Begin VB.Label h1 
  149.       BackColor       =   &H00FFFFFF&
  150.       BorderStyle     =   1  'Fixed Single
  151.       Height          =   375
  152.       Index           =   5
  153.       Left            =   840
  154.       TabIndex        =   20
  155.       Top             =   3720
  156.       Width           =   1095
  157.    End
  158.    Begin VB.Label xh1 
  159.       BackColor       =   &H000000FF&
  160.       BackStyle       =   0  'Transparent
  161.       Caption         =   "5"
  162.       BeginProperty Font 
  163.          Name            =   "黑体"
  164.          Size            =   18
  165.          Charset         =   134
  166.          Weight          =   700
  167.          Underline       =   0   'False
  168.          Italic          =   0   'False
  169.          Strikethrough   =   0   'False
  170.       EndProperty
  171.       ForeColor       =   &H000000FF&
  172.       Height          =   495
  173.       Index           =   4
  174.       Left            =   480
  175.       TabIndex        =   18
  176.       Top             =   3120
  177.       Width           =   375
  178.    End
  179.    Begin VB.Label h1 
  180.       BackColor       =   &H00FFFFFF&
  181.       BorderStyle     =   1  'Fixed Single
  182.       Height          =   375
  183.       Index           =   4
  184.       Left            =   840
  185.       TabIndex        =   17
  186.       Top             =   3120
  187.       Width           =   1095
  188.    End
  189.    Begin VB.Label xh1 
  190.       BackColor       =   &H000000FF&
  191.       BackStyle       =   0  'Transparent
  192.       Caption         =   "4"
  193.       BeginProperty Font 
  194.          Name            =   "黑体"
  195.          Size            =   18
  196.          Charset         =   134
  197.          Weight          =   700
  198.          Underline       =   0   'False
  199.          Italic          =   0   'False
  200.          Strikethrough   =   0   'False
  201.       EndProperty
  202.       ForeColor       =   &H000000FF&
  203.       Height          =   495
  204.       Index           =   3
  205.       Left            =   480
  206.       TabIndex        =   15
  207.       Top             =   2520
  208.       Width           =   375
  209.    End
  210.    Begin VB.Label h1 
  211.       BackColor       =   &H00FFFFFF&
  212.       BorderStyle     =   1  'Fixed Single
  213.       Height          =   375
  214.       Index           =   3
  215.       Left            =   840
  216.       TabIndex        =   14
  217.       Top             =   2520
  218.       Width           =   1095
  219.    End
  220.    Begin VB.Label xh1 
  221.       BackColor       =   &H000000FF&
  222.       BackStyle       =   0  'Transparent
  223.       Caption         =   "3"
  224.       BeginProperty Font 
  225.          Name            =   "黑体"
  226.          Size            =   18
  227.          Charset         =   134
  228.          Weight          =   700
  229.          Underline       =   0   'False
  230.          Italic          =   0   'False
  231.          Strikethrough   =   0   'False
  232.       EndProperty
  233.       ForeColor       =   &H000000FF&
  234.       Height          =   495
  235.       Index           =   2
  236.       Left            =   480
  237.       TabIndex        =   12
  238.       Top             =   1920
  239.       Width           =   375
  240.    End
  241.    Begin VB.Label h1 
  242.       BackColor       =   &H00FFFFFF&
  243.       BorderStyle     =   1  'Fixed Single
  244.       Height          =   375
  245.       Index           =   2
  246.       Left            =   840
  247.       TabIndex        =   11
  248.       Top             =   1920
  249.       Width           =   1095
  250.    End
  251.    Begin VB.Label xh1 
  252.       BackColor       =   &H000000FF&
  253.       BackStyle       =   0  'Transparent
  254.       Caption         =   "2"
  255.       BeginProperty Font 
  256.          Name            =   "黑体"
  257.          Size            =   18
  258.          Charset         =   134
  259.          Weight          =   700
  260.          Underline       =   0   'False
  261.          Italic          =   0   'False
  262.          Strikethrough   =   0   'False
  263.       EndProperty
  264.       ForeColor       =   &H000000FF&
  265.       Height          =   495
  266.       Index           =   1
  267.       Left            =   480
  268.       TabIndex        =   9
  269.       Top             =   1320
  270.       Width           =   375
  271.    End
  272.    Begin VB.Label h1 
  273.       BackColor       =   &H00FFFFFF&
  274.       BorderStyle     =   1  'Fixed Single
  275.       Height          =   375
  276.       Index           =   1
  277.       Left            =   840
  278.       TabIndex        =   8
  279.       Top             =   1320
  280.       Width           =   1095
  281.    End
  282.    Begin VB.Label xh1 
  283.       BackColor       =   &H000000FF&
  284.       BackStyle       =   0  'Transparent
  285.       Caption         =   "1"
  286.       BeginProperty Font 
  287.          Name            =   "黑体"
  288.          Size            =   18
  289.          Charset         =   134
  290.          Weight          =   700
  291.          Underline       =   0   'False
  292.          Italic          =   0   'False
  293.          Strikethrough   =   0   'False
  294.       EndProperty
  295.       ForeColor       =   &H000000FF&
  296.       Height          =   495
  297.       Index           =   0
  298.       Left            =   480
  299.       TabIndex        =   6
  300.       Top             =   720
  301.       Width           =   375
  302.    End
  303.    Begin VB.Label h1 
  304.       BackColor       =   &H00FFFFFF&
  305.       BorderStyle     =   1  'Fixed Single
  306.       Height          =   375
  307.       Index           =   0
  308.       Left            =   840
  309.       TabIndex        =   5
  310.       Top             =   720
  311.       Width           =   1095
  312.    End
  313.    Begin VB.Label Label2 
  314.       BackStyle       =   0  'Transparent
  315.       Caption         =   "新名称"
  316.       BeginProperty Font 
  317.          Name            =   "黑体"
  318.          Size            =   12
  319.          Charset         =   134
  320.          Weight          =   700
  321.          Underline       =   0   'False
  322.          Italic          =   0   'False
  323.          Strikethrough   =   0   'False
  324.       EndProperty
  325.       ForeColor       =   &H000000FF&
  326.       Height          =   375
  327.       Left            =   2280
  328.       TabIndex        =   3
  329.       Top             =   240
  330.       Width           =   1215
  331.    End
  332.    Begin VB.Label Label1 
  333.       BackStyle       =   0  'Transparent
  334.       Caption         =   "原名称"
  335.       BeginProperty Font 
  336.          Name            =   "黑体"
  337.          Size            =   12
  338.          Charset         =   134
  339.          Weight          =   700
  340.          Underline       =   0   'False
  341.          Italic          =   0   'False
  342.          Strikethrough   =   0   'False
  343.       EndProperty
  344.       ForeColor       =   &H000000FF&
  345.       Height          =   255
  346.       Left            =   960
  347.       TabIndex        =   0
  348.       Top             =   240
  349.       Width           =   855
  350.    End
  351. End
  352. Attribute VB_Name = "sz"
  353. Attribute VB_GlobalNameSpace = False
  354. Attribute VB_Creatable = False
  355. Attribute VB_PredeclaredId = True
  356. Attribute VB_Exposed = False
  357. Private Sub Command2_Click()
  358. Unload sz
  359. End Sub
  360. Private Sub Form_Load()
  361. If zngk.x = 1 Then
  362. h1(0).Caption = zngk.d1.Caption
  363. h1(1).Caption = zngk.d2.Caption
  364. h1(2).Caption = zngk.d3.Caption
  365. h1(3).Caption = zngk.d4.Caption
  366. h1(4).Caption = zngk.d5.Caption
  367. h1(5).Caption = zngk.d6.Caption
  368. h1(6).Caption = zngk.d7.Caption
  369. Else
  370. h1(0).Caption = zngk.m1.Caption
  371. h1(1).Caption = zngk.m2.Caption
  372. h1(2).Caption = zngk.m3.Caption
  373. h1(3).Caption = zngk.m4.Caption
  374. h1(4).Caption = zngk.m5.Caption
  375. h1(5).Caption = zngk.m6.Caption
  376. h1(6).Caption = zngk.m7.Caption
  377. End If
  378. End Sub