home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / dierol1a / frmabout.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-05-04  |  7.2 KB  |  217 lines
  1. VERSION 5.00
  2. Begin VB.Form frmAbout 
  3.    BackColor       =   &H00C00000&
  4.    BorderStyle     =   0  'None
  5.    Caption         =   "About MyApp"
  6.    ClientHeight    =   2715
  7.    ClientLeft      =   2295
  8.    ClientTop       =   1605
  9.    ClientWidth     =   4530
  10.    ClipControls    =   0   'False
  11.    Icon            =   "frmAbout.frx":0000
  12.    LinkTopic       =   "Form2"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   1873.942
  16.    ScaleMode       =   0  'User
  17.    ScaleWidth      =   4253.904
  18.    ShowInTaskbar   =   0   'False
  19.    StartUpPosition =   2  'CenterScreen
  20.    Begin VB.PictureBox picIcon 
  21.       AutoSize        =   -1  'True
  22.       BackColor       =   &H00C00000&
  23.       BorderStyle     =   0  'None
  24.       ClipControls    =   0   'False
  25.       Height          =   480
  26.       Left            =   240
  27.       Picture         =   "frmAbout.frx":1CFA
  28.       ScaleHeight     =   337.12
  29.       ScaleMode       =   0  'User
  30.       ScaleWidth      =   337.12
  31.       TabIndex        =   1
  32.       Top             =   240
  33.       Width           =   480
  34.    End
  35.    Begin VB.CommandButton cmdOK 
  36.       Appearance      =   0  'Flat
  37.       Cancel          =   -1  'True
  38.       Caption         =   "OK"
  39.       Height          =   345
  40.       Left            =   2880
  41.       Style           =   1  'Graphical
  42.       TabIndex        =   0
  43.       Top             =   2160
  44.       Width           =   1260
  45.    End
  46.    Begin VB.Label Label2 
  47.       BackColor       =   &H00C00000&
  48.       Caption         =   "phillip@softhome.net"
  49.       BeginProperty Font 
  50.          Name            =   "Times New Roman"
  51.          Size            =   8.25
  52.          Charset         =   0
  53.          Weight          =   400
  54.          Underline       =   -1  'True
  55.          Italic          =   0   'False
  56.          Strikethrough   =   0   'False
  57.       EndProperty
  58.       ForeColor       =   &H00FFFFFF&
  59.       Height          =   225
  60.       Left            =   240
  61.       MouseIcon       =   "frmAbout.frx":39F4
  62.       MousePointer    =   99  'Custom
  63.       TabIndex        =   7
  64.       Top             =   2280
  65.       Width           =   1575
  66.    End
  67.    Begin VB.Label Label1 
  68.       BackColor       =   &H00C00000&
  69.       Caption         =   "http://come.to/kara-tur"
  70.       BeginProperty Font 
  71.          Name            =   "Times New Roman"
  72.          Size            =   8.25
  73.          Charset         =   0
  74.          Weight          =   400
  75.          Underline       =   -1  'True
  76.          Italic          =   0   'False
  77.          Strikethrough   =   0   'False
  78.       EndProperty
  79.       ForeColor       =   &H00FFFFFF&
  80.       Height          =   225
  81.       Left            =   240
  82.       MouseIcon       =   "frmAbout.frx":3CFE
  83.       MousePointer    =   99  'Custom
  84.       TabIndex        =   6
  85.       Top             =   2040
  86.       Width           =   1695
  87.    End
  88.    Begin VB.Line Line1 
  89.       BorderColor     =   &H00808080&
  90.       BorderStyle     =   6  'Inside Solid
  91.       Index           =   1
  92.       X1              =   84.515
  93.       X2              =   4056.703
  94.       Y1              =   1149.213
  95.       Y2              =   1149.213
  96.    End
  97.    Begin VB.Label lblDescription 
  98.       BackColor       =   &H00C00000&
  99.       Caption         =   "App Description"
  100.       BeginProperty Font 
  101.          Name            =   "Times New Roman"
  102.          Size            =   8.25
  103.          Charset         =   0
  104.          Weight          =   400
  105.          Underline       =   0   'False
  106.          Italic          =   0   'False
  107.          Strikethrough   =   0   'False
  108.       EndProperty
  109.       ForeColor       =   &H00FFFFFF&
  110.       Height          =   450
  111.       Left            =   1050
  112.       TabIndex        =   2
  113.       Top             =   1125
  114.       Width           =   3045
  115.    End
  116.    Begin VB.Label lblTitle 
  117.       BackColor       =   &H00C00000&
  118.       Caption         =   "Application Title"
  119.       BeginProperty Font 
  120.          Name            =   "Times New Roman"
  121.          Size            =   12
  122.          Charset         =   0
  123.          Weight          =   400
  124.          Underline       =   0   'False
  125.          Italic          =   0   'False
  126.          Strikethrough   =   0   'False
  127.       EndProperty
  128.       ForeColor       =   &H00FFFFFF&
  129.       Height          =   480
  130.       Left            =   1050
  131.       TabIndex        =   4
  132.       Top             =   240
  133.       Width           =   3045
  134.    End
  135.    Begin VB.Line Line1 
  136.       BorderColor     =   &H00FFFFFF&
  137.       BorderWidth     =   2
  138.       Index           =   0
  139.       X1              =   84.515
  140.       X2              =   4056.703
  141.       Y1              =   1159.566
  142.       Y2              =   1159.566
  143.    End
  144.    Begin VB.Label lblVersion 
  145.       BackColor       =   &H00C00000&
  146.       Caption         =   "Version"
  147.       BeginProperty Font 
  148.          Name            =   "Times New Roman"
  149.          Size            =   8.25
  150.          Charset         =   0
  151.          Weight          =   400
  152.          Underline       =   0   'False
  153.          Italic          =   0   'False
  154.          Strikethrough   =   0   'False
  155.       EndProperty
  156.       ForeColor       =   &H00FFFFFF&
  157.       Height          =   225
  158.       Left            =   1050
  159.       TabIndex        =   5
  160.       Top             =   780
  161.       Width           =   3045
  162.    End
  163.    Begin VB.Label lblDisclaimer 
  164.       BackColor       =   &H00C00000&
  165.       Caption         =   "Warning: ..."
  166.       BeginProperty Font 
  167.          Name            =   "Times New Roman"
  168.          Size            =   8.25
  169.          Charset         =   0
  170.          Weight          =   400
  171.          Underline       =   0   'False
  172.          Italic          =   0   'False
  173.          Strikethrough   =   0   'False
  174.       EndProperty
  175.       ForeColor       =   &H00FFFFFF&
  176.       Height          =   225
  177.       Left            =   240
  178.       TabIndex        =   3
  179.       Top             =   1800
  180.       Width           =   3855
  181.    End
  182. Attribute VB_Name = "frmAbout"
  183. Attribute VB_GlobalNameSpace = False
  184. Attribute VB_Creatable = False
  185. Attribute VB_PredeclaredId = True
  186. Attribute VB_Exposed = False
  187. Option Explicit
  188. 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
  189. Private Sub cmdOK_Click()
  190.   Unload Me
  191. End Sub
  192. Private Sub Form_Load()
  193.     Dim lResult As Long
  194.     Form1.Enabled = False
  195.     Me.Caption = "About " & App.Title
  196.     lblVersion.Caption = "Version " & App.Major & "." & App.Minor & App.Revision
  197.     lblTitle.Caption = App.ProductName
  198.     lblDescription = App.FileDescription
  199.     lblDisclaimer = App.LegalCopyright
  200.     Me.Show
  201.     lResult = SetWindowPos(Me.hwnd, HWND_TOPMOST, _
  202.     0, 0, 0, 0, FLAGS)
  203. End Sub
  204. Private Sub Form_Unload(Cancel As Integer)
  205.     Form1.Enabled = True
  206. End Sub
  207. Private Sub Label1_Click()
  208.     Dim pageonwww
  209.     pageonwww = ShellExecute(Me.hwnd, "Open", "http://come.to/kara-tur", "", App.Path, 1)
  210.     Unload Me
  211. End Sub
  212. Private Sub Label2_Click()
  213.     Dim pageonmail
  214.     pageonmail = ShellExecute(Me.hwnd, "Open", "mailto:phillip@softhome.net", "", App.Path, 1)
  215.     Unload Me
  216. End Sub
  217.