home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / GhostYours183592132005.psc / frmMain.frm < prev    next >
Text File  |  2005-01-02  |  7KB  |  224 lines
  1. VERSION 5.00
  2. Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
  3. Begin VB.Form frmMain 
  4.    Caption         =   "GhostYourself - By Jesse Seidel"
  5.    ClientHeight    =   4695
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   5970
  9.    ForeColor       =   &H8000000F&
  10.    HasDC           =   0   'False
  11.    Icon            =   "frmMain.frx":0000
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   313
  14.    ScaleMode       =   3  'Pixel
  15.    ScaleWidth      =   398
  16.    StartUpPosition =   2  'CenterScreen
  17.    Begin VB.PictureBox Picture2 
  18.       Align           =   4  'Align Right
  19.       BorderStyle     =   0  'None
  20.       Height          =   3840
  21.       Left            =   5235
  22.       ScaleHeight     =   3840
  23.       ScaleWidth      =   735
  24.       TabIndex        =   8
  25.       Top             =   0
  26.       Width           =   735
  27.       Begin ComctlLib.Slider barAmount 
  28.          Height          =   2235
  29.          Left            =   0
  30.          TabIndex        =   9
  31.          Top             =   840
  32.          Width           =   615
  33.          _ExtentX        =   1085
  34.          _ExtentY        =   3942
  35.          _Version        =   327682
  36.          Orientation     =   1
  37.          LargeChange     =   51
  38.          Max             =   255
  39.          SelStart        =   180
  40.          TickStyle       =   2
  41.          TickFrequency   =   51
  42.          Value           =   180
  43.       End
  44.       Begin VB.Label Label1 
  45.          Caption         =   "180"
  46.          Height          =   255
  47.          Left            =   120
  48.          TabIndex        =   10
  49.          Top             =   3240
  50.          Width           =   615
  51.       End
  52.    End
  53.    Begin VB.PictureBox Picture1 
  54.       Align           =   2  'Align Bottom
  55.       BorderStyle     =   0  'None
  56.       Height          =   855
  57.       Left            =   0
  58.       ScaleHeight     =   855
  59.       ScaleWidth      =   5970
  60.       TabIndex        =   3
  61.       Top             =   3840
  62.       Width           =   5970
  63.       Begin VB.CommandButton Command1 
  64.          Caption         =   "Start"
  65.          Height          =   495
  66.          Left            =   240
  67.          TabIndex        =   7
  68.          Top             =   120
  69.          Width           =   1095
  70.       End
  71.       Begin VB.CommandButton Command2 
  72.          Caption         =   "Stop"
  73.          Enabled         =   0   'False
  74.          Height          =   495
  75.          Left            =   1560
  76.          TabIndex        =   6
  77.          Top             =   120
  78.          Width           =   1095
  79.       End
  80.       Begin VB.CommandButton Command3 
  81.          Caption         =   "Save (C:\temp.bmp)"
  82.          Height          =   495
  83.          Left            =   3000
  84.          TabIndex        =   5
  85.          Top             =   120
  86.          Width           =   1215
  87.       End
  88.       Begin VB.CommandButton Command4 
  89.          Caption         =   "Set BG"
  90.          Enabled         =   0   'False
  91.          Height          =   495
  92.          Left            =   4560
  93.          TabIndex        =   4
  94.          Top             =   120
  95.          Width           =   1095
  96.       End
  97.       Begin VB.Timer tmrMain 
  98.          Enabled         =   0   'False
  99.          Interval        =   50
  100.          Left            =   3360
  101.          Top             =   120
  102.       End
  103.    End
  104.    Begin VB.PictureBox picDestination 
  105.       AutoRedraw      =   -1  'True
  106.       AutoSize        =   -1  'True
  107.       BackColor       =   &H00000000&
  108.       BorderStyle     =   0  'None
  109.       Height          =   3600
  110.       Left            =   120
  111.       ScaleHeight     =   240
  112.       ScaleMode       =   3  'Pixel
  113.       ScaleWidth      =   323
  114.       TabIndex        =   1
  115.       TabStop         =   0   'False
  116.       Top             =   120
  117.       Width           =   4845
  118.    End
  119.    Begin VB.PictureBox picSource 
  120.       AutoRedraw      =   -1  'True
  121.       AutoSize        =   -1  'True
  122.       BorderStyle     =   0  'None
  123.       Height          =   3600
  124.       Left            =   120
  125.       Picture         =   "frmMain.frx":000C
  126.       ScaleHeight     =   240
  127.       ScaleMode       =   3  'Pixel
  128.       ScaleWidth      =   320
  129.       TabIndex        =   0
  130.       TabStop         =   0   'False
  131.       Top             =   120
  132.       Visible         =   0   'False
  133.       Width           =   4800
  134.       Begin VB.CommandButton Command5 
  135.          Caption         =   "Command5"
  136.          Height          =   255
  137.          Left            =   4200
  138.          TabIndex        =   2
  139.          Top             =   3600
  140.          Width           =   255
  141.       End
  142.    End
  143. End
  144. Attribute VB_Name = "frmMain"
  145. Attribute VB_GlobalNameSpace = False
  146. Attribute VB_Creatable = False
  147. Attribute VB_PredeclaredId = True
  148. Attribute VB_Exposed = False
  149. Option Explicit
  150.  
  151. Private Declare Function AlphaBlend Lib "msimg32" ( _
  152. ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, _
  153. ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, _
  154. ByVal xSrc As Long, ByVal ySrc As Long, ByVal widthSrc As Long, _
  155. ByVal heightSrc As Long, ByVal blendFunct As Long) As Boolean
  156.  
  157. Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" ( _
  158. Destination As Any, Source As Any, ByVal Length As Long)
  159.  
  160. Private Type typeBlendProperties
  161.     tBlendOp As Byte
  162.     tBlendOptions As Byte
  163.     tBlendAmount As Byte
  164.     tAlphaType As Byte
  165. End Type
  166.  
  167. Private Sub barAmount_Scroll()
  168.     Dim tProperties As typeBlendProperties
  169.     Dim lngBlend As Long
  170.     picDestination.Cls
  171.     tProperties.tBlendAmount = 255 - barAmount
  172.     CopyMemory lngBlend, tProperties, 4
  173.     AlphaBlend picDestination.hDC, 0, 0, picSource.ScaleWidth, picSource.ScaleHeight, _
  174.     picSource.hDC, 0, 0, picSource.ScaleWidth, picSource.ScaleHeight, lngBlend
  175.     picDestination.Refresh
  176.     Label1.Caption = barAmount.Value
  177. End Sub
  178.  
  179. Private Sub Command1_Click()
  180. mCapHwnd = capCreateCaptureWindow("WebcamCapture", 0, 0, 0, 320, 240, Me.hwnd, 0)
  181. DoEvents: SendMessage mCapHwnd, CONNECT, 0, 0
  182. tmrMain.Enabled = True
  183. Command2.Enabled = True
  184. Command1.Enabled = False
  185. Command4.Enabled = True
  186. End Sub
  187.  
  188. Private Sub Command2_Click()
  189. tmrMain.Enabled = False
  190. DoEvents: SendMessage mCapHwnd, DISCONNECT, 0, 0
  191. Command1.Enabled = True
  192. Command2.Enabled = False
  193. Command4.Enabled = False
  194. End Sub
  195.  
  196. Private Sub Command3_Click()
  197. SavePicture picDestination.Image, "C:\temp.bmp"
  198. End Sub
  199.  
  200. Private Sub Command4_Click()
  201. picSource.Picture = picDestination.Image
  202. End Sub
  203.  
  204. Private Sub Form_Load()
  205. barAmount_Scroll
  206. End Sub
  207.  
  208. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  209. DoEvents: SendMessage mCapHwnd, DISCONNECT, 0, 0
  210. End Sub
  211.  
  212. Private Sub Timer1_Timer()
  213. SavePicture picDestination.Image, "C:\temp.bmp"
  214. End Sub
  215.  
  216. Private Sub tmrMain_Timer()
  217. On Error Resume Next
  218. SendMessage mCapHwnd, GET_FRAME, 0, 0
  219. SendMessage mCapHwnd, COPY, 0, 0
  220. picDestination.Picture = Clipboard.GetData
  221. Clipboard.Clear
  222. barAmount_Scroll
  223. End Sub
  224.