frmaboutapextechdialog.frm

对于符合国际标准COMTRADE格式的数据进行转换处理

VERSION 5.00
Begin VB.Form frmAboutApexTechDialog 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Dialog Caption"
   ClientHeight    =   4596
   ClientLeft      =   2760
   ClientTop       =   3756
   ClientWidth     =   8436
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   9
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "frmAboutApexTechDialog.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   Picture         =   "frmAboutApexTechDialog.frx":030A
   ScaleHeight     =   4596
   ScaleWidth      =   8436
   ShowInTaskbar   =   0   'False
   Begin VB.Image Image2 
      Height          =   204
      Left            =   3588
      MousePointer    =   14  'Arrow and Question
      Top             =   2400
      Width           =   2124
   End
   Begin VB.Image Image1 
      Height          =   228
      Left            =   3588
      MousePointer    =   14  'Arrow and Question
      Top             =   2124
      Width           =   2292
   End
End
Attribute VB_Name = "frmAboutApexTechDialog"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Option Explicit

Private Sub Image1_Click()
  'Opens users default web browser and navigates to the selected URL
  Dim strURL As String
  strURL = "http://www.apextech.com.cn"
  Call ShellExecute(Me.hwnd, "Open", strURL, "", "", SW_SHOWMAXIMIZED)
End Sub

Private Sub Image2_Click()
  'Opens users default web browser and navigates to the selected URL
  Dim strEmail As String
  strEmail = "mailto:[e-mail]"
  Call ShellExecute(Me.hwnd, "Open", strEmail, "", "", SW_SHOWMAXIMIZED)
End Sub