home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Measuremen20245910122006.psc / frmAbout.frm < prev    next >
Text File  |  2006-05-29  |  6KB  |  177 lines
  1. VERSION 5.00
  2. Begin VB.Form frmAbout 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "About RS Measurement Calculator"
  5.    ClientHeight    =   2955
  6.    ClientLeft      =   2340
  7.    ClientTop       =   1935
  8.    ClientWidth     =   5430
  9.    ClipControls    =   0   'False
  10.    LinkTopic       =   "Form2"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   2039.594
  14.    ScaleMode       =   0  'User
  15.    ScaleWidth      =   5099.051
  16.    ShowInTaskbar   =   0   'False
  17.    StartUpPosition =   1  'CenterOwner
  18.    Begin VB.PictureBox picIcon 
  19.       AutoRedraw      =   -1  'True
  20.       AutoSize        =   -1  'True
  21.       BorderStyle     =   0  'None
  22.       ClipControls    =   0   'False
  23.       Height          =   750
  24.       Left            =   240
  25.       Picture         =   "frmAbout.frx":0000
  26.       ScaleHeight     =   526.75
  27.       ScaleMode       =   0  'User
  28.       ScaleWidth      =   526.75
  29.       TabIndex        =   1
  30.       Top             =   1200
  31.       Width           =   750
  32.    End
  33.    Begin VB.CommandButton cmdOK 
  34.       Cancel          =   -1  'True
  35.       Caption         =   "OK"
  36.       Default         =   -1  'True
  37.       Height          =   345
  38.       Left            =   4080
  39.       TabIndex        =   0
  40.       Top             =   1440
  41.       Width           =   1020
  42.    End
  43.    Begin VB.Label Label4 
  44.       AutoSize        =   -1  'True
  45.       BackStyle       =   0  'Transparent
  46.       Caption         =   "Email:"
  47.       BeginProperty Font 
  48.          Name            =   "MS Sans Serif"
  49.          Size            =   9.75
  50.          Charset         =   0
  51.          Weight          =   700
  52.          Underline       =   0   'False
  53.          Italic          =   0   'False
  54.          Strikethrough   =   0   'False
  55.       EndProperty
  56.       Height          =   240
  57.       Left            =   960
  58.       TabIndex        =   6
  59.       Top             =   2520
  60.       Width           =   660
  61.    End
  62.    Begin VB.Label Label3 
  63.       AutoSize        =   -1  'True
  64.       BackStyle       =   0  'Transparent
  65.       Caption         =   "regider@gmail.com"
  66.       BeginProperty Font 
  67.          Name            =   "MS Sans Serif"
  68.          Size            =   9.75
  69.          Charset         =   0
  70.          Weight          =   700
  71.          Underline       =   -1  'True
  72.          Italic          =   0   'False
  73.          Strikethrough   =   0   'False
  74.       EndProperty
  75.       Height          =   240
  76.       Left            =   1800
  77.       TabIndex        =   5
  78.       Top             =   2520
  79.       Width           =   2055
  80.    End
  81.    Begin VB.Label Label2 
  82.       AutoSize        =   -1  'True
  83.       BackStyle       =   0  'Transparent
  84.       Caption         =   "Web:"
  85.       BeginProperty Font 
  86.          Name            =   "MS Sans Serif"
  87.          Size            =   9.75
  88.          Charset         =   0
  89.          Weight          =   700
  90.          Underline       =   0   'False
  91.          Italic          =   0   'False
  92.          Strikethrough   =   0   'False
  93.       EndProperty
  94.       Height          =   240
  95.       Left            =   960
  96.       TabIndex        =   4
  97.       Top             =   2280
  98.       Width           =   555
  99.    End
  100.    Begin VB.Label Label1 
  101.       AutoSize        =   -1  'True
  102.       BackStyle       =   0  'Transparent
  103.       Caption         =   "www.REGIDER.co.nr"
  104.       BeginProperty Font 
  105.          Name            =   "MS Sans Serif"
  106.          Size            =   9.75
  107.          Charset         =   0
  108.          Weight          =   700
  109.          Underline       =   -1  'True
  110.          Italic          =   0   'False
  111.          Strikethrough   =   0   'False
  112.       EndProperty
  113.       Height          =   240
  114.       Left            =   1800
  115.       TabIndex        =   3
  116.       Top             =   2280
  117.       Width           =   2115
  118.    End
  119.    Begin VB.Image Image1 
  120.       Height          =   945
  121.       Left            =   360
  122.       Picture         =   "frmAbout.frx":1002
  123.       Top             =   120
  124.       Width           =   4725
  125.    End
  126.    Begin VB.Label lblTitle 
  127.       Alignment       =   2  'Center
  128.       Caption         =   "RS Measurement Calculator"
  129.       BeginProperty Font 
  130.          Name            =   "MS Sans Serif"
  131.          Size            =   13.5
  132.          Charset         =   0
  133.          Weight          =   700
  134.          Underline       =   0   'False
  135.          Italic          =   0   'False
  136.          Strikethrough   =   0   'False
  137.       EndProperty
  138.       ForeColor       =   &H00000000&
  139.       Height          =   720
  140.       Left            =   1050
  141.       TabIndex        =   2
  142.       Top             =   1200
  143.       Width           =   2685
  144.    End
  145.    Begin VB.Shape Shape1 
  146.       BorderColor     =   &H00C0C0C0&
  147.       FillColor       =   &H00FFFFFF&
  148.       FillStyle       =   0  'Solid
  149.       Height          =   975
  150.       Left            =   120
  151.       Top             =   120
  152.       Width           =   5175
  153.    End
  154. End
  155. Attribute VB_Name = "frmAbout"
  156. Attribute VB_GlobalNameSpace = False
  157. Attribute VB_Creatable = False
  158. Attribute VB_PredeclaredId = True
  159. Attribute VB_Exposed = False
  160. 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
  161.  
  162. Private Sub cmdOK_Click()
  163. Unload Me
  164. End Sub
  165.  
  166. Private Sub Form_Load()
  167. Me.Icon = Calculator.Icon
  168. End Sub
  169.  
  170. Private Sub Label1_Click()
  171. ShellExecute Me.hwnd, "Open", "http://www.regider.co.nr", " ", "", SW_SHOW
  172. End Sub
  173.  
  174. Private Sub Label3_Click()
  175. ShellExecute Me.hwnd, "Open", "mailto:regider@gmail.com", " ", "", SW_SHOW
  176. End Sub
  177.