Barra de titulo de formulario

Muchas gracias por todas las molestias que te estas tomando po
ayudarme,pero es que no me entero, lo siento.
Si por favor, me puedes poner exclusivamente el codigo que tengo qu
poner para la tercera opcion,es decir, yo solo quiero quitar la barr
de titulo(alternativa c),porque es que no lo veo claro.
Muchas gracias de verdad.Gracia

dargent
dargento's Profile: http://www.msusenet.com/member.php?userid4
View this thread: http://www.msusenet.com/t-187097124

hola, Desiree !

... poner exclusivamente el codigo... para... quitar la barra de titulo [...]

ok... solo recuerda 'disminuir' la altura del formulario [en el editor de vba] en tiempo de diseno...
-> +/- la altura de la barra de titulos que 'vamos a desaparecer' <- :))
no importa si 'ves' que la parte inferior del formulario 'se come' algunos controles :-(
-> despues... copia las siguientes lineas ->en el modulo de codigo del formulario<-

si cualquier duda... comentas?
saludos,
hector.

Private Declare Function BuscarVentana _
Lib "User32" Alias "FindWindowA" ( _
ByVal Clase As String, ByVal Ventana As String) As Long
Private Declare Function ObtenerVentana _
Lib "User32" Alias "GetWindowLongA" ( _
ByVal Ventana As Long, ByVal Indice As Long) As Long
Private Declare Function EstablecerVentana _
Lib "User32" Alias "SetWindowLongA" ( _
ByVal Ventana As Long, ByVal Indice As Long, _
ByVal NuevoEstilo As Long) As Long
Private Declare Function MostrarVentana _
Lib "User32" Alias "ShowWindow" ( _
ByVal Ventana As Long, ByVal Comando As Long) As Long
Private Sub UserForm_Activate()
Dim miFormulario As Long, Estilo As Long
Me.SpecialEffect = fmSpecialEffectSunken
If Val(Application.Version) < 9 _
Then miFormulario = BuscarVentana("ThunderXFrame", Me.Caption) _
Else miFormulario = BuscarVentana("ThunderDFrame", Me.Caption)
Estilo = ObtenerVentana(miFormulario, (-16))
Estilo = Estilo And Not &HC00000
EstablecerVentana miFormulario, (-16), Estilo
MostrarVentana miFormulario, 5
End Sub

Muchas Gracias de nuevo, de verdad por todas las molestias.
He copiado ti codigo tal cual en el codigo de mi formulario, y me d
error de compilacion, es como antes, como que no lo reconoce, se cre
que son comentarios y no puedo hacer nada.
Ademas en el formulario que le pongo no tiene nada mas que seis botone
cada uno asociado a una cosa, vamso que no tiene mas.
Te pongo exactamente el codigo de el formulario, haber si ves tu algo.
Gracias

Codigo:
Option Explicit

Private Sub cmdAeroBd_Click()
'Deja de mostrar el formulario actual
Unload Me
'Carga los valores de todos los aerogeneradores que tenemos en la _
base de datos y el formulario donde se muestran con todos los campos
RellenarAero
End Sub

Private Sub cmdBateriaBd_Click()
'Deja de mostrar el formulario actual
Unload Me
'Carga los valores de todos los depositos que tenemos en la _
base de datos y el formulario donde se muestran con todos los campos
RellenarBateria
End Sub

Private Sub cmdDepositosBd_Click()
'Deja de mostrar el formulario actual
Unload Me
'Carga los valores de todos los depositos que tenemos en la _
base de datos y el formulario donde se muestran con todos los campos
RellenarDeposito
End Sub

Private Sub cmdElectroBd_Click()
'Deja de mostrar el formulario actual
Unload Me
'Carga los valores de todos los electrolizadores que tenemos en la _
base de datos y el formulario donde se muestran con todos los campos
RellenarElectrolizador
End Sub

Private Sub cmdPanelesBd_Click()
'Deja de mostrar el formulario actual
Unload Me
'Carga los valores de todos los aerogeneradores que tenemos en la _
base de datos y el formulario donde se muestran con todos los campos
RellenarPanel
End Sub

Private Sub cmdPilaABd_Click()
'Deja de mostrar el formulario actual
Unload Me
'Carga los valores de todas las pilas alcalinas que tenemos en la _
base de datos y el formulario donde se muestran con todos los campos
RellenarPilaA
End Sub

Private Sub cmdPilaPBd_Click()
'Deja de mostrar el formulario actual
Unload Me
'Carga los valores de todas las pilas pem que tenemos en la _
base de datos y el formulario donde se muestran con todos los campos
RellenarPilaP
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode A
Integer)
'Controlamos que no se pueda cerrar el formulario con el boton [X]
If CloseMode <> vbFormCode Then Cancel = True
End Sub

Private Sub VolverEquipos_Click()
'Deja de mostrar el formulario actual y muestra la hoja de inicio
Unload Me
Qusuario
End Sub

