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

Iniciado por Eleкtro, 18 Diciembre 2012, 22:23 PM

0 Miembros y 3 Visitantes están viendo este tema.

Eleкtro

Unos snippets que hice para usarlos con ListViews:


  • Auto scrollea un Listview hasta el último Item.

    Código (vbnet) [Seleccionar]
      ' 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]
       ' [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]
    #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]
    #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

#171
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]
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 :)

Interesados hablad por Discord.

Eleкtro

 Abre un archivo o una carpeta en el explorador de Windows

Código (vbnet) [Seleccionar]
#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]
#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

#173
Cita de: Ikillnukes en 16 Junio 2013, 19:42 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.








z3nth10n

Un poco ratas si que hay que ser. xD

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

Interesados hablad por Discord.

Eleкtro









z3nth10n

Cita de: EleKtro H@cker en 16 Junio 2013, 20:05 PM
ABDERRAMAH

Y cuantos Snippets ha dejado? :P

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

Interesados hablad por Discord.

Eleкtro

#177
Cita de: Ikillnukes en 16 Junio 2013, 20:07 PMMe 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!

Interesados hablad por Discord.

Eleкtro