zuoze.frm

用于家庭收支管理

VERSION 5.00
Object = "{27634C13-AC02-4C0B-A31D-18DCAA87ABF7}#2.0#0"; "DLDATE.OCX"
Begin VB.Form zuoze 
   BackColor       =   &H00F5A9A5&
   BorderStyle     =   0  'None
   Caption         =   "关于作者"
   ClientHeight    =   4080
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   5580
   LinkTopic       =   "Form1"
   ScaleHeight     =   4080
   ScaleMode       =   0  'User
   ScaleWidth      =   5580
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.PictureBox Picture1 
      Height          =   1845
      Left            =   3225
      Picture         =   "zuoze.frx":0000
      ScaleHeight     =   1785
      ScaleWidth      =   1950
      TabIndex        =   5
      Top             =   960
      Width           =   2010
   End
   Begin OsenXPControls2.CommandButton CommandButton1 
      Height          =   390
      Left            =   2295
      TabIndex        =   4
      Top             =   3525
      Width           =   660
      _ExtentX        =   1164
      _ExtentY        =   688
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Caption         =   "确 定  "
      ForeColor       =   16711680
      ForeHover       =   4210688
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      BackColor       =   &H00808000&
      BackStyle       =   0  'Transparent
      Caption         =   "关于作者"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   18
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   360
      Left            =   1965
      TabIndex        =   3
      Top             =   240
      Width           =   1515
   End
   Begin VB.Label yx 
      AutoSize        =   -1  'True
      BackColor       =   &H00808000&
      BackStyle       =   0  'Transparent
      Caption         =   "邮箱地址：[e-mail] "
      ForeColor       =   &H00404000&
      Height          =   180
      Index           =   1
      Left            =   285
      MousePointer    =   10  'Up Arrow
      TabIndex        =   2
      Top             =   2850
      Width           =   2160
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      BackColor       =   &H00808000&
      BackStyle       =   0  'Transparent
      Caption         =   "地址：河北隆尧东冬村(河北奎山集团奎发公司)"
      ForeColor       =   &H00404000&
      Height          =   180
      Index           =   0
      Left            =   285
      TabIndex        =   1
      Top             =   3210
      Width           =   3780
   End
   Begin VB.Label Label1 
      BackColor       =   &H00808000&
      BackStyle       =   0  'Transparent
      Caption         =   $"zuoze.frx":0F6F
      ForeColor       =   &H00404000&
      Height          =   1785
      Left            =   270
      TabIndex        =   0
      Top             =   915
      Width           =   2535
   End
End
Attribute VB_Name = "zuoze"
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 Command1_Click()
End Sub

Private Sub CommandButton1_Click()
'ShellExecute hwnd, "open", "[e-mail]", vbNullString, vbNullString, 0

Unload Me

End Sub

Private Sub yx_Click(Index As Integer)
If Index = 1 Then
ShellExecute hwnd, "open", "mailto:[e-mail]", vbNullString, vbNullString, 0

End If


End Sub