elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Guía actualizada para evitar que un ransomware ataque tu empresa


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  Mostrar/Ocultar
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] 2 Ir Abajo Respuesta Imprimir
Autor Tema: Mostrar/Ocultar  (Leído 6,055 veces)
SγиtαxEяяoя

Desconectado Desconectado

Mensajes: 154


Ver Perfil
Mostrar/Ocultar
« en: 30 Mayo 2013, 19:01 pm »

Hola. me pregunto si hay algun codigo que otorgue la funcion que al pasar el mouse cambie la imagen de un picturebox y que al quitar el mouse vuelva a la imagen anterior



En línea

Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.700



Ver Perfil
Re: Mostrar/Ocultar
« Respuesta #1 en: 30 Mayo 2013, 19:17 pm »

Usa el evento "MouseEnter" y "MouseLeave", es así de fácil.

Saludos!


En línea


z3nth10n


Desconectado Desconectado

Mensajes: 1.584


"Jack of all trades, master of none." - Zenthion


Ver Perfil WWW
Re: Mostrar/Ocultar
« Respuesta #2 en: 30 Mayo 2013, 19:48 pm »

Yo tengo un code:

Código
  1.    Private Sub picMini_MouseEnter(sender As Object, e As EventArgs) Handles picMini.MouseEnter
  2.        sender.Image = Mini_Off
  3.    End Sub
  4.  
  5.    Private Sub picMini_MouseLeave(sender As Object, e As EventArgs) Handles picMini.MouseLeave
  6.        sender.Image = Mini_On
  7.    End Sub

Recuerda poner en el Form load alguna imagen.

Código
  1.    Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  2.        picMini.Image = Mini_On 'Aqui se carga la que se va a mostrar por defecto
  3.        picMini.BackColor = Color.Transparent 'Por si tiene transparencias la imagen

Y como supondrás el Mini_Off es un Dim...

Código
  1.    Dim Mini_Off As Image = Image.FromFile(".\Art\Buttons\Mini_Off.png")
  2.    Dim Mini_On As Image = Image.FromFile(".\Art\Buttons\Mini_On.png")

Un saludo.
En línea


Interesados hablad por Discord.
SγиtαxEяяoя

Desconectado Desconectado

Mensajes: 154


Ver Perfil
Re: Mostrar/Ocultar
« Respuesta #3 en: 30 Mayo 2013, 21:50 pm »

Aprovecho de una ves... y como hago para no mover el form.. es decir bloquearlo

que cuando se abra no se pueda mover
En línea

XresH


Desconectado Desconectado

Mensajes: 384



Ver Perfil WWW
Re: Mostrar/Ocultar
« Respuesta #4 en: 31 Mayo 2013, 00:57 am »

La propiedad FormBorderStyle en valor 0 quita el contorno del Formulario, por lo que no se puede mover, es una alternativa rápida, no se si querés algo mas elaborado y mantener los bordes y botones, habría que trabajar sobre algunos eventos cuando detecte movimiento, creo que es Form_Move no me acuerdo bien.


Saludos.
En línea

[ - Si eres programador y quieres que tus proyectos esten en mi blog(con o sin source), consúltame! - ]
Entra A Mi Blog De Programación | | Dudas en este post :| | >>Clic para ir al Post<<
Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.700



Ver Perfil
Re: Mostrar/Ocultar
« Respuesta #5 en: 31 Mayo 2013, 09:24 am »

Aprovecho de una ves... y como hago para no mover el form.. es decir bloquearlo

que cuando se abra no se pueda mover

La manera sencilla:

Código
  1.    Dim Fixed_Location As Point ' = New Point(X, Y) ' Seteamos el valor por defecto.
  2.  
  3.    Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
  4.        ' ...O seteamos el valor por defecto cuando la ventana se haya creado.
  5.        Fixed_Location = New Point(Me.Location.X, Me.Location.Y)
  6.    End Sub
  7.  
  8.    Private Sub Form1_Move(sender As Object, e As EventArgs) Handles MyBase.Move
  9.        If Me.Visible Then Me.Location = Fixed_Location
  10.    End Sub

