?? frmaboutapextechdialog.frm
字號:
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:apextech@apextech.com.cn"
Call ShellExecute(Me.hwnd, "Open", strEmail, "", "", SW_SHOWMAXIMIZED)
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -