home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD102139272000.psc / frmAbout.frm (.txt) next >
Encoding:
Visual Basic Form  |  2000-09-24  |  3.7 KB  |  116 lines
  1. VERSION 5.00
  2. Begin VB.Form frmAbout 
  3.    BorderStyle     =   4  'Fixed ToolWindow
  4.    Caption         =   "About Quick Menu"
  5.    ClientHeight    =   2070
  6.    ClientLeft      =   45
  7.    ClientTop       =   285
  8.    ClientWidth     =   3270
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   2070
  13.    ScaleWidth      =   3270
  14.    ShowInTaskbar   =   0   'False
  15.    StartUpPosition =   1  'CenterOwner
  16.    Begin VB.TextBox txtEMail 
  17.       BackColor       =   &H8000000D&
  18.       ForeColor       =   &H8000000E&
  19.       Height          =   285
  20.       Left            =   1440
  21.       TabIndex        =   4
  22.       Text            =   "jotaf98@hotmail.com"
  23.       Top             =   1560
  24.       Width           =   1575
  25.    End
  26.    Begin VB.Label lblEMail 
  27.       Alignment       =   1  'Right Justify
  28.       Caption         =   "E-mail:"
  29.       Height          =   255
  30.       Left            =   240
  31.       TabIndex        =   3
  32.       Top             =   1560
  33.       Width           =   1095
  34.    End
  35.    Begin VB.Label lblName 
  36.       Caption         =   "(Jo
  37. o F. S. Henriques)"
  38.       Height          =   255
  39.       Left            =   240
  40.       TabIndex        =   2
  41.       Top             =   1200
  42.       Width           =   2775
  43.    End
  44.    Begin VB.Label lblNick 
  45.       Caption         =   "Coded by Jotaf98"
  46.       Height          =   255
  47.       Left            =   240
  48.       TabIndex        =   1
  49.       Top             =   960
  50.       Width           =   2775
  51.    End
  52.    Begin VB.Label lblQuickMenu 
  53.       Caption         =   "QuickMenu"
  54.       BeginProperty Font 
  55.          Name            =   "Times New Roman"
  56.          Size            =   18
  57.          Charset         =   0
  58.          Weight          =   700
  59.          Underline       =   0   'False
  60.          Italic          =   0   'False
  61.          Strikethrough   =   0   'False
  62.       EndProperty
  63.       Height          =   495
  64.       Left            =   1080
  65.       TabIndex        =   0
  66.       Top             =   240
  67.       Width           =   1935
  68.    End
  69.    Begin VB.Line lneSeparator1 
  70.       BorderColor     =   &H80000010&
  71.       Index           =   0
  72.       X1              =   240
  73.       X2              =   3000
  74.       Y1              =   735
  75.       Y2              =   735
  76.    End
  77.    Begin VB.Line lneSeparator1 
  78.       BorderColor     =   &H80000016&
  79.       Index           =   1
  80.       X1              =   240
  81.       X2              =   3000
  82.       Y1              =   750
  83.       Y2              =   750
  84.    End
  85.    Begin VB.Image imgLogo 
  86.       Height          =   480
  87.       Left            =   240
  88.       Picture         =   "frmAbout.frx":0000
  89.       Top             =   240
  90.       Width           =   480
  91.    End
  92.    Begin VB.Menu mnuPopup 
  93.       Caption         =   "Popup"
  94.       Visible         =   0   'False
  95.       Begin VB.Menu mnuSendEMail 
  96.          Caption         =   "Send e-mail now?"
  97.       End
  98.    End
  99. Attribute VB_Name = "frmAbout"
  100. Attribute VB_GlobalNameSpace = False
  101. Attribute VB_Creatable = False
  102. Attribute VB_PredeclaredId = True
  103. Attribute VB_Exposed = False
  104. 'To send an e-mail...
  105. 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
  106. Private Const SW_SHOWNORMAL = 1
  107. Private Sub txtEMail_Click()
  108.     txtEMail.SelStart = 0
  109.     txtEMail.SelLength = Len(txtEMail.Text)
  110.     PopupMenu mnuPopup
  111. End Sub
  112. Private Sub mnuSendEMail_Click()
  113.     'Send an e-mail to me
  114.     ShellExecute 0&, vbNullString, "mailto:jotaf98@hotmail.com", vbNullString, "C:\", SW_SHOWNORMAL
  115. End Sub
  116.