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

 

 


Tema destacado: Guía rápida para descarga de herramientas gratuitas de seguridad y desinfección


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  Librería de Snippets para VB.NET !! (Compartan aquí sus snippets)
0 Usuarios y 2 Visitantes están viendo este tema.
Páginas: 1 ... 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 [18] 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 ... 58 Ir Abajo Respuesta Imprimir
Autor Tema: Librería de Snippets para VB.NET !! (Compartan aquí sus snippets)  (Leído 480,266 veces)
Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.788



Ver Perfil
Re: Librería de Snippets !! (Posteen aquí sus snippets)
« Respuesta #170 en: 16 Junio 2013, 19:40 pm »

Unos snippets que hice para usarlos con ListViews:


  • Auto scrollea un Listview hasta el último Item.
Código
  1.   ' Scroll ListView
  2.    Private Sub Scroll_ListView(ByVal ListView_Name As ListView)
  3.        ListView_Name.EnsureVisible(ListView_Name.Items.Count - 1)
  4.    End Sub



  • Deshabilita el menú contextual si no hay ningún Item seleccionado.
Código
  1.    ' [ListView] Auto-Disable ContextMenu
  2.    Private Sub ContextMenu_Opening(sender As System.Object, e As System.ComponentModel.CancelEventArgs) _
  3.    Handles Listview1_ContextMenu.Opening
  4.  
  5.        If ListView1.SelectedItems.Count = 0 Then e.Cancel = True
  6.  
  7.    End Sub
  8.  



  • Copia el contenido de un Item al portapapeles
Código
  1. #Region " [ListView] Copy Item To Clipboard "
  2.  
  3.  
  4.    ' [ [ListView] Copy Item To Clipboard ]
  5.    '
  6.    ' // By Elektro H@cker
  7.    '
  8.    ' Examples :
  9.    '
  10.    ' Copy_Selected_Items_To_Clipboard(ListView1, 0)    ' Copies Item 0
  11.    ' Copy_Selected_Items_To_Clipboard(ListView1, 0, 2) ' Copies SubItem 2 of Item 0
  12.  
  13.    Private Sub Copy_Item_To_Clipboard(ByVal ListView_Name As ListView, _
  14.                                       ByVal Item As Int32, _
  15.                                       Optional ByVal SubItem As Int64 = 0)
  16.  
  17.        Clipboard.SetText(ListView_Name.Items(Item).SubItems(SubItem).Text)
  18.  
  19.    End Sub
  20.  
  21. #End Region



  •  Copia el contenido de los items seleccionados al portapapeles
Código
  1. #Region " [ListView] Copy Selected-Items To Clipboard "
  2.  
  3.    ' [ [ListView] Copy Selected-Items To Clipboard ]
  4.    '
  5.    ' // By Elektro H@cker
  6.    '
  7.    ' Examples :
  8.    '
  9.    ' Copy_Selected_Items_To_Clipboard(ListView1)    ' Copies all SubItems of selected Items
  10.    ' Copy_Selected_Items_To_Clipboard(ListView1, 2) ' Copies only SubItem 2 of selected Items
  11.  
  12.    Private Sub Copy_Selected_Items_To_Clipboard(ByVal ListView_Name As ListView, _
  13.                                                 Optional ByVal SubItem As Int32 = -0)
  14.  
  15.        Dim text As String = String.Empty
  16.  
  17.        For Each Entry As ListViewItem In ListView_Name.SelectedItems()
  18.  
  19.            If SubItem = -0 Then
  20.                For Each Subi As ListViewItem.ListViewSubItem In ListView_Name.Items(Entry.Index).SubItems
  21.                    text &= " " & Subi.Text
  22.                Next
  23.                text &= ControlChars.NewLine
  24.            Else
  25.                text &= ControlChars.NewLine & ListView_Name.Items(Entry.Index).SubItems(SubItem).Text
  26.            End If
  27.  
  28.        Next
  29.  
  30.        Clipboard.SetText(text)
  31.  
  32.    End Sub
  33.  
  34. #End Region


En línea

z3nth10n


Desconectado Desconectado

Mensajes: 1.583


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


Ver Perfil WWW
Re: Librería de Snippets !! (Posteen aquí sus snippets)
« Respuesta #171 en: 16 Junio 2013, 19:42 pm »

Mini aporte, muy mini xD

Como escribir en varias líneas a través de .Text de un Control Label, TextBox, etc.

Código
  1. Label1.Text = "Texto por aquí" &
  2. vbCrLf 'Este texto representa un Salto de Línea >:D
  3. & "Texto por acá xD"

Un saludo.



Advertencia - mientras estabas escribiendo, una nueva respuesta fue publicada....

Joer! Que puntería tienes! xD



Tema: Librería de Snippets !! (Posteen aquí sus snippets)  (Leído 10,100 veces)

Anda! 10k de visitas! Enhorabuena :)


« Última modificación: 16 Junio 2013, 19:49 pm por Ikillnukes » En línea


Interesados hablad por Discord.
Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.788



Ver Perfil
Re: Librería de Snippets !! (Posteen aquí sus snippets)
« Respuesta #172 en: 16 Junio 2013, 19:42 pm »

 Abre un archivo o una carpeta en el explorador de Windows

