aboutfrm.frm

一个文件发送的例子,对于想学习网络编程是个非常好的学习例子

VERSION 5.00
Begin VB.Form AboutFrm 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "关于"
   ClientHeight    =   4200
   ClientLeft      =   3675
   ClientTop       =   2295
   ClientWidth     =   4305
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4200
   ScaleWidth      =   4305
   ShowInTaskbar   =   0   'False
   Begin 工程1.chameleonButton ok 
      Height          =   375
      Left            =   2640
      TabIndex        =   11
      Top             =   3660
      Width           =   1395
      _ExtentX        =   2461
      _ExtentY        =   661
      BTYPE           =   2
      TX              =   "确定"
      ENAB            =   -1  'True
      BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      COLTYPE         =   1
      FOCUSR          =   -1  'True
      BCOL            =   13160660
      FCOL            =   0
   End
   Begin VB.Label Label11 
      BackStyle       =   0  'Transparent
      Caption         =   "的热心帮忙,以及我的其他参与测试的朋友表示由衷的感谢!"
      Height          =   540
      Left            =   360
      TabIndex        =   10
      Top             =   3180
      Width           =   3735
   End
   Begin VB.Label Label10 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "圣诞老人"
      ForeColor       =   &H00C000C0&
      Height          =   180
      Left            =   1020
      TabIndex        =   9
      ToolTipText     =   "QQ:[150344022]  MSN:[[e-mail]]"
      Top             =   2940
      Width           =   720
   End
   Begin VB.Label Label9 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "特别对"
      Height          =   180
      Left            =   360
      TabIndex        =   8
      Top             =   2940
      Width           =   540
   End
   Begin VB.Label Label8 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "中的各位朋友帮忙参与测试"
      Height          =   180
      Left            =   1800
      TabIndex        =   7
      Top             =   2640
      Width           =   2160
   End
   Begin VB.Label Label7 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "水盟论坛"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   -1  'True
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   180
      Left            =   1080
      TabIndex        =   6
      ToolTipText     =   "http://61.184.164.64/dvbbs/index.asp"
      Top             =   2640
      Width           =   720
   End
   Begin VB.Label Label6 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "在此感谢"
      Height          =   180
      Left            =   360
      TabIndex        =   5
      Top             =   2640
      Width           =   720
   End
   Begin VB.Label Label5 
      BackStyle       =   0  'Transparent
      Caption         =   "或是通过我的QQ:46163851与我联系"
      Height          =   195
      Left            =   780
      TabIndex        =   4
      Top             =   2280
      Width           =   2835
   End
   Begin VB.Label Label4 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "[e-mail]"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   -1  'True
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   180
      Left            =   1500
      MouseIcon       =   "AboutFrm.frx":0000
      MousePointer    =   99  'Custom
      TabIndex        =   3
      ToolTipText     =   "与我来信"
      Top             =   1920
      Width           =   1350
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "使用中如发现任何问题请来信至:"
      Height          =   180
      Left            =   900
      TabIndex        =   2
      Top             =   1620
      Width           =   2610
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "    本程序为免费软件.你可以任意复制散播.但请保持此程序的完整性.谢谢."
      Height          =   615
      Left            =   1260
      TabIndex        =   1
      Top             =   780
      Width           =   2535
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "文件互传 V1.03"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF8080&
      Height          =   210
      Left            =   1755
      TabIndex        =   0
      Top             =   300
      Width           =   1485
   End
   Begin VB.Image Image1 
      Height          =   615
      Left            =   360
      Top             =   360
      Width           =   555
   End
End
Attribute VB_Name = "AboutFrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit




Private Sub Form_Load()
Me.Icon = MainFrm.Icon
Me.BackColor = MainFrm.BackColor
Image1.Picture = Me.Icon
Label7.MousePointer = 99
Label7.MouseIcon = Label4.MouseIcon
ok.ButtonType = MainFrm.helpbutton.ButtonType
End Sub

Private Sub Label4_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
    
    ShellExecute Me.hwnd, "", "mailto:[e-mail]?subject=关于SendFile的BUG以及意见及建议", "", "", 0
End If

End Sub

Private Sub Label7_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then

    Shell "explorer.exe http://61.184.164.64/dvbbs/index.asp", vbMaximizedFocus
    
End If
End Sub

Private Sub ok_Click()
Unload Me
End Sub