Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Cita de: gtrifoglio en 15 Enero 2007, 16:11 PM
¿Alguien sabe cómo hacer para controlar más de una cámara a la vez? O sea: 2 PictureBox distintos que muestren cada uno las capturas de 2 cámaras distintas.
Cita de: E0N en 9 Diciembre 2006, 13:59 PM
Gracias TUNOVATO voy a ver si lo consigo hacer semitransparente
1S4ludo
Cita de: lipman_dj en 8 Diciembre 2006, 23:42 PM
muy majo tu codigo TUNOVATO, pero deja todo invisible salvo las cosas que pongas.
Saludos Suerte
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const SC_MOVE = &HF010&
Private Const WM_SYSCOMMAND = &H112
Private Sub Form_Resize()
TransparentForm Me
End Sub
Private Sub MoverFormulario_Click()
lP = ((Me.Left \ Screen.TwipsPerPixelX) And &HFFFF&)
lP = lP + (Me.Top \ Screen.TwipsPerPixelY \ &H10000)
SendMessage Me.hWnd, WM_SYSCOMMAND, SC_MOVE, lP
End Sub
Private Sub CerrarFormulario_Click()
Form_Unload (1)
End Sub
Private Sub Form_Unload(Cancel As Integer)
Unload Me
End SubOption Explicit
Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Long) As Long
Public Sub TransparentForm(frm As Form)
frm.ScaleMode = vbPixels
Const RGN_DIFF = 4
Const RGN_OR = 2
Dim outer_rgn As Long
Dim inner_rgn As Long
Dim wid As Single
Dim hgt As Single
Dim border_width As Single
Dim title_height As Single
Dim ctl_left As Single
Dim ctl_top As Single
Dim ctl_right As Single
Dim ctl_bottom As Single
Dim control_rgn As Long
Dim combined_rgn As Long
Dim ControlActual As Control
If frm.WindowState = vbMinimized Then Exit Sub
wid = frm.ScaleX(frm.Width, vbTwips, vbPixels)
hgt = frm.ScaleY(frm.Height, vbTwips, vbPixels)
outer_rgn = CreateRectRgn(0, 0, wid, hgt)
border_width = (wid - frm.ScaleWidth) / 2
title_height = hgt - border_width - frm.ScaleHeight
'Si quieres que se muestre la barra de titulo
'Entonces habilita la siguiente linea ade codigo
'inner_rgn = CreateRectRgn(border_width, title_height, wid - border_width, hgt - border_width)
combined_rgn = CreateRectRgn(0, 0, 0, 0)
CombineRgn combined_rgn, outer_rgn, inner_rgn, RGN_DIFF
For Each ControlActual In frm.Controls
If ControlActual.Container Is frm Then
ctl_left = frm.ScaleX(ControlActual.Left, frm.ScaleMode, vbPixels) + border_width
ctl_top = frm.ScaleX(ControlActual.Top, frm.ScaleMode, vbPixels) + title_height
ctl_right = frm.ScaleX(ControlActual.Width, frm.ScaleMode, vbPixels) + ctl_left
ctl_bottom = frm.ScaleX(ControlActual.Height, frm.ScaleMode, vbPixels) + ctl_top
control_rgn = CreateRectRgn(ctl_left, ctl_top, ctl_right, ctl_bottom)
CombineRgn combined_rgn, combined_rgn, control_rgn, RGN_OR
End If
Next ControlActual
SetWindowRgn frm.hWnd, combined_rgn, True
End Sub
'Ejemplo de redimensionado seguro de formularios
'
'José Alberca
'alberca@usa.net
'
'Lo unico que hay que hacer es copiar el código que viene en este formulario y adaptarlo al que Ud.
'desee. Específicamente debe revisar el evento Initialize del formulario, donde se definen los valores
'minimos del mismo, asi como el procedimiento ResizeMe. Esto obviamente debido a que cada formulario
'debe tener valores mínimos en cuanto a sus dimensiones y ademas que no necesariamente dos o mas
'formularios poseen los mismos objetos, ni están distribuidos de la misma manera.
Option Explicit
'Variables privadas del formulario
Private MinHeight As Integer 'Altura minima del formulario (depende del formulario)
Private MinWidth As Integer 'Ancho minimo del formulario (depende del formulario)
Private CancelResize As Boolean 'Flag que indica si se cancela o no el redimensionado del formulario
'Inicializa los parametros a emplear en el redimensionado
Private Sub Form_Initialize()
CancelResize = True
MinHeight = 360
MinWidth = 480
CancelResize = False
End Sub
'Valida si se ejecuta el redimensionado
Private Sub Form_Resize()
If Not CancelResize Then
If Me.WindowState = vbMaximized Then
'Redimensiona los controles
Call ResizeMe
ElseIf Not Me.WindowState = vbMinimized Then
If Width < MinWidth Then
CancelResize = True
Width = MinWidth
End If
If Height < MinHeight Then
CancelResize = True
Height = MinHeight
End If
'Redimensiona los controles
Call ResizeMe
End If
End If
CancelResize = False
End Sub
'Redimensiona los objetos del formulario
Private Sub ResizeMe()
If Me.WindowState = vbNormal Or Me.WindowState = vbMaximized Then
'Ejemplo de código que podría ir en la rutina de redimensioinado
On Error Resume Next
ListView1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight - 100 - Command1.Height
Command1.Top = ListView1.Height + 50
Command1.Left = Me.ScaleWidth - Command1.Width - 50
End If
End Sub
'Descarga el formulario
Private Sub Command1_Click()
Unload Me
End Sub
