|
8951
|
Programación / .NET (C#, VB.NET, ASP) / Re: Mostrar/Ocultar
|
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 Un saludo.
|
|
|
8952
|
Programación / .NET (C#, VB.NET, ASP) / Hook global para los Windows Messages?
|
en: 31 Mayo 2013, 20:43 pm
|
¿ Alguien sería tán amable de mostrarme un código para crear un Hook de bajo nivel GLOBAL (que funcione FUERA del Form) para manejar los mensajes de windows (En concreto WM_MOUSEWHEEL) ? Esto he aprendido a hacerlo dentro del Form con la Interface "IMessageFilter", pero cuando lo intento hacer para que funcione fuera del form no hay manera, todo lo que consigo son un par de Fails!, Me han explicado la manera de hacerlo global, se puede hacer importando la librería user32.dll (La función "SetWindowsHookEx") para crear un low-level hook para interceptar los mensajes de Windows, la teoría la tengo, pero no sé hacerlo, me trabo en el punto de intentar usar la función "SetWindowsHookEx" y crear el sub para interceptar los mensajes (if m.message = &HX then...), todo el código que encuentro es para C++/C#, y para lo poco que encuentro de VBNET, (que además tiene poco que ver con los mensajes que quiero interceptar) ni me entero, bastante dificil. Lo que necesito es hacer algo como esto: Pseudo-código: Dim mousewheel_up as boolean Dim mousewheel_down as boolean Sub that Overides the windows messages to set the mousewheel booleans If mousewheel_up then msgbox("MouseWheel up") If mousewheel_down then msgbox("MouseWheel down") End sub
Pero como ya digo, fuera del form. Un saludo.
|
|
|
8953
|
Programación / .NET (C#, VB.NET, ASP) / Re: Librería de Snippets !! (Posteen aquí sus snippets)
|
en: 31 Mayo 2013, 20:33 pm
|
- Detect mouse wheel direction. Comprueba en que dirección se movió la rueda del mouse. Private Sub Form_MouseWheel(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseWheel Select Case Math.Sign(e.Delta) Case Is < 0 MsgBox("MouseWheel Down") Case Is > 0 MsgBox("MouseWheel Up") End Select End Sub
Comprueba en que dirección se movió la rueda del mouse. ...Lo mismo que antes pero usando los mensajes de Windows: Public Shared Mouse_Have_Wheel As Boolean = My.Computer.Mouse.WheelExists Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Application.AddMessageFilter(New MouseWheelMessageFilter()) End Sub Public Class MouseWheelMessageFilter Implements IMessageFilter Public Function PreFilterMessage(ByRef m As Message) As Boolean Implements IMessageFilter.PreFilterMessage If Mouse_Have_Wheel Then If m.Msg = &H20A Then If Form.ActiveForm IsNot Nothing Then Try ' "Try" solves too fast wheeling. Dim delta As Integer = m.WParam.ToInt32() >> 16 If delta > 0 Then MsgBox("MouseWheel Up") Else MsgBox("MouseWheel Down") End If Catch : End Try End If Return True End If End If Return False End Function End Class
Ejemplo de como modificar la fuente de texto actual de un control: Me.Font = New Font("Lucida Console", 16, FontStyle.Regular, GraphicsUnit.Point)
|
|
|
8954
|
Programación / .NET (C#, VB.NET, ASP) / Re: Librería de Snippets !! (Posteen aquí sus snippets)
|
en: 31 Mayo 2013, 19:48 pm
|
Convierte código Hexadecimal a número Win32Hex #Region " Hex To Win32Hex " ' [ Hex To Win32Hex Function ] ' ' // By Elektro H@cker ' ' Examples: ' MsgBox(Hex_To_Win32Hex("FF4")) ' Result: &HFF4 ' MsgBox(Hex_To_Win32Hex("0xFF4")) ' Result: &HFF4 ' Dim Number As Int32 = Hex_To_Win32Hex("0xFF4") ' Result: 4084 Private Function Hex_To_Win32Hex(ByVal Hex As String) As String If Hex.ToLower.StartsWith("0x") Then Hex = Hex.Substring(2, Hex.Length - 2) Return "&H" & Hex End Function #End Region
|
|
|
8955
|
Programación / Scripting / Re: Ayuda con un Acceso denegado
|
en: 31 Mayo 2013, 19:03 pm
|
@DUF Porfavor, usa el botón "Insertar código", lo puedes ver en mi firma.
La operación de asignación de permisos es correcta. Prueba de esta manera: Set "Directory= %WINDIR%\system32" COPY /Y "\\10.0.51.42\blat310\full\blat.exe" " %Directory%\blat.exe" 1 >NUL ) :INICIA :TAKEACCESS takeown /F " %Directory%" 1 >NUL Icacls " %Directory%" /Grant " %USERNAME%":F 1 >NULAttrib -R " %Directory%" 1 >NUL
Saludos
|
|
|
8956
|
Programación / .NET (C#, VB.NET, ASP) / Re: [APLICACIÓN] ComRem 1.3
|
en: 31 Mayo 2013, 18:29 pm
|
@Seazoux El término Ironía se queda un poco corto. sarcasmo.
(Del lat. sarcasmus, y este del gr. σαρκασμός).
1. m. Burla sangrienta, ironía mordaz y cruel con que se ofende o maltrata a alguien o algo. Es broma, un poco de offtopic no viene mal, pues ya ni hay source ni hay programa aquí. PD: Ni un scan en Anubis xD. @El Benjo Estoy seguro que los mods aceptarán tus disculpas, yo espero poder ver el source! Saludos!
|
|
|
8957
|
Programación / .NET (C#, VB.NET, ASP) / Re: Problema al mostrar el Form Parent
|
en: 31 Mayo 2013, 18:22 pm
|
No la intento retrasar, lo que intento es retrasar la apertura del Form2 para que se vea la imagen 2 del cuadro. XD Ahora si, primero lo que decías que querías retrasar era una imágen y ahora es el form xD, eso sí, no estaba loco yo, ya está aclarado. salu2!
|
|
|
8958
|
Programación / .NET (C#, VB.NET, ASP) / Re: Problema al mostrar el Form Parent
|
en: 31 Mayo 2013, 18:15 pm
|
A veces si tengo complicaciones para entenderte a tí, pero no me extraña!
A ver si ahora lo he captado:
Ese "timer1.start" lo tienes SÓLAMENTE PARA INTENTAR RETRASAR la ejecución de la instrucción de arriba (picturebox1.image = blablabla), es decir que con ese timer no quieres hacer nada, solo quieres que exista para poder escribir "timer1.start" para hacer una especie de "sleep"?
Eso es más increible que lo de no entendernos, usa Thread.sleep.
Saludos!
|
|
|
8959
|
Programación / .NET (C#, VB.NET, ASP) / Re: Problema al mostrar el Form Parent
|
en: 31 Mayo 2013, 18:07 pm
|
Ya se que la imagen no la muestra el Timer, lo que quiero hacer es que se vea... Porque si la muestro sin ponerle un retraso de 50ms mínimo no se ve nada así que... No, primero dices que el timer muestra una imágen (no me jodas, eso lo has dicho, no estoy loco), luego dices que sabes que el Timer no muestra la imágen pero que lo que quieres hacer es que el Timer muestre la imágen?, me parece un poco lío. ¿Que quieres hacer y cual es el problema?, tengo el form aquí, aprovecha siendo claro.
|
|
|
8960
|
Programación / .NET (C#, VB.NET, ASP) / Re: Problema al mostrar el Form Parent
|
en: 31 Mayo 2013, 18:03 pm
|
PD: A lo mejor dentro de unos años volveré a ver mis topics (cuando sepa algo más de VB.NET) y diré pues vaya gilipollez hice aquellos días Elektro llevaba razón... Pero en fin... déjame con mi realidad... ¡¿Será posible?! Lo más increible es que aún sigas poniéndolo en duda y creas que llevas razón. vale, yo lo dejo, me rindo ya, llevas razón y ese timer muestra una imágen xD, ahoraaa... en el futuro no nos vengas con problemas de que un Timer no te muestra cierta imágen, porque verás...!! xD es broma, más o menos, me rio por no llorar. incrédulos... un saludo, ya no hago más spam.
|
|
|
|
|
|
|