Librería de Snippets para VB.NET !! (Compartan aquí sus snippets)

[Eleкtro]

Unos snippets que hice para usarlos con ListViews:

• Auto scrollea un Listview hasta el último Item.
  
  
  Código (vbnet) [Seleccionar] Expandir
    ' Scroll ListView
   Private Sub Scroll_ListView(ByVal ListView_Name As ListView)
       ListView_Name.EnsureVisible(ListView_Name.Items.Count - 1)
   End Sub
  
  
  
  
• Deshabilita el menú contextual si no hay ningún Item seleccionado.
  
  
  Código (vbnet) [Seleccionar] Expandir
     ' [ListView] Auto-Disable ContextMenu
   Private Sub ContextMenu_Opening(sender As System.Object, e As System.ComponentModel.CancelEventArgs) _
   Handles Listview1_ContextMenu.Opening

       If ListView1.SelectedItems.Count = 0 Then e.Cancel = True

   End Sub

  
  
  
  
• Copia el contenido de un Item al portapapeles
  
  
  Código (vbnet) [Seleccionar] Expandir
  #Region " [ListView] Copy Item To Clipboard "


   ' [ [ListView] Copy Item To Clipboard ]
   '
   ' // By Elektro H@cker
   '
   ' Examples :
   '
   ' Copy_Selected_Items_To_Clipboard(ListView1, 0)    ' Copies Item 0
   ' Copy_Selected_Items_To_Clipboard(ListView1, 0, 2) ' Copies SubItem 2 of Item 0

   Private Sub Copy_Item_To_Clipboard(ByVal ListView_Name As ListView, _
                                      ByVal Item As Int32, _
                                      Optional ByVal SubItem As Int64 = 0)

       Clipboard.SetText(ListView_Name.Items(Item).SubItems(SubItem).Text)

   End Sub

#End Region
  
  
  
  
•  Copia el contenido de los items seleccionados al portapapeles
  
  
  Código (vbnet) [Seleccionar] Expandir
  #Region " [ListView] Copy Selected-Items To Clipboard "

   ' [ [ListView] Copy Selected-Items To Clipboard ]
   '
   ' // By Elektro H@cker
   '
   ' Examples :
   '
   ' Copy_Selected_Items_To_Clipboard(ListView1)    ' Copies all SubItems of selected Items
   ' Copy_Selected_Items_To_Clipboard(ListView1, 2) ' Copies only SubItem 2 of selected Items

   Private Sub Copy_Selected_Items_To_Clipboard(ByVal ListView_Name As ListView, _
                                                Optional ByVal SubItem As Int32 = -0)

       Dim text As String = String.Empty

       For Each Entry As ListViewItem In ListView_Name.SelectedItems()

           If SubItem = -0 Then
               For Each Subi As ListViewItem.ListViewSubItem In ListView_Name.Items(Entry.Index).SubItems
                   text &= " " & Subi.Text
               Next
               text &= ControlChars.NewLine
           Else
               text &= ControlChars.NewLine & ListView_Name.Items(Entry.Index).SubItems(SubItem).Text
           End If

       Next

       Clipboard.SetText(text)

   End Sub

#End Region

[z3nth10n]

Mini aporte, muy mini xD

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

Código (vbnet) [Seleccionar] Expandir

Label1.Text = "Texto por aquí" &
vbCrLf 'Este texto representa un Salto de Línea >:D
& "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

[Eleкtro]

 Abre un archivo o una carpeta en el explorador de Windows

Código (vbnet) [Seleccionar] Expandir

#Region " Open In Explorer "

   ' [ Open In Explorer ]
   '
   ' // By Elektro H@cker
   '
   ' Examples :
   ' Open_In_Explorer("C:\Folder\")
   ' Open_In_Explorer("C:\Folder\File.txt")

   Private Sub Open_In_Explorer(ByVal File_Or_Folder As String)

       If File_Or_Folder.EndsWith("\") Then File_Or_Folder = File_Or_Folder.Substring(0, File_Or_Folder.Length - 1)

       If IO.Directory.Exists(File_Or_Folder) Then
           Dim FileInformation As IO.FileInfo = My.Computer.FileSystem.GetFileInfo(File_Or_Folder)
           Process.Start("explorer.exe", " /select," & IO.Path.Combine(FileInformation.DirectoryName, FileInformation.Name))
       ElseIf IO.File.Exists(File_Or_Folder) Then
           Dim FolderInformation As IO.DirectoryInfo = My.Computer.FileSystem.GetDirectoryInfo(File_Or_Folder)
           Process.Start("explorer.exe ", FolderInformation.FullName)
       Else
           Throw New Exception(File_Or_Folder & " doesn't exist")
       End If

   End Sub

#End Region



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

Código (vbnet) [Seleccionar] Expandir

#Region " Open With... "

   ' [ Open With... ]
   '
   ' // By Elektro H@cker
   '
   ' Examples :
   ' Open_With("C:\File.txt") ' And select "Notepad.exe" in the Dialog...

   Private Sub Open_With(ByVal File_Or_Folder As String)

       Dim OpenWith As New OpenFileDialog()
       OpenWith.InitialDirectory = Environ("programfiles")
       OpenWith.Title = "Open file with..."
       OpenWith.Filter = "Application|*.exe"

       If OpenWith.ShowDialog() = DialogResult.OK Then
           Process.Start(OpenWith.FileName, " " & """" & File_Or_Folder & """")
       End If

   End Sub

#End Region

[Eleкtro]

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.

[z3nth10n]

Un poco ratas si que hay que ser. xD

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

[Eleкtro]

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

ABDERRAMAH

[z3nth10n]

ABDERRAMAH

Y cuantos Snippets ha dejado?

Me he fijado y NovLucker también ha ayudado.

[Eleкtro]

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

[z3nth10n]

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!

[Eleкtro]

Hijo estás muy ofuscao xD

Si, es lo que pasa cuando me ofuscan.

Saludos