www.pudn.com > VBkongjian.rar > frmTip.frm

VERSION 5.00 
Object = "{C175DADA-AE7A-4AE6-986E-81D6F6EC5E37}#39.0#0"; "NiceForm.ocx" 
Begin VB.Form frmTip  
   Caption         =   "日积月累" 
   ClientHeight    =   3705 
   ClientLeft      =   2370 
   ClientTop       =   2400 
   ClientWidth     =   5760 
   LinkTopic       =   "Form1" 
   MaxButton       =   0   'False 
   MinButton       =   0   'False 
   ScaleHeight     =   3705 
   ScaleWidth      =   5760 
   WhatsThisButton =   -1  'True 
   WhatsThisHelp   =   -1  'True 
   Begin NiceFormControl.NiceForm NiceForm1  
      Left            =   4440 
      Top             =   2520 
      _ExtentX        =   847 
      _ExtentY        =   847 
   End 
   Begin VB.CheckBox chkLoadTipsAtStartup  
      Caption         =   "在启动时显示提示(&S)" 
      Height          =   315 
      Left            =   120 
      TabIndex        =   3 
      Top             =   2940 
      Width           =   2055 
   End 
   Begin VB.CommandButton cmdNextTip  
      Caption         =   "下一条提示(&N)" 
      Height          =   375 
      Left            =   4080 
      TabIndex        =   2 
      Top             =   600 
      Width           =   1455 
   End 
   Begin VB.PictureBox Picture1  
      BackColor       =   &H00FFFFFF& 
      Height          =   2715 
      Left            =   120 
      Picture         =   "frmTip.frx":0000 
      ScaleHeight     =   2655 
      ScaleWidth      =   3675 
      TabIndex        =   1 
      Top             =   120 
      Width           =   3735 
      Begin VB.Label Label1  
         BackColor       =   &H00FFFFFF& 
         Caption         =   "您知道吗..." 
         Height          =   255 
         Left            =   540 
         TabIndex        =   5 
         Top             =   180 
         Width           =   2655 
      End 
      Begin VB.Label lblTipText  
         BackColor       =   &H00FFFFFF& 
         Height          =   1635 
         Left            =   180 
         TabIndex        =   4 
         Top             =   840 
         Width           =   3255 
      End 
   End 
   Begin VB.CommandButton cmdOK  
      Cancel          =   -1  'True 
      Caption         =   "确定" 
      Default         =   -1  'True 
      Height          =   375 
      Left            =   4080 
      TabIndex        =   0 
      Top             =   120 
      Width           =   1455 
   End 
End 
Attribute VB_Name = "frmTip" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Private Sub cmdOK_Click() 
    Unload Me 
End Sub 
 
Private Sub Form_Load() 
        lblTipText.Caption = "文件 " & TIP_FILE & " 没有被找到吗? " & vbCrLf & vbCrLf & _ 
           "创建文本文件名为 " & TIP_FILE & " 使用记事本每行写一条提示。 " & _ 
           "然后将它存放在应用程序所在的目录 " 
 
    NiceForm1.LoadSkin -1 
End Sub