Después de hacerlo me he encontrado con el problema de que el layer de la ventana se sigue dibujando por la pantalla si se mantiene el botón del mouse para intentar arrastrarlo, es una cosa sin importancia, pero como me gusta la eficacia, al final he buscado la manera de hacerlo usando los mensajes de Windows:

(Este código no es mío)
Código
  1. #Region " Cancel Move Form "
  2.  
  3.    ' Examples:
  4.    ' Me.Moveable = False
  5.    ' Me.Moveable = True
  6.  
  7.    Private Declare Function EnableMenuItem Lib "user32.dll" Alias "EnableMenuItem" (ByVal hMenu As IntPtr, ByVal uIDEnableItem As Int32, ByVal uEnable As Int32) As Int32
  8.  
  9.    Private bMoveable As Boolean = True
  10.  
  11.    Public Overridable Property Moveable() As Boolean
  12.        Get
  13.            Return bMoveable
  14.        End Get
  15.        Set(ByVal Value As Boolean)
  16.            If bMoveable <> Value Then
  17.                bMoveable = Value
  18.            End If
  19.        End Set
  20.    End Property
  21.  
  22.    Protected Overrides Sub WndProc(ByRef m As Message)
  23.  
  24.        If m.Msg = &H117& Then
  25.            'Handles popup of system menu.
  26.            If m.LParam.ToInt32 \ 65536 <> 0 Then 'divide by 65536 to get hiword.
  27.                Dim AbleFlags As Int32 = &H0&
  28.                If Not Moveable Then AbleFlags = &H2& Or &H1&
  29.                EnableMenuItem(m.WParam, &HF010&, &H0& Or AbleFlags)
  30.            End If
  31.        End If
  32.  
  33.        If Not Moveable Then
  34.            'Cancels any attempt to drag the window by it's caption.
  35.            If m.Msg = &HA1 Then If m.WParam.ToInt32 = &H2 Then Return
  36.            'Redundant but cancels any clicks on the Move system menu item.
  37.            If m.Msg = &H112 Then If (m.WParam.ToInt32 And &HFFF0) = &HF010& Then Return
  38.        End If
  39.  
  40.        'Return control to base message handler.
  41.        MyBase.WndProc(m)
  42.  
  43.    End Sub
  44.  
  45. #End Region

Saludos...
En línea


XresH


Desconectado Desconectado

Mensajes: 384



Ver Perfil WWW
Re: Mostrar/Ocultar
« Respuesta #6 en: 31 Mayo 2013, 09:39 am »

La manera sencilla:

Código
  1.    Dim Fixed_Location As Point ' = New Point(X, Y) ' Seteamos el valor por defecto.
  2.  
  3.    Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
  4.        ' ...O seteamos el valor por defecto cuando la ventana se haya creado.
  5.        Fixed_Location = New Point(Me.Location.X, Me.Location.Y)
  6.    End Sub
  7.  
  8.    Private Sub Form1_Move(sender As Object, e As EventArgs) Handles MyBase.Move
  9.        If Me.Visible Then Me.Location = Fixed_Location
  10.    End Sub

Después de hacerlo me he encontrado con el problema de que el layer de la ventana se sigue dibujando por la pantalla si se mantiene el botón del mouse para intentar arrastrarlo, es una cosa sin importancia, pero como me gusta la eficacia, al final he buscado la manera de hacerlo usando los mensajes de Windows:

