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

家庭/个人应用

开发平台:

Visual Basic

  1. VERSION 5.00
  2. Begin VB.Form shuoming 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    ClientHeight    =   4260
  5.    ClientLeft      =   255
  6.    ClientTop       =   1410
  7.    ClientWidth     =   7425
  8.    ClipControls    =   0   'False
  9.    ControlBox      =   0   'False
  10.    Icon            =   "shuoming.frx":0000
  11.    KeyPreview      =   -1  'True
  12.    LinkTopic       =   "Form2"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   4260
  16.    ScaleWidth      =   7425
  17.    ShowInTaskbar   =   0   'False
  18.    StartUpPosition =   2  '屏幕中心
  19.    Begin VB.Frame Frame1 
  20.       Caption         =   "智能家庭控制--FX系列PLC1.1版"
  21.       Height          =   4050
  22.       Left            =   120
  23.       TabIndex        =   0
  24.       Top             =   60
  25.       Width           =   7080
  26.       Begin VB.Label Label2 
  27.          Caption         =   "我只做了左面的部分,大家可以把右面的部分也做出来。命名功能还未开启。大家不要疑惑呵呵。我们控制的是输出的Y0到Y16。"
  28.          ForeColor       =   &H000000FF&
  29.          Height          =   975
  30.          Left            =   480
  31.          TabIndex        =   7
  32.          Top             =   840
  33.          Width           =   3015
  34.       End
  35.       Begin VB.Label Label1 
  36.          Caption         =   "软件功能还未完善,控制方法用的都是最简单的方法仅为大家学习方便。希望能够交到更多的朋友可以加我QQ。。。"
  37.          BeginProperty Font 
  38.             Name            =   "宋体"
  39.             Size            =   12
  40.             Charset         =   134
  41.             Weight          =   400
  42.             Underline       =   0   'False
  43.             Italic          =   0   'False
  44.             Strikethrough   =   0   'False
  45.          EndProperty
  46.          Height          =   1215
  47.          Left            =   360
  48.          TabIndex        =   6
  49.          Top             =   2160
  50.          Width           =   3375
  51.       End
  52.       Begin VB.Label lblCopyright 
  53.          Caption         =   "禁止用于商业用途"
  54.          ForeColor       =   &H000000FF&
  55.          Height          =   255
  56.          Left            =   120
  57.          TabIndex        =   3
  58.          Top             =   3720
  59.          Width           =   1695
  60.       End
  61.       Begin VB.Label lblCompany 
  62.          Caption         =   "联系方式:"
  63.          Height          =   255
  64.          Left            =   4800
  65.          TabIndex        =   2
  66.          Top             =   3240
  67.          Width           =   2415
  68.       End
  69.       Begin VB.Label lblProductName 
  70.          AutoSize        =   -1  'True
  71.          Caption         =   "QQ:270976368"
  72.          BeginProperty Font 
  73.             Name            =   "宋体"
  74.             Size            =   14.25
  75.             Charset         =   134
  76.             Weight          =   700
  77.             Underline       =   0   'False
  78.             Italic          =   0   'False
  79.             Strikethrough   =   0   'False
  80.          EndProperty
  81.          Height          =   285
  82.          Left            =   4800
  83.          TabIndex        =   5
  84.          Top             =   3600
  85.          Width           =   1980
  86.       End
  87.       Begin VB.Label lblLicenseTo 
  88.          Alignment       =   1  'Right Justify
  89.          Caption         =   "使用说明"
  90.          Height          =   255
  91.          Left            =   120
  92.          TabIndex        =   1
  93.          Top             =   240
  94.          Width           =   6855
  95.       End
  96.       Begin VB.Label lblCompanyProduct 
  97.          AutoSize        =   -1  'True
  98.          Caption         =   "董跃鹏制作"
  99.          BeginProperty Font 
  100.             Name            =   "宋体"
  101.             Size            =   18
  102.             Charset         =   134
  103.             Weight          =   700
  104.             Underline       =   0   'False
  105.             Italic          =   0   'False
  106.             Strikethrough   =   0   'False
  107.          EndProperty
  108.          Height          =   360
  109.          Left            =   4800
  110.          TabIndex        =   4
  111.          Top             =   2640
  112.          Width           =   1875
  113.       End
  114.    End
  115. End
  116. Attribute VB_Name = "shuoming"
  117. Attribute VB_GlobalNameSpace = False
  118. Attribute VB_Creatable = False
  119. Attribute VB_PredeclaredId = True
  120. Attribute VB_Exposed = False
  121. Option Explicit
  122. Private Sub Form_KeyPress(KeyAscii As Integer)
  123.     Unload Me
  124. End Sub
  125. Private Sub Frame1_Click()
  126.     Unload Me
  127. End Sub
  128. Private Sub lblWarning_Click()
  129. End Sub