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

 

 


Tema destacado: (TUTORIAL) Aprende a emular Sentinel Dongle By Yapis


+  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 1 Visitante están viendo este tema.
Páginas: 1 ... 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 34 ... 58 Ir Abajo Respuesta Imprimir
Autor Tema: Librería de Snippets para VB.NET !! (Compartan aquí sus snippets)  (Leído 480,126 veces)
ABDERRAMAH


Desconectado Desconectado

Mensajes: 431


en ocasiones uso goto ¬¬


Ver Perfil WWW
Re: Librería de Snippets !! (Posteen aquí sus snippets)
« Respuesta #180 en: 17 Junio 2013, 00:17 am »

Y cuantos Snippets ha dejado? :P


Pues unos pocos, pero sobre manejo de bitmaps, códigos útiles para simplificar el uso de gdi+. No es mucho porque yo no acostumbro a usar snippets excepto para ese tipo de tareas, pero creo que es útil.

Todo sea dicho, sería maravilloso un poco más de actividad de los que frecuentamos el foro de .net.


En línea

Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.788



Ver Perfil
Re: Librería de Snippets !! (Posteen aquí sus snippets)
« Respuesta #181 en: 17 Junio 2013, 11:13 am »

sería maravilloso un poco más de actividad de los que frecuentamos el foro de .net.

Si, además, es que no hay ni un solo código de C# en todo el hilo x'D

¿¡ Donde se ha metido la gente que maneja C# !?

Os recuerdo que el lenguaje no importa en este hilo...

A ver si alguien se anima,
Saludos.


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 #182 en: 17 Junio 2013, 12:20 pm »

Ya veo aquí a OmarHack xD
En línea


Interesados hablad por Discord.
birik

Desconectado Desconectado

Mensajes: 5


Ver Perfil
Re: Librería de Snippets !! (Posteen aquí sus snippets)
« Respuesta #183 en: 17 Junio 2013, 12:27 pm »

Aporto mi granito de arena:

Función que si le pasas un numero te devuelve el equivalente en letra
No lo e explicado muy bien un ejemplo:

Le paso a la función 1 -> me devuelve a
Le paso a la función 26  -> me devuelve z
Le paso a la función 27  -> me devuelve aa
Le paso a la función 53  -> me devuelve ba
y así sucesivamente:

Código:
Private Function ConvertirALetras4(ByVal num As Integer) As String

Dim base26 As String() = {"a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z"}
Dim cadena As String = ""
Dim tmp As Integer = num

While tmp > 0
If tmp Mod 26 = 0 Then
cadena += base26(25)
tmp = (tmp \ 26) - 1
Else
cadena += base26(tmp Mod 26 - 1)
tmp = tmp \ 26
End If
End While
Return StrReverse(cadena)
End Function

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 #184 en: 17 Junio 2013, 15:16 pm »

Bueno Elektro con tu creación Dinámica de controles no me llevaba muy bien, así que, mira lo que he hecho. (Bueno me he encontrado hecho, ahora tenéis que transportarlo, transformarlo, adaptarlo, etc a lo que vosotros queráis como he hecho yo) :silbar:

