Si quieres que tu aplicación espere solo debes hacer un llamado a esta pequeña rutina:

Private Sub Wait(ByVal PMillseconds As Integer)

Dim TimeNow As DateTime
Dim TimeEnd As DateTime
Dim StopFlag As Boolean

TimeEnd = Now()
TimeEnd = TimeEnd.AddMilliseconds(PMillseconds)
StopFlag = False
While Not StopFlag
TimeNow = Now()
If TimeNow > TimeEnd Then
StopFlag = True
End If
Application.DoEvents()
End While

TimeNow = Nothing
TimeEnd = Nothing
End Sub

Saludos…

Ok, vamos a variar un poco los temas del blog haciendo honor al “slogan” “de todo un poco”.
Si eres hombre y no sabes cocinar (ese es mi caso) aquí te dejo una receta fácil para salir de un apuro de fin de semana y rinde para unas 6 personas.

Los ingredientes son (se que no vas a anotar):

• 1/2 cebolla
• 1 Ají verde (el que no pica)
• 6 tomates pequeños (no los grandototes de ensalada y emparedados)
• 3 ajos (no la cabeza entera, los pedacitos chicos)
• 1 cucharadita de aceite de oliva (o cualquier aceite. Oliva si quieres cuidar la salud)
• 16 salchichas
• 3 papas medianas
• 1/2 cucharadita de sal

-Primero pica la cebolla, el aji, los tomates como mejor te paresca (pedazos grandes, chicos, medios a tu gusto)

-Despues raya los ajos (quitale la cascara que parece papel y se te pega en los dedos)

Cuando tengas esto hecho debes tener algo parecido a esto en un plato. Seguidamente pon una olla en la estufa a fuego lento, agrega el aceite y todo lo que picaste y revuelvelo hasta que se dore. Como es de suponer (me pasá a mi) siempre se te olvida picar en trozos pequeños la salchicha y la papa, pero no te preocupes como lo tenemos a fuego lento te dará chance de hacerlo.

Una vez esté todo dorado agrega agua y la papa picada dejalo cocinar hasta que la papa esté sueve (para saber la sacas y la muerdes, acuerdate de soplarla antes).

Cuando esté sueve agrega la sal revuelve y seguidamente las salchichas, esperas unos 5 minutos y listo.

A servir…

Nos hemos topado muchas veces con la necesidad de leer un archivo de texto (txt) por lo que resumo rápidamente como hacerlo linea por linea.

Dim freader As New StreamReader(“ruta del archivo a leer”)
Dim contenido As String
Dim lineas As New ArrayList()
Do
contenido = freader.ReadLine()
If Not contenido Is Nothing Then
‘si quiero leer solo las líneas que no estén en blanco incluyo esta condicion
If contenido.Length <> 0 Then
lineas.Add(contenido)
End If
End If
Loop Until contenido Is Nothing
freader.Close()

Recuerden que deben incluir al inicio

Imports System.IO

He creado un dll que permite pasar una tabla <table> a datatable en .NET para facilitar la extracción de información ya sea de un website o bien de un archivo html.

Lo pueden obtener visitando l3panama. O envie un email aqui

Espero les sea de utilidad.

En muchas ocasiones tengo que llenar un datatable dinámicamente por lo general obteniendo la data de información que un usuario llena o si viene de una fuente que no puede ser transformada a datatable.

Esta es la solución:

Dim dt As New DataTable
dt.Columns.Add(“cuenta”)
dt.Columns.Add(“nombre_cuenta”)
dt.Columns.Add(“nombre”)
dt.Columns.Add(“apellido”)
dt.Columns.Add(“celular”)

Dim dr As DataRow = dt.NewRow
dr(“cuenta”) = “12345″
dr(“nombre_cuenta”) = “Juan Perez”
dr(“nombre”) = “Juan”
dr(“apellido”) = “Perez”
dr(“celular”) = “507.60000000″

dt.Rows.Add(dr)
dt.AcceptChanges()