Visual Basic

AxWindowsMediaPlayer1.Ctlcontrols.play()

Private Shared Function SystemTimeToDateTime(ByRef st As SYSTEMTIME) As DateTime
Dim ft As FILETIME = New FILETIME
NativeMethods.SystemTimeToFileTime(st, ft)
Dim dt As DateTime 
dt = New DateTime(((CType(ft.dwHighDateTime, Long)) << 32) Or CType(ft.dwLowDateTime, UInt32))
Return dt
End Function

    Private Declare Auto Function SystemTimeToFileTime Lib "kernel32" ( _
            <[In]()> ByRef st As SYSTEMTIME, _
            ByRef lpFileTime AS FILETIME) _
            As Boolean
 
    <StructLayout(LayoutKind.Sequential)> _
    Private Structure SYSTEMTIME
        Public wYear As UInt16
        Public wMonth As UInt16
        Public wDayOfWeek As UInt16
        Public wDay As UInt16
        Public wHour As UInt16
        Public wMinute As UInt16
        Public wSecond As UInt16
        Public wMillisecond As UInt16
    End Structure
.
.
.
    Private Sub Button1_Click(blah, blah) Handles Button1.Click
        Dim st As SYSTEMTIME
        With st
            .wDay = 14
            .wMonth = 4
            .wYear = 3606    ' 2006 + 1600
            .wHour = 14
            .wMinute = 15
            .wSecond = 31
        End With
 
        Dim ft As New FILETIME
        SystemTimeToFileTime(st, ft)
 
        Dim dt As New DateTime(((CType(ft.dwHighDateTime, Long)) << 32) Or _
            CType(ft.dwLowDateTime, UInt32))
        Debug.WriteLine(dt)
    End Sub

Dim dt As New DateTime(((CType(ft.dwHighDateTime, Long)) * (2 ^ 32) Or CType(ft.dwLowDateTime, UInt32))

<StructLayout(LayoutKind.Sequential)> _
    Private Structure SYSTEMTIME
        Public wYear As Int16
        Public wMonth As Int16
        Public wDayOfWeek As Int16
        Public wDay As Int16
        Public wHour As Int16
        Public wMinute As Int16
        Public wSecond As Int16
        Public wMillisecond As Int16
    End Structure

Dim dt As New DateTime((ft.dwHighDateTime * (2 ^ 32)) + ft.dwLowDateTime)

pnpfriend wrote:

i tried to use redemption

pnpfriend wrote:

to get the msg file information such as To, From, Subject, Body and if the msg file is appointment file

percyvimal wrote:

1.How to declare global variables.

Public Class HelpersLibrary
    Public Shared myGlobalVariable As Integer
End Class

percyvimal wrote:

2.where to declare ( in VB6 used to declare those in Modules what about 2005?)

percyvimal wrote:

3.How to make the application Run the Sub Main() function

Module MainStartupCode
    Public Sub Main()
        ' Your startup code begins here
        ' To launch a form and start your Windows GUI:
        Application.Run(New mainForm)
    End Sub
End Module

Module MainStartupCode
    Public Sub Main(ByVal cmdArgs() As String)
        ' Your startup code begins here
        ' To launch a form and start your Windows GUI:
        Application.Run(New mainForm)
    End Sub
End Module

Public Class Form1
    <STAThread()> _
    Public Shared Sub Main()
        ' Same as above examples...
    End Sub
 
    ' the rest of your form code goes here...
End Class

percyvimal wrote:

percyvimal wrote:

5.How to end the application Frmmdiform.END

Me.Close()

Now, you don't have to have a Module to supply a Sub Main. You can do it with a Shared member Sub of a class:<br />
<br />
Public Class Form1    <STAThread()> _    Public Shared Sub Main()        ' Same as above examples...    End Sub     ' the rest of your form code goes here...End Class<br />
<br />

percyvimal wrote:

According to your example Form1 --should be the start up form?