Código
  1. Public Class Form1
  2.  Private Sub NewButton(ByVal ButtonNumber As Integer)
  3.    ' Create a new button
  4.    Dim oButton As Button
  5.    oButton = New Button
  6.    ' Set properties. Change these as you like and set other props if needed
  7.    oButton.Enabled = True
  8.    oButton.Location = New Point(ButtonNumber * 30, ButtonNumber * 30)
  9.    oButton.Name = "MyButton" & ButtonNumber.ToString
  10.    oButton.Size = New Size(75, 23)
  11.    oButton.Text = "Button" & ButtonNumber.ToString
  12.    oButton.Visible = True
  13.    ' Use Tag property to store "which button" information
  14.    oButton.Tag = ButtonNumber
  15.    ' Add button click handler
  16.    AddHandler oButton.Click, AddressOf onButtonClick
  17.    ' Add to this forms controls collection
  18.    Me.Controls.Add(oButton)
  19.  End Sub
  20.  Private Sub MyFunc(ByVal ButtonNumber As Integer)
  21.    ' Do your stuff here
  22.    MessageBox.Show("You clicked button: " & ButtonNumber.ToString, "Click", MessageBoxButtons.OK, MessageBoxIcon.Information)
  23.  End Sub
  24.  Private Sub onButtonClick(ByVal sender As System.Object, ByVal e As System.EventArgs)
  25.    ' Handle button click and check which button is clicked
  26.    Dim ButtonNumber As Integer
  27.    ' Get Tag property. Cast sender to Button first
  28.    If CType(sender, Button).Tag IsNot Nothing Then
  29.      ' Check that button's Tag property contains a valid integer
  30.      If Integer.TryParse(CType(sender, Button).Tag.ToString, ButtonNumber) Then
  31.        ' Now we have a valid button number to be used
  32.        MyFunc(ButtonNumber)
  33.      End If
  34.    End If
  35.  End Sub
  36.  Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
  37.    ' Create buttons dynamically on form load
  38.    Dim i As Integer
  39.    For i = 0 To 30
  40.      NewButton(i)
  41.    Next i
  42.  End Sub
  43. End Class

Con esta maravilla, si la sabéis transformar, podéis sacar el numero del Button que habéis pulsado, lo que os hace la vida más fácil al manejar el dichoso Ini_Manager


Que os parece? :silbar:
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 #185 en: 17 Junio 2013, 15:52 pm »

Que os parece? :silbar:
Me parece que está muy bien comentado

Aunque es un poco marear la perdiz añadir el número al Tag y luego intentar parsearlo, si el número ya se añade de forma dinámica el "name" y con parsear el name es suficiente, pero bueno, es otra forma de hacer las cosas, si el code fuera tuyo te daría un par de aplausos xD

Saludos
En línea

Novlucker
Ninja y
Colaborador
***
Desconectado Desconectado

Mensajes: 10.683

Yo que tu lo pienso dos veces


Ver Perfil
Re: Librería de Snippets !! (Posteen aquí sus snippets)
« Respuesta #186 en: 17 Junio 2013, 15:56 pm »

Si, además, es que no hay ni un solo código de C# en todo el hilo x'D

¿¡ Donde se ha metido la gente que maneja C# !?

Os recuerdo que el lenguaje no importa en este hilo...

No uso snippets, me es más sencillo rehacer un código que buscar en una librería de snippet para ver si tengo uno que me sirva :xD
Por lo anterior, muchos de los snippets no los veo útiles (ya lo había dicho), por el simple hecho de que lo único que hacen es llamar a un método de .NET con unos parámetros específicos, es lo mismo pero con otro nombre :-\

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
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.788



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

me es más sencillo rehacer un código que buscar en una librería de snippet para ver si tengo uno que me sirva :xD

Buscar entre las páginas puede resultar tedioso, pero en la página principal intento dejar un índice ordenado del contenido de un pack que contiene todos los snippets (los que yo he publicado), que por cierto, lo actualizaré cuando llegue a los 400 snippets, me faltan 23...

Saludos!
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 #188 en: 17 Junio 2013, 18:31 pm »

Voltear Texto de un TextBox y pasarlo a otro. :)

Código
  1. Public Function Voltear(ByVal Texto As String) As String
  2. Dim i As Long, l As Long
  3. l = Len(Texto)
  4. For i = 1 To l
  5. Voltear = Voltear & Mid(Texto, l, 1)
  6. l = l - 1
  7. Next
  8. End Function
  9.  
  10. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  11. textbox2.text = voltear(textbox1.text) 'voltea texto
  12. End Sub

Un saludo.
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 #189 en: 17 Junio 2013, 18:54 pm »

Voltear Texto de un TextBox y pasarlo a otro. :)


demasiado código, mira:

Código
  1. Public Class Form1
  2.  
  3.    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  4.        TextBox2.Text = StrReverse(TextBox1.Text)
  5.    End Sub
  6.  
  7. End Class

saludos
En línea

Páginas: 1 ... 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 34 ... 58 Ir Arriba Respuesta Imprimir 

Ir a:  

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