Curso 38 VB.NET Date Variable- Dias ,Meses ,Años

Pin It

En este tutorial aprenderemos a calcular la diferencia de tiempo que hay entre dias , mese y años .

Video Tutorial

Codigo Fuente

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'TRABAJANDO CON LA VARIABLE DATE (FECHA) Dim fecha1 As Date = CType(TextBox1.Text, Date) Dim fecha2 As Date = CType(TextBox2.Text, Date) Dim diferenciatiempo As TimeSpan diferenciatiempo = fecha2.Subtract(fecha1) MsgBox(diferenciatiempo.TotalMinutes) End Sub

VideoCurso 29 VB.NET-Navegador Firefox (Geckobrowser)

Pin It

En este tutorial aprenderemos a implementar el navegador de firefox el gekobrowser en visual basic para eso utilizaremos algunas dlls y archivos que lo puedes encontrar en el enlace de abajo .

Video Tutorial

Codigo Fuente


Formulario

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


        GeckoWebBrowser1.Navigate(TextBox1.Text)

    End Sub
End Class


Clase


Imports System.IO
Imports Skybound.Gecko

Namespace My

    Partial Friend Class MyApplication

        Protected Overrides Function OnStartup(ByVal eventArgs As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) As Boolean

            Dim ProfileDirectory As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\xulrunner\DefaultProfile"

            If Not Directory.Exists(ProfileDirectory) Then
                Directory.CreateDirectory(ProfileDirectory)
            End If
            Xpcom.ProfileDirectory = ProfileDirectory

            Dim xrPath As String = System.Reflection.Assembly.GetExecutingAssembly.Location
            xrPath = xrPath.Substring(0, xrPath.LastIndexOf("\") + 1) & "\xulrunner"
            Xpcom.Initialize(xrPath)

            Return True
        End Function

    End Class

End Namespace

Descargate el webkitbrowser desde aca :

http://foro.tutorialeshispanos.com/VBNET/FIREFOX.rar