form5.frm

加密文本编辑器 VB

VERSION 5.00
Begin VB.Form Form5 
   BackColor       =   &H004ECCEE&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "关于"
   ClientHeight    =   2805
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   3990
   ControlBox      =   0   'False
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   10.5
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "Form5.frx":0000
   LinkTopic       =   "Form5"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   MouseIcon       =   "Form5.frx":000C
   ScaleHeight     =   2805
   ScaleWidth      =   3990
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   WhatsThisHelp   =   -1  'True
   Begin VB.CheckBox Check1 
      BackColor       =   &H004ECCEE&
      Caption         =   "显示自述文件"
      Height          =   255
      Left            =   2280
      TabIndex        =   4
      Top             =   1200
      Width           =   1695
   End
   Begin VB.Label Label5 
      BackColor       =   &H004ECCEE&
      BackStyle       =   0  'Transparent
      Caption         =   "  Ok"
      BeginProperty Font 
         Name            =   "Matisse ITC"
         Size            =   18
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   3120
      TabIndex        =   5
      Top             =   2160
      Width           =   735
   End
   Begin VB.Label Label4 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "制作"
      Height          =   210
      Left            =   2760
      TabIndex        =   3
      Top             =   1800
      Width           =   420
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Transparent
      Caption         =   "Label3"
      Height          =   495
      Left            =   0
      TabIndex        =   2
      Top             =   1200
      Width           =   2775
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      BackColor       =   &H004ECCEE&
      Caption         =   "我的E-mail:[e-mail]"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   -1  'True
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   180
      Left            =   240
      TabIndex        =   0
      Top             =   2160
      Width           =   2160
   End
   Begin VB.Image Image1 
      Height          =   1155
      Left            =   0
      Picture         =   "Form5.frx":0316
      Stretch         =   -1  'True
      Top             =   0
      Width           =   4680
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackColor       =   &H004ECCEE&
      BackStyle       =   0  'Transparent
      Caption         =   "于一"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   18
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00008000&
      Height          =   360
      Left            =   1800
      TabIndex        =   1
      Top             =   1680
      Width           =   765
   End
End
Attribute VB_Name = "Form5"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Form_Load()
Label3.Caption = "成都市" & Chr$(13) & "      树底实验中学:"
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Label2.ForeColor = vbBlue
End Sub

Private Sub Label2_Click()
Call ShellExecute(hwnd, "open", "mailto:[e-mail]", "", App.Path, 1)

End Sub

Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Label2.ForeColor = vbYellow
End Sub

Private Sub yesno1_GotFocus()
yesno1.yn = True
End Sub
Private Sub Label5_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    Label5.BorderStyle = 1
End Sub

Private Sub Label5_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
Label5.BorderStyle = 0
On Error GoTo nofile
If Check1.Value = 1 Then
a$ = App.Path
filename = a$ & " \readme.txt"
Form1.Text1.Text = ""
Form1.Caption = myName & "-" & filename
openfile
Unload Me
Exit Sub
nofile:
MsgBox a & "文件已损坏！", , "error"
Unload Me
Exit Sub
End If
Unload Me


End Sub