frmabout.frm

引用枕善居的天宏钢构仓库管理系统 Ver 2.96

VERSION 5.00
Begin VB.Form frmAbout 
   BackColor       =   &H00008000&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "关于"
   ClientHeight    =   4245
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   7020
   ClipControls    =   0   'False
   HelpContextID   =   3
   Icon            =   "frmAbout.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4245
   ScaleWidth      =   7020
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Tag             =   "关于 仓库管理系统"
   Begin VB.TextBox txt1 
      Height          =   2895
      Left            =   600
      MultiLine       =   -1  'True
      TabIndex        =   0
      Text            =   "frmAbout.frx":000C
      Top             =   240
      Visible         =   0   'False
      Width           =   5775
   End
   Begin VB.Timer trm1 
      Enabled         =   0   'False
      Interval        =   120
      Left            =   1440
      Top             =   3000
   End
   Begin VB.Timer Timer1 
      Interval        =   300
      Left            =   3000
      Top             =   3120
   End
   Begin VB.TextBox txt2 
      BackColor       =   &H0000C000&
      CausesValidation=   0   'False
      BeginProperty Font 
         Name            =   "新宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   3495
      IMEMode         =   3  'DISABLE
      Left            =   120
      Locked          =   -1  'True
      MultiLine       =   -1  'True
      TabIndex        =   1
      Top             =   120
      Width           =   6735
   End
   Begin VB.Label Label1 
      BackColor       =   &H00FFFFFF&
      Caption         =   "鹤壁天宏钢结构有限公司"
      Height          =   255
      Left            =   4560
      TabIndex        =   3
      Top             =   3840
      Width           =   2175
   End
   Begin VB.Label Label2 
      BackColor       =   &H00008000&
      Caption         =   "Label2"
      ForeColor       =   &H00FFFFFF&
      Height          =   375
      Left            =   120
      TabIndex        =   2
      Top             =   3840
      Width           =   3975
   End
End
Attribute VB_Name = "frmAbout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居收藏整理
'发布日期：2008/05/11
'描    述：天宏钢构仓库管理系统 Ver 2.96
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
Option Explicit


Private Sub Form_Load()
On Error Resume Next
Label2.caption = "仓库管理系统可以自由传播"
trm1.Enabled = True
End Sub

Private Sub Timer1_Timer()
On Error Resume Next
Label1.ForeColor = RGB(Rnd * 255, Rnd * 254, Rnd * 255)
End Sub


Private Sub trm1_Timer()
On Error Resume Next
Static n As Integer
txt2.Text = left$(txt1.Text, n + 1)
n = n + 1
txt2.SelStart = Len(txt2.Text)
If txt2.Text = txt1.Text Then trm1.Enabled = False: txt2.ForeColor = RGB(Rnd * 255, Rnd * 254, Rnd * 255)
End Sub