home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 6_2008-2009.ISO / data / zips / Motion_Web21675111102009.psc / Motion_WebCam / About.frm < prev    next >
Text File  |  2008-07-06  |  6KB  |  202 lines
  1. VERSION 5.00
  2. Begin VB.Form About 
  3.    BorderStyle     =   4  'Fixed ToolWindow
  4.    Caption         =   "WebCap Motion Detector - Acerca de ..."
  5.    ClientHeight    =   1380
  6.    ClientLeft      =   2760
  7.    ClientTop       =   3705
  8.    ClientWidth     =   3780
  9.    FillStyle       =   0  'Solid
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    Moveable        =   0   'False
  14.    ScaleHeight     =   1380
  15.    ScaleWidth      =   3780
  16.    ShowInTaskbar   =   0   'False
  17.    StartUpPosition =   1  'CenterOwner
  18.    Begin VB.Timer Timer1 
  19.       Interval        =   100
  20.       Left            =   240
  21.       Top             =   3120
  22.    End
  23.    Begin VB.CommandButton Ok_b 
  24.       Caption         =   "&Ok"
  25.       Height          =   375
  26.       Left            =   3309
  27.       Style           =   1  'Graphical
  28.       TabIndex        =   2
  29.       Top             =   960
  30.       Width           =   375
  31.    End
  32.    Begin VB.Image Image3 
  33.       Height          =   480
  34.       Left            =   1800
  35.       Picture         =   "About.frx":0000
  36.       Top             =   2160
  37.       Visible         =   0   'False
  38.       Width           =   480
  39.    End
  40.    Begin VB.Image Image2 
  41.       Height          =   240
  42.       Index           =   8
  43.       Left            =   1200
  44.       Top             =   2040
  45.       Visible         =   0   'False
  46.       Width           =   240
  47.    End
  48.    Begin VB.Image Image2 
  49.       Height          =   480
  50.       Index           =   7
  51.       Left            =   600
  52.       Picture         =   "About.frx":030A
  53.       Top             =   2040
  54.       Visible         =   0   'False
  55.       Width           =   480
  56.    End
  57.    Begin VB.Image Image2 
  58.       Height          =   480
  59.       Index           =   6
  60.       Left            =   0
  61.       Picture         =   "About.frx":0BD4
  62.       Top             =   2040
  63.       Visible         =   0   'False
  64.       Width           =   480
  65.    End
  66.    Begin VB.Image Image2 
  67.       Height          =   480
  68.       Index           =   5
  69.       Left            =   3000
  70.       Picture         =   "About.frx":149E
  71.       Top             =   1440
  72.       Visible         =   0   'False
  73.       Width           =   480
  74.    End
  75.    Begin VB.Image Image2 
  76.       Height          =   480
  77.       Index           =   4
  78.       Left            =   2400
  79.       Picture         =   "About.frx":1D68
  80.       Top             =   1440
  81.       Visible         =   0   'False
  82.       Width           =   480
  83.    End
  84.    Begin VB.Image Image2 
  85.       Height          =   480
  86.       Index           =   3
  87.       Left            =   1800
  88.       Picture         =   "About.frx":2632
  89.       Top             =   1440
  90.       Visible         =   0   'False
  91.       Width           =   480
  92.    End
  93.    Begin VB.Image Image2 
  94.       Height          =   480
  95.       Index           =   2
  96.       Left            =   1200
  97.       Picture         =   "About.frx":2EFC
  98.       Top             =   1440
  99.       Visible         =   0   'False
  100.       Width           =   480
  101.    End
  102.    Begin VB.Image Image2 
  103.       Height          =   480
  104.       Index           =   1
  105.       Left            =   600
  106.       Picture         =   "About.frx":37C6
  107.       Top             =   1440
  108.       Visible         =   0   'False
  109.       Width           =   480
  110.    End
  111.    Begin VB.Image Image2 
  112.       Height          =   480
  113.       Index           =   0
  114.       Left            =   0
  115.       Picture         =   "About.frx":4090
  116.       Top             =   1440
  117.       Visible         =   0   'False
  118.       Width           =   480
  119.    End
  120.    Begin VB.Label Label24 
  121.       AutoSize        =   -1  'True
  122.       Caption         =   "T╧|{0'oi«"
  123.       BeginProperty Font 
  124.          Name            =   "MS Sans Serif"
  125.          Size            =   8.25
  126.          Charset         =   0
  127.          Weight          =   400
  128.          Underline       =   -1  'True
  129.          Italic          =   0   'False
  130.          Strikethrough   =   0   'False
  131.       EndProperty
  132.       ForeColor       =   &H00FF0000&
  133.       Height          =   195
  134.       Left            =   960
  135.       MousePointer    =   99  'Custom
  136.       TabIndex        =   3
  137.       ToolTipText     =   "Send me an e-mail !!"
  138.       Top             =   840
  139.       Width           =   600
  140.    End
  141.    Begin VB.Image Image1 
  142.       BorderStyle     =   1  'Fixed Single
  143.       Height          =   735
  144.       Left            =   90
  145.       MousePointer    =   99  'Custom
  146.       Picture         =   "About.frx":495A
  147.       Stretch         =   -1  'True
  148.       Top             =   600
  149.       Width           =   615
  150.    End
  151.    Begin VB.Label Label2 
  152.       BorderStyle     =   1  'Fixed Single
  153.       Caption         =   "Motion  es una marca registrada de              .  All Right reserved. CopyRight 2007 - 2027."
  154.       Height          =   735
  155.       Left            =   720
  156.       TabIndex        =   1
  157.       Top             =   600
  158.       Width           =   2535
  159.    End
  160.    Begin VB.Label Label1 
  161.       Caption         =   "Aplicacion para vigilar con tu webcam y tener un registro de todos los movimientos."
  162.       Height          =   435
  163.       Left            =   120
  164.       TabIndex        =   0
  165.       Top             =   120
  166.       Width           =   3555
  167.    End
  168. End
  169. Attribute VB_Name = "About"
  170. Attribute VB_GlobalNameSpace = False
  171. Attribute VB_Creatable = False
  172. Attribute VB_PredeclaredId = True
  173. Attribute VB_Exposed = False
  174. Option Explicit
  175. Dim x As Integer
  176. Dim toggle As Integer
  177. 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
  178. Private Sub Form_Load()
  179. toggle = 0
  180. End Sub
  181. Private Sub Label24_Click()
  182. ShellExecute Me.hWnd, "Open", "mailto:bihotz.izoztua@live.fr", "", "", 1
  183. End Sub
  184. Private Sub Label24_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  185. toggle = 1
  186. End Sub
  187. Private Sub Ok_b_Click()
  188. On Error GoTo ErrorFound
  189. About.Hide
  190. ErrorFound:
  191. If Err.Number <> 0 Then
  192. Else
  193. End If
  194. End Sub
  195. Private Sub Timer1_Timer()
  196. If toggle = 1 Then Run_Mouse
  197. End Sub
  198. Private Sub Run_Mouse()
  199. x = x + 1: If x = 9 Then x = 0
  200. Label24.MouseIcon = Image2(x).Picture
  201. End Sub
  202.