home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / HTMLpack!228017152001.psc / Form2.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-07-14  |  4.7 KB  |  137 lines
  1. VERSION 5.00
  2. Begin VB.Form Form2 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "About"
  5.    ClientHeight    =   5025
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   6945
  9.    ControlBox      =   0   'False
  10.    LinkTopic       =   "Form2"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   5025
  14.    ScaleWidth      =   6945
  15.    StartUpPosition =   2  'CenterScreen
  16.    Begin VB.CommandButton Command1 
  17.       Caption         =   "OK"
  18.       Default         =   -1  'True
  19.       BeginProperty Font 
  20.          Name            =   "Arial"
  21.          Size            =   8.25
  22.          Charset         =   0
  23.          Weight          =   700
  24.          Underline       =   0   'False
  25.          Italic          =   0   'False
  26.          Strikethrough   =   0   'False
  27.       EndProperty
  28.       Height          =   375
  29.       Left            =   2520
  30.       TabIndex        =   4
  31.       Top             =   4560
  32.       Width           =   1935
  33.    End
  34.    Begin VB.PictureBox Picture1 
  35.       BackColor       =   &H00000000&
  36.       Height          =   4335
  37.       Left            =   60
  38.       Picture         =   "Form2.frx":0000
  39.       ScaleHeight     =   4275
  40.       ScaleWidth      =   6795
  41.       TabIndex        =   0
  42.       Top             =   60
  43.       Width           =   6855
  44.       Begin VB.TextBox WWW 
  45.          BackColor       =   &H00000000&
  46.          BorderStyle     =   0  'None
  47.          BeginProperty Font 
  48.             Name            =   "Arial"
  49.             Size            =   9.75
  50.             Charset         =   0
  51.             Weight          =   700
  52.             Underline       =   -1  'True
  53.             Italic          =   0   'False
  54.             Strikethrough   =   0   'False
  55.          EndProperty
  56.          ForeColor       =   &H000000FF&
  57.          Height          =   285
  58.          Left            =   4340
  59.          Locked          =   -1  'True
  60.          MousePointer    =   10  'Up Arrow
  61.          TabIndex        =   3
  62.          Text            =   "http://rocky.how.to"
  63.          Top             =   3840
  64.          Width           =   1815
  65.       End
  66.       Begin VB.TextBox Mail 
  67.          BackColor       =   &H00000000&
  68.          BorderStyle     =   0  'None
  69.          BeginProperty Font 
  70.             Name            =   "Arial"
  71.             Size            =   9.75
  72.             Charset         =   0
  73.             Weight          =   700
  74.             Underline       =   -1  'True
  75.             Italic          =   0   'False
  76.             Strikethrough   =   0   'False
  77.          EndProperty
  78.          ForeColor       =   &H000000FF&
  79.          Height          =   285
  80.          Left            =   3370
  81.          Locked          =   -1  'True
  82.          MousePointer    =   10  'Up Arrow
  83.          TabIndex        =   2
  84.          Text            =   "rocky.fff@usa.net"
  85.          Top             =   3600
  86.          Width           =   1695
  87.       End
  88.       Begin VB.TextBox Text1 
  89.          Alignment       =   2  'Center
  90.          BackColor       =   &H00000000&
  91.          BorderStyle     =   0  'None
  92.          Enabled         =   0   'False
  93.          BeginProperty Font 
  94.             Name            =   "Arial"
  95.             Size            =   9.75
  96.             Charset         =   0
  97.             Weight          =   700
  98.             Underline       =   0   'False
  99.             Italic          =   0   'False
  100.             Strikethrough   =   0   'False
  101.          EndProperty
  102.          ForeColor       =   &H0000FF00&
  103.          Height          =   2175
  104.          Left            =   0
  105.          MultiLine       =   -1  'True
  106.          TabIndex        =   1
  107.          Text            =   "Form2.frx":59FE
  108.          Top             =   1920
  109.          Width           =   6735
  110.       End
  111.    End
  112. Attribute VB_Name = "Form2"
  113. Attribute VB_GlobalNameSpace = False
  114. Attribute VB_Creatable = False
  115. Attribute VB_PredeclaredId = True
  116. Attribute VB_Exposed = False
  117. 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
  118. Private Declare Function HideCaret Lib "user32" (ByVal hwnd As Long) As Long
  119. Private Sub Command1_Click()
  120.    Unload Me
  121.    Form1.Show
  122. End Sub
  123. Private Sub Mail_Click()
  124.    HideCaret Mail.hwnd
  125.    ShellExecute 0, vbNullString, "mailto:rocky.fff@usa.net?subject=HTMLpack!", vbNullString, "", 1
  126. End Sub
  127. Private Sub Mail_GotFocus()
  128.    HideCaret Mail.hwnd
  129. End Sub
  130. Private Sub WWW_Click()
  131.    HideCaret WWW.hwnd
  132.    ShellExecute 0, vbNullString, "http://rocky.how.to", vbNullString, "", 1
  133. End Sub
  134. Private Sub WWW_GotFocus()
  135.    HideCaret WWW.hwnd
  136. End Sub
  137.