Código
  1. #Region " Open In Explorer "
  2.  
  3.    ' [ Open In Explorer ]
  4.    '
  5.    ' // By Elektro H@cker
  6.    '
  7.    ' Examples :
  8.    ' Open_In_Explorer("C:\Folder\")
  9.    ' Open_In_Explorer("C:\Folder\File.txt")
  10.  
  11.    Private Sub Open_In_Explorer(ByVal File_Or_Folder As String)
  12.  
  13.        If File_Or_Folder.EndsWith("\") Then File_Or_Folder = File_Or_Folder.Substring(0, File_Or_Folder.Length - 1)
  14.  
  15.        If IO.Directory.Exists(File_Or_Folder) Then
  16.            Dim FileInformation As IO.FileInfo = My.Computer.FileSystem.GetFileInfo(File_Or_Folder)
  17.            Process.Start("explorer.exe", " /select," & IO.Path.Combine(FileInformation.DirectoryName, FileInformation.Name))
  18.        ElseIf IO.File.Exists(File_Or_Folder) Then
  19.            Dim FolderInformation As IO.DirectoryInfo = My.Computer.FileSystem.GetDirectoryInfo(File_Or_Folder)
  20.            Process.Start("explorer.exe ", FolderInformation.FullName)
  21.        Else
  22.            Throw New Exception(File_Or_Folder & " doesn't exist")
  23.        End If
  24.  
  25.    End Sub
  26.  
  27. #End Region



 Abre un dialogo y selecciona un proceso para ejecutar un archivo.

Código
  1. #Region " Open With... "
  2.  
  3.    ' [ Open With... ]
  4.    '
  5.    ' // By Elektro H@cker
  6.    '
  7.    ' Examples :
  8.    ' Open_With("C:\File.txt") ' And select "Notepad.exe" in the Dialog...
  9.  
  10.    Private Sub Open_With(ByVal File_Or_Folder As String)
  11.  
  12.        Dim OpenWith As New OpenFileDialog()
  13.        OpenWith.InitialDirectory = Environ("programfiles")
  14.        OpenWith.Title = "Open file with..."
  15.        OpenWith.Filter = "Application|*.exe"
  16.  
  17.        If OpenWith.ShowDialog() = DialogResult.OK Then
  18.            Process.Start(OpenWith.FileName, " " & """" & File_Or_Folder & """")
  19.        End If
  20.  
  21.    End Sub
  22.  
  23. #End Region
En línea

Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.788



Ver Perfil
Re: Librería de Snippets !! (Posteen aquí sus snippets)
« Respuesta #173 en: 16 Junio 2013, 19:50 pm »

Tema: Librería de Snippets !! (Posteen aquí sus snippets)  (Leído 10,100 veces)

Anda! 10k de visitas! Enhorabuena :)

Las visitas me dan igual ...pero es una situación crítica que de 10.000 lecturas sólamente 3 personas (incluida yo) hayan participado a contribuir.
« Última modificación: 16 Junio 2013, 20:06 pm por EleKtro H@cker » En línea

z3nth10n


Desconectado Desconectado

Mensajes: 1.583


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


Ver Perfil WWW
Re: Librería de Snippets !! (Posteen aquí sus snippets)
« Respuesta #174 en: 16 Junio 2013, 19:57 pm »

Un poco ratas si que hay que ser. xD

Aparte de tu y yo, quien más ha participado? :o :P
En línea


Interesados hablad por Discord.
Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.788



Ver Perfil
Re: Librería de Snippets !! (Posteen aquí sus snippets)
« Respuesta #175 en: 16 Junio 2013, 20:05 pm »

Aparte de tu y yo, quien más ha participado? :o :P

ABDERRAMAH
En línea

z3nth10n


Desconectado Desconectado

Mensajes: 1.583


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


Ver Perfil WWW
Re: Librería de Snippets !! (Posteen aquí sus snippets)
« Respuesta #176 en: 16 Junio 2013, 20:07 pm »

ABDERRAMAH

Y cuantos Snippets ha dejado? :P

Me he fijado y NovLucker también ha ayudado. ;)
En línea


Interesados hablad por Discord.
Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.788



Ver Perfil
Re: Librería de Snippets !! (Posteen aquí sus snippets)
« Respuesta #177 en: 16 Junio 2013, 20:13 pm »

Me he fijado y NovLucker también ha ayudado. ;)

Si leyeras sin prisas verías que NovLucker no ha aportado Snippets porque él no tiene Snippets (Como dijo en los comentarios del principio de este hilo), símplemente comentó para ayudarme a intentar perfeccionar la manera en la que yo codeaba las cosas.

Saludos
« Última modificación: 16 Junio 2013, 20:15 pm por EleKtro H@cker » En línea

z3nth10n


Desconectado Desconectado

Mensajes: 1.583


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


Ver Perfil WWW
Re: Librería de Snippets !! (Posteen aquí sus snippets)
« Respuesta #178 en: 16 Junio 2013, 20:18 pm »

xD Me refería a que ha ayudado a perfeccionar. (Se ha que ha ayudao, es más he leido algunos de sus comentarios ;)) ;-) xD
Hijo estás muy ofuscao xD

Saludos!
En línea


Interesados hablad por Discord.
Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.788



Ver Perfil
Re: Librería de Snippets !! (Posteen aquí sus snippets)
« Respuesta #179 en: 16 Junio 2013, 20:30 pm »

Hijo estás muy ofuscao xD
Si, es lo que pasa cuando me ofuscan.

Saludos
En línea

Páginas: 1 ... 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 [18] 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 ... 58 Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines