Mostrar Mensajes

1

Visual Basic 6.0 e inferiores / Re: Campos con fechas vacios

« en: Lunes 30 de Diciembre de 2002, 02:01 »

Tengo varios campos formato fecha, cuando todos tienen valor, no tengo ningun problema. El problema me surge cuando antes de insertarlos "insert into..."
en el registro, realizo un control de todos los campos para saber sin son null. Y me da error en los de fecha. Aqui pongo como lo hago:
txt_FECHAREGISTRO.Text = IIf(IsNull(txt_FECHAREGISTRO), "", (txt_FECHAREGISTRO))
Gracias, Un saludo.

2

Visual Basic 6.0 e inferiores / Ayuda Api con frames

« en: Lunes 23 de Diciembre de 2002, 04:34 »

Yo en realidad lo que queria hacer era un frame que contiene otros dos frames con un grupo de radiobutton cada uno y que parezcan traslucidos, pero como no se como hacerlo pues se me ocurrio la idea anteriormente expuesta. Es que el form tiene como picture una imagen con diferentes colores. Tienes razon con el picture puedo solucionarlo pero los radio button no consigo que tengan el mismo fondo. De todas formas muchisimas gracias.

3

Visual Basic 6.0 e inferiores / Re: Ayuda Api con frames

« en: Domingo 22 de Diciembre de 2002, 23:19 »

Quiero copiar una parte de la imagen del form en un frame para que parezca traslucido. Utilizo la API Private Declare Function BitBlt Lib "gdi32" ......... Cuando la pongo en un Picture funciona, pero en un frame no funciona. Gracias por la ayuda. Codigo:
Private Sub Command2_Click()
BitBlt Picture1.hdc, 0, 0, 313, 177, Form1.hdc, 104, 32, vbSrcCopy
End Sub

Private Sub Command3_Click()
BitBlt Frame2.hdc, 0, 0, 313, 177, Form1.hdc, 104, 32, vbSrcCopy
End Sub

4

Visual Basic 6.0 e inferiores / Ayuda Api con frames

« en: Domingo 22 de Diciembre de 2002, 23:18 »

Quiero copiar una parte de la imagen del form en un frame para que parezca traslucido. Utilizo la API Private Declare Function BitBlt Lib "gdi32" ......... Cuando la pongo en un Picture funciona, pero en un frame no funciona. Gracias por la ayuda. Codigo:
Private Sub Command2_Click()
BitBlt Picture1.hdc, 0, 0, 313, 177, Form1.hdc, 104, 32, vbSrcCopy
End Sub

Private Sub Command3_Click()
BitBlt Frame2.hdc, 0, 0, 313, 177, Form1.hdc, 104, 32, vbSrcCopy
End Sub

SoloCodigo