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

 

 


Tema destacado: Estamos en la red social de Mastodon


  Mostrar Mensajes
Páginas: 1 ... 971 972 973 974 975 976 977 978 979 980 981 982 983 984 985 [986] 987 988 989 990 991 992 993 994 995 996 997 998 999 1000 1001 ... 1236
9851  Programación / .NET (C#, VB.NET, ASP) / Re: Evento "IsClicked" o algo parecido para los botones? en: 6 Enero 2013, 03:36 am
Era más fácil de lo que pensaba, y con un AddHandler añadiré el resto de botones (Otra cosa que aprendí de tí xD),
si que me has servido de ayuda (como siempre) ;D

Saludos!




EDITO:

Pues si que me queda una duda... pero es simple curiosidad...

¿Que diferencia hay si en lugar de hacer esto como lo estoy haciendo (IF, ELSEIF) lo hiciera con un select case?
¿Que es mejor, y porqué?

He estado intentando comparar y pensar en el razonamiento de cual sería mejor usar en este caso, pero a mi parecer creo que daría exactamente el mismo resultado sin optimización ninguna del código, símplemente es lo mismo pero distinto de hacer (para este caso), ¿Me equivoco?.



Código
  1.     Private Sub Buttons_Folders_Clicked(sender As Object, e As EventArgs) Handles _
  2.         Button_2000_2006.Click, _
  3.         Button_2007.Click, _
  4.         Button_2008.Click, _
  5.         Button_2009.Click, _
  6.         Button_2010.Click, _
  7.         Button_2011.Click, _
  8.         Button_2012.Click, _
  9.         Button_2013.Click, _
  10.         Button_BSO.Click, _
  11.         Button_Classic.Click
  12.  
  13.         Dim Clicked_Button As Button = CType(sender, Button)
  14.         Dim Folders As New List(Of String)
  15.  
  16.         If Clicked_Button.Name = "Button_2000_2006" Then
  17.             ResourceTag = "_2000_2006_"
  18.             Folders.Add("Dance")
  19.             Folders.Add("Electro")
  20.             Folders.Add("Flamenco")
  21.             Folders.Add("Folk")
  22.             Folders.Add("Happy Hardcore")
  23.             Folders.Add("Hard-Techno-Progressive")
  24.             Folders.Add("Hard-Trance")
  25.             Folders.Add("Hardcore")
  26.             Folders.Add("Hardstyle")
  27.             Folders.Add("Hip-hop (English)")
  28.             Folders.Add("Hip-hop (Spanish)")
  29.             Folders.Add("Jumpstyle")
  30.             Folders.Add("Makina")
  31.             Folders.Add("Newstyle")
  32.             Folders.Add("Poky")
  33.             Folders.Add("Pop (English)")
  34.             Folders.Add("Pop (Spanish)")
  35.             Folders.Add("Progressive")
  36.             Folders.Add("Psychodelic")
  37.             Folders.Add("Reggaeton")
  38.             Folders.Add("Rock (English)")
  39.             Folders.Add("Rock (Spanish)")
  40.             Folders.Add("Techno")
  41.             Folders.Add("Trance")
  42.             Folders.Add("UK Hardcore")
  43.         ElseIf Clicked_Button.Name = "Button_2007" Then
  44.             ResourceTag = "_2007_"
  45.             Folders.Add("Dance")
  46.             Folders.Add("Electro")
  47.             Folders.Add("Flamenco")
  48.             Folders.Add("Folk")
  49.             Folders.Add("Hard-Techno-Progressive")
  50.             Folders.Add("Hard-Trance")
  51.             Folders.Add("Hardcore")
  52.             Folders.Add("Hardstyle")
  53.             Folders.Add("Hip-hop (English)")
  54.             Folders.Add("Jumpstyle")
  55.             Folders.Add("Makina")
  56.             Folders.Add("Newstyle")
  57.             Folders.Add("Poky")
  58.             Folders.Add("Pop (English)")
  59.             Folders.Add("Pop (Spanish)")
  60.             Folders.Add("Rock (English)")
  61.             Folders.Add("Techno")
  62.             Folders.Add("UK Hardcore")
  63.         ElseIf Clicked_Button.Name = "Button_2008" Then
  64.             ResourceTag = "_2008_"
  65.             Folders.Add("Dance")
  66.             Folders.Add("Electro")
  67.             Folders.Add("Flamenco")
  68.             Folders.Add("Folk")
  69.             Folders.Add("Hard-Techno-Progressive")
  70.             Folders.Add("Hard-Trance")
  71.             Folders.Add("Hardcore")
  72.             Folders.Add("Hardstyle")
  73.             Folders.Add("Hip-hop (Spanish)")
  74.             Folders.Add("Jumpstyle")
  75.             Folders.Add("Makina")
  76.             Folders.Add("Newstyle")
  77.             Folders.Add("Poky")
  78.             Folders.Add("Pop (English)")
  79.             Folders.Add("Pop (Spanish)")
  80.             Folders.Add("Progressive")
  81.             Folders.Add("Psychodelic")
  82.             Folders.Add("Reggaeton")
  83.             Folders.Add("Rock (English)")
  84.             Folders.Add("Rock (Spanish)")
  85.             Folders.Add("Techno")
  86.             Folders.Add("Trance")
  87.             Folders.Add("UK Hardcore")
  88.         ElseIf Clicked_Button.Name = "Button_2009" Then
  89.             ResourceTag = "_2009_"
  90.             Folders.Add("Dance")
  91.             Folders.Add("Electro")
  92.             Folders.Add("Flamenco")
  93.             Folders.Add("Folk")
  94.             Folders.Add("Hard-Techno-Progressive")
  95.             Folders.Add("Hard-Trance")
  96.             Folders.Add("Hardcore")
  97.             Folders.Add("Hardstyle")
  98.             Folders.Add("Hip-hop (Spanish)")
  99.             Folders.Add("Jumpstyle")
  100.             Folders.Add("Makina")
  101.             Folders.Add("Newstyle")
  102.             Folders.Add("Poky")
  103.             Folders.Add("Pop (English)")
  104.             Folders.Add("Pop (Spanish)")
  105.             Folders.Add("Progressive")
  106.             Folders.Add("Psychodelic")
  107.             Folders.Add("Reggaeton")
  108.             Folders.Add("Rock (English)")
  109.             Folders.Add("Rock (Spanish)")
  110.             Folders.Add("Techno")
  111.             Folders.Add("Trance")
  112.             Folders.Add("UK Hardcore")
  113.         ElseIf Clicked_Button.Name = "Button_2010" Then
  114.             ResourceTag = "_2010_"
  115.             Folders.Add("Dance")
  116.             Folders.Add("Electro")
  117.             Folders.Add("Flamenco")
  118.             Folders.Add("Folk")
  119.             Folders.Add("Hard-Techno-Progressive")
  120.             Folders.Add("Hard-Trance")
  121.             Folders.Add("Hardcore")
  122.             Folders.Add("Hardstyle")
  123.             Folders.Add("Hip-hop (Spanish)")
  124.             Folders.Add("Jumpstyle")
  125.             Folders.Add("Makina")
  126.             Folders.Add("Newstyle")
  127.             Folders.Add("Poky")
  128.             Folders.Add("Pop (English)")
  129.             Folders.Add("Pop (Spanish)")
  130.             Folders.Add("Progressive")
  131.             Folders.Add("Psychodelic")
  132.             Folders.Add("Reggaeton")
  133.             Folders.Add("Rock (English)")
  134.             Folders.Add("Rock (Spanish)")
  135.             Folders.Add("Techno")
  136.             Folders.Add("Trance")
  137.             Folders.Add("UK Hardcore")
  138.         ElseIf Clicked_Button.Name = "Button_2011" Then
  139.             ResourceTag = "_2011_"
  140.             Folders.Add("Dance")
  141.             Folders.Add("Electro")
  142.             Folders.Add("Flamenco")
  143.             Folders.Add("Folk")
  144.             Folders.Add("Hard-Trance")
  145.             Folders.Add("Hardcore")
  146.             Folders.Add("Hardstyle")
  147.             Folders.Add("Hip-hop (English)")
  148.             Folders.Add("Hip-hop (Spanish)")
  149.             Folders.Add("Jumpstyle")
  150.             Folders.Add("Makina")
  151.             Folders.Add("Newstyle")
  152.             Folders.Add("Poky")
  153.             Folders.Add("Pop (English)")
  154.             Folders.Add("Pop (Spanish)")
  155.             Folders.Add("Progressive")
  156.             Folders.Add("Psychodelic")
  157.             Folders.Add("Reggaeton")
  158.             Folders.Add("Rock (English)")
  159.             Folders.Add("Rock (Spanish)")
  160.             Folders.Add("Techno")
  161.             Folders.Add("Trance")
  162.             Folders.Add("UK Hardcore")
  163.         ElseIf Clicked_Button.Name = "Button_2012" Then
  164.             ResourceTag = "_2012_"
  165.             Folders.Add("Dance")
  166.             Folders.Add("Electro")
  167.             Folders.Add("Flamenco")
  168.             Folders.Add("Folk")
  169.             Folders.Add("Hard-Trance")
  170.             Folders.Add("Hardcore")
  171.             Folders.Add("Hardstyle")
  172.             Folders.Add("Hip-hop (English)")
  173.             Folders.Add("Hip-hop (Spanish)")
  174.             Folders.Add("Jumpstyle")
  175.             Folders.Add("Makina")
  176.             Folders.Add("Newstyle")
  177.             Folders.Add("Poky")
  178.             Folders.Add("Pop (English)")
  179.             Folders.Add("Pop (Spanish)")
  180.             Folders.Add("Progressive")
  181.             Folders.Add("Psychodelic")
  182.             Folders.Add("Reggaeton")
  183.             Folders.Add("Rock (English)")
  184.             Folders.Add("Rock (Spanish)")
  185.             Folders.Add("Techno")
  186.             Folders.Add("Trance")
  187.             Folders.Add("UK Hardcore")
  188.         ElseIf Clicked_Button.Name = "Button_2013" Then
  189.             ResourceTag = "_2013_"
  190.             Folders.Add("Electro")
  191.             Folders.Add("Hardcore")
  192.             Folders.Add("Hardstyle")
  193.             Folders.Add("Pop (English)")
  194.             Folders.Add("Rock (English)")
  195.             Folders.Add("Techno")
  196.             Folders.Add("UK Hardcore")
  197.         ElseIf Clicked_Button.Name = "Button_BSO" Then
  198.             Folders.Add("BSO")
  199.         ElseIf Clicked_Button.Name = "Button_Classic" Then
  200.             Folders.Add("Classic")
  201.         End If
  202.  
  203.         AddSubfolders(Folders)
  204.     End Sub
9852  Programación / .NET (C#, VB.NET, ASP) / Re: Listview + OnKeyPress event en: 6 Enero 2013, 03:33 am
uf, muchas gracias Seba,
me quitas un peso de encima con ese method, estaba cagado de miedo por si la única alternativa era usar el ObjectListView (Alguna de sus propiedades que hiciera eso automáticamente), no sé si será muy lógico lo que acabo de decir... porque siempre se puede codear lo necesario o en este caso ya hay un method que nos ayuda a hacerlo, pero ... :xD

PD: Deseando ver un día de estos un tutorial de como crear el modelo de objeto para agregar un item en el ObjectListView  :silbar:  ;D

Saludos
9853  Programación / .NET (C#, VB.NET, ASP) / Re: ¿Como se hace un "NumberPicker"? en: 6 Enero 2013, 03:16 am
Tienen razón he estado estúpido con esta pregunta xD
9854  Programación / .NET (C#, VB.NET, ASP) / Listview + OnKeyPress event en: 6 Enero 2013, 02:18 am
Lo siento pero no se como se le llama a lo que pretendo hacer, así que le llamaré "easy-find" xD,

Esta listview tiene 4 columnas, y me gustaría que la listview se comportase de la siguiente manera con la columna nº 2 ("Archivo"):

- Al pulsar una tecla del teclado (una tecla del alfabeto), visualizar/seleccionar la primera línea que empiece por esa letra.

- (MENOS IMPORTANTE) > Si la columna está desordenada, la misma lógica pero seleccionar la línea más cercana empezando a buscar desde la linea seleccionada, HACIA ABAJO.

Imagino que costará un poco de trabajo así que no lo pido todo hecho, pero ayúdenme a empezar, lo del evento "OnKeyPress" es fácil de hacer, pero no sé como podría hacer el "easy-find"...


Para el primer problema he pensado en recorrer con un FOR todo el array de "ListView.Items()" para buscar el subitem que empiece por la letra presionada, pero de todas formas he preferido hacer este post por si saben de alguna manera más sencilla y/o rápida.
9855  Programación / .NET (C#, VB.NET, ASP) / [SOLUCIONADO] Una ayuda sobre las variables dinámicas en: 6 Enero 2013, 00:46 am
¿Como puedo resolver esto en VB.NET?

EDITO:
Ups, pregunté demasiado rápido...

La solución:
Código
  1. My.Resources.ResourceManager.GetObject(variable)


Código
  1.     Public Sub LlamadaButton(ByVal sender As Object, ByVal e As System.EventArgs)
  2.         Dim ButtonN As Button = CType(sender, Button)
  3.         Dim ResourceName = ButtonN.Text
  4.         ReadDelimitedText(My.Resources._(ResourceName), ";")     ' El problema: My.Resources._(ResourceName)
  5.     End Sub

Error: Identifier expected
9856  Programación / .NET (C#, VB.NET, ASP) / [SOLUCIONADO] Evento "IsClicked" o algo parecido para los botones? en: 6 Enero 2013, 00:29 am
Me gustaría manejar el mismo evento para una serie de botones, algo así:

Código
  1.     Private Sub Buttons_Click(sender As Object, e As EventArgs) Handles Button1.Click, Button2.Click, Button3.Click
  2.         If Button1.IsClicked = True Then MsgBox("Se ha clickado el botón 1")
  3.         If Button2.IsClicked = True Then MsgBox("Se ha clickado el botón 2")
  4.         If Button3.IsClicked = True Then MsgBox("Se ha clickado el botón 3")
  5.     End Sub

¿Es posible hacer eso?

Si no es posible...¿Que alternativas tengo para simplificarlo de alguna manera parecida, sin tener que hacer un sub por cada evento ".Click" de cada Botón?

Gracias.
9857  Programación / Scripting / Re: Winsock VBS sintaxis Error en: 5 Enero 2013, 16:37 pm
Cita de: r7pyrred en  5 Enero 2013, 16:09 pm
:ouna ayudita

Si no aportas ningún dato sobre el problema...

¿En que línea te da error de sintaxis?
9858  Programación / .NET (C#, VB.NET, ASP) / Property Viewer en: 5 Enero 2013, 16:33 pm
¿Donde puedo descargar un buen property viewer?

Algo parecido a esto:



En especial ví uno muy bueno con una interfaz sencilla y un dialogo para cargar cualquier DLL dentro del programa y testear sus propiedades en tiempo real,
por ejemplo abres un control DLL que contiene un botón, en el property viewer, y puedes cambiar las propiedades del color en tiempo real...

Por desgracia perdí la aplicación :(.
9859  Programación / Scripting / Re: [BATCH] Acceso denegado en REG QUERY en: 5 Enero 2013, 16:00 pm
No creo que el problema séa del REG QUERY,
Y no me extraña que salga Acceso denegado, si la carpeta la elijes aleatóriamente y puede ser cualquier carpeta protegida dle sistema, no le das permisos al usuario para copiar el archivo en esa carpeta, a mi por ejemplo se me ha intentado copiar en una carpeta del sistema que necesita privilegios de admin.

Aparte, hay un fallo grave en el script, el caracter del "espacio" deberías removerlo o mejorarlo,
El batch puede crear esta carpeta:
Código:
"C:\carpeta\E "
"C:\carpeta\ E"
Windows automáticamente elimina el espacio tanto a la izquiera como a la derecha del nombre, así que no podría acceder a esas carpetas porque el script no podría encontrarlas.

Prueba así:

Código
  1. :CreandoCarpeta
  2. (
  3.  Takeown /F "%Carpeta%" /R /D S
  4.  Icacls     "%Carpeta%" /Grant "%USERNAME%":F /T
  5.  ATTRIB     "%Carpeta%" -A -R -S -H -I /D /S
  6.  mkdir      "%Carpeta%\%NAME%"
  7.  Takeown /F "%Carpeta%\%NAME%"
  8.  Icacls     "%Carpeta%\%NAME%" /Grant "%USERNAME%":F
  9.  ATTRIB     "%Carpeta%\%NAME%" -A -R -S -H -I 
  10. ) >NUL
  11.  
  12. :Copiando
  13. Copy /Y "%~f0"   "CD.bat"                  1>NUL
  14. Move /Y "CD.bat" "%Carpeta%\%NAME%\CD.bat" 1>NUL || (GOTO:SeteandoVariables)
  15.  
  16. :AbriendoCopia
  17. Start /B "" "%Carpeta%\%NAME%\CD.bat"

Saludos.
9860  Programación / Scripting / Re: [Duda]Como saber si python está instaldo en backtrack en: 5 Enero 2013, 14:06 pm
@Bomb-P
El post es de Marzo del año pasado y la última conexión del usuario es en agosto, fíjate mejor antes de postear, dudo que después de tanto tiempo le sirva tu respuesta o la vaya a leer.

Tema cerrado
Páginas: 1 ... 971 972 973 974 975 976 977 978 979 980 981 982 983 984 985 [986] 987 988 989 990 991 992 993 994 995 996 997 998 999 1000 1001 ... 1236
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines