frmabout.frm

[网络编程]用Winsock发送邮件

VERSION 5.00
Begin VB.Form frmAbout 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "About..."
   ClientHeight    =   2070
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6210
   BeginProperty Font 
      Name            =   "Tahoma"
      Size            =   8.25
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "frmAbout.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2070
   ScaleWidth      =   6210
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.Label lblCopyright 
      AutoSize        =   -1  'True
      Caption         =   "Copyright (c) 1999 Sam Huggill"
      Height          =   195
      Left            =   3360
      TabIndex        =   3
      Top             =   840
      Width           =   2205
   End
   Begin VB.Label lblDesc 
      Caption         =   "Demo project for the Sendmail with Attachments article"
      Height          =   375
      Left            =   3360
      TabIndex        =   2
      Top             =   240
      Width           =   2775
   End
   Begin VB.Image Image1 
      Height          =   1305
      Left            =   120
      Picture         =   "frmAbout.frx":000C
      Top             =   120
      Width           =   3000
   End
   Begin VB.Label lblEmail 
      AutoSize        =   -1  'True
      Caption         =   "[e-mail]"
      DragIcon        =   "frmAbout.frx":CC36
      Height          =   195
      Left            =   3360
      TabIndex        =   1
      Top             =   1080
      Width           =   1455
   End
   Begin VB.Label lblUrl 
      AutoSize        =   -1  'True
      Caption         =   "http://www.vbsquare.com/"
      DragIcon        =   "frmAbout.frx":CF40
      Height          =   195
      Left            =   120
      TabIndex        =   0
      Top             =   1680
      Width           =   1980
   End
End
Attribute VB_Name = "frmAbout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

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 lblUrl_DragDrop(Source As Control, X As Single, Y As Single)
    If Source Is lblUrl Then
        With lblUrl
            .Font.Underline = False
            .ForeColor = vbBlack
            Call ShellExecute(0&, vbNullString, .Caption, vbNullString, vbNullString, vbNormalFocus)
        End With
    End If
End Sub

Private Sub lblUrl_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
    If State = vbLeave Then
        With lblUrl
            .Drag vbEndDrag
            .Font.Underline = False
            .ForeColor = vbBlack
        End With
    End If
End Sub

Private Sub lblUrl_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    With lblUrl
        .ForeColor = vbBlue
        .Font.Underline = True
        .Drag vbBeginDrag
    End With
End Sub

Private Sub lblEmail_DragDrop(Source As Control, X As Single, Y As Single)
    If Source Is lblEmail Then
        With lblEmail
            .Font.Underline = False
            .ForeColor = vbBlack
            Call ShellExecute(0&, vbNullString, "mailto:" & .Caption, vbNullString, vbNullString, vbNormalFocus)
        End With
    End If
End Sub

Private Sub lblEmail_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
    If State = vbLeave Then
        With lblEmail
            .Drag vbEndDrag
            .Font.Underline = False
            .ForeColor = vbBlack
        End With
    End If
End Sub

Private Sub lblEmail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    With lblEmail
        .ForeColor = vbBlue
        .Font.Underline = True
        .Drag vbBeginDrag
    End With
End Sub