开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 企业管理 > 查看源码
frmFrash.frm
资源名称：dbbase.rar　[点击查看]
上传用户：xiao_xia32
上传日期：2022-07-21
资源大小：1174k
文件大小：2k
源码类别：

企业管理

开发平台：

Visual Basic

frmFrash.frm：源码内容
  1. VERSION 5.00
  2. Begin VB.Form frmFrash 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H80000005&
  5.    ClientHeight    =   4230
  6.    ClientLeft      =   60
  7.    ClientTop       =   60
  8.    ClientWidth     =   5970
  9.    ControlBox      =   0   'False
  10.    LinkTopic       =   "Form1"
  11.    Picture         =   "frmFrash.frx":0000
  12.    ScaleHeight     =   4230
  13.    ScaleWidth      =   5970
  14.    StartUpPosition =   2  '屏幕中心
  15.    Begin VB.Timer Timer1 
  16.       Interval        =   60000
  17.       Left            =   0
  18.       Top             =   0
  19.    End
  20.    Begin VB.Label lblWarning 
  21.       BackStyle       =   0  'Transparent
  22.       Caption         =   "警告：任何单位或个人未经许可不得拷贝及使用。"
  23.       ForeColor       =   &H00FF0000&
  24.       Height          =   195
  25.       Left            =   0
  26.       TabIndex        =   1
  27.       Top             =   0
  28.       Width           =   3855
  29.    End
  30.    Begin VB.Label lblVersion 
  31.       Alignment       =   1  'Right Justify
  32.       AutoSize        =   -1  'True
  33.       BackStyle       =   0  'Transparent
  34.       Caption         =   "版本"
  35.       Height          =   180
  36.       Left            =   5175
  37.       TabIndex        =   0
  38.       Top             =   3000
  39.       Width           =   360
  40.    End
  41. End
  42. Attribute VB_Name = "frmFrash"
  43. Attribute VB_GlobalNameSpace = False
  44. Attribute VB_Creatable = False
  45. Attribute VB_PredeclaredId = True
  46. Attribute VB_Exposed = False
  47. Dim uIndex As Integer
  48. Option Explicit
  50. Private Sub Form_Click()
  51.     Unload Me
  52. End Sub
  54. Private Sub Form_KeyPress(KeyAscii As Integer)
  55.     Unload Me
  56. End Sub
  58. Private Sub Form_Load()
  59.     lblVersion.Caption = "版本 " & App.Major & "." & App.Minor & "." & App.Revision
  60. End Sub
  62. Private Sub imgLogon_Click()
  63.     Unload Me
  64. End Sub
  66. Private Sub lblCompany_Click()
  67.     Unload Me
  69. End Sub
  71. Private Sub lblCopyright_Click()
  72.     Unload Me
  74. End Sub
  76. Private Sub lblLicenseTo_Click()
  77.     Unload Me
  79. End Sub
  81. Private Sub lblPlatform_Click()
  82.     Unload Me
  84. End Sub
  86. Private Sub lblProductName_Click()
  87.     Unload Me
  89. End Sub
  91. Private Sub lblVersion_Click()
  92.     Unload Me
  94. End Sub
  96. Private Sub lblWarning_Click()
  97.     Unload Me
  99. End Sub
  101. Private Sub SSFrame1_Click()
  102.     Unload Me
  103. End Sub
  105. Private Sub Timer1_Timer()
  106.     Timer1.Enabled = False
  107.     uIndex = uIndex + 1
  108.     Unload Me
  109. End Sub