RecorteX

Este ejemplo usa el app.config

descargar
 
        Dim aConfig As Configuration.ConfigurationSettings
        Try
            Dim MailFrom As New MailAddress(aConfig.AppSettings("EmailFrom"))
            Dim MailTo As New MailAddress(aConfig.AppSettings("EmailTo"))
 
            Dim mailMsg As MailMessage = New MailMessage(MailFrom, MailTo)
 
            mailMsg.IsBodyHtml = True
            mailMsg.Priority = MailPriority.Normal
 
            mailMsg.Subject = "Subject for the mail"
            mailMsg.Body = ReadStringResource("Mail.htm")
 
            Dim SmtpMail As New Net.Mail.SmtpClient
            Dim theCredential As New Net.NetworkCredential("usuario", "contraseña")
            SmtpMail.Credentials = theCredential
            SmtpMail.Host = aConfig.AppSettings("EmailServer")
            SmtpMail.Send(mailMsg)
 
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try
 

Esta funcion en V .net 2005 da formato a un numero que lo tienes como string y quieres regresarlo como string con pesos o numeros negativos. De ahi se puede partir para muchas otras cosas.!

descargar
 
    Private Function darFormato(ByVal numeroStr As String) As String
        Try
            If numeroStr = "" Or numeroStr = "0" Then
                Return ""
            Else
                Return CDbl(numeroStr).ToString("$#,###.##;($#,###.##);Zero")
            End If
        Catch ex As Exception
            Throw ex
        End Try
    End Function
 

Con este código, para la transformación solo necesitamos llamarla mandándole un string con el contenido, otro string con el contenido del xsl y “Me.GetType().Assembly.Evidence” y regresará un string con el contenido de la transformación.

descargar
 
    Public Function ApplyXMLTransform(ByVal xslSDoc As String, ByVal xmlSDoc As String, ByVal evidence As System.Security.Policy.Evidence) As string
        Dim xmlDoc As XmlTextReader = New XmlTextReader(New StringReader(xmlSDoc))
        Dim xslDoc As XmlTextReader = New XmlTextReader(New StringReader(xslSDoc))
        Dim res As New Xml.XmlDocument
        Dim xslt As New Xml.Xsl.XslTransform
        xslt.Load(xslDoc, Nothing, evidence)
        res.Load(xslt.Transform(New Xml.XPath.XPathDocument(xmlDoc), Nothing, New Xml.XmlUrlResolver))
        Return res.OuterText
    End Function
 

Muchas veces tenemos tantas aplicaciones y en tantas versiones que no sabemos que o0nda con las que se estan correindo, asi que con este simple renglon podemos poner nombre compañia y version de nuestra aplicacion en el titulo de las forma que queramos. Espero les sea de utilidad.

descargar
 
     Me.Text = My.Application.Info.CompanyName & " - " & My.Application.Info.AssemblyName & " " & My.Application.Info.Version.ToString
 

A veces nos topamos con la necesidad de que solo se pueda ejecutar una instancia de nuestro sistema, con esta función lo evitamos.

descargar
 
Function PrevInstance() As Boolean
   If UBound(System.Diagnostics.Process.GetProcessesByName(System.Diagnostics.Process.GetCurrentProcess.ProcessName)) > 0 Then
      Return True
   Else
      Return False
   End If
End Function
 

Se usa así

descargar
 
   if PrevExistance() = True Then Application.Exit()
 

nota los valores booleanos están implícitamente mostrados para facilidad de comprensión.

Para que validemos un url en un campo de texto

descargar
 
bool IsValidEmail(string strIn) 
{ 
    // Return true if strIn is in valid e-mail format. 
 
    return Regex.IsMatch(strIn, @"^([\w-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0- 
9]{1,3}\.)|(([\w-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$");  
}
 

descargar
 
    Private Sub despliegaContactos(ByVal contactos As DataSet)
        dropdown.Items.Clear()
        dropdown.DataTextField = "Nombre"
        dropdown.DataValueField = "nContactoId"
        dropdown.DataSource = contactos.Tables(0)
        dropdown.DataBind()
    End Sub
 

descargar
 
      Private Function paco(ByVal xmlFile As String, ByVal xslFile As String) As String
        Dim archivo As String = "c:\temp.tmp"
        Dim temp As New Xml.XmlDocument
        Dim resolver As XmlUrlResolver = New XmlUrlResolver
        resolver.Credentials = System.Net.CredentialCache.DefaultCredentials
        Dim XSLT As Xsl.XslTransform = New Xsl.XslTransform
        XSLT.Load(xslFile, resolver)
        XSLT.Transform(archivo, archivo, resolver)
        Return ReadFile(archivo)
    End Function
 

Estructura basica de una clase

descargar
 
''' -----------------------------------------------------------------------------
''' <summary>
''' Comentarios
''' </summary>
''' -----------------------------------------------------------------------------
Public Class NombreClase
#Region "Atributos"
    Private _ChangedItem As System.Windows.Forms.GridItem
    Private _OldValue As Object
#End Region
#Region "Propiedades"
 
    Public Property ChangedItem() As System.Windows.Forms.GridItem
        Get
            Return _ChangedItem
        End Get
        Set(ByVal Value As System.Windows.Forms.GridItem)
            _ChangedItem = Value
        End Set
    End Property
 
    Public Property OldValue() As Object
        Get
            Return _OldValue
        End Get
        Set(ByVal Value As Object)
            _OldValue = Value
        End Set
    End Property
 
#End Region
 
#Region "Constructor"
    Public Sub New()
    End Sub
#End Region
#Region "Metodos"
#End Region
End Class
 

descargar
 
  Dim reader As New System.Xml.XmlTextReader(New System.IO.StringReader("<xmlaleer att1=""/>"))