Visual Basic - ¿FORMULARIO INVISIBLE?

Life is soft - evento anual de software empresarial
 
Vista:

¿FORMULARIO INVISIBLE?

Publicado por CHEKO (6 intervenciones) el 21/10/2000 00:00:00
HOLA, ES LA PRIMERA VEZ QUE ENTRO AQUI Y ME DI CUENTA DE ESTOS FOROS, Y , BUENO NO SOY BUENO EN PROGRAMACION, ASI QUE POR ESO LES PIDO DE FAVOR QUE ME AYUDEN.

LEI EN UNA REVISTA QUE CON VB SE PUEDEN CREAR FORMULARIOS TRANSPARENTES, PERO NO TRAIA EL CODIGO FUENTE O UNA PEQUEÑA REFERENCIA, Y ME LLAMO LA ATENCION, SI ALGUNO DE USTEDES ME PUEDE AYUDAR SE LO AGRADECERIA DE ANTEMANO.

GRACIAS POR LA ATENCION... :0)
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:¿FORMULARIO INVISIBLE?

Publicado por Alfredo Mujica (43 intervenciones) el 21/10/2000 00:00:00
Debes crear un formulario (pricipal) y escribir los siguientes codigos:

Option Explicit
Dim withFrameFlag As Boolean
Dim mFormRegion As Long
Dim Contador As Byte

Private Sub Form_Load()
Me.ScaleMode = vbPixels
withFrameFlag = True
toggleFrame withFrameFlag
End Sub

Private Sub toggleFrame(inFlag As Boolean)
On Error Resume Next
Dim w As Single, h As Single
Dim edge As Single, topEdge As Single
Dim mLeft, mTop
Dim i As Integer
Dim r As Long
Dim outer As Long, inner As Long

mFormRegion = CreateRectRgn(0, 0, 0, 0)

w = ScaleX(Width, vbTwips, vbPixels)
h = ScaleY(Height, vbTwips, vbPixels)

edge = (w - ScaleWidth) / 2
topEdge = h - edge - ScaleHeight

If inFlag Then
outer = CreateRectRgn(0, 0, w, h)
inner = CreateRectRgn(edge, topEdge, w - edge, h - edge)
CombineRgn mFormRegion, outer, inner, RGN_DIFF
End If

For i = 0 To Me.Controls.Count - 1
mLeft = ScaleX(Me.Controls(i).Left, Me.ScaleMode, vbPixels) + edge
mTop = ScaleX(Me.Controls(i).Top, Me.ScaleMode, vbPixels) + topEdge
r = CreateRectRgn(mLeft, mTop, _
ScaleX((Me.Controls(i).Width), Me.ScaleMode, vbPixels) + mLeft, _
ScaleY((Me.Controls(i).Height), Me.ScaleMode, vbPixels) + mTop)
CombineRgn mFormRegion, r, mFormRegion, RGN_OR
Next
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:¿FORMULARIO INVISIBLE?

Publicado por Yo denuevo (43 intervenciones) el 21/10/2000 00:00:00
Enviame un e-mail y te los mando porque no alcanzaron todos los codigos...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:¿FORMULARIO INVISIBLE?

Publicado por Juan Arturo (141 intervenciones) el 22/10/2000 00:00:00
Ese truco lo debe tener el guille:
http://guille.costasol.net/
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:¿FORMULARIO INVISIBLE?

Publicado por tecnicam (220 intervenciones) el 22/10/2000 00:00:00
Si lo que quieres es que no se vea (invisible), con sólo poner, desde donde lo llames, Form.Hide ya vale.
Sigue teniendo todos los controles, propiedades y demás pero no se ven.
Mira en la web de abajo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

asi es mas facil!

Publicado por marcos (1 intervención) el 25/01/2002 15:43:22
te bajas de esta pagina

http://marcos.tecnicos.org

una ocx que con solo midificar una propiedad ya hace lo que vos queres.
espero que te sirva
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar