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


 


Tema destacado: ¿Usas Skype? Protégete de los Skype Resolver


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (Moderadores: Novlucker, seba123neo, kub0x, Eleкtro)
| | | |-+  Librería de Snippets para VB.Net !! (Compartan aquí sus snippets)
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 ... 51 Ir Abajo Respuesta Imprimir
Autor Tema: Librería de Snippets para VB.Net !! (Compartan aquí sus snippets)  (Leído 155,857 veces)
Eleкtro
Novato Astral y
Moderador Global
***
Desconectado Desconectado

Mensajes: 8.584


El sentido común es el menos común de los sentidos


Ver Perfil
Librería de Snippets para VB.Net !! (Compartan aquí sus snippets)
« en: 18 Diciembre 2012, 22:23 »

¿Que es un Snippet?

Es un extracto de código que suele contener una o varias Subrutinas con el propósito de realizar una tarea específica,
cuyo código es reusable por otras personas y fácil de integrar con sólamente copiar y pegar el contenido del Snippet.







ACTUALIZADO EL 05/12/2013

544 563 Snippets ~> http://www.mediafire.com/download/ms5r82x12y32p8a/My%20Code%20Snippets.rar
(Incluye todos los snippets publicados por mi en este hilo.)

Los snippets incluidos en el archivo comprimido:


Application | Get Class name
Application | Get Current APP Name
Application | Get Current APP Path
Application | Get Type name
Application | Get User Config Path
Application | Global Hotkeys
Application | Hotkeys
Application | Ignore Exceptions
Application | Is First Run
Application | Load Resource To Disk
Application | My Application Is Already Running
Application | Set Current Thread Priority
Application | Trial Expiration
Application | WndProc Example from secondary Class
Application | WndProc Example

Audio | Mute Application
Audio | Play WAV
Audio | PlayFile
Audio | Rec Sound
Audio | Stop sound

Colors | ColorTools

Console | App Is Launched From CMD
Console | Arguments Are Empty
Console | Attach console to a WinForm
Console | Console Menu
Console | Console WindowState
Console | Help Section
Console | Join Arguments
Console | Matrix Effect
Console | Parse arguments
Console | Set CommandLine Arguments
Console | Write Colored Text
Console | Write to console on a WinForm

Controls | [ColorDialog] Example
Controls | [ContextMenuStrip] Clear ListView Items
Controls | [ContextMenuStrip] Clear Text
Controls | [ContextMenuStrip] Copy All Text
Controls | [ContextMenuStrip] Copy Selected Text
Controls | [ContextMenuStrip] Cut Text
Controls | [ContextMenuStrip] Delete Text
Controls | [ContextMenuStrip] New ContextMenuStrip
Controls | [ContextMenuStrip] Paste Text
Controls | [ContextMenuStrip] Remove ListView Item
Controls | [ContextMenuStrip] Restore or Hide from Systray
Controls | [LinkLabel] New LinkLabel
Controls | [ListBox] Colorize Items
Controls | [ListBox] Remove Duplicates
Controls | [ListBox] Select item without jump
Controls | [ListView] Auto Scroll
Controls | [ListView] Auto-Disable ContextMenu
Controls | [ListView] Backup and Recover Listview Items
Controls | [ListView] Copy Item To Clipboard
Controls | [ListView] Copy Selected-Items To Clipboard
Controls | [ListView] Draw ProgressBar
Controls | [ListView] Find ListView Text
Controls | [ListView] ItemChecked Event
Controls | [ListView] ListView Sort Column
Controls | [ListView] ReIndex Column
Controls | [ListView] Restrict column resizing
Controls | [MessageBox] Centered MessageBox
Controls | [MessageBox] Question Cancel operation
Controls | [MessageBox] Question Exit application
Controls | [OpenFileDialog] New dialog
Controls | [RichTextBox] Add Colored Text
Controls | [RichTextBox] Auto Scroll
Controls | [RichTextBox] Copy All Text
Controls | [RichTextBox] FindNext RegEx
Controls | [RichTextBox] FindNext String
Controls | [RichTextBox] Get RichTextBox Cursor Position
Controls | [RichTextBox] Highlight RegEx In RichTextBox
Controls | [RichTextBox] Link clicked
Controls | [RichTextBox] Load TextFile in RichTextbox
Controls | [RichTextBox] Select full row
Controls | [RichTextBox] Toggle ContextMenu
Controls | [SaveFileDialog] New dialog
Controls | [Textbox] Allow only 1 Character
Controls | [Textbox] Allow only letters and numbers
Controls | [Textbox] Allow only letters
Controls | [Textbox] Allow only numbers
Controls | [TextBox] Capture Windows ContextMenu Option
Controls | [Textbox] Drag-Drop a file
Controls | [Textbox] Drag-Drop a folder
Controls | [Textbox] Password asterisks
Controls | [Textbox] Refresh Textbox Text
Controls | [Textbox] Show end part of text
Controls | [Textbox] Wait for ENTER key
Controls | [WebBrowser] Block iFrames
Controls | [WebBrowser] Block popups
Controls | [WebBrowser] Click event
Controls | [WebBrowser] Set IExplorer Rendering Mode
Controls | [WebBrowser] Wait To Load Webpage
Controls | [Windows Media Player] Examples

Cryptography | AES Decrypt
Cryptography | AES Encrypt
Cryptography | Base64 To String
Cryptography | Encrypt-Decrypt String Selective
Cryptography | Encrypt-Decrypt String
Cryptography | String To Base64

Custom Controls | [Cbutton] Change Cbutton Colors
Custom Controls | [ColorDialog_RealTime] Example
Custom Controls | [ComboBoxTooltip] Show tooltip when text exceeds ComboBox width
Custom Controls | [FastColoredTextBox] Scroll Text
Custom Controls | [GTrackBar] Progressive Scroll MultiTrackbars
Custom Controls | [GTrackBar] Progressive Scroll
Custom Controls | [ListView Elektro] Monitor Item added-removed
Custom Controls | [ListView Elektro] Undo-Redo Manager
Custom Controls | [Ooki VistaFolderBrowserDialog] New dialog
Custom Controls | [PopCursor] Class
Custom Controls | [PopCursor] Example
Custom Controls | [RichTextBoxEx] Insert FileLink

Custom Libraries | [BoxedAppPacker] Helper
Custom Libraries | [ColorCode] Color Code
Custom Libraries | [CoreConverter] Helper
Custom Libraries | [DiffLib] Examples
Custom Libraries | [DotNetZip] Compress SFX
Custom Libraries | [DotNetZip] Compress
Custom Libraries | [DotNetZip] Extract
Custom Libraries | [DotNetZip] Helper
Custom Libraries | [EASendMail] Helper
Custom Libraries | [FFMPEG] Helper
Custom Libraries | [Framework Detection] Examples
Custom Libraries | [FreeImage] Helper
Custom Libraries | [FTPClient] Helper
Custom Libraries | [IlMerge] Helper
Custom Libraries | [MediaInfo] Helper
Custom Libraries | [mp3gain] Helper
Custom Libraries | [mp3val] Helper
Custom Libraries | [NAudio] NAudio Helper
Custom Libraries | [OSVersionInfo] Examples
Custom Libraries | [ResHacker] Helper
Custom Libraries | [SETACL] Helper
Custom Libraries | [SevenZipSharp] Compress SFX
Custom Libraries | [SevenZipSharp] Compress
Custom Libraries | [SevenZipSharp] Extract
Custom Libraries | [SevenZipSharp] FileInfo
Custom Libraries | [SevenZipSharp] Helper
Custom Libraries | [TagLib Sharp] Helper
Custom Libraries | [Thresher IRC] Examples
Custom Libraries | [TypedUnits] Examples
Custom Libraries | [UltraID3Lib] Helper
Custom Libraries | [VistaCoreAudioAPI] Fade Master Volume
Custom Libraries | [VistaCoreAudioAPI] Get Master Volume
Custom Libraries | [VistaCoreAudioAPI] Mute Master Volume
Custom Libraries | [VistaCoreAudioAPI] Set Master Volume
Custom Libraries | [WinAmp Control Class] Examples
Custom Libraries | [WinAmp Control Class] [CLASS]
Custom Libraries | [Windows API Code Pack] Set TaskBar Status
Custom Libraries | [Windows API Code Pack] Set TaskBar Value

Date and Time | Convert Time
Date and Time | Date Difference
Date and Time | DateTime To Unix
Date and Time | Format Time
Date and Time | Get Local Date
Date and Time | Get Local Day
Date and Time | Get Local Time
Date and Time | Unix To DateTime
Date and Time | Validate Date

Files | Can Access To File
Files | Can Access To Folder
Files | Compare Files
Files | Copy File With Cancel
Files | Copy File
Files | Delete File
Files | Directory Exist
Files | File Add Attribute
Files | File Exist
Files | File Have Attribute
Files | File Remove Attribute
Files | Get Directory Size
Files | Get Files
Files | InfoDir
Files | InfoFile
Files | Make Dir
Files | Move File
Files | Open In Explorer
Files | Open With
Files | Preserve FileDate
Files | Rename File
Files | Rename Files (Increment method)
Files | Send file to Recycle Bin
Files | Set File Access
Files | Set File Attributes
Files | Set Folder Access
Files | Shortcut Manager (.lnk)
Files | Split File

Fonts | Change font
Fonts | Font Is Installed
Fonts | Get Installed Fonts
Fonts | Use Custom Text-Font

GUI | Add controls in real-time
GUI | Animate Window
GUI | Append text to control
GUI | Capture Windows ContextMenu Edit Options
GUI | Center Form To Desktop
GUI | Center Form To Form
GUI | Change Form Icon
GUI | Change Language
GUI | Click a control to move it
GUI | Control Without Flickering
GUI | Detect mouse click button
GUI | Detect mouse wheel direction
GUI | Disable ALT+F4 Combination
GUI | Disable Controls
GUI | Enable Controls
GUI | Enable-Disable Drawing on Control
GUI | Extend Non Client Area
GUI | Fade IN-OUT
GUI | Form Docking
GUI | Form Resize Disabler
GUI | FullScreen
GUI | Get Non-Client Area Width
GUI | Lock Form Position
GUI | Minimize to systray
GUI | Mouse-Click Counter
GUI | Move Control Scrollbar
GUI | Move Control
GUI | Move Form
GUI | Round Borders
GUI | Secondary Form Docking
GUI | Select all checkboxes
GUI | Set Control Border Color
GUI | Set Control Hint [API]
GUI | Set Control Hint
GUI | Set Global Hotkeys using ComboBoxes
GUI | Set opacity when moving the form from the TitleBar
GUI | SystemMenu Manager
GUI | Toogle FullScreen
GUI | Undo-Redo

Hardware | Get Connected Drives
Hardware | Get CPU ID
Hardware | Get Drives Info
Hardware | Get Free Disk Space
Hardware | Get Motherboard ID
Hardware | Get Printers
Hardware | Monitorize Drives

Hashes | Get CRC32
Hashes | Get MD5 Of File
Hashes | Get MD5 Of String
Hashes | Get SHA1 Of File
Hashes | Get SHA1 Of String

Image | Desktop ScreenShot
Image | Drag-Drop a image
Image | Extract Icon
Image | Fill Bitmap Color
Image | For each Image in My.Resources
Image | Form ScreenShot
Image | Get Image HBitmap
Image | Get Image Sector
Image | GrayScale Image
Image | Resize Image Resource
Image | Resize Image
Image | Save ImageFile
Image | Scale Image

Miscellaneous | Add Application To Startup
Miscellaneous | Add Item Array 2D
Miscellaneous | Array ToLowerCase
Miscellaneous | Array ToUpperCase
Miscellaneous | BubbleSort Array
Miscellaneous | BubbleSort IEnumerable(Of String)
Miscellaneous | BubbleSort List(Of DirectoryInfo)
Miscellaneous | BubbleSort List(Of FileInfo)
Miscellaneous | BubbleSort List(Of String)
Miscellaneous | Calculate Percentage
Miscellaneous | Captcha Generator
Miscellaneous | Caret Class
Miscellaneous | Code Execution Time
Miscellaneous | Contacts Database
Miscellaneous | Convert Bytes
Miscellaneous | Convert To Disc Size
Miscellaneous | Count Array Matches
Miscellaneous | Detect Virtual Machine
Miscellaneous | Dictionary Has Key
Miscellaneous | Dictionary Has Value
Miscellaneous | Enum Parser
Miscellaneous | FileSize Converter
Miscellaneous | Find Dictionary Key By Value
Miscellaneous | Find Dictionary Value By Key
Miscellaneous | Format Number
Miscellaneous | FrameWork Compiler
Miscellaneous | Get Enum Name
Miscellaneous | Get Enum Value
Miscellaneous | Get Enum Values
Miscellaneous | Get FrameWork Of File
Miscellaneous | Get HiWord
Miscellaneous | Get LoWord
Miscellaneous | Get Nearest Enum Value
Miscellaneous | Get Random Number
Miscellaneous | Get Random Password
Miscellaneous | Hex to Byte-Array
Miscellaneous | Hex To Win32Hex
Miscellaneous | Hosts Helper
Miscellaneous | INI Manager
Miscellaneous | Integer to Win32Hex
Miscellaneous | Is Registry File
Miscellaneous | Join Array
Miscellaneous | Join Lists
Miscellaneous | KeyLogger
Miscellaneous | Make Dummy File
Miscellaneous | Match Dictionary Keys
Miscellaneous | Match Dictionary Values
Miscellaneous | Minimize VS IDE when APP is in execution
Miscellaneous | Money Abbreviation
Miscellaneous | Number Is Divisible
Miscellaneous | Number Is In Range
Miscellaneous | Number Is Multiple
Miscellaneous | Number Is Negavite
Miscellaneous | Number Is Positive
Miscellaneous | Number Is Prime
Miscellaneous | Randomize Array
Miscellaneous | Randomize String Array
Miscellaneous | Record Mouse
Miscellaneous | Reg2Bat
Miscellaneous | Remove Array Duplicates
Miscellaneous | Remove Array Matches
Miscellaneous | Remove Array Unique Values
Miscellaneous | Remove Item From Array
Miscellaneous | Remove List Duplicates
Miscellaneous | Reverse RegEx MatchCollection
Miscellaneous | Reverse Stack
Miscellaneous | Round Bytes
Miscellaneous | Scrollbar Info
Miscellaneous | SizeOf
Miscellaneous | Sleep
Miscellaneous | Take Percentage
Miscellaneous | Telecommunication Bitrate To DataStorage Bitrate
Miscellaneous | Time Elapsed
Miscellaneous | Time Remaining
Miscellaneous | Win32Hex To Integer
Miscellaneous | WinAmp Info

Multi-Threading | BeginInvoke Control
Multi-Threading | Delegate Example
Multi-Threading | Invoke Control
Multi-Threading | Invoke Lambda
Multi-Threading | New BackgroundWorker
Multi-Threading | New Thread
Multi-Threading | Raise Events Cross-Thread
Multi-Threading | ThreadStart Lambda

OS | Add User Account
OS | Associate File Extension
OS | Empty Recycle Bin
OS | Environment Variables Helper
OS | Get Current Aero Theme
OS | Get Cursor Pos
OS | Get IExplorer Version
OS | Get NT Version
OS | Get OS Architecture
OS | Get OS Edition
OS | Get OS Version
OS | Get Screen Resolution
OS | Get Service Status
OS | Get TempDir
OS | Get UserName
OS | Is Aero Enabled
OS | Mouse Click
OS | Move Mouse
OS | RegEdit
OS | Set Aero Theme
OS | Set Cursor Pos
OS | Set Desktop Wallpaper
OS | Set PC State
OS | Set Service Status
OS | Set System Cursor
OS | SID To ProfilePath
OS | SID To Username
OS | System Notifier
OS | Taskbar Hide-Show
OS | User Is Admin
OS | Username To ProfilePath
OS | Username To SID
OS | Validate Windows FileName

Process | App Activate
Process | Block Process
Process | Close Process
Process | Flush Memory
Process | Get Process Handle
Process | Get Process Main Window Handle
Process | Get Process PID
Process | Get Process Window Title
Process | Hide Process From TaskManager
Process | Hide-Restore Process
Process | Kill Process By Name
Process | Kill Process By PID
Process | Move Process Window
Process | Pause-Resume Thread
Process | Process is running
Process | Process.Start
Process | Resize Process Window
Process | Run Process
Process | SendText To App
Process | Set Process Priority By Handle
Process | Set Process Priority By Name
Process | Shift Process Window Position
Process | Shift Process Window Size
Process | Wait For Application To Load

String | Binary To String
String | Byte To Character
String | Byte-Array To String
String | Character To Byte
String | Count Character In String
String | Delimit String
String | Expand Variables In String
String | Filename Has Non ASCII Characters
String | Find RegEx
String | Find String Ocurrences
String | Get Random String
String | Hex To Integer
String | Hex To String
String | Integer To Hex
String | Multiline string
String | Permute all combinations of characters
String | Read string line per line
String | RegEx Match Base Url
String | RegEx Match htm html
String | RegEx Match Tag
String | RegEx Match Url
String | RegEx Matches To List
String | Remove Last Char
String | Replace String (Increment method)
String | Replace Word (Increment method)
String | Reverse String
String | String Is Alphabetic
String | String Is Email
String | String Is Numeric
String | String Is URL
String | String Renamer
String | String to Binary
String | String to Byte-Array
String | String To CharArray
String | String To Hex
String | Validate RegEx

Syntax | Array 2D
Syntax | Convert Sender to Control
Syntax | Create events and manage them
Syntax | Dictionary
Syntax | DirectCast
Syntax | For Each Control...
Syntax | Global Variables [CLASS]
Syntax | Handle the same event for various controls
Syntax | Hashtable
Syntax | IDisposable
Syntax | If Debug conditional
Syntax | If Debugger IsAttached conditional
Syntax | Inherited Control
Syntax | InputBox
Syntax | List(Of FileInfo)
Syntax | List(Of Tuple)
Syntax | Overload Example
Syntax | Own Type
Syntax | Property
Syntax | Select Case For Numbers
Syntax | Select Case For Strings
Syntax | String Compare
Syntax | String Format
Syntax | StringBuilder
Syntax | Summary comments
Syntax | ToString
Syntax | Type Of Object

Text | Copy from clipboard
Text | Copy to clipboard
Text | Count Agrupations In String
Text | Count Blank Lines
Text | Count Non Blank Lines
Text | Cut First Lines From TextFile
Text | Cut Last Lines From TextFile
Text | Delete Clipboard
Text | Delete Empty And WhiteSpace Lines In TextFile
Text | Delete Empty Lines In TextFile
Text | Delete Line From TextFile
Text | Delimit TextFile
Text | Detect Text Encoding
Text | For each TextFile in My.Resources
Text | Get Non Blank Lines
Text | Get Text Measure
Text | Get TextFile Total Lines
Text | Get Window Text
Text | Keep First Lines From TextFile
Text | Keep Last Lines From TextFile
Text | Randomize TextFile
Text | Read textfile line per line
Text | Read TextFile Line
Text | Read TextFile
Text | Remove All Characters Except
Text | Replace All Characters Except
Text | Replace All Characters
Text | Replace Line From TextFile
Text | Reverse TextFile
Text | Sort Textfile
Text | Split TextFile By Number Of Lines
Text | TextFile Is Unicode
Text | Write Log
Text | Write Text To File

WEB | Download File Async
WEB | Download File
WEB | Download URL SourceCode
WEB | FTP Upload
WEB | GeoLocation
WEB | Get Google Maps Coordinates URL
WEB | Get Google Maps URL
WEB | Get Http Response
WEB | Get Method
WEB | Get My IP Address
WEB | Get Url Image
WEB | Get URL SourceCode
WEB | GMail Sender
WEB | Google Translate
WEB | HostName To IP
WEB | Html Entities To String
WEB | Html Escaped Entities To String
WEB | IP To Hostname
WEB | IRC Bot
WEB | Is Connectivity Avaliable
WEB | Is Network Avaliable
WEB | Parse HTML
WEB | Ping
WEB | Port Range Scan
WEB | Port Scan
WEB | Read Response Header
WEB | Send POST PHP
WEB | String To Html Entities
WEB | String To Html Escaped Entities
WEB | URL Decode
WEB | URL Encode
WEB | Validate IP
WEB | Validate Mail
WEB | Validate URL

XML | Convert XML to Anonymous Type
XML | Convert XML to IEnumerable(Of Tuple)
XML | XML Delete Duplicated Elements
XML | XML Sort Elements
XML | XML Writer Helper


« Última modificación: 21 Mayo 2015, 00:36 por Eleкtro » En línea


