Trabajando en una aplicación que me permite sincronizar información con uno de mis clientes me tope con la necesidad de transformar un IList que era entregado por el cliente a un DataTable.
Asi quedo todo:

Public Shared Function IList_DataTable(Of T)(ByVal list As IList(Of T)) As DataTable
Dim td As New DataTable
Dim entityType As Type = GetType(T)
Dim properties As PropertyDescriptorCollection = TypeDescriptor.GetProperties(entityType)

For Each prop As PropertyDescriptor In properties
td.Columns.Add(prop.Name)
Next

For Each item As T In list
Dim row As DataRow = td.NewRow()

For Each prop As PropertyDescriptor In properties
row(prop.Name) = prop.GetValue(item)
Next

td.Rows.Add(row)
Next

Return table
End Function

Tratando de validar si una variable era númerica en vb.net me tope con que no encontraba la función isnumeric. Despues de buscar e investigar un poco me percate que si quería usarla debía incluir “microsoft.visualbasic” en los Imports.
Si al final no deseas utilizar este namespace puedes validar si un valor es númerico con el siguiente código:

Public Function IsNumeric(ByVal str As String) as boolean
Dim r As Regex = New Regex(“\d+”)
Dim m As Match = r.Match(str)
If (m.Success) Then
Return True
End If
Return False
End Function

Si queremos por ejemplo eliminar un registro de un gridview o eliminar datos de un formulario, lo más normal es solicitar al usuario si realmente desea realizar este borrado.

Para esto debemos asociar el boton que dispara el evento de eliminar un javascript que haga la pregunta.
Esto lo debemos hacer en el page_load

If Not IsPostBack Then
Me.btn_yes.Attributes.Add(“onclick”, _
“return confirm(‘Esta seguro?’);”)
end if

Si la persona seleccione no el evento click del botón no se ejecutará.

Si en alguna ocasición tienes la necesidad de utilizar un iframe en tu código .net y necesitas dinámicamente a través del código indicarle el atributo src de tu iframe deberás hacer lo siguiente:

En el lado del aspx creamos el iframe

<IFRAME id=”ifrm_ds” scrolling=”auto” runat=”server” width=”996″ frameborder=”0″ height=”600″>
</IFRAME>

Y para asignarle el atributo del lado del código:

ifrm_ds.Attributes(“src”) = “enrutador.aspx”

Con esto podrás dirigir tu iframe a cualquier url que desees.

Utilizando un gridview debía utilizar un link javascript tipo “javascript:mi_funcion(‘xxxx’)” para abrir un pop-up con el detalle del registro que estaba seleccionando.

El problema es que usar datanavigateurlformatstring=”javascript:mi_funcion(‘{0}’)” no funciona por un error y me vi obligado a utilizar el siguiente código:

<asp:TemplateField>
<ItemTemplate>
<asp:HyperLink ID=”HyperLink1″ runat=”server”
NavigateUrl=’<%# “javascript:ver_documento(” + chr(39) + Eval(“variable”) + chr(39) + “)” %>’
Text=”View”>
</asp:HyperLink>
</ItemTemplate>
</asp:TemplateField>

Espero les sea de utilidad.

Si tu acceso a internet es a través de un proxy que requiere de autenticación necesitaras configurar esta información para poder utilizar “WebRequest”.

Para hacer esto debes hacer lo siguiente:

Dim miproxy As New WebProxy(“ejemplo.dominio.local:8080″)

Dim nc As New NetworkCredential(“miusuario”, “micontraseña”, “eldominio”)
proxy.Credentials = nc

Dim miRequest As WebRequest
miRequest.Proxy = proxy

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…

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

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()

He desarrollado una aplicación para envio de anuncios a través de SMS por lo que descargue easysmpp para efectuar esta labor.

Depués de un rato no pude encontrar un ejemplo del código al final pude armar la estructura y enviar el SMS.

Se debe primero registrar las tres librerías dll que vienen en el folder “tester”.

Seguidamente configurar en el page load la información del servidor de envio

Dim smppobj As New EasySMPP.SMSC
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
smppobj.SystemId = “ID”
smppobj.Password = “password”
smppobj.Port = “puerto”
smppobj.Host = “IP”
smppobj.Description = “TEST”
smppobj.SystemType = “test”
smppobj.AddrNpi = “0″
smppobj.AddrTon = “0″

End Sub

Para el envio del mensaje en podemos hacer un pequeño form que tenga un textbox y un botón de envio por lo que quedaría así:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
smppsend.AddSMSC(smppobj)
smppsend.Connect()
smppsend.SendSms(“50760060461″, “50760060461″, i_texto.Text)
smppsend.Disconnect()
End Sub

Espero le sea de utiliadad.