Autor
|
Tema: remover em... (Leído 2,570 veces)
|
|
_Sergi_
Desconectado
Mensajes: 842
|
En primer lugar, para "borrar" la barra de título de un formulario tienes que establecer la propiedad BorderStyle a None. Esto solo se puede hacer en tiempo de diseño, en tiempo de ejecución no. Si quieres quitar la barra de título en tiempo de ejecución tendrás que usar APIs. En el ejemplo de más abajo utilizaremos las API CreatewindowRegtRgn y Setwindowreg para redibujar la ventana SIN el marco: Private Declare Function CreateRoundRectRgn Lib "gdi32" _ (ByVal X1 As Long, ByVal Y1 As Long, _ ByVal X2 As Long, ByVal Y2 As Long, _ ByVal X3 As Long, ByVal Y3 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" _ (ByVal hwnd As Long, ByVal hRgn As Long, _ ByVal bRedraw As Boolean) As Long
Private Sub Command1_Click() Dim lRet As Long Dim l As Long Dim Width As Long Dim Height As Long
Width = Me.ScaleWidth / Screen.TwipsPerPixelX Height = Me.ScaleHeight / Screen.TwipsPerPixelY
lRet = CreateRoundRectRgn(10, 35, Width, Height + 900, 0, 0)
l = SetWindowRgn(Me.hwnd, lRet, True) End Sub Para agregar un botón que cierre el programa solo tienes que escribir ésto: Private Sub Command1_Click() End 'Cerrar el programa End Sub Si lo que quieres es cerrar sólo el form Private Sub Command1_Click() Unload Me 'Cerrar el form End Sub Para minimizar: Private Sub Command1_Click() Me.Windowsstate = vbminimized 'Minimizar End Sub Un saludo.
|
|
|
En línea
|
Proyecto de Ingeniero
|
|
|
loco!
Desconectado
Mensajes: 143
|
te agradezco mucho. pero no entendi como poner eso de API soy muy n00b para vb estoy empezando otra cosa, el boton cerrar anda perfecto pero el de minimizar me da error una mas como hago para q cuando inserto un texto, al hacer doble click en el texto q agregue me habra una pagina de internet, por ejemplo google.com gracias,
|
|
« Última modificación: 6 Junio 2006, 06:26 am por loco! »
|
En línea
|
|
|
|
SheKeL_C$
Desconectado
Mensajes: 549
_-=[Sh3K3L_C$]=-_
|
Lo q t a escrito _Sergi_ tiene errores tontos este es el mismo code pero t va a funcionar. Private Declare Function CreateRoundRectRgn Lib "gdi32" _ (ByVal X1 As Long, ByVal Y1 As Long, _ ByVal X2 As Long, ByVal Y2 As Long, _ ByVal X3 As Long, ByVal Y3 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" _ (ByVal hwnd As Long, ByVal hRgn As Long, _ ByVal bRedraw As Boolean) As Long
Private Sub Command1_Click() Dim lRet As Long Dim l As Long Dim Width As Long Dim Height As Long
Width = Me.ScaleWidth / Screen.TwipsPerPixelX Height = Me.ScaleHeight / Screen.TwipsPerPixelY
lRet = CreateRoundRectRgn(10, 35, Width, Height + 900, 0, 0)
l = SetWindowRgn(Me.hwnd, lRet, True) End Sub
Private Sub Command4_Click() End 'Cerrar el programa End Sub
Private Sub Command2_Click() Unload Me 'Cerrar el form End Sub
Private Sub Command3_Click() Me.WindowState = vbMinimized 'Minimizar End Sub Lo d q habra la pagina web seria asi Set web = CreateObject("WScript.Shell") web.Run "http://" & Text1.Text Tan solo decirte q eso t va a servir pero si lo kieres hacer muxo mejor busca sobre la API k t abre las web
|
|
|
En línea
|
|
|
|
loco!
Desconectado
Mensajes: 143
|
Lo q t a escrito _Sergi_ tiene errores tontos este es el mismo code pero t va a funcionar. Private Declare Function CreateRoundRectRgn Lib "gdi32" _ (ByVal X1 As Long, ByVal Y1 As Long, _ ByVal X2 As Long, ByVal Y2 As Long, _ ByVal X3 As Long, ByVal Y3 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" _ (ByVal hwnd As Long, ByVal hRgn As Long, _ ByVal bRedraw As Boolean) As Long
Private Sub Command1_Click() Dim lRet As Long Dim l As Long Dim Width As Long Dim Height As Long
Width = Me.ScaleWidth / Screen.TwipsPerPixelX Height = Me.ScaleHeight / Screen.TwipsPerPixelY
lRet = CreateRoundRectRgn(10, 35, Width, Height + 900, 0, 0)
l = SetWindowRgn(Me.hwnd, lRet, True) End Sub
Private Sub Command4_Click() End 'Cerrar el programa End Sub
Private Sub Command2_Click() Unload Me 'Cerrar el form End Sub
Private Sub Command3_Click() Me.WindowState = vbMinimized 'Minimizar End Sub Lo d q habra la pagina web seria asi Set web = CreateObject("WScript.Shell") web.Run "http://" & Text1.Text Tan solo decirte q eso t va a servir pero si lo kieres hacer muxo mejor busca sobre la API k t abre las web te agradezco mucho, siempre q pretunto algo me olvido de buscar pero tengo dos preguntas 1) el codigo de la web me tira error 2) como hago para q cuadno abro el programa me aparezca donde esta pintado de rojo en la imagen?? http://img116.imageshack.us/img116/2857/untitled2eq1.jpges eso de API?? una mas, busque sobre API, pero no encontre mi problema es.. donde tengo q poner ese codigo?? gracias,
|
|
« Última modificación: 6 Junio 2006, 11:00 am por loco! »
|
En línea
|
|
|
|
SheKeL_C$
Desconectado
Mensajes: 549
_-=[Sh3K3L_C$]=-_
|
Tienes q poner el codigo en el form ( m refiero en la parte de codear ) lo d las apis t recomeindo q t bajes el API-Guide k t hace una lista de muxas apis y t pone algunos ejemplos Lo d q t apareza en la abajo en forma de pestaña... no tengo ni dea Lo del error de la pagina web, pon esto : Private Sub Text1_DblClick() Set web = CreateObject("WScript.Shell") web.Run "http://" & Text1.Text End Sub Siendo el text1 el texbox q tienes
|
|
|
En línea
|
|
|
|
loco!
Desconectado
Mensajes: 143
|
Tienes q poner el codigo en el form ( m refiero en la parte de codear ) lo d las apis t recomeindo q t bajes el API-Guide k t hace una lista de muxas apis y t pone algunos ejemplos Lo d q t apareza en la abajo en forma de pestaña... no tengo ni dea Lo del error de la pagina web, pon esto : Private Sub Text1_DblClick() Set web = CreateObject("WScript.Shell") web.Run "http://" & Text1.Text End Sub Siendo el text1 el texbox q tienes te agradezco por tu ayuda, pero tengo un problema cuando pongo proyecto nuevo y agrego un text y pongo para q abra la web, anda perfecto, pero cuando lo pongo en el proyecto q estoy haciendo me tira este error http://img387.imageshack.us/img387/3689/untitled6dr.jpgalguien sabe por q? si alguien sabe esto como hago para q cuadno abro el programa me aparezca donde esta pintado de rojo en la imagen?? http://img116.imageshack.us/img116/2857/untitled2eq1.jpgse lo agradeceriaa mucho
|
|
|
En línea
|
|
|
|
_Sergi_
Desconectado
Mensajes: 842
|
como hago para q cuadno abro el programa me aparezca donde esta pintado de rojo en la imagen??
Private Sub Form_Load() WindowState = 1 End Sub
|
|
|
En línea
|
Proyecto de Ingeniero
|
|
|
loco!
Desconectado
Mensajes: 143
|
les agradezco mucho lo unico q no me funciono fue lo siguiente gracias,
|
|
|
En línea
|
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
Remover Publicidad de Click en una aplicación
Dudas Generales
|
jisn064
|
0
|
1,435
|
21 Septiembre 2013, 01:18 am
por jisn064
|
|
|
[SOURCE] MP3 Tag Remover
.NET (C#, VB.NET, ASP)
|
Eleкtro
|
1
|
1,835
|
28 Junio 2014, 23:41 pm
por Eleкtro
|
|
|
Remover python 3.5 del sistema
GNU/Linux
|
wolf_geek
|
0
|
1,487
|
25 Diciembre 2015, 23:10 pm
por wolf_geek
|
|
|
Remover proteção dongle
Ingeniería Inversa
|
Geovane
|
0
|
2,138
|
11 Febrero 2017, 17:47 pm
por Geovane
|
|
|
¿Cómo remover el .html en una url?
Desarrollo Web
|
ElAlien725
|
4
|
2,362
|
12 Febrero 2019, 03:13 am
por ElAlien725
|
|