frmabout.frm

饮羽公路测设（glcs） 由20多个公路测量、设计、试验和施工组织设计等小软件组成。如《中桩大地坐标》可以计算不等长缓和曲线的中桩和边桩的大地坐标；《缓和曲线反算》可以根据切线长、外距长或缓和曲线长求

VERSION 5.00
Begin VB.Form frmAbout 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "关于我的应用程序"
   ClientHeight    =   4440
   ClientLeft      =   2340
   ClientTop       =   1935
   ClientWidth     =   6345
   ClipControls    =   0   'False
   Icon            =   "frmAbout.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3064.566
   ScaleMode       =   0  'User
   ScaleWidth      =   5958.283
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.TextBox Text1 
      Height          =   1695
      Left            =   1680
      Locked          =   -1  'True
      MultiLine       =   -1  'True
      TabIndex        =   7
      Text            =   "frmAbout.frx":0442
      Top             =   2040
      Width           =   4575
   End
   Begin VB.CommandButton cmdOK 
      BackColor       =   &H00E0E0E0&
      Caption         =   "确定"
      Height          =   375
      Left            =   5040
      TabIndex        =   3
      Top             =   3960
      Width           =   1215
   End
   Begin VB.PictureBox picIcon 
      ClipControls    =   0   'False
      Height          =   3735
      Left            =   0
      Picture         =   "frmAbout.frx":0448
      ScaleHeight     =   2581.075
      ScaleMode       =   0  'User
      ScaleWidth      =   1011.36
      TabIndex        =   0
      Top             =   0
      Width           =   1500
   End
   Begin VB.Line Line2 
      BorderColor     =   &H00808080&
      X1              =   0
      X2              =   5859.683
      Y1              =   2640.082
      Y2              =   2640.082
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00FFFFFF&
      BorderWidth     =   2
      X1              =   0
      X2              =   5859.683
      Y1              =   2650.436
      Y2              =   2650.436
   End
   Begin VB.Label Label3 
      Caption         =   "特别感谢以下朋友："
      Height          =   255
      Left            =   1680
      TabIndex        =   6
      Top             =   1800
      Width           =   2895
   End
   Begin VB.Label Label2 
      Caption         =   "电子信箱：[e-mail]"
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   1680
      MouseIcon       =   "frmAbout.frx":2434
      MousePointer    =   99  'Custom
      TabIndex        =   5
      Top             =   480
      Width           =   2655
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "版权所有(C) 2001－2006"
      Height          =   180
      Left            =   4080
      TabIndex        =   4
      Top             =   174
      Width           =   1980
   End
   Begin VB.Label lblVersion 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "版本： V1.33"
      Height          =   180
      Left            =   1680
      TabIndex        =   2
      Top             =   174
      Width           =   1080
   End
   Begin VB.Label lblDisclaimer 
      BackStyle       =   0  'Transparent
      Caption         =   "    下载和使用本软件是完全免费的,如果您认为本软件很不错,欢迎您捐助,我们将为捐助用户提供最好的技术支持并会将软件做得更好!"
      ForeColor       =   &H00000000&
      Height          =   675
      Left            =   1680
      TabIndex        =   1
      Top             =   960
      Width           =   4575
   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



Private Sub cmdOK_Click()
    
    On Error GoTo handlerror

    Unload Me
  
    Exit Sub
handlerror:

End Sub


Private Sub Form_KeyPress(KeyAscii As Integer)
'Esc键退出，VbEscape可以用27代替
    
    On Error GoTo handlerror

    If KeyAscii = 27 Then
        Unload Me
    End If
    
    Exit Sub
handlerror:

End Sub

Private Sub Form_Load()
'启动时

    On Error GoTo handlerror

    Me.Caption = "关于 " & "饮羽公路测设软件"
    
    lblVersion.Caption = "版本 ：V" & App.Major & "." & App.Minor & "." & App.Revision
    
    Text1.Text = ""
    Text1.Text = "" & vbCrLf & "  韦景瑞、李晓明、范书光、凌工、焦宗勤"
    Text1.Text = Text1.Text & vbCrLf & "  范木胜"
    
        
    Exit Sub
handlerror:
    
End Sub


Private Sub Label2_Click()
    
    Dim maildz
    
    On Error GoTo handlerror
    
    maildz = ShellExecute(Me.hwnd, "Open", "mailto:[e-mail] ?subject=对饮羽公路测设问题或建议 &body=本软件存在以下问题：", "", App.Path, 1)
    
    Exit Sub
handlerror:
    
End Sub

Private Sub lblDescription_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
    
    Dim maildz
    
    On Error GoTo handlerror
    
    maildz = ShellExecute(Me.hwnd, "Open", "mailto:[e-mail] ?subject=对饮羽公路测设问题或建议 &body=本软件存在以下问题：", "", App.Path, 1)
    
    Exit Sub
handlerror:

End Sub