[/cen
Novlucker
Ninja y
Moderador Global
***
Desconectado Desconectado

Mensajes: 10.692

Yo que tu lo pienso dos veces


Ver Perfil
Re: [APORTE] Snippets
« Respuesta #1 en: 18 Diciembre 2012, 23:04 »

Los aportes son siempre bienvenidos, peeeero, tal vez deberías de tener snippets que hagan las cosas de la manera más elegante y "performante" posible :P, hay código mejorable, pero es mucho para revisar :xD

Saludos


En línea

Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD
"Hay dos cosas infinitas: el Universo y la estupidez  humana. Y de la primera no estoy muy seguro."
Albert Einstein
$Edu$


Desconectado Desconectado

Mensajes: 1.844



Ver Perfil
Re: [APORTE] Snippets
« Respuesta #2 en: 19 Diciembre 2012, 00:02 »

Esto de snippets vendria a ser como "codigos sueltos" para poder copiar y tenerlos a mano siempre? es como que nos hayas dejado tus apuntes con funciones? o el VS tiene algo para leer esa extension .snippet y aplicarlo a tu proyecto de alguna forma? no lo tengo instalado por eso solo he mirado los codigos en notepad.
En línea

Novlucker
Ninja y
Moderador Global
***
Desconectado Desconectado

Mensajes: 10.692

Yo que tu lo pienso dos veces


Ver Perfil
Re: [APORTE] Snippets
« Respuesta #3 en: 19 Diciembre 2012, 00:40 »

Exacto, se instalan en el Visual, y se tienen fragmentos de código prefabricado y para autocompletado :P



Saludos
En línea

Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD
"Hay dos cosas infinitas: el Universo y la estupidez  humana. Y de la primera no estoy muy seguro."
Albert Einstein
$Edu$


Desconectado Desconectado

Mensajes: 1.844



Ver Perfil
Re: [APORTE] Snippets
« Respuesta #4 en: 19 Diciembre 2012, 01:49 »

Vendrian a ser entonces como las clases que trae el VS? solo que estos snippets serian clases incorporadas por nosotros mismos.

Gracias!
En línea

Eleкtro
Novato Astral y
Moderador Global
***
Desconectado Desconectado

Mensajes: 8.584


El sentido común es el menos común de los sentidos


Ver Perfil
Re: [APORTE] Snippets
« Respuesta #5 en: 19 Diciembre 2012, 04:04 »

$Edu$ no se si tienes el VS pero si lo tienes donde escribes el código del form presiona "click derecho > insert snippet" y ahí ves lo que són.

Esto de snippets vendria a ser como "codigos sueltos" para poder copiar y tenerlos a mano siempre?
Ya te ha contestado Novlucker pero cabe decir que un snippet no es algo que haya inventado Microsoft, hay bastantes editores de texto que soportan el uso de snippets, y bueno... los que trabajen con HTML/CSS/PHP y todo eso seguro que están muy acostumbrados a usar snippets para sus diseños web, igual que se pueden tener snippets para Batch (xD).

saludos!



tal vez deberías de tener snippets que hagan las cosas de la manera más elegante y "performante" posible :P,
hay código mejorable

Hay algunos snippets que yo solo no podría haberlos creado porque no sé hacerlo, por ejemplo el "GlobalHotkeys.snippet", no véas cuanto código con las APIs, como para ponerme a intentar mejorarlos! :xD

Ahora te hago yo una sugerencia:
De sabios es compartir el conocimiento, hay que realizar buenas acciones antes de que se acabe el munedo en... 2 días  :silbar:,
Y lo que necesita todo aprendiz de programador es un aporte con los snippets del gran Nov, muchos lo agradecerían (O al menos uno aquí presente... xD).

Ahí lo dejo...  :-X

Saludos!
« Última modificación: 19 Diciembre 2012, 04:15 por EleKtro H@cker » En línea


[/cen
Novlucker
Ninja y
Moderador Global
***
Desconectado Desconectado

Mensajes: 10.692

Yo que tu lo pienso dos veces


Ver Perfil
Re: [APORTE] Snippets
« Respuesta #6 en: 19 Diciembre 2012, 13:11 »

De sabios es compartir el conocimiento, hay que realizar buenas acciones antes de que se acabe el munedo en... 2 días  :silbar:,
Y lo que necesita todo aprendiz de programador es un aporte con los snippets del gran Nov, muchos lo agradecerían (O al menos uno aquí presente... xD).

Es que no tengo snippets personalizados, solo uso los que vienen incorporados en el Visual :P Justamente ayer luego de ver los tuyos me puse a pensar que sería lo que podría tener en snippets, pero la verdad no se me ocurre :P

Saludos
En línea

Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD
"Hay dos cosas infinitas: el Universo y la estupidez  humana. Y de la primera no estoy muy seguro."
Albert Einstein
Eleкtro
Novato Astral y
Moderador Global
***
Desconectado Desconectado

Mensajes: 8.584


El sentido común es el menos común de los sentidos


Ver Perfil
Re: [APORTE] Snippets
« Respuesta #7 en: 21 Diciembre 2012, 12:33 »

me puse a pensar que sería lo que podría tener en snippets, pero la verdad no se me ocurre :P
que pena que no tengas,
yo pienso que con unos cuantos snippets y pocas modificaciones se puede llegar a crear un programa entero en un instante.

Por ejemplo creamos un programa con un webbrowser y el htmlagilitypack para parsear alguna web y tomar los enlaces, o un auto-login, nos cuesta varias horas hacerlo (sin tener en cuenta el diseño).

Ahora sacamos snippets de las funciones y subrutinas más improtantes que hacemos en ese proyecto, y el próximo proyecto parecido que tengamos que hacer nos costará minutos, o al menos mucho mucho menos que al principio xD.

PD: Tenías razón, había mucho code mejorable, por ejemplo el de "isinternetavaliable" se hacía en unas 10 líneas y de una manera que no me gusta nada, el snippet original incluido en VS2012 lo hace en una línea xD


HE ACTUALIZADO LOS SNIPPETS
Algunos nuevos y algunos ligéramente mejorados basándome en los que vienen incluidos por defecto en VS2012.
« Última modificación: 21 Diciembre 2012, 12:38 por EleKtro H@cker » En línea


[/cen
$Edu$


Desconectado Desconectado

Mensajes: 1.844



Ver Perfil
Re: [APORTE] Snippets (ACTUALIZADO 21/12/2012)
« Respuesta #8 en: 21 Diciembre 2012, 14:10 »

Es que si miras un poco al futuro, cualquiera va a poder programar lo que quiera, cada vez esta tan facil que las generaciones futuras diran "se programar" y solo sabran la estructura para programar pero 0 conocimiento en generar codigo propio. Lo mismo piensan las generaciones antiguas de nosotros los que usamos .NET y no ASM xD
En línea

Eleкtro
Novato Astral y
Moderador Global
***
Desconectado Desconectado

Mensajes: 8.584


El sentido común es el menos común de los sentidos


Ver Perfil
Re: [APORTE] Snippets (ACTUALIZADO 21/12/2012)
« Respuesta #9 en: 11 Enero 2013, 06:30 »

Deberían hacer un post en esta sección que contenga sólamente snippets y donde todos aporten snippets útiles  ;D





He hecho este snippet para agilizar el renombramiento de archivos, aquí tienen ;)

PD: Uso "MOVE" porque de otra forma es imposible renombrar el archivo con el mismo nombre, como bien está explicado aquí por NovLucker: http://foro.elhacker.net/net/solucionado_iquestcomo_renombrar_un_archivo_o_carpeta_con_el_mismo_nombre-t378839.0.html

Código
  1.   ' Usage:
  2.    '
  3.    ' RenameFile("C:\Test.txt", "TeSt.TxT")
  4.    ' RenameFile("C:\Test.txt", "Test", "doc")
  5.    ' RenameFile(FileInfoObject.FullName, FileInfoObject.Name.ToLower, FileInfoObject.Extension.ToUpper)
  6.    ' If RenameFile("C:\Test.txt", "TeSt.TxT") Is Nothing Then MsgBox("El archivo no existe!")
  7.  
  8. #Region " RenameFile function "
  9.  
  10.    Private Function RenameFile(ByVal File As String, ByVal NewFileName As String, Optional ByVal NewFileExtension As String = Nothing)
  11.        If IO.File.Exists(File) Then
  12.            Try
  13.                Dim FileToBeRenamed As New System.IO.FileInfo(File)
  14.                If NewFileExtension Is Nothing Then
  15.                    FileToBeRenamed.MoveTo(FileToBeRenamed.Directory.FullName & "\" & NewFileName) ' Rename file with same extension
  16.                Else
  17.                    FileToBeRenamed.MoveTo(FileToBeRenamed.Directory.FullName & "\" & NewFileName & NewFileExtension) ' Rename file with new extension
  18.                End If
  19.                Return True ' File was renamed OK
  20.            Catch ex As Exception
  21.                ' MsgBox(ex.Message)
  22.                Return False ' File can't be renamed maybe because User Permissions
  23.            End Try
  24.        Else
  25.            Return Nothing ' File doesn't exist
  26.        End If
  27.    End Function
  28.  
  29. #End Region

Y unos cuantos más...

Modificar atributos de archivos:
Código
  1.   ' Usage:
  2.    ' Attrib("File.txt", IO.FileAttributes.ReadOnly + IO.FileAttributes.Hidden)
  3.    ' If Attrib("File.txt", IO.FileAttributes.System) Is Nothing Then MsgBox("File doesn't exist!")
  4.  
  5.      Private Function Attrib(ByVal File As String, ByVal Attributes As System.IO.FileAttributes)
  6.        If IO.File.Exists(File) Then
  7.            Try
  8.                FileSystem.SetAttr(File, Attributes)
  9.                Return True ' File was modified OK
  10.            Catch ex As Exception
  11.                ' MsgBox(ex.Message)
  12.                Return False ' File can't be modified maybe because User Permissions
  13.            End Try
  14.        Else
  15.            Return Nothing ' File doesn't exist
  16.        End If
  17.    End Function


Controlar el mismo evento para varios controles:

Código
  1.   Private Sub Button_Is_Clicked(sender As Object, e As EventArgs) Handles _
  2.        Button1.Click, _
  3.        Button2.Click, _
  4.        Button3.Click
  5.  
  6.        Dim Clicked_Button As Button = CType(sender, Button)
  7.  
  8.        If Clicked_Button.Name = "Button1" Then
  9.        ' Things for Button1
  10.        ElseIf Clicked_Button.Name = "Button2" Then
  11.        ' Things for Button2
  12.        ElseIf Clicked_Button.Name = "Button3" Then
  13.        ' Things for Button3
  14.        End If
  15.    Ens Sub

Un link label:

Código
  1.    ' First add a LinkLabel control into the form.
  2.  
  3.    Private Sub LinkLabel_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
  4.        System.Diagnostics.Process.Start("http://www.Google.com")
  5.        System.Diagnostics.Process.Start("mailto:ME@Hotmail.com")
  6.    End Sub

Procesar todos los archivos de texto de My.Resources:

Código
  1.        For Each ResourceFile As DictionaryEntry In My.Resources.ResourceManager.GetResourceSet(Globalization.CultureInfo.CurrentCulture, True, True).OfType(Of Object)()
  2.            If TypeOf (ResourceFile.Value) Is String Then
  3.                MsgBox(My.Resources.ResourceManager.GetObject(ResourceFile.Key))
  4.                'MsgBox(ResourceFile.Key)   ' Resource Name
  5.                'MsgBox(ResourceFile.Value) ' Resource FileContent
  6.            End If
  7.        Next

Procesar todos los archivos de imagen de My.Resources:

Código
  1.        For Each ResourceFile As DictionaryEntry In My.Resources.ResourceManager.GetResourceSet(Globalization.CultureInfo.CurrentCulture, True, True).OfType(Of Object)()
  2.            If TypeOf (ResourceFile.Value) Is Drawing.Image Then
  3.                Button_2000_2006.Image = ResourceFile.Value
  4.                'MsgBox(ResourceFile.Key)   ' Resource Name
  5.                'MsgBox(ResourceFile.Value) ' Resource FileContent
  6.            End If
  7.        Next

Ordenar un listview al clickar sobre la columna a ordenar:

Código
  1. ' Instructions:
  2. ' 1. Add the class
  3. ' 2. Add the declaration
  4. ' 3. Add a listview
  5.  
  6.  
  7. Dim ColumnOrder As String = "Down"
  8.  
  9.  
  10. #Region " ListView Sort Column event "
  11.  
  12.    Private Sub ListView_ColumnClick(ByVal sender As Object, ByVal e As System.Windows.Forms.ColumnClickEventArgs) Handles ListView1.ColumnClick
  13.        If ColumnOrder = "Down" Then
  14.            Me.ListView1.ListViewItemSorter = New OrdenarListview(e.Column, SortOrder.Ascending)
  15.            ListView1.Sort()
  16.            ColumnOrder = "Up"
  17.        ElseIf ColumnOrder = "Up" Then
  18.            Me.ListView1.ListViewItemSorter = New OrdenarListview(e.Column, SortOrder.Descending)
  19.            ListView1.Sort()
  20.            ColumnOrder = "Down"
  21.        End If
  22.    End Sub
  23.  
  24.  
  25. #End Region
  26.  
  27.  
  28. #Region " OrdenarListView [CLASS] "
  29.  
  30. Public Class OrdenarListview
  31.    Implements IComparer
  32.  
  33.    Private vIndiceColumna As Integer
  34.    Private vTipoOrden As SortOrder
  35.  
  36.    Public Sub New(ByVal pIndiceColumna As Integer, ByVal pTipoOrden As SortOrder)
  37.        vIndiceColumna = pIndiceColumna
  38.        vTipoOrden = pTipoOrden
  39.    End Sub
  40.  
  41.    Public Function Ordenar(ByVal x As Object, ByVal y As Object) As Integer Implements System.Collections.IComparer.Compare
  42.        Dim item_x As ListViewItem = DirectCast(x, ListViewItem)
  43.        Dim item_y As ListViewItem = DirectCast(y, ListViewItem)
  44.  
  45.        Dim string_x As String
  46.  
  47.        If item_x.SubItems.Count <= vIndiceColumna Then
  48.            string_x = ""
  49.        Else
  50.            string_x = item_x.SubItems(vIndiceColumna).Text
  51.        End If
  52.  
  53.        Dim string_y As String
  54.        If item_y.SubItems.Count <= vIndiceColumna Then
  55.            string_y = ""
  56.        Else
  57.            string_y = item_y.SubItems(vIndiceColumna).Text
  58.        End If
  59.  
  60.        If vTipoOrden = SortOrder.Ascending Then
  61.            If IsNumeric(string_x) And IsNumeric(string_y) Then
  62.                Return Val(string_x).CompareTo(Val(string_y))
  63.            ElseIf IsDate(string_x) And IsDate(string_y) Then
  64.                Return DateTime.Parse(string_x).CompareTo(DateTime.Parse(string_y))
  65.            Else
  66.                Return String.Compare(string_x, string_y)
  67.            End If
  68.        Else
  69.            If IsNumeric(string_x) And IsNumeric(string_y) Then
  70.                Return Val(string_y).CompareTo(Val(string_x))
  71.            ElseIf IsDate(string_x) And IsDate(string_y) Then
  72.                Return DateTime.Parse(string_y).CompareTo(DateTime.Parse(string_x))
  73.            Else
  74.                Return String.Compare(string_y, string_x)
  75.            End If
  76.        End If
  77.    End Function
  78. End Class
  79.  
  80. #End Region

Un ejemplo de un SaveFileDialog:

Código
  1.        Dim SaveFile As New SaveFileDialog
  2.        SaveFile.Title = "Save a Report File"
  3.        SaveFile.InitialDirectory = Environ("programfiles")
  4.        SaveFile.RestoreDirectory = True
  5.        SaveFile.DefaultExt = "txt"
  6.        SaveFile.Filter = "txt file (*.txt)|*.txt"
  7.        SaveFile.CheckPathExists = True
  8.        'SaveFile.CheckFileExists = True
  9.        'SaveFile.ShowDialog()
  10.  
  11.        If SaveFile.ShowDialog() = DialogResult.OK Then
  12.          MsgBox(SaveFile.FileName)
  13.        End If

Centrar un form secundario en el form principal:

Código
  1. #Region " CenterForm function "
  2.  
  3.    Function CenterForm(ByVal Form_to_Center As Form, ByVal Form_Location As Point) As Point
  4.        Dim FormLocation As New Point
  5.        FormLocation.X = (Me.Left + (Me.Width - Form_to_Center.Width) / 2) ' set the X coordinates.
  6.        FormLocation.Y = (Me.Top + (Me.Height - Form_to_Center.Height) / 2) ' set the Y coordinates.
  7.        Return FormLocation ' return the Location to the Form it was called from.
  8.    End Function
  9.  
  10. #End Region
  11.  
  12.    ' Form2 Load
  13.    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  14.        Me.Location = Form1.centerForm(Me, Me.Location)
  15.    End Sub
  16.  
  17.    ' Private Sub Button_MouseHover(sender As Object, e As EventArgs) Handles Button1.MouseHover
  18.    '     Form2.Show()
  19.    ' End Sub
  20.  
  21.    ' Private Sub Button_MouseLeave(sender As Object, e As EventArgs) Handles Button1.MouseLeave
  22.    '     Form2.Dispose()
  23.    ' End Sub


Saludos!
En línea


[/cen
Páginas: [1] 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 ... 51 Ir Arriba Respuesta Imprimir 

Ir a:  

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