Private Declare Function BuscarVentana _
Lib "User32" Alias "FindWindowA" ( _
ByVal Clase As String, ByVal Ventana As String) As Long
Private Declare Function ObtenerVentana _
Lib "User32" Alias "GetWindowLongA" ( _
ByVal Ventana As Long, ByVal Indice As Long) As Long
Private Declare Function EstablecerVentana _
Lib "User32" Alias "SetWindowLongA" ( _
ByVal Ventana As Long, ByVal Indice As Long, _
ByVal NuevoEstilo As Long) As Long
Private Declare Function MostrarVentana _
Lib "User32" Alias "ShowWindow" ( _
ByVal Ventana As Long, ByVal Comando As Long) As Long
Private Sub UserForm_Activate()
Dim miFormulario As Long, Estilo As Long
Me.SpecialEffect = fmSpecialEffectSunken
If val(Application.Version) < 9 _
Then miFormulario = BuscarVentana("ThunderXFrame", Me.Caption) _
Else miFormulario = BuscarVentana("ThunderDFrame", Me.Caption)
Estilo = ObtenerVentana(miFormulario, (-16))
Estilo = Estilo And Not &HC00000
EstablecerVentana miFormulario, (-16), Estilo
MostrarVentana miFormulario, 5
End Sub

Fin del codigo del formulari

dargent
dargento's Profile: http://www.msusenet.com/member.php?userid4
View this thread: http://www.msusenet.com/t-187097124

hola, Desiree !

... me da error de compilacion... como antes... no lo reconoce, se cree que son comentarios y ...

ya veo... 'el detalle'... esta en que las funciones que 'llaman' a las API's de windows...
-> deben ir al principio del modulo [es decir... 'abajito' de tu declaracion: Option Explicit] :)
[perdon... no fui especifico en cuanto a ese requerimiento] :-(
-> solo cambia de lugar [hacia arriba y cuando menos todas...]
-> las funciones del tipo 'Private Declare Function x_funcion Lib ... '
o... si lo prefieres... el codigo que expones lo cambias a... [como el ejemplo al final] :))

saludos,
hector.
=Option Explicit

Private Declare Function BuscarVentana _
Lib "User32" Alias "FindWindowA" ( _
ByVal Clase As String, ByVal Ventana As String) As Long

Private Declare Function ObtenerVentana _
Lib "User32" Alias "GetWindowLongA" ( _
ByVal Ventana As Long, ByVal Indice As Long) As Long

Private Declare Function EstablecerVentana _
Lib "User32" Alias "SetWindowLongA" ( _
ByVal Ventana As Long, ByVal Indice As Long, _
ByVal NuevoEstilo As Long) As Long

Private Declare Function MostrarVentana _
Lib "User32" Alias "ShowWindow" ( _
ByVal Ventana As Long, ByVal Comando As Long) As Long

Private Sub UserForm_Activate()
Dim miFormulario As Long, Estilo As Long
Me.SpecialEffect = fmSpecialEffectSunken
If val(Application.Version) < 9 _
Then miFormulario = BuscarVentana("ThunderXFrame", Me.Caption) _
Else miFormulario = BuscarVentana("ThunderDFrame", Me.Caption)
Estilo = ObtenerVentana(miFormulario, (-16))
Estilo = Estilo And Not &HC00000
EstablecerVentana miFormulario, (-16), Estilo
MostrarVentana miFormulario, 5
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
'Controlamos que no se pueda cerrar el formulario con el boton [X]
If CloseMode <> vbFormCode Then Cancel = True
End Sub

Private Sub cmdAeroBd_Click()
'Deja de mostrar el formulario actual
Unload Me
'Carga los valores de todos los aerogeneradores que tenemos en la _
base de datos y el formulario donde se muestran con todos los campos
RellenarAero
End Sub

Private Sub cmdBateriaBd_Click()
'Deja de mostrar el formulario actual
Unload Me
'Carga los valores de todos los depositos que tenemos en la _
base de datos y el formulario donde se muestran con todos los campos
RellenarBateria
End Sub

Private Sub cmdDepositosBd_Click()
'Deja de mostrar el formulario actual
Unload Me
'Carga los valores de todos los depositos que tenemos en la _
base de datos y el formulario donde se muestran con todos los campos
RellenarDeposito
End Sub

Private Sub cmdElectroBd_Click()
'Deja de mostrar el formulario actual
Unload Me
'Carga los valores de todos los electrolizadores que tenemos en la _
base de datos y el formulario donde se muestran con todos los campos
RellenarElectrolizador
End Sub

Private Sub cmdPanelesBd_Click()
'Deja de mostrar el formulario actual
Unload Me
'Carga los valores de todos los aerogeneradores que tenemos en la _
base de datos y el formulario donde se muestran con todos los campos
RellenarPanel
End Sub

Private Sub cmdPilaABd_Click()
'Deja de mostrar el formulario actual
Unload Me
'Carga los valores de todas las pilas alcalinas que tenemos en la _
base de datos y el formulario donde se muestran con todos los campos
RellenarPilaA
End Sub

Private Sub cmdPilaPBd_Click()
'Deja de mostrar el formulario actual
Unload Me
'Carga los valores de todas las pilas pem que tenemos en la _
base de datos y el formulario donde se muestran con todos los campos
RellenarPilaP
End Sub

Private Sub VolverEquipos_Click()
'Deja de mostrar el formulario actual y muestra la hoja de inicio
Unload Me
Qusuario
End Sub

Buenas, siento no haber respondido antes, pero es que en España hemo
estado de puente y he estado fuera.
He probado lo nuevo, y esta vez no me da error, pero no hacer nada l
unico que hace es ponerme los bordes del formualrio mas gruesos, y
creo que es por que no se cambiarlo para que desaparezca la barra, y
que comentaste lo de cambiar bordes y no se que, si me puedes deci
exactamente las propiedades a cambiar o así, pues te lo agradeceria.T
comento que tengo una imagen en el formulario, no se si influye algo.
Muchas Gracias por todas tus molestias

dargent
dargento's Profile: http://www.msusenet.com/member.php?userid4
View this thread: http://www.msusenet.com/t-187097124