Weblogs Código

RecorteX

» vbnet
73 usuarios y 244 recortes de código
Usuario

Contraseña
Crear cuenta
Estás viendo los recortes de la etiqueta vbnet

RSS
Recortes: 28

Etiquetas relacionadas:
csharp
xml
vb
2005
asp
string
forma
ventana
numero
titulo
formato
version
pesos
dataset
url
items
signo
double
validacion
negativos
sql
dropdown
net

Enviar mail (framework 2.0)

Este ejemplo usa el app.config

 
        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
 

Funcion para dar formato a un string

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.!

 
    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
 

Transformacion en memoria XSL

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.

 
    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
 
 
        public string ApplyXMLTransform(string xslSDoc, string xmlSDoc , System.Security.Policy.Evidence evidence) 
        {
            XmlTextReader xmlDoc = new XmlTextReader(new StringReader(xmlSDoc));
            XmlTextReader xslDoc = new XmlTextReader(new StringReader(xslSDoc));
            XmlDocument res = new XmlDocument();
            XslTransform xslt = new XslTransform();
            xslt.Load(xslDoc, null, evidence);
            res.Load(xslt.Transform(new XPathDocument(xmlDoc), null, new XmlUrlResolver()));
            return res.OuterXml;
        }
 
        public string ApplyXMLTransform(string xslSDoc, string xmlSDoc)
        {
            return this.ApplyXMLTransform (xslSDoc, xmlSDoc, this.GetType().Assembly.Evidence); 
        }
 

Nombre Compañia y Version en la barra de titulo de aplicacion

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.

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

Verificar que solo haya una instancia de la aplicacion corriendo

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

 
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í

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

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

Validacion de un URL

Para que validemos un url en un campo de texto

 
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})(\]?)$");  
}
 

Llenar DropDownList en VB desde un DataSet

 
    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
 

transformación física de xml

transformación física de xml
 
      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

Estructura basica de una clase

 
''' -----------------------------------------------------------------------------
''' <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
 

Asignar un string a un XmlTextReader

Asignar un string a un XmlTextReader
 
  Dim reader As New System.Xml.XmlTextReader(New System.IO.StringReader("<xmlaleer att1=""/>"))
 
Proyecto: Juanjo Navarro, 2006 - Diseño: Albin