(Este código no es mío)
Código
  1. #Region " Cancel Move Form "
  2.  
  3.    ' Examples:
  4.    ' Me.Moveable = False
  5.    ' Me.Moveable = True
  6.  
  7.    Private Declare Function EnableMenuItem Lib "user32.dll" Alias "EnableMenuItem" (ByVal hMenu As IntPtr, ByVal uIDEnableItem As Int32, ByVal uEnable As Int32) As Int32
  8.  
  9.    Private bMoveable As Boolean = True
  10.  
  11.    Public Overridable Property Moveable() As Boolean
  12.        Get
  13.            Return bMoveable
  14.        End Get
  15.        Set(ByVal Value As Boolean)
  16.            If bMoveable <> Value Then
  17.                bMoveable = Value
  18.            End If
  19.        End Set
  20.    End Property
  21.  
  22.    Protected Overrides Sub WndProc(ByRef m As Message)
  23.  
  24.        If m.Msg = &H117& Then
  25.            'Handles popup of system menu.
  26.            If m.LParam.ToInt32 \ 65536 <> 0 Then 'divide by 65536 to get hiword.
  27.                Dim AbleFlags As Int32 = &H0&
  28.                If Not Moveable Then AbleFlags = &H2& Or &H1&
  29.                EnableMenuItem(m.WParam, &HF010&, &H0& Or AbleFlags)
  30.            End If
  31.        End If
  32.  
  33.        If Not Moveable Then
  34.            'Cancels any attempt to drag the window by it's caption.
  35.            If m.Msg = &HA1 Then If m.WParam.ToInt32 = &H2 Then Return
  36.            'Redundant but cancels any clicks on the Move system menu item.
  37.            If m.Msg = &H112 Then If (m.WParam.ToInt32 And &HFFF0) = &HF010& Then Return
  38.        End If
  39.  
  40.        'Return control to base message handler.
  41.        MyBase.WndProc(m)
  42.  
  43.    End Sub
  44.  
  45. #End Region

Saludos...

Lo probe y funciona de 10, gracias por el aporte Electro!

Saludos!
En línea

[ - Si eres programador y quieres que tus proyectos esten en mi blog(con o sin source), consúltame! - ]
Entra A Mi Blog De Programación | | Dudas en este post :| | >>Clic para ir al Post<<
SγиtαxEяяoя

Desconectado Desconectado

Mensajes: 154


Ver Perfil
Re: Mostrar/Ocultar
« Respuesta #7 en: 31 Mayo 2013, 20:38 pm »

Tengo otra duda, al seleccionar un Form automaticamente se muestra la barra de tareas :(

como puedo solucionar este problema ??'


Edito:


a lo que me refiero es que estoy en un juego "FullScreen" y al form le di la propiedad de "TopMost" pero al seleccionar algo del form se muestra la barra de tareas.. no se si me explico bien
« Última modificación: 31 Mayo 2013, 21:18 pm por SyntaxError404 » En línea

Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.700



Ver Perfil
Re: Mostrar/Ocultar
« Respuesta #8 en: 31 Mayo 2013, 20:50 pm »

Tengo otra duda, al seleccionar un Form automaticamente se muestra la barra de tareas :(

como puedo solucionar este problema ??'

¿Que automáticamente se muestra la barra de taréas, o que automáticamente se muestra el Item de la aplicación en la barra de tareas?

Si es lo segundo entonces una manera de solucionarlo es leyendo el nombre y la descripción de las Propiedades de un Fom... hazlo y pronto sabrás porque te lo dije  :P

Un saludo.
« Última modificación: 31 Mayo 2013, 20:52 pm por EleKtro H@cker » En línea


z3nth10n


Desconectado Desconectado

Mensajes: 1.584


"Jack of all trades, master of none." - Zenthion


Ver Perfil WWW
Re: Mostrar/Ocultar
« Respuesta #9 en: 31 Mayo 2013, 20:53 pm »

Elektro tienes razón el es peor que yo  :o :o
En línea


Interesados hablad por Discord.
Páginas: [1] 2 Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
js- Mostrar y ocultar divs. Ayuda
Desarrollo Web
70N1 2 1,648 Último mensaje 9 Agosto 2014, 23:02 pm
por 70N1
[Resuelto] mostrar/ocultar noticias
Desarrollo Web
basickdagger 2 1,306 Último mensaje 20 Enero 2015, 21:23 pm
por MinusFour
mostrar y ocultar elementos rompe el estilo
Desarrollo Web
gAb1 2 1,765 Último mensaje 8 Noviembre 2015, 21:12 pm
por gAb1
ayuda, ocultar, mostrar filas con javascript.
Desarrollo Web
ameagle04 1 2,105 Último mensaje 5 Febrero 2016, 00:58 am
por CeLaYa
Cómo ocultar o mostrar redes WiFi en Windows
Noticias
wolfbcn 0 1,044 Último mensaje 26 Enero 2017, 21:41 pm
por wolfbcn
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines