frmabout.frm

GIS+VB开发. GIS+VB开发.

VERSION 5.00
Begin VB.Form FrmAbout 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "关于系统"
   ClientHeight    =   4905
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6390
   Icon            =   "FrmAbout.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4905
   ScaleWidth      =   6390
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton Command3 
      Caption         =   "离开"
      Height          =   375
      Left            =   5640
      TabIndex        =   13
      Top             =   4440
      Width           =   735
   End
   Begin VB.CommandButton Command2 
      Caption         =   "购买源代码"
      Height          =   375
      Left            =   5040
      TabIndex        =   12
      Top             =   3960
      Width           =   1335
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Readme"
      Height          =   375
      Left            =   5040
      TabIndex        =   11
      Top             =   3480
      Width           =   1335
   End
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   3390
      Left            =   0
      Picture         =   "FrmAbout.frx":1E72
      ScaleHeight     =   3360
      ScaleWidth      =   6375
      TabIndex        =   0
      Top             =   0
      Width           =   6405
   End
   Begin VB.Label Label12 
      AutoSize        =   -1  'True
      Caption         =   "Soft Type:Free Register"
      Height          =   180
      Left            =   2640
      TabIndex        =   15
      Top             =   3960
      Width           =   2070
   End
   Begin VB.Label Label11 
      AutoSize        =   -1  'True
      Caption         =   "软件性质：免费注册"
      Height          =   180
      Left            =   120
      TabIndex        =   14
      Top             =   3960
      Width           =   1620
   End
   Begin VB.Label Label10 
      AutoSize        =   -1  'True
      Caption         =   "Http://MapSearch.99model.com"
      Height          =   180
      Left            =   2640
      MousePointer    =   2  'Cross
      TabIndex        =   10
      Top             =   4680
      Width           =   2520
   End
   Begin VB.Label Label9 
      AutoSize        =   -1  'True
      Caption         =   "QQ：65985498"
      Height          =   180
      Left            =   120
      TabIndex        =   9
      Top             =   4680
      Width           =   1080
   End
   Begin VB.Label Label8 
      AutoSize        =   -1  'True
      Caption         =   "E-mail:[e-mail]"
      Height          =   180
      Left            =   2640
      TabIndex        =   8
      Top             =   4440
      Width           =   2250
   End
   Begin VB.Label Label7 
      AutoSize        =   -1  'True
      Caption         =   "电邮：[e-mail]"
      Height          =   180
      Left            =   120
      MousePointer    =   2  'Cross
      TabIndex        =   7
      Top             =   4440
      Width           =   1710
   End
   Begin VB.Label Label6 
      AutoSize        =   -1  'True
      Caption         =   "Author:Tang Feng"
      Height          =   180
      Left            =   2640
      TabIndex        =   6
      Top             =   4200
      Width           =   1440
   End
   Begin VB.Label Label5 
      AutoSize        =   -1  'True
      Caption         =   "作者：浪人|努力"
      Height          =   180
      Left            =   120
      TabIndex        =   5
      Top             =   4200
      Width           =   1350
   End
   Begin VB.Label Label4 
      AutoSize        =   -1  'True
      Caption         =   "Version:Standard V1.0"
      Height          =   180
      Left            =   2640
      TabIndex        =   4
      Top             =   3720
      Width           =   1890
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      Caption         =   "版本：标准版 V1.0"
      Height          =   180
      Left            =   120
      TabIndex        =   3
      Top             =   3720
      Width           =   1530
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "SoftName:MapSearch"
      Height          =   180
      Left            =   2640
      TabIndex        =   2
      Top             =   3480
      Width           =   1620
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "软件名称：电子地图查询系统"
      Height          =   180
      Left            =   120
      TabIndex        =   1
      Top             =   3480
      Width           =   2340
   End
End
Attribute VB_Name = "FrmAbout"
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    'API函数，Shell

Private Sub Command1_Click()
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FileExists(App.Path + "\Readme.txt") Then
  ShellExecute hwnd, "Open", "Readme.txt", 0, App.Path, 1
Else
  MsgBox "你使用的软件不完整或已经被修改过，请至网站下载原版。"
  Exit Sub
End If
End Sub

Private Sub Command2_Click()
MsgBox "如果需要购买源代码请发邮件联系我。" + Chr(13) + Chr(10) + "具体说明请先阅读Readme。谢谢。"
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Label10_Click()
If IsConnected = False Then
  MsgBox "你没有连接网络。"
  Exit Sub
Else
ShellExecute hwnd, "Open", "Http://MapSearch.99model.com", 0, 0, 0
End If
End Sub

Private Sub Label7_Click()
If IsConnected = False Then
  MsgBox "你没有连接网络。"
  Exit Sub
Else
ShellExecute hwnd, "Open", "mailto:[e-mail]", 0, 0, 0
End If
End Sub