Hola aquí puedes poner toda rutina o código que veas
interesante para vb.net, o respuestas a las que siempre se preguntan en el foro
y así tenerla siempre a mano y ayudar a muchos con tu ejemplo, y recuerda no
uses este post para preguntar para ello formula un nuevo post en el foro.



Haber quien se anima primero (yo todavía no se nada de .net ,
así que espero algún buen forero eche su primer aporte)

Saludos



Edited by: Leandro

Bueno aca pongo algunas rutinas.

<div align="center">hacer que un textbox acepte solo numeros.

iniciar un proyecto,insertar un modulo,y un textbox en el form:

en el modulo:

Function Numeros(ByVal Keyascii As Short) As Short
If InStr("1234567890", Chr(Keyascii)) = 0 Then
Numeros = 0
Else
Numeros = Keyascii
End If
Select Case Keyascii
Case 8
Numeros = Keyascii
Case 13
Numeros = Keyascii
End Select
End Function

despues de el codigo:Inherits System.Windows.Forms.Form

escribi:Public KeyAscii As Short

despues en el evento keypress del textbox1,pone este codigo:

Dim KeyAscii As Short = CShort(Asc(e.KeyChar))
keyascii = CShort(Numeros(keyascii))
If keyascii = 0 Then
e.Handled = True
End If
End Sub
-----------------------------------------------------------
<div align="center">establecer foco a un control

<div align="left">en visual basic si queremos asignar el foco a un control textbox por ejemplo se usaria este codigo:

Text1.SetFocus

en visual basic.net:

TextBox1.SetFocus()
-------------------------------------------------------------------
<div align="center">cambiar al siguiente control al apretar Enter en un textbox

<div align="left">tenes que saber que si hay otros controles en el formulario que no sean cajas de textos,entonces al apretar enter pasara el foco a un boton por ejemplo y no a la caja de textos,ya que lo unico que hace este codigo es simular el presionado de la tecla Tabulador(TAB).

en visual basic:se tiene que poner este codigo en cada caja que queramos esta funcion.

If KeyAscii = vbKeyReturn Then
KeyAscii = 0
SendKeys "{TAB}"
End If

en visual basic.net: se puede asignar esta funcion a muchos
controles a la vez.

If e.KeyChar = ChrW(Keys.Enter) Then
e.Handled = True
SendKeys.Send("{TAB}")
End If
-------------------------------------------------------------------
<div align="center"> seleccionar todo el contenido al recibir el foco de un textbox
en visual basic se usa esto,en el evento gotfocus del
textbox se pone:

Private Sub Text1_GotFocus()
With Text1
.SelStart = 0
.SelLength = Len(.Text)
End With
End Sub

en visual basic.net:una linea de codigo

Private Sub TextBox1_Enter(ByVal sender As Object,ByVal e As System.EventArgs)Handles TextBox1.Enter
TextBox1.SelectAll()
End Sub
-----------------------------------------------------------
<div align="center">evitar el BEEP al apretar Enter en un textbox

<div align="left">en visual basic es facil se pone el valor keyascii = 0 para ignorar la pulsacion,algo asi:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
KeyAscii = 0
End If
End Sub

en visual basic.net no existe el keyascii,y por lo tanto se usa Handled, si le asignamos un valor True a
esta propiedad, la pulsación de la tecla será ignorada.

Private Sub TextBox1_KeyPress(ByVal sender As Object,ByVal e As System.Windows.Forms.KeyPressEventArgs)Handles TextBox1.KeyPress
If e.KeyChar = Convert.ToChar(Keys.Return) Then
e.Handled = True
End If
End Sub

-------------------------------------------------------------------
<div align="center">abrir la calcualdora de windows

<div align="left">pone esto en un boton o donde quieras:

Dim Proceso As New Process()
Proceso.StartInfo.FileName = "calc.exe"
Proceso.StartInfo.Arguments = ""
Proceso.Start()

-------------------------------------------------------------------
<div align="center">abrir un fichero de texto

<div align="left">lo podes poner en un boton tambienrimero se declara esto:

<div align="left">Dim oFile As System.IO.File
Dim oRead As System.IO.StreamReader
Dim EntireFile As String

oFile
es una variable de tipo fichero, oRead nos sirve para leer el fichero y
EntireFile es donde se almacenara el fichero en una variable tipo
texto.

oRead = oFile.OpenText(PathDelFichero)
EntireFile = oRead.ReadToEnd()

-------------------------------------------------------------------
<div align="center">mayusculas y minusculas

<div align="left">aca un codigo para transformar por ejemplo el texto de un textbox en mayusculas y minusculas:


Me.TextBox1.CharacterCasing = CharacterCasing.Upper 'para mayusculas
Me.TextBox1.CharacterCasing = CharacterCasing.Lower 'para minúsculas

[color="#0000ff" size="2"]-------------------------------------------------------------------
[/color]<div align="center">guardar texto de textbox en .txt

<div align="left">a la vista,es similar a visual basic normal.

<div align="left">FileOpen(1,"c:\texto.txt", OpenMode.Output)
Write(1, textbox1.text)
FileClose(1)

[color="#0000ff" size="2"]-------------------------------------------------------------------
[/color]<div align="center">recorrer array

<div align="left"> Dim arr() As String
Dim nombres As String
ReDim arr(1)
arr(0) = "anna"
arr(1) = "pol"

For Each nombres In arr
MsgBox(nombres)
Next[color="#0000ff" size="2"]
-------------------------------------------------------------------
[/color]<div align="center">ver la ip en un textbox

<div align="left">
Dim ip As Net.Dns

Dim nombre_Host As String = ip.GetHostName

Dim este_Host As Net.IPHostEntry = ip.GetHostByName(nombre_Host)

Dim direccion_Ip As String = este_Host.AddressList(0).ToString

Me.TextBox1.Text = direccion_Ip

[color="#0000ff" size="2"]-------------------------------------------------------------------
[/color]<div align="center">escribir en un fichero de texto

<div align="left">se utiliza StreamWriter.

Para poder utilizar StreamWriter importaremos la System.IO

Imports System.IO

Código para escribir:

If (Not File.Exists("c:\test.txt")) Then
st = File.CreateText("c:\test.txt")
Else
st = File.AppendText("c:\test.txt")
End If
st.WriteLine("Texto deseado")
st.Close()

[color="#0000ff" size="2"]-------------------------------------------------------------------
[/color]<div align="center">funcion para obtener edad ,a partir de fecha de nacimiento

<div align="left">Public Shared Function Edad(ByVal FechaNacimiento As DateTime)As Double
Dim dblEdad As Double = DateTime.Now.Subtract(FechaNacimiento).TotalDays / 365.25
Return dblEdad
End Function[color="#0000ff" size="2"]
-------------------------------------------------------------------
[/color]<div align="center">ordenar array

<div align="left"> Dim nombres As String
Dim arr() As String
ReDim arr(1)
arr(0) = "pol"
arr(1) = "anna"
Array.Sort(arr) -> esto ordena el array
For Each nombres In arr
MsgBox(nombres)
Next<div align="left">[color="#0000ff" size="2"]-------------------------------------------------------------------
[/color]<div align="center">Algunas Api's
<div align="left">
SetParent

Le Asigna a una ventana, el padre o contenedor.

Para VB6:Private Declare Function SetParent Lib "user32"(ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

Para VB .NET:<System.Runtime.InteropServices.DllImport("user32.dll")> _
Private Function SetParent(ByVal hWndChild As IntPtr, ByVal hWndNewParent As IntPtr) As IntPtr
End Function

[color="#ff0000" size="3"]MoveWindow[/color]

Se usa para cambiar el tamaño y la posición de una ventana de la que
conocemos el handle.

Si esa ventana está contenida en otra, la posición será relativa a la ventana
que la contiene, no al escritorio.

Para VB6:Private Declare Function MoveWindow Lib "user32"(ByVal hWnd As Long, ByVal x As Long, ByVal y As Long,ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As LongPara VB .NET:

<System.Runtime.InteropServices.DllImport("user32.dll")> _
Private Function MoveWindow(ByVal hWnd As IntPtr, ByVal x As Integer, ByVal y As Integer, _

ByVal nWidth As Integer, ByVal nHeight As Integer, _

ByVal bRepaint As Integer) As Integer
End Function

[color="#ff0000" size="3"]GetActiveWindow[/color]

GetActiveWindow
devuelve el Handle de la venta activa de nuestra aplicación, sería el
equivalente a ActiveForm de VB6.

Si quieres averiguar cual es la ventana que actualmente está activa (no
necesariamente de nuestra aplicación), puedes usar GetForegroundWindow.

Para VB6:Private Declare Function GetActiveWindow Lib "user32" () As LongPara VB .NET:

<System.Runtime.InteropServices.DllImport("user32. dll")> _
Private Shared Function GetActiveWindow() As System.IntPtr
End Function

[color="#ff0000" size="3"]GetForegroundWindow[/color]

Esta
función devuelve el Handle de la venta que está actualmente activa, (la que el
usuario está usando en ese momento).

GetForegroundWindow no es lo mismo que GetActiveWindow, ya que esta última
devuelve la relacionada con el mismo thread (hilo) de la aplicación actual (la
nuestra).

Para VB6:Private Declare Function GetForegroundWindow Lib "user32" () As Long

Para VB .NET:

<System.Runtime.InteropServices.DllImport("user32. dll")> _
Private Shared Function GetForegroundWindow() As System.IntPtr
End Function

<h3>[color="#ff0000" size="2"]ExtractIcon y ExtractIconEx[/color]</h3>

Extraer iconos de una aplicación o fichero
(.exe, .dll,. etc.)Para VB6:Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA"(ByVal hInst As Long, ByVal lpszExeFileName As String,ByVal nIconIndex As Long) As Long

Para VB .NET:<DllImport("shell32.dll")> _
Private Shared Function ExtractIconEx( _

ByVal lpszFile As String, ByVal nIconIndex As Integer, _

ByRef phiconLarge As Integer, ByRef phiconSmall As Integer, _

ByVal nIcons As UInteger) As Integer
End Function<DllImport("shell32.dll")> _
Private Shared Function ExtractIcon( _

ByVal hInst As Integer, ByVal lpszExeFileName As String, _

ByVal nIconIndex As Integer) As IntPtr
End Function

[color="#ff0000" size="2"]IsWindowVisible[/color]

Utilizada para
saber si una ventana está visible.

Para VB6:
Private Declare Function IsWindowVisible Lib "user32" (ByVal hWnd As Long) As Long

Para VB .NET:

<System.Runtime.InteropServices.DllImport("user32. dll")> _
Public Shared Function IsWindowVisible(ByVal hWnd As System.IntPtr) As Boolean
End Function

[color="#ff0000" size="2"]ShowWindow[/color]

Muestra (cambia) la
ventana actual al estado indicado.

Si la ventana ya estaba visible devuelve un valor distinto de cero.

El estado puede ser: maximizada, minimizada, etc.

En .NET sería el equivalente a asignar un valor a la propiedad WindowState de
un formulario.

Para VB6:
Private Declare Function ShowWindow Lib "user32"(ByVal hWnd As Long, ByVal nCmdShow As Long) As LongPara VB .NET:

<System.Runtime.InteropServices.DllImport("user32. dll")> _
Private Shared Function ShowWindow( _
ByVal hWnd As System.IntPtr, _
ByVal nCmdShow As Integer) As Integer
End Function

[color="#ff0000" size="2"]FindWindow[/color]

Devuelve el "handle"
de la ventana que coincida con la clase y nombre indicados.

Normalmente el primer parámetro se puede omitir.

Para VB6:
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA"(ByVal lpClassName As String,ByVal lpWindowName As String) As Long

Para VB .NET:

<System.Runtime.InteropServices.DllImport("user32. dll")> _
Private Shared Function FindWindow( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As System.IntPtr
End Function

-----------------------------------------------------------
<div align="center">Algunos Cambios de Visual Basic Clasico a VIsual Basic.NET

<div align="left"><h4>Tipo de datos Variant</h4>Los tipos de datos Variant cambian a Object, de modo que el siguiente código:<div align="left">
Dim x As Variant


se actualiza a:
Dim x As Object

<h4>Variables Integer y Long</h4>Cambian los tipos de variable, de modo que el siguiente código:
Dim x As Integer
Dim y As Long


se actualiza a:
Dim x As Short
Dim y As Integer

<h3>Tipo de datos Currency</h3>Los tipos de datos Currency cambian a Decimal, de modo que el siguiente código:
Dim x As Currency


se actualiza a:
Dim x As Decimal

<h3>Variable Date</h3>Aunque no se pueden detectar todos los casos en los que se utiliza una variante para almacenar Date como Double, la herramienta de actualización suele insertar el método ToOADate o FromOADate adecuado en el lugar donde Double se asigna a Date. Por ejemplo, el siguiente código:
Dim dbl As Double

Dim dat As Date

Dbl = dat


se actualiza a:
Dim dbl As Double

Dim dat As Date

Dbl = dat.ToOADate

<h3>Cadenas de longitud fija</h3>En la mayoría de los casos esto no constituye ningún problema, ya
que se ofrece un comportamiento de cadena de longitud fija, de forma
que el siguiente código:
Dim MyFixedLengthString As String * 100


se actualiza a:
Dim MyFixedLengthString As New VB6.FixedLengthString(100)

<h3>Instrucción Type</h3>Las instrucciones Type cambian a Structure, de modo que el siguiente código:
Type MyType

MyVariable As Integer

End Type


se actualiza a:
Structure MyType

Dim MyVariable As Short

End Structure

<h3>True</h3>Visual Basic 6.0: True tiene el valor de –1.

Visual Basic.NET: True tiene el valor de 1.



Cuando un objeto booleano se fuerza a un tipo no booleano, el código
se marca con una advertencia de actualización. Por ejemplo, el
siguiente código:
Dim MyBoolean As Boolean

Dim MyInteger As Integer

MyInteger = MyBoolean


se actualiza a:
Dim MyBoolean As Boolean

Dim MyInteger As Short

MyInteger = MyBoolean

<h3>Null</h3>Los valores Null y las funciones IsNull se incluyen en un comentario con una advertencia de actualización. Por ejemplo, el siguiente código:
If x Is Null Then MsgBox "Null"


se actualiza a:
If IsDBNull(x) Then MsgBox "Null"

<h3>Def<Type></h3>Las declaraciones explícitas de los tipos de variable se insertan en el código. Por ejemplo, el siguiente código:
DefStr a-z

Sub MySub

s = "Hello"

End Sub


se actualiza a:
Sub MySub

Dim s As String

s = "Hello"

End Sub

<h3>Variables locales dentro de bloques</h3>Si las variables se declaran dentro de un bloque, éstas se trasladan
automáticamente a un ámbito de nivel de módulos. Por ejemplo, el
siguiente código:
If x =1 Then

Dim y As Integer

End If


se actualiza a:
Dim y As Integer

If x =1 Then

End If

<h3>Parámetros ParamArray</h3>Los argumentos ParamArray se incluyen en un comentario con una advertencia de actualización. Por ejemplo, el siguiente código:
Function MyFunction(ParamArray p() As Variant)

'...

End Function


se actualiza a:

Function MyFunction(ByVal ParamArray p() As Object)

'...

End Function

<h3>Debug.Print</h3>Debug.Print se actualiza a Debug.WriteLine.

<h3>Archivos de recurso</h3>Visual Basic 6.0 admite un archivo .res por proyecto.

Visual Basic.NET admite una gran variedad de recursos. Se pueden
enlazar formularios para recuperar recursos de forma automática de los
nuevos archivos de recursos con formato .resX. Cualquier clase CLR se
puede almacenar en un archivo .resX.

Los archivos se actualizan de .res a .resX y se modifica el código para que se cargue de los archivos .resX.

<h3>Propiedad Caption</h3>Algunos controles, como Label, disponen de la propiedad Caption que determina el texto mostrado en o junto al control. Otros controles, como TextBox, disponen de la propiedad Text que determina el texto contenido en el control.

En los formularios de Windows, la propiedad que muestra texto en el control se denomina Text en todos los controles. De este modo, se simplifica el uso de los controles.

Las propiedades Caption de los controles se cambian a Text.

<h3>Control de imágenes</h3>Los controles Image y PictureBox muestran un gráfico de un archivo GIF, JPEG, metarchivo, metarchivo mejorado, icono o mapa de bits.

El control PictureBox de Visual Basic.NET reemplaza a los controles PictureBox e Image de Visual Basic 6.0. El control PictureBox
de los formularios de Windows admite también archivos GIF animados. Sin
embargo, si necesita una solución provisional para diseñar una imagen
en un formulario, puede omitir el evento OnPaint para el formulario y utilizar el método DrawImage.

Los controles de imágenes cambian a controles PictureBox.

-------------------------------------------------------------------

<div align="center">Lo nuevo en Visual Basic

<div align="left"><h1>Compilador y lenguaje Visual Basic</h1><div id="secti&#111;nSecti&#111;n0">

Las
mejoras realizadas en Visual Basic 2005 simplifican el código fuente y
permiten la interacción con componentes que usan funciones avanzadas. <h1>Desarrollo de Visual Basic con My</h1><div id="secti&#111;nSecti&#111;n1">


Visual Basic 2005 proporciona características nuevas para el desarrollo
rápido de aplicaciones que pretende mejorar la productividad y
facilidad de uso a la vez que aumenta la funcionalidad. Una de estas
características, llamada My,
proporciona acceso a las funciones de .NET Framework utilizadas
habitualmente, así como información e instancias de objeto
predeterminadas que estén relacionadas con la aplicación y su entorno
en tiempo de ejecución. Esta información se organiza en un formato
compatible con IntelliSense y se dispone lógicamente en función del
uso.
<h3>Desarrollo de aplicaciones</h3>

El My.Application (Objeto) proporciona acceso a una aplicación, permitiéndole actualizarla fácilmente y registrar información de la misma. My.Application
también se puede utilizar para tener acceso a los argumentos de línea
de comandos de una aplicación o para ejecutar código cuando se inicia o
se cierra una aplicación.
<h3>Portapapeles</h3>

El My.Computer.Clipboard (Objeto) proporciona acceso fácil para leer del Portapapeles y escribir en él,
junto con métodos para borrarlo y determinar qué tipo de datos se
almacenan en él.
<h3>Recursos del equipo</h3>

Es posible tener acceso a muchos recursos informáticos a través de objetos My, incluidos el reloj, el teclado, el mouse, los puertos y el Registro del equipo. <h3>Entrada/salida de archivos</h3>

El My.Computer.FileSystem (Objeto) proporciona métodos y propiedades de acceso a archivos que simplifican el proceso de E/S de archivos. TextFieldParser (Objeto) permite analizar grandes archivos de texto delimitados o de ancho fijo, mientras que métodos como WriteAllText, WriteAllBytes, ReadAllText y ReadAllBytes
realizan la lectura y escritura en los archivos de forma intuitiva a la
vez que aumentan el rendimiento. De forma semejante, los métodos GetFileInfo, GetDirectoryInfo y GetDriveInfo proporcionan información sobre los archivos, directorios y unidades. <h3>Operaciones de red</h3>

El My.Computer.Network (Objeto)
proporciona métodos y propiedades para cargar y descargar archivos, así
como para comprobar el estado de la conexión y determinar si los
equipos remotos están disponibles. <h3>Recursos</h3>

El My.Resources (Objeto) permite tener acceso a recursos como los de audio, de iconos y adaptados a otros idiomas.

Puede agregar y administrar recursos mediante la página Recursos del Diseñador de proyectos.
<h3>Configuración del usuario y de la aplicación</h3>

El My.Settings (Objeto)
le permite conservar y cambiar la configuración del usuario, así como
leer la configuración de la aplicación.


También puede administrar la configuración de la aplicación mediante la página Configuración del Diseñador de proyectos. <h1>Acceso a datos</h1><div id="secti&#111;nSecti&#111;n2">


Visual Basic 2005 incluye varias características nuevas para ayudar a
desarrollar aplicaciones que tengan acceso a los datos. Asistente para la configuración de orígenes de datos simplifica la conexión de su aplicación a los datos incluidos en bases
de datos, servicios Web y objetos creados por los usuarios.

La nueva característica Ventana Orígenes de datos
proporciona una ubicación central para ver los datos disponibles para
su proyecto y los asociados con éste, además de reducir la complejidad
del enlace de datos permitiendo arrastrar elementos desde la ventana
hasta los formularios para crear controles enlazados a datos.

Tareas
como rellenar conjuntos de datos, ejecutar consultas y ejecutar
procedimientos almacenados se pueden realizar ahora mediante el nuevo
objeto TableAdapter generado por Visual Studio. La nueva característica de datos locales
permite incluir archivos de base de datos de Microsoft Access y
archivos de base de datos de Microsoft SQL Server Express directamente
en su aplicación.

<div id="secti&#111;nSecti&#111;n3"> <h3>Editar y continuar</h3>

Editar y continuar
le permite realizar cambios en su aplicación mientras se está
ejecutando bajo el depurador, sin necesidad de detener y reiniciar la
aplicación. Los cambios que realice durante el modo de interrupción se
aplicarán inmediatamente al reanudar la ejecución de su aplicación.


<h3>Edición de atributos en la ventana Propiedades</h3>

Ahora puede editar atributos comunes que se aplican a sus clases y métodos de la ventana Propiedades en lugar de tener que aplicarlos en el código.


<h3>Filtrado de IntelliSense</h3>

Ahora
puede ajustar el nivel de detalle proporcionado por IntelliSense en el
Editor de código. Cuando se muestra la ventana de IntelliSense, puede
excluir los miembros menos utilizados si hace clic en la ficha Común o ver todo lo que está disponible si hace clic en la ficha Todos.
Ajustando el nivel, puede omitir los miembros poco frecuentes o raros
cuando no son necesarios, o bien incluirlos cuando lo son.


<h3>IntelliSense en zona</h3>

IntelliSense
en zona es una característica de IntelliSense de Visual Basic que
muestra determinados elementos de la lista de finalización de
instrucciones con un color diferente si no tienen permisos suficientes
para ejecutarse en la zona de seguridad especificada. Esta
compatibilidad en tiempo de diseño le permite desarrollar más
fácilmente aplicaciones que se ejecuten en confianza parcial.


<h3>Fragmentos de código de IntelliSense</h3>

La
biblioteca de fragmentos de código de IntelliSense consta de 380 partes
de código preescritas. Puede agregar estas rutinas reutilizables a su
código y editarlas utilizando los punteros que contiene el código. Los
fragmentos de código están disponibles al hacer clic con el botón
secundario del mouse (ratón) en el Editor de código y después en Insertar fragmento de código. También están disponibles a través de los métodos abreviados de teclado.

Las
tareas relacionadas con fragmentos de código van desde crear una
excepción personalizada hasta enviar un mensaje de correo electrónico o
dibujar un círculo. Algunas son simples expansiones para las
estructuras de programación comunes. La biblioteca es extensible; puede
crear tareas de código que se ajusten a sus necesidades comerciales y
agregarlas a la biblioteca. También puede descargar más tareas de
biblioteca de proveedores de software de otros fabricantes y de sitios
de la comunidad de Visual Basic.


<h3>Corrección de errores y advertencias</h3>

Con la función Corrección inteligente de errores de compilación,
el Editor de código puede sugerir soluciones para los errores y
advertencias comunes y permitirle seleccionar la corrección adecuada,
que se aplicará a su código. Cuando se produce un error, si aparece un
símbolo bajo el lado derecho de la línea ondulada, al colocar el
puntero del mouse sobre ella el símbolo se convierte en un panel de
etiquetas inteligentes. Al hacer clic en el panel de etiquetas
inteligentes se abre la ventana auxiliar Opciones de corrección de errores,
que proporciona una descripción del error, sugiere posibles formas de
corregirlo y, cuando es posible, le permite obtener una vista previa de
la corrección.


<h3>Ayudante de excepciones</h3>

Cuando está depurando una aplicación, el Ayudante de excepciones
se abre de manera predeterminada para ayudar con las excepciones no
controladas. Si lo prefiere, puede cambiar el entorno para que el
asistente aparezca cuando se produzca una excepción dentro de su
código. El Ayudante de excepciones muestra el tipo de
excepción, el mensaje concreto para la excepción que se ha producido,
una lista de sugerencias para solucionar el problema y posibles
acciones que llevar a cabo.


<h3>Documentación XML</h3>

La
documentación de código XML le permite documentar sus clases en código
y exponer esa documentación como XML. La documentación XML resultante
se puede utilizar y mostrar de diversas maneras, permitiéndole crear la
documentación para su código mientras lo escribe.


<h3>Esquema del documento (Ventana)</h3>

La ventana Esquema del documento
ahora admite vistas de esquema para formularios Windows Forms además de
páginas Web y páginas HTML de ASP.NET. Puede utilizar la ventana Esquema del documento para desplazarse entre los controles de formularios Windows Forms cuando está en la vista Diseño del editor. Para tener acceso a esta ventana, en el menú Ver, haga clic en Otras ventanas y, a continuación, haga clic en Esquema del documento. <h1>Diseñador de proyectos para administrar proyectos, configuraciones y recursos</h1><div id="secti&#111;nSecti&#111;n4">

El Diseñador de proyectos
proporciona una ubicación centralizada para administrar las
propiedades, configuraciones y recursos del proyecto. Para abrirlo,
seleccione el comando Propiedades del menú Proyecto.

Diseñador de configuración <div id="secti&#111;nSecti&#111;n5">

La página Configuración del Diseñador de proyectos
le permite especificar la configuración de aplicación de un proyecto,
que puede ser de ámbito de usuario o de ámbito de aplicación. Esta
característica reemplaza las propiedades dinámicas.
<h1>Diseñador de recursos</h1><div id="secti&#111;nSecti&#111;n6">

El Diseñador de recursos
es una herramienta de interfaz de usuario que le permite administrar
los recursos (como cadenas, imágenes, iconos, sonido y archivos)
utilizados por un proyecto. Crea recursos con establecimiento
inflexible de tipos a los que puede tener acceso en tiempo de ejecución
mediante el My.Resources (Objeto).


La página Recursos del Diseñador de proyectos aloja una instancia del Diseñador de recursos que almacena y mantiene los recursos en una ubicación única (Resources.resx).
<h1>Implementación ClickOnce</h1><div id="secti&#111;nSecti&#111;n7">


La implementación ClickOnce permite publicar aplicaciones de consola, y
las basadas en Windows, de actualización automática que se pueden
instalar, actualizar y ejecutar tan fácilmente como las aplicaciones
Web.


Las nuevas fichas Seguridad, Firma y Publicar del Diseñador de proyectos le permiten personalizar su implementación ClickOnce. Utilice el nuevo comando Publicar del menú Generar (o del menú contextual del Explorador de soluciones) para abrir el Asistente para publicación, una herramienta para guiarle a través del proceso de publicación de su aplicación.
<h1>Implementación de aplicaciones de 64 bits</h1><div id="secti&#111;nSecti&#111;n8">

Tanto
la implementación de ClickOnce como la de Windows Installer admiten la
instalación en plataformas de 64 bits.
<h1>Ejemplos expandidos</h1><div id="secti&#111;nSecti&#111;n9">


Visual Basic 2005 incluye más de 60 aplicaciones de ejemplo. Las nuevas características incluyen:

1 - Implementación ClickOnce 2 - Programación con el objeto My

3 - Mejoras de lenguaje, incluidos los genéricos y los comentarios de XML

4 - Acceso a datos

Actualizar desde Visual Basic 6.0

Las
herramientas de actualización de Visual Basic 2005 presentan numerosas
mejoras, incluida la capacidad de actualizar muchos controles ActiveX
de Visual Basic 6.0 a sus equivalentes de Visual Basic 2005.-------------------------------------------------------------------

<div align="center">Realizar tareas con My.Application, My.Computer y My.User

<div align="left">

Los tres objetos My centrales que proporcionan acceso a información y funcionalidad de uso frecuente son My.Application (Objeto), My.Computer (Objeto) y My.User (Objeto). Puede utilizar estos objetos para tener acceso a información
relacionada con la aplicación actual, con el equipo donde está
instalada la aplicación o con el usuario actual de la aplicación,
respectivamente. <h1>My.Application, My.Computer y My.User</h1>

Los ejemplos siguientes muestran cómo se puede recuperar información utilizando My.
' Displays a message box that shows the full command line for the
' application.
Dim args As String = ""
For Each arg As String In My.Application.CommandLineArgs
args &= arg & " "
Next
MsgBox(args)

---------------------------------------------

' Gets a list of subfolders in a folder
My.Computer.FileSystem.GetDirectories _
(My.Computer.FileSystem.SpecialDirectories.MyDocum ents, True, "*Logs*")

Además de recuperar información, los miembros expuestos a través de
estos tres objetos también permiten ejecutar métodos relacionados con
ese objeto. Por ejemplo, puede tener acceso a una variedad de métodos
para manipular archivos o actualizar el Registro a través de My.Computer.



My.Application permite cambiar la referencia cultural de la aplicación. El ejemplo siguiente muestra cómo se puede llamar a este método. <div id="ctl00_Lib_ctl12_VisualBasic">
' Changes the current culture for the application to Jamaican English.
My.Application.ChangeCulture("en-JM")

-------------------------------------------------------------------

<div align="center">My.User

<div align="left">Proporciona acceso a la información sobre el usuario actual.



Las propiedades y métodos expuestos por el objeto My.User
proporcionan acceso a la información sobre el usuario actual. El
significado de "usuario actual" difiere ligeramente entre Windows y las
aplicaciones Web. En una aplicación para Windows, el usuario actual es
el usuario que ejecuta la aplicación. En una aplicación Web, el usuario
actual es el usuario que tiene acceso a la aplicación.

La propiedad My.User también proporciona acceso a al usuario actual. Un objeto principal IPrincipal representa el contexto de
seguridad del usuario, incluidas la identidad de ese usuario y las
funciones a las que pertenece el usuario.

En las aplicaciones para Windows, esta propiedad ofrece la misma funcionalidad que la propiedad CurrentPrincipal . En las aplicaciones Web, esta propiedad ofrece la misma funcionalidad que la propiedad User del objeto devuelto por la propiedad Current.
El objeto My.User no puede suministrar información sobre el
usuario de Windows actual cuando se ejecuta en Windows 95 y Windows 98
porque estos sistemas operativos no admiten el concepto de usuario
registrado.

En este ejemplo se comprueba si la aplicación utiliza la autenticación
Windows o autenticación personalizada, y se emplea esa información para
analizar la propiedad My.User.Name.

Function GetUserName() As String
If TypeOf My.User.CurrentPrincipal Is _
Security.Principal.WindowsPrincipal Then
' The application is using Windows authentication.
' The name format is DOMAIN\USERNAME.
Dim parts() As String = Split(My.User.Name, "\")
Dim username As String = parts(1)
Return username
Else
' The application is using custom authentication.
Return My.User.Name
End If
End Function


------------------------------------------------------------------

<div ="title" align="center">My.Settings (Objeto)




Proporciona propiedades y métodos para tener acceso a la configuración de la aplicación.El objeto My.Settings proporciona acceso a la configuración de
la aplicación y permite almacenar y recuperar de forma dinámica valores
de propiedades y otra información relativa a la aplicación.

Las propiedades del objeto My.Settings proporcionan acceso a la configuración de su aplicación. Para agregar o quitar valores de configuración, utilice el Diseñador de configuración.



Todos los valores tiene un Nombre, Tipo, Ámbito y Valor, y estos ajustes determinan cómo aparece en el objeto My.Settings la propiedad para tener acceso a cada uno de los valores:


Nombre determina el nombre de la propiedad. Tipo determina el tipo de la propiedad.

Ámbito indica si la propiedad es de sólo lectura. Si el valor es Aplicación, la propiedad es de sólo lectura; si el valor es Usuario, la propiedad es de lectura y escritura.

Valor es el valor predeterminado de la propiedad.

Métodos:

Reload:Vuelve a cargar los últimos valores guardados de la configuración del usuario.

Save: Guarda la configuración actual de usuario.



Este ejemplo muestra el valor del ajuste <tt>Nickname</tt>. <div ="code" id="ctl00_Lib_ctl17_VisualBasic"><div ="CodeSnippetTitleBar"><div ="CodeDisplay">
Sub ShowNickname()
MsgBox("Nickname is " & My.Settings.Nickname)
End Sub
Para que funcione este ejemplo, su aplicación debe tener un ajuste <tt>Nickname</tt>, de tipo String.

-------------------------------------------------------------------

<div ="title" align="center">Formularios Windows Forms para usuarios de Visual Basic 6.0




En
Visual Basic 6.0 (y en todas las versiones anteriores de Visual Basic),
las aplicaciones basadas en Windows se creaban mediante formularios que
formaban parte del motor en tiempo de ejecución de Visual Basic. En
Visual Basic 2005, las aplicaciones basadas en Windows se crean
utilizando formularios Windows Forms proporcionados por .NET Framework.

Los
formularios Windows Forms y sus controles proporcionan una arquitectura
más extensible y compleja para el desarrollo de aplicaciones basadas en
Windows; sin embargo, hay algunas diferencias entre los formularios y
los controles de Windows Forms, y los formularios y controles de Visual
Basic 6.0. Los temas siguientes se han concebido para ayudarle a
comprender las diferencias.
<div ="title"><div align="center">Objeto App para usuarios de Visual Basic 6.0




En este tema se compara el objeto App de Visual Basic 6.0 con su equivalente en Visual Basic 2005.

En Visual Basic 6.0 el objeto App
es un objeto global que se utiliza para establecer o recuperar
información sobre la aplicación. No existe ningún equivalente directo
del objeto App en Visual Basic 2005. Sin embargo, la mayor
parte de las propiedades, métodos y eventos se pueden asignar a
miembros equivalentes en .NET Framework.<a name="c&#111;nceptual">
Diferencias conceptuales
</a><a name="c&#111;nceptual"> </a><h3 ="subing"><a name="c&#111;nceptual">Version Information (Propiedades)</a></h3><a name="c&#111;nceptual"> </a>

<a name="c&#111;nceptual">Las propiedades Version Information del objeto App se reemplazan por atributos Assembly en Visual Basic 2005. Las propiedades Version Information se definen en el cuadro de diálogo Propiedades del proyecto. Los atributos Assembly se definen en el cuadro de diálogo Información de ensamblado, al que se puede obtener acceso haciendo clic en el botón Información de la aplicación situado en la ficha Aplicación del Diseñador de proyectos.</a>

<a name="c&#111;nceptual"></a><h3 ="subing"><a name="c&#111;nceptual">File Description (Propiedad)</a></h3><div ="subSecti&#111;n"><a name="c&#111;nceptual"> </a>

<a name="c&#111;nceptual">El objeto App de Visual Basic 6.0 tiene las propiedades FileDescription y Title; FileDescription determina el texto de la descripción que aparece en el Explorador de Windows.</a><a name="c&#111;nceptual"> </a>

<a name="c&#111;nceptual">En Visual Basic 2005, no hay ningún atributo FileDescription. En su lugar, el atributo Title determina el texto descriptivo que aparece en el Explorador de Windows.</a><a name="c&#111;nceptual"> </a><a name="c&#111;nceptual"> </a><h3 ="subing"><a name="c&#111;nceptual">HelpFile (Propiedad)</a></h3><div ="subSecti&#111;n"><a name="c&#111;nceptual"> </a>

<a name="c&#111;nceptual">La propiedad HelpFile en Visual Basic 6.0 especifica un archivo de Ayuda en el nivel de la aplicación. </a><a name="c&#111;nceptual"> </a>

<a name="c&#111;nceptual">En Visual Basic 2005, los archivos de Ayuda se especifican en cada formulario utilizando un componente</a>HelpProvider.
<h3 ="subing">Version (Propiedades)</h3><div ="subSecti&#111;n">

Las propiedades Major, Minor y Revision en Visual Basic 6.0 se utilizan para devolver el número de versión, formado por tres partes, de una aplicación.

En Visual Basic 2005, la información de versión incluye también una propiedad Build, y el número de versión, que se compone de cuatro partes, puede recuperarse utilizando una única propiedad Version. <h3 ="subing">Title (Propiedad)</h3><div ="subSecti&#111;n">

En Visual Basic 6.0, la propiedad Title del objeto App puede modificarse mediante programación; de este modo, se determina el nombre que aparece en el Administrador de tareas de Windows.

En Visual Basic 2005, el atributo Title es de sólo lectura. La propiedad Text del formulario principal de la aplicación determina el nombre que aparece en el Administrador de tareas. La propiedad Text puede definirse mediante programación, pero también cambiará el texto de la barra de título del formulario. <h3 ="subing">TaskVisible (Propiedad)</h3><div ="subSecti&#111;n">

En Visual Basic 6.0, la propiedad TaskVisible del objeto App determina si una aplicación aparece en la Lista de tareas de Windows (Windows 9x) en la ficha Aplicaciones del Administrador de tareas
(Windows 2000 o versiones posteriores). La propiedad se utiliza
normalmente para evitar que una aplicación se cierre y se ha diseñado
para que se ejecute como una tarea en segundo plano. En la mayoría de
los casos, la propiedad TaskVisible se utiliza con aplicaciones que no muestran las interfaces de usuario.

En Visual Basic 2005, no existe un equivalente de la propiedad TaskVisible; sin embargo, se puede crear un servicio de Windows o una aplicación de consola que no aparezca en la lista de tareas. <h3 ="subing">PrevInstance (Propiedad)</h3><div ="subSecti&#111;n">

La propiedad PrevInstance en Visual Basic 6.0 determina si una instancia de la aplicación ya se está ejecutando. Normalmente, se llama a PrevInstance cuando se ejecuta la aplicación y se anula la aplicación si devuelve true.

No existe ningún equivalente directo de PrevInstance en Visual Basic 2005. Se puede controlar si se permiten varias instancias de una aplicación mediante la propiedad Multiple Instance incluida en la ficha Aplicación del Diseñador de proyectos. En tiempo de ejecución, se desencadena un evento NextInstanceStarted
cuando un usuario intenta iniciar otra instancia de la aplicación.
Puede agregar código a este controlador de eventos para activar la
primera instancia de la aplicación. <h3 ="subing">Diferencias adicionales</h3><div ="subSecti&#111;n">

Existen algunas propiedades del objeto App
en Visual Basic 6.0 que involucran a componentes ActiveX, a la
automatización OLE y a otras tecnologías que ahora están obsoletas y
que no son compatibles con Visual Basic 2005. Éstas se incluyen en la
tabla Equivalencias de las propiedades del objeto App que se muestra
más adelante en este tema.<a name="code1">En el ejemplo siguiente se muestra cómo se recupera el número de versión de una aplicación y se incluye en una etiqueta.</a><a name="code1"> </a><div ="code" id="ctl00_Lib_ctl09_other"><a name="code1">' Visual Basic 6.0
Label1.Caption = "Version: " & App.Major & "." & App.Minor & "." _
& App.Revision

<a name="code1">' Visual Basic 2005</a>
</a><a name="code1">Label1.Text = My.Application.Info.Version.ToString()

</a><h3 ="subing"><a name="code2">El código se modifica para determinar la ruta de acceso de una aplicación</a></h3><a name="code2"> </a>

<a name="code2">En
el ejemplo siguiente se muestra cómo se presenta un archivo de imagen
que está almacenado en la carpeta de la aplicación recuperando la ruta
de acceso para la aplicación en ejecución.</a><a name="code2"> </a><div ="code" id="ctl00_Lib_ctl11_other"><a name="code2">' Visual Basic 6.0
Picture1.Picture = LoadPicture(App.Path & "\Logo.jpg")</a><a name="code2"> </a><div ="code" id="ctl00_Lib_ctl12_VisualBasic"><div ="CodeSnippetTitleBar"><div ="CodeDisplay"><a name="code2">Visual Basic</a><a name="code2">' Visual Basic 2005</a>
<a name="code2">PictureBox1.Image = System.Drawing.Bitmap.FromFile( _
My.Application.Info.DirectoryPath & "\Logo.jpg")
</a><div ="title" align="center">Control CheckBox para usuarios de Visual Basic 6.0




En este tema se compara el control CheckBox de Visual Basic 6.0 con su equivalente en Visual Basic 2005.

El control CheckBox de Visual Basic 6.0 se ha reemplazado por el control CheckBox
de formularios Windows Forms en Visual Basic 2005. Los nombres de
algunas propiedades, métodos, eventos y constantes son diferentes y, en
algunos casos, existen diferencias de comportamiento. <h1 ="ing">Diferencias conceptuales</h1><div id="secti&#111;nSecti&#111;n0" ="seeAls&#111;noToggleSecti&#111;n"> <h3 ="subing">Click (Evento)</h3><div ="subSecti&#111;n">

En Visual Basic 6.0, el evento Click se desencadena cuanto el estado de CheckBox se modifica mediante programación. En Visual Studio 2005, se utiliza el evento CheckStateChanged, no el evento Click. <h3 ="subing">Diferencias adicionales</h3><div ="subSecti&#111;n">

Asimismo,
hay numerosas diferencias conceptuales que se aplican a todos los
controles, como diferencias en los enlaces de datos, control de
fuentes, arrastrar y colocar, compatibilidad con Ayuda, y otras.
<h1 ="ing">Cambios de código para el control CheckBox</h1><div id="secti&#111;nSecti&#111;n1" ="seeAls&#111;noToggleSecti&#111;n">

En
los ejemplos siguientes se muestran las diferencias que existen entre
las técnicas de codificación de Visual Basic 6.0 y Visual Basic 2005. <h3 ="subing">El código se modifica para responder a los clics de CheckBox</h3><div ="subSecti&#111;n">

El código siguiente muestra cómo se modifica el texto de un control CheckBox cuando un usuario activa o desactiva el control. La propiedad Value de Visual Basic 6.0 se ha sustituido por la propiedad Checked en Visual Basic 2005, y la propiedad Caption se ha reemplazado por la propiedad Text. Observe que en el ejemplo de Visual Basic 2005 se utiliza el evento CheckStateChanged para duplicar el comportamiento del evento Click de Visual Basic 6.0. <div ="code" id="ctl00_Lib_ctl11_other">' Visual Basic 6.0
Private Sub Check1_Click()
If Check1.Value = 1 Then
Check1.Caption = "Checked"
Else
Check1.Caption = "Unchecked"
End If
End Sub <div ="code" id="ctl00_Lib_ctl12_VisualBasic"><div ="CodeSnippetTitleBar"><div ="CodeDisplay">Visual Basic' Visual Basic 2005
Private Sub CheckBox1_CheckStateChanged(ByVal sender As System.Object, _
<span style="color: blue;"

buenimos seba123neo

para descargar un archivo de la web

Código:

My.Computer.Network.DownloadFile("http://www.canalvisualbasic.net/forum/forum_images/read_private_message_icon.gif", "C:\icon.gif")

Otra forma de que un textbox acepte solo numeros
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If InStr("0123456789.,-" & Chr(8), e.KeyChar) Then
e.Handled = False
Else
e.Handled = True
End If
End Sub

Usando VS 2005 muchos de los problemas con el ingreso de datos en los textbox se terminan ya practicamente sin escribir código, ya que los textbox traen formatos de mascara de captura, como si fuera el MaskedEdit

Saludos


P.D. http://www.codeproject.com es una página con muchos recursos para .NET

Hola quien me puede ayudar hacer una funcion en C# 2005 express?? oh como puedo hacerla quiero pasar esta funcion de Visual Studio.. ah C# 2005 express



[color=#0000ff size=2]Function[/color] exixtecaontacto([color=#0000ff size=2]ByVal[/color] codigo [color=#0000ff size=2]As[/color] [color=#0000ff size=2]Integer[/color]) [color=#0000ff size=2]As[/color] [color=#0000ff size=2]Boolean
[/color][color=#0000ff size=2]Dim[/color] resultado [color=#0000ff size=2]As[/color] [color=#0000ff size=2]Boolean[/color] = [color=#0000ff size=2]False[/color]
[color=#0000ff size=2]


Return[/color] resultado
[color=#0000ff size=2]-------------------------------------[/color]
[color=#0000ff size=2]


[/color][color=#0000ff size=2]Function[/color] datosguardar() [color=#0000ff size=2]As[/color] [color=#0000ff size=2]Boolean



[/color][color=#0000ff size=2]Dim[/color] resultado [color=#0000ff size=2]As[/color] [color=#0000ff size=2]Boolean[/color] = [color=#0000ff size=2]False



[/color][color=#0000ff size=2]Return[/color] resultado
Desde ya mucha gracias este es mi correo
luibeat@hotmail.com

El siguiente código es para que en un textBox podamos ingresar solo números si quieres ingresar solo enteros le pones al momento de utilizar la función que decimales sea igual a false caso contrario le pones true.

Primero debemos pegar la siguiente funcion
Public Function txtNumerico(ByVal txtControl As TextBox, ByVal caracter As Char, ByVal decimales As Boolean) As Boolean
If (Char.IsNumber(caracter, 0) = True) Or caracter = Convert.ToChar(8) Or caracter = "." Then
If caracter = "." Then
If decimales = True Then
If txtControl.Text.IndexOf(".") <> -1 Then Return True
Else : Return True
End If
End If
Return False
Else
Return True
End If
End Function

Segundo en el evento Key Press de nuestro textBox digitar lo siguiente:
e.Handled = txtNumerico(txtCosto, e.KeyChar, true)

En este caso permitira el acceso de numeros con su punto decimal

Espero que este codigo le sirva a alguien el rato que necesite una funcion que haga esto no la encontre. Cualquier consulta o falla del código haganmela llegar

No entiendo de C# a C# es lo mismo ¿o no? creo que quieres decir a visual basic, Disculpa si no entiendo lo que tratas de decir

como puede crear la sentencia Guardar, abrir, y uevo el visual studio 2005

hola , otra forma de que un textbox acepte solo numeros y de una maera mas simple seria con la siguiente instruccion .....

Private Sub TextBox1_KeyPress(ByVal ......)....
if not isnumeric(e.keychar)=true then e.handled=true
End Sub

esto lo harias en el evento keypress del control.

convertir las primeras letras en mayusculas en un textbox

Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As......
If e.KeyChar = ChrW(13) Then
Me.TextBox2.Text = StrConv(Me.TextBox2.Text, VbStrConv.ProperCase)
End If
End Sub

weno aunke io tbn recien me integre aleste foro .... al crador de este foro solo le digo eres lo maximo... muchas gracias... y eres una gran persona ayudadno asi a todos nosotros.. de verdad muchas gracias

a por cierto si alguien tiene confusion todos los procedimientos que he puesto en mis dos post son en el evento key press....

saludos seba ers lo maximo

esta es para llamar a la calculadora
en el evento click del boton ponerla siguiente linea
shell(calc.exe)

..eso es todo y abrira la calculadora de windows

ahora uno pequeño para enviar el foco a otro control por medio del boton enter....
if e.keychar=chrW(13)then
textbox1.focus
end if

....al igual k otros post anteriores k envie este se realizara en el evento keypress del boton

agradecer no cuesta nada...
todos somos ignorantes, solo k no todos ignoramos las mismas cosas

Muchas gracias sebas, muy buen material, la verdad que me ayudo mucho ia que recien estoy aprendiendo. Ah! y tb gracias a Calito, esas lineas de codigo me ayudaron a q mi caja de texto solo acpete numeros...

Por otro lado kisiera saber alguien pude ayudarme con respecto a relacionarlo con un a base de datos, ammm io estoy utilizando Visual Studio 2008 (Visual Basic)

weno ps me despido y al creador de este foro, lo maximo, gracias.

Hola amigos del foro, mi consulta es la siguiente estoy empezando a trabajar en esta modalidad de asp.net, elerror que me arrog¡ja es que dice que el ODBC no esta declarado, yo la declaro de esta manera.


Dim Cn As New Adodb.Connection()


no se si estara bien o hay que gragar una referencia más en los componentes del proyectos, favor de ayudarme, desde ya muchas gracias.

Disculpen... Yo utilizo el Visual Basic 2005 Express Edition, y entonces no tengo muchas plantillas... ¿De dónde podría obtener (si es legal) la de Proyecto de Instalación?

Disculpen noc si alguien pueda ayudarme.
Quiero ver como puedo usar una clase que contenga una cadena de conexion y despues heredarla a un formulario para que se me haga mas facil y haya menos lineas de codigo.

Gracias por la ayuda

Hola soy nuevo aqui, pero queria dar una sugerencia, siendo que el codigo sedido va a ayudar a alguien, este objetivo se mal logra si omitimos comentar adecuadamente el mismo ya que el usuario puede usarlo pero no entenderlo, el objetivo real se abra de lograr si gracias a sus aportes comentados el receptor comprende el mesaje entendiendo lo.

saludos solo es una critica constructiva se que comentar y mas para ortas personas puede ser una molestia.

mis cosas más utiles, si despues de esto me quereis de colaborador yo encantado jeje, mi página web es Croket World - En obras! el la que tengo algun programa y más de 100 gb en contenido gratuito.
Estoy creando una dll para usar fuera de vb y aún estoy al comienzo pero quiero compartirlo con esta página para ayudar a más gente.
Comenzamos!

crear formulario con navegador y navegando a la url especificada en tiempo ejecución

Código:

Public Sub pagina(ByVal ruta As String)
        Dim wb As New WebBrowser
        Dim fm As New Form
        fm.Controls.Add(wb)
        fm.ShowInTaskbar = False
        wb.Dock = DockStyle.Fill
        wb.Navigate(ruta)
        fm.Size = New Point(800, 600)
        fm.Text = wb.DocumentTitle
        fm.ShowIcon = False
        fm.Show()
        fm.Focus()
    End Sub

Buscar en internet

Código:

'buscar en la web
    Public Sub buscar(ByVal buscador As String, ByVal texto As String)
        Dim pag As String
        Trim(texto)
        Replace(texto, " ", "+")
        Select Case buscador
            Case "Bing"
                pag = "http://www.bing.com/search?q=" & texto & "&go=&form=QBLH&filt=all"
            Case "Lycos"
                pag = "http://search.lycos.es/?tab=web&query=" & texto & "&Search=Buscar&searchArea=web"
            Case "Yahoo"
                pag = "http://es.search.yahoo.com/search?vc=&p=" & texto & "&toggle=1&cop=mss&ei=UTF-8&fr=yfp-t-705"
            Case Else
                pag = "http://www.google.es/#hl=es&source=hp&q=" & texto & "&aq=f&aqi=g10&aql=&oq=&gs_rfai=&fp=137e7e7d8c595b41"
        End Select
        pagina(pag)
    End Sub

Cambia la ip local creando un .bat

Código:

Public Sub ipconfig()
        Dim arch As String = My.Computer.FileSystem.SpecialDirectories.Temp & "\ipconfig.bat"
        If File.Exists(arch) = False Then
            Dim oSW As New StreamWriter(arch)
            Dim Linea As String = "@ echo off " & vbNewLine & _
                                  "ipconfig/release" & vbNewLine & _
                                  "Pause" & vbNewLine & _
                                  "ipconfig/renew" & vbNewLine & _
                                  "exit"
            oSW.Write(Linea)
            oSW.Flush()
            oSW.Close()
        End If
        Process.Start(arch)
    End Sub

Para añadir controles html como strings

Código:

'strings con controles html
    Public Structure lenguaje_html
        Dim var As Integer
        Public Const parr As String = "<P></P>"
        Public Const olli As String = "<ol>" & vbNewLine & _
                                    "<li>item1</li>" & vbNewLine & _
                                    "<li>item2</li>" & vbNewLine & _
                                    "<li>item3</li>" & vbNewLine & _
                                    "</ol>"
        Public Const passin As String = "<input id=" & Chr(34) & "Password1" & Chr(34) & "type=" & Chr(34) & "password" & Chr(34) & "/>"
        Public Const radioin As String = "<input id=" & Chr(34) & "Radio1" & Chr(34) & " checked=" & Chr(34) & "checked" & Chr(34) & " name=" & Chr(34) & "R1" & Chr(34) & " type=" & Chr(34) & "radio" & Chr(34) & "value=" & Chr(34) & "V1" & Chr(34) & "/>"
        Public Const checkin As String = "<input id=" & Chr(34) & "Checkbox1" & Chr(34) & " type=" & Chr(34) & "checkbox" & Chr(34) & "/>"
        Public Const textarea As String = "<textarea id=" & Chr(34) & "TextArea1" & Chr(34) & " cols=" & Chr(34) & "20" & Chr(34) & " name=" & Chr(34) & "S1" & Chr(34) & " rows=" & Chr(34) & "2" & Chr(34) & "></textarea>"
        Public Const filein As String = "<input id=" & Chr(34) & "File1" & Chr(34) & "type=" & Chr(34) & "file" & Chr(34) & "/>"
        Public Const input As String = "<input id=" & Chr(34) & "Text1" & Chr(34) & "type=" & Chr(34) & "text" & Chr(34) & " />"
        Public Const boton As String = "<input id=" & Chr(34) & "Submit1" & Chr(34) & " type=" & Chr(34) & "submit" & Chr(34) & " value=" & Chr(34) & "submit" & Chr(34) & " />"
        Public Const iframe As String = "<iframe src=" & Chr(24) & Chr(34) & "  target=" & Chr(34) & Chr(34) & "/>"
        Public Const resetin As String = "<input id=" & Chr(34) & "Reset1" & Chr(34) & " type=" & Chr(34) & "reset" & Chr(34) & " value=" & Chr(34) & "reset" & Chr(34) & " />"
        Public Const link As String = "< a href=" & Chr(34) & Base.c.pagina & Chr(34) & "  >Croket World</a>"
        Public Const ulli As String = "<UL>" & vbNewLine & _
                                    "<li>item1</li>" & vbNewLine & _
                                    "<li>item2</li>" & vbNewLine & _
                                    "<li>item3</li>" & vbNewLine & _
                                    "</ul>"
        Public Const tabla As String = "<table style=" & Chr(34) & "width:100%;" & Chr(34) & " >" & vbNewLine & _
        " <tr>" & vbNewLine & "<td>" & vbNewLine & "<td>" & vbNewLine & "</tr>" & vbNewLine & "</table>"
        Public Const img As String = "<img alt=" & Chr(34) & Chr(34) & " src=" & Chr(34) & Chr(34) & " />"
        Public Const head As String = "<head>" & vbNewLine & _
                                                   " <title>Titulo</title>" & vbNewLine & _
                                                   " <link href=" & Chr(34) & "/web/images/Setu.ico" & Chr(34) & " rel=" & Chr(34) & "shortcuticon" & Chr(34) & " type=" & Chr(34) & "ico" & Chr(34) & "/>" & vbNewLine & _
                                                   "</head>"
        Public Const inputbtn As String = "<input id=" & Chr(34) & "Button1" & Chr(34) & " type=" & Chr(34) & "button" & Chr(34) & " value=" & Chr(34) & "button" & Chr(34) & " />"
        Public Const div As String = "<div>" & vbNewLine & "</div>"
        Public Const hr As String = "<hr/>"
        Public Const selec As String = "<select id=" & Chr(34) & "Select1" & Chr(34) & " name=" & Chr(34) & "D1" & Chr(34) & ">" & vbNewLine & "<option></option>" & vbNewLine & "</select>"
    End Structure

filtro para dialogos de abrir y guardar texto

Código:

'filtro de texto para dialogos
    Public Const filtro As String = "(txt)|*.txt|(rtf)|*.rtf|--Formatos web--||" & _
       "(htm)|*.htm|(html)|*.html|(xml)|*.xml|(css)|*css|(aspx)|*.aspx|" & _
       "(php)|*.php|(asp)|*.asp|(shtm)|*.shtm|(xsl)|*.xsl|--Sistema--||" & _
       "(nfo)|*.nfo|(bat)|*.bat|(ini)|*.ini|(config)|*.config|(hta)|*.hta|" & _
       "(mht)|*.mht|(log)|*.log|(inf)|*.inf|(cmd)|*.cmd|(hlp)|*.hlp|(rat)|*.rat|--lenguajes--||" & _
       "(vbs)|*.vbs|(js)|*js|(vb)|*.vb|(cs)|*.cs|(cpp)|*.cpp|(jsp)|*.jsp|" & _
       "(jse)|*.jse|(wsc)|*.wsc|todos los archivos|*.*"

Sobre controles
richtextbox

Código:

Public Class rt
        Dim resp As String
        'buscar en richtextbox
        Public Sub texto_buscar(ByVal rtb As RichTextBox, Optional ByVal texto As String = "")
            If texto = "" Then
                resp = InputBox("Escribe el texto exacto que deseas encontrar", "Buscar texto en código", "")
                If resp = "" Then Exit Sub
                texto = resp
            End If
            rtb.Find(texto)
        End Sub
        'reemplazar en richtextbox
        Public Sub texto_reemplazar(ByVal rtb As RichTextBox, Optional ByVal viejo As String = "", Optional ByVal nuevo As String = "")
            If viejo = "" Then
                resp = InputBox("Escribe el texto exacto que deseas encontrar", "Buscar texto en código", "")
                viejo = resp
                resp = ""
            End If
            If nuevo = "" Then
                resp = InputBox("Escribe el texto que reemplazará al anterior", "Buscar texto en código", "")
                nuevo = resp
                resp = ""
            End If
            Replace(rtb.Text, viejo, nuevo)
        End Sub
        'crear richtextbox
        Public Sub crear(ByVal donde As Form, ByVal tamaño As Point, ByVal posicion As Point, ByVal fuente As Font, Optional ByVal docking As DockStyle = DockStyle.None, Optional ByVal archivo As String = "", Optional ByVal texto As String = "")
            Dim rt As New RichTextBox
            donde.Controls.Add(rt)
            With rt
                .Size = tamaño
                .Location = posicion
                .Font = fuente
                .Dock = docking
                If archivo <> "" Then
                    rt.LoadFile(archivo, RichTextBoxStreamType.PlainText)
                End If
                If texto <> "" Then
                    rt.Text = texto
                End If
            End With
 
        End Sub
    End Class

Textbox

Código:

Public Class txtbox
        'personalizar textbox
        Public Sub personalizar(ByVal tx As TextBox, ByVal fuente As Font, ByVal bgcolor As Color, ByVal tcolor As Color, ByVal multilinea As Boolean, ByVal tamaño As Point, Optional ByVal texto As String = "")
            With tx
                .Font = fuente
                .BackColor = bgcolor
                .ForeColor = tcolor
                .Multiline = multilinea
                .Size = tamaño
                If texto <> "" Then
                    .Text = texto
                End If
            End With
 
        End Sub
        'crear textbox
        Public Sub crear(ByVal donde As Form, ByVal tamaño As Point, ByVal posicion As Point, ByVal fuente As Font, ByVal tcolor As Color, ByVal bgcolor As Color, ByVal multilinea As Boolean, Optional ByVal texto As String = "")
            Dim text As New TextBox
            donde.Controls.Add(text)
            With text
                .Size = tamaño
                .Location = posicion
                .Font = fuente
                .ForeColor = tcolor
                .BackColor = bgcolor
                .Multiline = multilinea
                If texto <> "" Then
                    .Text = texto
                End If
            End With
 
        End Sub
    End Class

picturebox

Código:

'picturebox
    Public Class pictbox
        'cambiar imagen en picturebox
        Public Sub cambiar_imagen(ByVal ruta As String, ByVal pct As PictureBox)
            Dim img As New Bitmap(ruta)
            pct.Image = img
        End Sub
        'personalizar picturebox
        Public Sub personalizar(ByVal pct As PictureBox, ByVal dockstilo As DockStyle, ByVal tamaño As Point, ByVal posicion As Point, Optional ByVal imagen As String = "", Optional ByVal bgimagen As String = "")
            With pct
                .Dock = dockstilo
                .Size = tamaño
                .Location = posicion
                If imagen <> "" Then
                    Dim img As New Bitmap(imagen)
                    .Image = img
                End If
                If bgimagen <> "" Then
                    Dim bimg As New Bitmap(bgimagen)
                    .BackgroundImage = bimg
                End If
            End With
 
        End Sub
        'crear picturebox
        Public Sub crear(ByVal donde As Form, ByVal imagen As String, ByVal tamaño As Point, ByVal posicion As Point, ByVal imgstilo As PictureBoxSizeMode, Optional ByVal bgimg As String = "")
            Dim pic As New PictureBox
            donde.Controls.Add(pic)
            With pic
                Dim nv As New Bitmap(imagen)
                .Image = nv
                .Size = tamaño
                .Location = posicion
                .SizeMode = imgstilo
                If bgimg <> "" Then
                    Dim nd As New Bitmap(bgimg)
                    .BackgroundImage = nd
                End If
 
            End With
        End Sub
    End Class

label

Código:

'label
    Public Class lbl
        'personalizar label
        Public Sub personalizar(ByVal lab As Label, ByVal fuente As Font, ByVal tcolor As Color, ByVal bgcolor As Color, ByVal tamaño As Point, ByVal posicion As Point, Optional ByVal texto As String = "")
            With lab
                .Font = fuente
                .ForeColor = tcolor
                .BackColor = bgcolor
                .Size = tamaño
                .Location = posicion
                If texto <> "" Then
                    .Text = texto
                End If
            End With
        End Sub
        'crear
        Public Sub crear(ByVal donde As Form, ByVal tamaño As Point, ByVal posicion As Point, ByVal bgcolor As Color, ByVal tcolor As Color, ByVal fuente As Font, Optional ByVal texto As String = "")
            Dim lab As New Label
            donde.Controls.Add(lab)
            With lab
                .Size = tamaño
                .Location = posicion
                .BackColor = bgcolor
                .ForeColor = tcolor
                .Font = fuente
                If texto <> "" Then
                    .Text = texto
                End If
            End With
        End Sub
    End Class

Coloreado de sintaxis en 8 lenguajes

Código:

Public Class programacion
    Dim elemento As Color = Color.Firebrick
    Dim atributo As Color = Color.Green
    'funcion que colorea
    Public Function Buscarcoma(ByVal pattern As String, ByVal RichTextBox As RichTextBox, ByVal cColor As Color)
        Dim Resultados As MatchCollection
        Dim Palabra As Match
        Try
            Dim obj_Expresion As New Regex(pattern.ToString, RegexOptions.IgnoreCase)
            Resultados = obj_Expresion.Matches(RichTextBox.Text)
            For Each Palabra In Resultados
                With RichTextBox
                    .SelectionStart = Palabra.Index
                    .SelectionLength = Palabra.Length
                    .SelectionColor = cColor
                    Debug.Print(Palabra.Value)
                End With
            Next Palabra
        Catch ex As Exception
            MsgBox(ex.Message.ToString)
        End Try
        RichTextBox.DeselectAll()
        Return 0
    End Function
    'html
    Public Sub html(ByVal rtb As RichTextBox, ByVal rtb2 As RichTextBox)
        Dim palabra(0 To 3) As Regex
        'css desde  # hasta {
        palabra(3) = New Regex("[#]\s*([^ {]*)")
        'elemento desde < hasta antes de >
        palabra(0) = New Regex("[<]\s*([^> ]*)")
        'elemento desde < hasta >
        palabra(1) = New Regex("[<]\s*([^> ]*)")
        Dim elem As String = palabra(1).ToString & ">"
        'valor atributo desde " asta "
        palabra(2) = New Regex("[" & Chr(34) & "]\s*([^" & Chr(34) & "]*)")
        Dim atr As String = palabra(2).ToString() & Chr(34)
        'nombre atributo antes de =
        Dim palabra_0 As Char = "{", palabra_1 = "}", palabra_2 = ">", palabra_3 = "/>"
        'colorear
        'css
        Buscarcoma(palabra_0.ToString, rtb, elemento)
        Buscarcoma(palabra_1.ToString, rtb, elemento)
        Buscarcoma(palabra_0.ToString, rtb2, elemento)
        Buscarcoma(palabra_1.ToString, rtb2, elemento)
        ' valores de atributos   ""
        Buscarcoma(atr, rtb, atributo)
        Buscarcoma(atr, rtb2, atributo)
        ' elemento desde < hasta antes de >
        Buscarcoma(palabra(0).ToString, rtb2, elemento)
        Buscarcoma(palabra(0).ToString, rtb, elemento)
        'elemento css
        Buscarcoma(palabra(3).ToString, rtb, Color.Green)
        Buscarcoma(palabra(3).ToString, rtb2, Color.Green)
        'elemento desde < hasta >
        Buscarcoma(elem, rtb, elemento)
        Buscarcoma(elem, rtb2, elemento)
        'repaso
        Buscarcoma(palabra_3.ToString, rtb, elemento)
        Buscarcoma(palabra_2.ToString, rtb, elemento)
    End Sub
    'vb .net
    Public Sub lenguajevb(ByVal rtb As RichTextBox, ByVal rtb2 As RichTextBox)
        If rtb.TextLength <= 1 Then
            Exit Sub
        End If
        Dim palabrasvb() As String = New String() {"AddHandler", "AddressOf", "Alias", "And", "Also()", " As ", "Boolean", "ByRef", " Byte", "ByVal", " Call", "Case", "Catch", "CBool", "CByte", "CChar", "CDate", "CDec" _
        , "CDbl", "Char", "CInt", "Class", "CLng", "CObj", "Const", "Continue", "CSByte", "CShort", "CSng", "CStr", "CType", "CUInt", "CULng", "CUShort", "Date", "Decimal", "Declare", "Default", "Delegate", "Dim", "DirectCast", _
        "Do", "Double", "Each", "Else", " End", "Enum", "Erase", "Error", "Event", "Exit", "False", "Finally", "For", "Friend", "Function", "Get", "GetType", "GetXMLNamespace", "Global", "GoSub", "GoTo", "Handles", " If ", "Implements", "Imports" _
        , " In ", "Inherits", "Integer", "Interface", " Is ", "IsNot", "Let", "Lib", "Like", "Long", "Loop", " Me", "Mod", "Module", "MustInherit", "MustOverride", "MyBase", "MyClass", "Namespace", "Narrowing", "New", "Next", " Not ", "Nothing", "NotInheritable", "NotOverridable", "Object", " Of ", " On" _
        , "Operator", "Option", "Optional", " Or ", "OrElse", "Overloads", "Overridable", "Overrides", "ParamArray", "Partial", "Public", "Property", "Protected", "Public", "RaiseEvent", "ReadOnly", "ReDim", "REM", "RemoveHandler", "Resume", "Region", "Return", "SByte", "Select", "Set", "Shadows", "Shared", "Short", "Single", "Static", "Step" _
        , "Stop", "String", "Structure", "Sub", "SyncLock", "Then", "Throw", " To ", "True", " Try ", "TryCast", "TypeOf", "Variant", "Wend", "UInteger", "ULong", "UShort", "Using", "When", "While", "Widening", "With", "WithEvents", "WriteOnly", "Xor", "Aggregate", "Ansi()", "Assembly", "Auto", "Binary()", "Compare", "Custom", "Distinct", "Equals", "Explicit", "From", "Group", "  By", " Join", "Into", "IsFalse", "IsTrue", "Join" _
        , "Key", "Mid", "Off", "Order", "Preserve", "Skip", "Strict", "Take", "Text", "Unicode", "Until", "Where", "While", "num"}
        Dim coma As Char = Chr(34)
        Dim comilla As New Regex("[" & coma & "]\s*([^" & coma & "]*)")
        Dim comazo As String = comilla.ToString & coma
        Dim scomen As Char = "'"
        Dim simcomen As New Regex("[']\s*([^']*)")
        Dim scomentar As String = simcomen.ToString & vbNewLine
        For num = 0 To palabrasvb.Count - 1
            Buscarcoma(palabrasvb(num), rtb, Color.Blue)
            Buscarcoma(palabrasvb(num), rtb2, Color.Blue)
        Next
        'cometarios
        Buscarcoma(scomentar, rtb, Color.Firebrick)
        Buscarcoma(scomentar, rtb2, Color.Firebrick)
        'texto
        Buscarcoma(comazo, rtb, Color.Firebrick)
        Buscarcoma(comazo, rtb2, Color.Firebrick)
    End Sub
    ' C#
    Public Sub lenguajecsharp(ByVal rtb As RichTextBox, ByVal rtb2 As RichTextBox)
        Dim palabrascsharp() As String = New String() {"abstract", "event", "new", "struct", "as", "explicit", "null", "switch", "base", _
                                                       "extern", "object", "this", "bool", "false", "operator", "throw", "break", "finally", " out", "true", "byte", _
                                                       "fixed", "override", "try", "case", "float", "params", "typeof", "catch", "for ", "Public", "uint", "char", _
                                                       "each", "protected", "ulong", "checked", "goto", "public", "unchecked", "class", " if ", "readonly", "unsafe", _
                                                       "const", "implicit", "ref", "ushort", "continue", " in ", "return", "using", "decimal", "int", "sbyte", "virtual", _
                                                       "default", "interface", "sealed", "volatile", "delegate", "internal", "short", "void", " do ", " is ", "sizeof", "while", _
                                                       "double", "lock", "stackalloc", "else", "long", "static", "enum", "namespace", "string", "add", "from", "get", _
                                                       "global", "group", "into", "join", " let ", "orderby", "partial", "remove", "select", "set ", "value", "var", _
                                                       "where", "yield", "Elseif"}
        For j As Integer = 0 To palabrascsharp.Count - 1
            Buscarcoma(palabrascsharp(j), rtb, Color.Blue)
            Buscarcoma(palabrascsharp(j), rtb2, Color.Blue)
        Next
    End Sub
    'C++
    Public Sub lenguajecpp(ByVal rtb As RichTextBox, ByVal rtb2 As RichTextBox)
        Dim palabracpp As String() = New String() {"__abstract", "abstract", "__alignof", "Operator", "array", "__asm", _
                                                   "__assume", "__based", "bool", "__box", "break", "case", "catch", "__cdecl", "char", "class", _
                                                   "const", "const_cast", "continue", "__declspec", "default", "__delegate", "delegate", "delete", _
                                                   "deprecated", "dllexport", "dllimport", " do ", "double", "dynamic_cast", "else", "enum", "event", _
                                                   "__event", "__except", "explicit", "extern", "false", "__fastcall", "__finally", "finally", "float", " for ", _
                                                   "each", " in ", "__forceinline", "friend", "friend_as", "__gc", "gcnew", "generic", "goto", "__hook", _
                                                   "__identifier", " if ", "_if_exists", "__if_not_exists", "initonly", "__inline", "inline", " int ", "__int8", _
                                                   "__int16", "__int32", "__int64", "__interface", "interface", "interior_ptr", "__leave", "literal", "long", "__m64", _
                                                   "__m128", "__m128d", "__m128i", "__multiple_inheritance", "mutable", "naked", "namespace", _
                                                   " new ", "__nogc", "noinline", "__noop", "noreturn", "nothrow", "novtable", "nullptr", "operator", _
                                                   "__pin", "Public", "__property", "property", "protected", "public", "__raise", " ref ", "register", "reinterpret_cast", "return", _
  "safecast", "__sealed", "sealed", "selectany", "short", "signed", "__single_inheritance", "sizeof", "static", "static_cast", "__stdcall", "struct", "__super", _
  "switch", "template", "this", "__thiscall", "thread", "throw", "true", "try", "__try", "__except", "__finally", "__try_cast", "typedef", "typeid", "typeid", _
  "typename", "__unaligned", "__unhook", "union", "unsigned", "using", "uuid", "__uuidof", "value", "__value", "virtual", "__virtual_inheritance", "void", _
  "volatile", "__w64", "__wchar_t", "wchar_t", "while"}
        For j As Integer = 0 To palabracpp.Count - 1
            Buscarcoma(palabracpp(j), rtb, Color.Blue)
            Buscarcoma(palabracpp(j), rtb2, Color.Blue)
        Next
    End Sub
    'PHP
    Public Sub lenguajephp(ByVal rtb As RichTextBox, ByVal rtb2 As RichTextBox)
        Dim palabraphp As String() = New String() {"and", " or ", "xor", "__FILE__", "exception", "__LINE__", "array", " as ", "    break", "case", "class", _
                                                       "const", "continue", "declare", "default", "die", " do ", "echo", "else", "elseif", "empty", "enddeclare", "endfor", "endforeach", _
                                                       "endif", "endswitch", "endwhile", "eval", "exit", "extends", "for", "foreach", "function", "global", "if", "include", "include_once", _
                                                       "isset", "list", "new", "print", "require", "require_once", "return", "static", "switch", "unset", " use", "var", "while", _
                                                       "__FUNCTION__", "__CLASS__", "__METHOD__", "final", "php_user_filter", "interface", "implements", "extends", _
                                                       "public", "Public", "protected", "abstract", "clone", "try", "catch", "throw", "cfunction", "old_function", "this", "namespace", _
                                                       "import", "goto"}
        For j As Integer = 0 To palabraphp.Count - 1
            Buscarcoma(palabraphp(j), rtb, Color.Blue)
            Buscarcoma(palabraphp(j), rtb2, Color.Blue)
        Next
    End Sub
    'java
    Public Sub lenguajejava(ByVal rtb As RichTextBox, ByVal rtb2 As RichTextBox)
        Dim palabrajava As String() = New String() {"abstract", "default", " if ", "Public", "this", "boolean", "  do ", "implements", "protected", "throw", _
                                                    "break", "double", "import", "public", "throws", "byte", "else", "instanceof", "return", "transient", "case", "extends", " int ", _
                                                    "short", "try", "catch", "final", "interface", "static", "void", "char", "finally", "long", "strictfp", "volatile", "class", "float", "native", _
                                                    "super", "while", "const", "for", "new", "switch", "continue", "goto", "package", "synchronized"}
        For j As Integer = 0 To palabrajava.Count - 1
            Buscarcoma(palabrajava(j), rtb, Color.Blue)
            Buscarcoma(palabrajava(j), rtb2, Color.Blue)
        Next
    End Sub
    'python
    Public Sub lenguajepython(ByVal rtb As RichTextBox, ByVal rtb2 As RichTextBox)
        Dim palabrapython As String() = New String() {"and", "del", " fo ", " is ", "raise", " asser", " elif", "from", "lambda", "return", "break", "else", "global", _
                                                      " not ", "try", "class", "except", " if ", " or ", "while", "continue", " exec", "import", "pass", "yield", " def", "finally", " in ", "print"}
        For j As Integer = 0 To palabrapython.Count - 1
            Buscarcoma(palabrapython(j), rtb, Color.Blue)
            Buscarcoma(palabrapython(j), rtb2, Color.Blue)
        Next
    End Sub
    'C pelao
    Public Sub lengaujec(ByVal rtb As RichTextBox, ByVal rtb2 As RichTextBox)
        Dim palabracpelao As String() = New String() {"auto", "break", "case", "char", "const", "continue", "default", " do ", "double", "else", "enum", "extern", _
                                                      "float", " for ", "goto", "if ", " int ", "long", "register", "return", "short", "signed", "sizeof", "static", "struct", "switch", "typedef", _
                                                      "union", "unsigned", "void", "volatile", "while"}
        For j As Integer = 0 To palabracpelao.Count - 1
            Buscarcoma(palabracpelao(j), rtb, Color.Blue)
            Buscarcoma(palabracpelao(j), rtb2, Color.Blue)
        Next
    End Sub
End Class

crear post xml

Código:

'con xml, añadir un post para un sitio que cargue los post desde un xml
 Public Sub crear_post(ByVal ruta As String, ByVal titulo As String, ByVal categoria As String, ByVal body As String, ByVal autor As String)
        'ruta de archivo xml al que añadir el contenido
        'titulo del post
        'categoria
        'el cuerpo
        'autor
        Dim writer As New XmlTextWriter(ruta, Encoding.UTF8)
        writer.Formatting = Formatting.Indented
        'comentario
        writer.Formatting = Formatting.Indented
        writer.WriteStartDocument()
        writer.WriteStartElement("Posts")
        writer.WriteStartElement("post")
        writer.WriteAttributeString("Autor", autor)
        writer.WriteAttributeString("Fecha", TimeOfDay.DayOfYear)
        writer.WriteAttributeString("Título", titulo)
        writer.WriteAttributeString("categoria", categoria)
        writer.WriteAttributeString("Body", body)
        writer.WriteEndElement()
        writer.WriteEndDocument()
        writer.Close()
    End Sub

descargar archivo

Código:

Public Sub descargar(Optional ByVal ruta As String = "", Optional ByVal guardar As String = "", Optional ByVal ver As Boolean = False, Optional ByVal sobre As Boolean = True)
        If ruta = "" Then
            ruta = InputBox("Introduce la ruta del archivo a descargar", "Ruta de archivo a descargar", "http://")
        End If
        Dim ini As Integer = ruta.LastIndexOf("/") + 1
        Dim fin As Integer = ruta.Length - ini
        Dim archivo As String = ruta.Substring(ini, fin)
        If guardar = "" Then
            guardar = InputBox("Introduce la ruta del archivo donde guardar la descarga", "Ruta de archivo descargado", My.Computer.FileSystem.SpecialDirectories.Desktop & "\" & archivo)
        End If
        If ruta = "" Then Exit Sub
        With My.Computer.Network
            If .IsAvailable = False Then Exit Sub
            .DownloadFile(ruta, guardar, "", "", ver, 500, sobre)
            MsgBox("Descargado satisfactoriamente el archivo " & archivo)
        End With
    End Sub

enviar mail

Código:

Public Sub mail_enviar(ByVal remitente As String, ByVal destinatario As String, ByVal usuario As String, ByVal contraseña As String, ByVal servidor As String, ByVal asunto As String, ByVal body As String, Optional ByVal adjunto As String = "")
        Dim msg As New MailMessage(remitente, destinatario, asunto, body)
        Dim sv As SmtpClient = Nothing
        Select Case servidor
            Case "hotmail"
                sv.Host = "smtp.live.com"
                sv.Port = 25
            Case "gmail"
                'sin completar
            Case "yahoo"
                'sin completar
        End Select
        If adjunto <> "" Then
            Dim ad As New System.Net.Mail.Attachment(adjunto)
            msg.Attachments.Add(ad)
        End If
        msg.IsBodyHtml = True
        msg.Priority = MailPriority.High
 
        Dim cred As New System.Net.NetworkCredential(usuario, contraseña)
        sv.Credentials = cred
        Try
            sv.Send(msg)
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error enviando mail")
        End Try
    End Sub

Con archivos

Código:

Public Class archivos
    'copiar archivo
    Public Sub copiar(Optional ByVal archivo As String = "", Optional ByVal nuevo As String = "")
        If archivo = "" Then
            MsgBox("A continuación te mostraré un dialogo en el cual podrás elegir el archivo que deseas copiar", MsgBoxStyle.Information, "Copiar archivo")
            Dim ofd As New OpenFileDialog
            With ofd
                .ShowDialog()
                If .FileName = "" Then Exit Sub
                If My.Computer.FileSystem.FileExists(.FileName) = False Then Exit Sub
                archivo = .FileName
            End With
        End If
        If nuevo = "" Then
            MsgBox("A continuación te mostraré un dialogo en el cual podrás elegir donde guardar tu copia", MsgBoxStyle.Information, "Guardar copia")
            Dim fbd As New FolderBrowserDialog
            With fbd
                .ShowDialog()
                If .SelectedPath = "" Then Exit Sub
                If My.Computer.FileSystem.DirectoryExists(.SelectedPath) = False Then Exit Sub
                nuevo = .SelectedPath & archivo.Substring(archivo.LastIndexOf("\"), archivo.LastIndexOf(".") + 3)
            End With
        End If
        If archivo = "" Or nuevo = "" Then Exit Sub
        My.Computer.FileSystem.CopyFile(archivo, nuevo)
    End Sub
    'obtener tamaño de archivo

Obtener el tamaño

Código:

Public Function obtenerNumeroBytes(ByVal RutaFichero As String) As Integer
        Dim oFile As System.IO.FileInfo = Nothing
        Try
            oFile = New System.IO.FileInfo(RutaFichero)
            Return oFile.Length / 1024 / 1024
        Catch ex As Exception
            Return 0
        End Try
    End Function
End Class

carpetas

Código:

Public Class carpetas
    'crear carpetas
    Public Sub crear(ByVal ruta As String)
        With My.Computer.FileSystem
            If .DirectoryExists(ruta) Then
                Exit Sub
            End If
            .CreateDirectory(ruta)
        End With
    End Sub
    'copiar
    Public Sub copiar(Optional ByVal original As String = "", Optional ByVal nuevo As String = "")
        If original = "" Then
            MsgBox("A continuación se te mostrará un dialogo en el cual puedes escoger la carpeta a copiar", MsgBoxStyle.Information, "Copiar carpeta")
            Dim fbd As New FolderBrowserDialog
            With fbd
                .ShowDialog()
                If .SelectedPath = "" Or My.Computer.FileSystem.DirectoryExists(.SelectedPath) = False Then Exit Sub
                original = .SelectedPath
            End With
        End If
        If nuevo = "" Then
            Dim nombre As String = InputBox("Escribe el nombre de la nueva carpeta", "Nombre de ccarpeta copiada", "Nueva_carpeta")
            MsgBox("Escoge en el siguiente dialogo la ruta en la que copiar " & nombre, MsgBoxStyle.Information, "donde copiar " & nombre)
            Dim fbd2 As New FolderBrowserDialog
            With fbd2
                .ShowDialog()
                If .SelectedPath = "" Or My.Computer.FileSystem.DirectoryExists(.SelectedPath) = False Then Exit Sub
                nuevo = .SelectedPath & "\" & nombre
            End With
        End If
        If original = "" Or nuevo = "" Then Exit Sub
        My.Computer.FileSystem.CopyDirectory(original, nuevo)
    End Sub
End Class

y de momento ya esta, espero sea útil

hola q tal... buscaba vb.net para instalar y me tope con esta pagina... genial por cierto... alguien tiene vb.net para instalar q me lo pueda proporcionar o la direccion de alguna pagina donde lo pueda encontrar... lo q pasa es q lo tenia en mi lap... pero se dañaron algunos controladores y formatearon mi maquina... y el profe q me lo habia pasado ya no lo encuentro.. ... leas agradeceria mucho me proporcionaran cualquier info... sale.. ya q el sistema para mi residencia esta a medias..gracias... saludos...

Aqui unas Funciones para operar con matrices facilmente.

Código:

Function M_Mult(ByVal Matriz_1(,) As Double, ByVal Matriz_2(,) As Double) As Double(,)
 
        ''Multiplicación
        Dim M1_ix, M1_iy, M2_ix, M2_iy As Integer
        Dim ErrNo As Double = 0
 
        Try
            Do
                ErrNo = Matriz_1(0, M1_ix)
                M1_ix = M1_ix + 1
            Loop
        Catch ex As Exception
        End Try
 
        Try
            Do
                ErrNo = Matriz_1(M1_iy, 0)
                M1_iy = M1_iy + 1
            Loop
        Catch ex As Exception
        End Try
 
        Try
            Do
                ErrNo = Matriz_2(0, M2_ix)
                M2_ix = M2_ix + 1
            Loop
        Catch ex As Exception
        End Try
 
        Try
            Do
                ErrNo = Matriz_2(M2_iy, 0)
                M2_iy = M2_iy + 1
            Loop
        Catch ex As Exception
        End Try
 
        Dim MatErr(0, 0) As Double
        Dim MatResultado(M1_iy - 1, M2_ix - 1) As Double
        MatErr(0, 0) = 0
 
        If M1_ix <> M2_iy Then MsgBox("Error de Dimencionamiento") : Return MatErr : Exit Function
 
        For i = 0 To M1_iy - 1
            For j = 0 To M2_ix - 1
                For k = 0 To M2_iy - 1
                    MatResultado(i, j) = MatResultado(i, j) + Matriz_1(i, k) * Matriz_2(k, j)
                Next
            Next
        Next
 
        Return MatResultado
 
    End Function
 
    Function M_Trans(ByVal Matriz(,) As Double) As Double(,)
        ''Transpuesta
        Dim x, y As Integer
        Dim Errno As Double = 0
 
        Try
            Do
                Errno = Matriz(0, x)
                x = x + 1
            Loop
        Catch ex As Exception
        End Try
 
        Try
            Do
                Errno = Matriz(y, 0)
                y = y + 1
            Loop
        Catch ex As Exception
        End Try
 
        Dim MatRes(y - 1, x - 1) As Double
 
        For i = 0 To x - 1
            For j = 0 To y - 1
                MatRes(i, j) = Matriz(j, i)
            Next
        Next
 
        Return MatRes
 
    End Function
 
    Public Function M_Inversa(ByVal Matriz(,) As Double) As Double(,)
        ''Inversa
        Dim x, y As Integer
        Dim Errno As Double = 0
 
        Try
            Do
                Errno = Matriz(0, x)
                x = x + 1
            Loop
        Catch ex As Exception
        End Try
 
        Try
            Do
                Errno = Matriz(y, 0)
                y = y + 1
            Loop
        Catch ex As Exception
        End Try
 
        ReDim Preserve Matriz(y - 1, (2 * x) - 1)
        Dim Pivote As Double
        Dim factor As Double
        Dim n, col As Integer
        Dim MatErr(0, 0) As Double
        Dim Colr As Integer
        Dim MatRes(y - 1, x - 1) As Double
 
        MatErr(0, 0) = 0
        n = y
        If x <> y Then MsgBox("Error de Dimencionamiento") : Return MatErr : Exit Function
 
        For i = x To (2 * x) - 1
            Matriz(Colr, i) = 1
            Colr = Colr + 1
        Next
 
        For i = 0 To n - 1 'Gauss-Jordan
            Pivote = Matriz(i, i)
            If Pivote = 0 Then
                MsgBox("Imposible Invertir")
                Return MatErr
                Exit Function
            End If
 
            For j = 0 To (2 * n) - 1
                Matriz(i, j) = Matriz(i, j) / Pivote
            Next
 
            For k = 0 To n - 1
                If k <> i Then
                    factor = Matriz(k, col)
                    For jk = 0 To (2 * n) - 1
                        Matriz(k, jk) = Matriz(k, jk) - factor * Matriz(i, jk)
                    Next
                End If
            Next
            col = col + 1
        Next
 
        For i = 0 To y - 1
            For j = 0 To x - 1
                MatRes(i, j) = Matriz(i, j + x)
            Next
        Next
 
        Return MatRes
 
    End Function

Una clase muy útil para manejar las funciones GetExtendedTcpTable() y GetExtendedUdpTable().

Código:

Copyright 2011 Ramón Manteiga Montero
'This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version.
'This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
'See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
 
Imports System.Runtime.InteropServices
 
Public Class GetConnectionClass
 
#Region "Estructuras"
 
    Private Structure MIB_TCPROW_OWNER_PID
        Dim dwState As Integer
        Dim dwLocalAddr As Integer
        Dim dwLocalPort As Integer
        Dim dwRemoteAddr As Integer
        Dim dwRemotePort As Integer
        Dim dwOwningPid As Integer
    End Structure
 
    Private Structure MIB_UDPROW_OWNER_PID
        Public localAddr As UInteger
        Public localport As UInteger
        Public Pid As UInteger
    End Structure
 
#End Region
 
#Region "WinApi5"
 
    Private Const ERROR_BUFFER_OVERFLOW As Short = 111
    Private Const ERROR_INVALID_PARAMETER As Short = 87
    Private Const ERROR_NO_DATA As Short = 232
    Private Const ERROR_NOT_SUPPORTED As Short = 50
    Private Const ERROR_SUCCESS As Short = 0
 
    Private Const MIB_TCP_STATE_CLOSED As Short = 1
    Private Const MIB_TCP_STATE_LISTEN As Short = 2
    Private Const MIB_TCP_STATE_SYN_SENT As Short = 3
    Private Const MIB_TCP_STATE_SYN_RCVD As Short = 4
    Private Const MIB_TCP_STATE_ESTAB As Short = 5
    Private Const MIB_TCP_STATE_FIN_WAIT1 As Short = 6
    Private Const MIB_TCP_STATE_FIN_WAIT2 As Short = 7
    Private Const MIB_TCP_STATE_CLOSE_WAIT As Short = 8
    Private Const MIB_TCP_STATE_CLOSING As Short = 9
    Private Const MIB_TCP_STATE_LAST_ACK As Short = 10
    Private Const MIB_TCP_STATE_TIME_WAIT As Short = 11
    Private Const MIB_TCP_STATE_DELETE_TCB As Short = 12
 
    Declare Function GetExtendedTcpTable Lib "IPHLPAPI.dll" (ByVal pTcpTable As IntPtr, ByRef dwTcpTableSize As Integer, ByVal bOrder As Boolean, ByVal ulAf As Integer, ByVal TCP_TABLE_CLASS As Integer, ByVal Reserved As Integer) As Integer
    Declare Function GetExtendedUdpTable Lib "IPHLPAPI.dll" Alias "GetExtendedUdpTable" (ByVal pUdpTable As IntPtr, ByRef dwUdpTableSize As Integer, ByVal ubOrder As Boolean, ByVal uulAf As Integer, ByVal UDP_TABLE_CLASS As Integer, ByVal uReserved As Integer) As Integer
 
#End Region
 
#Region "Propiedades"
 
    Private _RemoteIP As Long = 0
    Public ReadOnly Property RemoteIP() As Long
        Get
            Return _RemoteIP
        End Get
    End Property
 
    Private _RemotePort As Long = 0
    Public ReadOnly Property RemotePort() As Long
        Get
            Return _RemotePort
        End Get
    End Property
 
    Private _LocalIP As Long = 0
    Public ReadOnly Property LocalIP() As Long
        Get
            Return _LocalIP
        End Get
    End Property
 
    Private _LocalPort As Long = 0
    Public ReadOnly Property LocalPort() As Long
        Get
            Return _LocalPort
        End Get
    End Property
 
    Private _PID As Integer = 0
    Public ReadOnly Property PID() As Integer
        Get
            Return _PID
        End Get
    End Property
 
    Private _ProcessName As String = ""
    Public ReadOnly Property ProcessName() As String
        Get
            Return _ProcessName
        End Get
    End Property
 
    Private _State As Integer = 0
    Public ReadOnly Property State() As Integer
        Get
            Return _State
        End Get
    End Property
 
#End Region
 
#Region "Métodos"
 
    ''' <summary>
    ''' Este método convierte una dirección IP del formato de red a formato de texto (NtoA = Network to ASCII).
    ''' </summary>
    ''' <param name="IPAddress">Dirección IP (Formato red).</param>
    ''' <returns>Devuleve una cadena (String) con la dirección IP formateada a texto UTF-8 (Formato ###.###.###.###).</returns>
    ''' <remarks></remarks>
    Public Shared Function NtoA(ByRef IPAddress As Integer) As String
 
        Dim IPParts() As Byte = BitConverter.GetBytes(IPAddress)
        Return CStr(IPParts(0)) & "." & CStr(IPParts(1)) & "." & CStr(IPParts(2)) & "." & CStr(IPParts(3))
 
    End Function
 
    ''' <summary>
    ''' Este método convierte de formato de red a formato de texto la dirección de un puerto.
    ''' </summary>
    ''' <param name="ValueParameter">Valor de la dirección del puerto.</param>
    ''' <returns>Devuelve un entero (Int32) con la dirección del puerto en formato texto.</returns>
    ''' <remarks></remarks>
    Public Shared Function GetPort(ByRef ValueParameter As Integer) As Integer
 
        Return ValueParameter / 256 + (ValueParameter Mod 256) * 256
 
    End Function
 
    Public Enum Prot
        TCP
        UDP
    End Enum
 
    ''' <summary>
    ''' Este método proporciona información a cerca de las transmisiones de red que se están realizando en el equipo.
    ''' </summary>
    ''' <param name="ConfigParameter">Parámetro de configuración para designar un protocolo.</param>
    ''' <returns>List (Of GetConnectionClass): Nombre del proceso, ID del proceso, dirección remota, puerto remoto, dirección local, puerto local y estado.</returns>
    ''' <remarks></remarks>
    Public Function GetConnection(ByVal ConfigParameter As Prot) As List(Of GetConnectionClass)
 
        If ConfigParameter = Prot.TCP Then
 
            Dim Coleccion As New List(Of GetConnectionClass)
 
            Dim Aux As MIB_TCPROW_OWNER_PID
            For Each Aux In GetTCPConnection()
                Dim Aux2 As New GetConnectionClass
                Aux2._LocalIP = Aux.dwLocalAddr
                Aux2._LocalPort = Aux.dwLocalPort
                Aux2._RemoteIP = Aux.dwRemoteAddr
                Aux2._RemotePort = Aux.dwRemotePort
                Aux2._PID = Aux.dwOwningPid
                Dim Proc As New Process
                Proc = Process.GetProcessById(Aux.dwOwningPid)
                Aux2._ProcessName = Proc.ProcessName
                Aux2._State = Aux.dwState
 
                Coleccion.Add(Aux2)
            Next
 
            Return Coleccion
 
        Else
            Dim Coleccion As New List(Of GetConnectionClass)
 
            Dim Aux As MIB_UDPROW_OWNER_PID
            For Each Aux In GetUDPConnection()
                Dim Aux2 As New GetConnectionClass
                Aux2._LocalIP = Aux.localAddr
                Aux2._LocalPort = Aux.localport
                Aux2._PID = Aux.Pid
                Dim Proc As New Process
                Proc = Process.GetProcessById(Aux.Pid)
                Aux2._ProcessName = Proc.ProcessName
 
                Coleccion.Add(Aux2)
            Next
 
            Return Coleccion
 
        End If
 
        Return Nothing
 
    End Function
 
    ''' <summary>
    ''' Este método devuelve una cadena de texto explicativa que refleja el estado de un socket.
    ''' </summary>
    ''' <param name="State">Número del estado.</param>
    ''' <returns>(String) Texto perteneciente al estado.</returns>
    ''' <remarks></remarks>
    Public Shared Function GetStateName(ByVal State As Short) As String
        Select Case State
            Case MIB_TCP_STATE_CLOSED
                Return "Cerrado"
            Case MIB_TCP_STATE_LISTEN
                Return "En escucha"
            Case MIB_TCP_STATE_SYN_SENT
                Return "Esperando envio"
            Case MIB_TCP_STATE_SYN_RCVD
                Return "Recibiendo"
            Case MIB_TCP_STATE_ESTAB
                Return "Conectado"
            Case MIB_TCP_STATE_FIN_WAIT1
                Return "Socket cerrandose"
            Case MIB_TCP_STATE_FIN_WAIT2
                Return "Socket cerradose"
            Case MIB_TCP_STATE_CLOSE_WAIT
                Return "Conexión finalizada a la espera de cierre"
            Case MIB_TCP_STATE_CLOSING
                Return "Cerrando"
            Case MIB_TCP_STATE_LAST_ACK
                Return "Conexión finalizada"
            Case MIB_TCP_STATE_TIME_WAIT
                Return "En espera"
            Case MIB_TCP_STATE_DELETE_TCB
                Return "Parado por el usuario"
        End Select
 
        Return ""
 
    End Function
 
#End Region
 
#Region "Funciones privadas"
 
    Private Function GetTCPConnection() As List(Of MIB_TCPROW_OWNER_PID)
        Try
 
            Dim Coleccion As New List(Of MIB_TCPROW_OWNER_PID)
            Dim RetVal As Integer
            Dim Puntero As IntPtr = IntPtr.Zero
            Dim Tamaño As Integer
            Dim Cont As Integer = 0
            Dim NumeroStructs As Integer
            Dim OffSet As Integer
 
            RetVal = GetExtendedTcpTable(IntPtr.Zero, Tamaño, 1, 2, 5, 0)
            Puntero = Marshal.AllocHGlobal(Tamaño)
            RetVal = GetExtendedTcpTable(Puntero, Tamaño, 1, 2, 5, 0)
 
            NumeroStructs = Marshal.ReadInt32(Puntero, 0)
            Puntero = New IntPtr(Puntero.ToInt32 + 4)
 
            Do While Cont <= NumeroStructs
                Dim Aux As New MIB_TCPROW_OWNER_PID
 
                With Aux
                    .dwState = Marshal.ReadInt32(Puntero, OffSet)
                    .dwLocalAddr = Marshal.ReadInt32(Puntero, OffSet + 4)
                    .dwLocalPort = Marshal.ReadInt32(Puntero, OffSet + 8)
                    .dwRemoteAddr = Marshal.ReadInt32(Puntero, OffSet + 12)
                    .dwRemotePort = Marshal.ReadInt32(Puntero, OffSet + 16)
                    .dwOwningPid = Marshal.ReadInt32(Puntero, OffSet + 20)
                End With
 
                OffSet = OffSet + 24
                Coleccion.Add(Aux)
                Cont += 1
 
            Loop
 
            Marshal.FreeHGlobal(New IntPtr(Puntero.ToInt32 - 4))
            Return Coleccion
 
        Catch Ex1 As OutOfMemoryException
            RaiseEvent Fail(Me, "Error (OutOfMemory): " & Ex1.ToString())
            Return New List(Of MIB_TCPROW_OWNER_PID)
        Catch Ex2 As OverflowException
            RaiseEvent Fail(Me, "Error (Overflow): " & Ex2.ToString())
            Return New List(Of MIB_TCPROW_OWNER_PID)
        Catch Ex3 As AccessViolationException
            RaiseEvent Fail(Me, "Error (MemoryAccessViolation): " & Ex3.ToString())
            Return New List(Of MIB_TCPROW_OWNER_PID)
        Catch Ex As Exception
            RaiseEvent Fail(Me, "Error: " & Ex.ToString)
            Return New List(Of MIB_TCPROW_OWNER_PID)
        End Try
 
    End Function
 
    Private Function GetUDPConnection() As List(Of MIB_UDPROW_OWNER_PID)
 
        Try
 
            Dim Coleccion As New List(Of MIB_UDPROW_OWNER_PID)
            Dim RetVal As Integer
            Dim Puntero As IntPtr = IntPtr.Zero
            Dim Tamaño As Integer
            Dim Cont As Integer = 0
            Dim NumeroStructs As Integer
            Dim OffSet As Integer
 
            RetVal = GetExtendedUdpTable(IntPtr.Zero, Tamaño, 1, 2, 5, 0)
            Puntero = Marshal.AllocHGlobal(Tamaño)
            RetVal = GetExtendedUdpTable(Puntero, Tamaño, 1, 2, 5, 0)
 
            NumeroStructs = Marshal.ReadInt32(Puntero, 0)
            Puntero = New IntPtr(Puntero.ToInt32 + 4)
 
            Do While Cont <= NumeroStructs
                Dim Aux As New MIB_UDPROW_OWNER_PID
 
                With Aux
                    .localAddr = Marshal.ReadInt32(Puntero, OffSet)
                    .localport = Marshal.ReadInt32(Puntero, OffSet + 4)
                    .Pid = Marshal.ReadInt32(Puntero, OffSet + 8)
                End With
 
                OffSet = OffSet + 12
                Coleccion.Add(Aux)
                Cont += 1
 
            Loop
 
            Marshal.FreeHGlobal(New IntPtr(Puntero.ToInt32 - 4))
            Return Coleccion
 
        Catch Ex1 As OutOfMemoryException
            RaiseEvent Fail(Me, "Error (OutOfMemory): " & Ex1.ToString())
            Return New List(Of MIB_UDPROW_OWNER_PID)
        Catch Ex2 As OverflowException
            RaiseEvent Fail(Me, "Error (Overflow): " & Ex2.ToString())
            Return New List(Of MIB_UDPROW_OWNER_PID)
        Catch Ex3 As AccessViolationException
            RaiseEvent Fail(Me, "Error (MemoryAccessViolation): " & Ex3.ToString())
            Return New List(Of MIB_UDPROW_OWNER_PID)
        Catch Ex As Exception
            RaiseEvent Fail(Me, "Error: " & Ex.ToString)
            Return New List(Of MIB_UDPROW_OWNER_PID)
        End Try
 
    End Function
 
#End Region
 
#Region "Eventos"
    Public Event Fail(ByVal sender As Object, ByVal Texto As String)
#End Region
 
End Class