Visual Basic 2005

در این تاپیک، در مورد ویژوال بیسیک 2005 بحث خواهد شد. از دوستان عزیز هر کس در چهار چوب عنوانهای زیر، چیزی بلد هست در این جا پست نماید. از کاربران وارد به وی بی 2005، خواهش میکنم با حضور خود در این تاپیک، ما رو از معلومات خود بی نصیب نگذارند.
ممنون از لطف و عنایت شما.
Sample Codes
Components
Module
Class
Sample Projects
...

برای شروع، یک Module در مورد تول تیپ با قابلیت راست به چپ قرار میدم. این Module رو خودم نوشتم:

کد:

---

Module RTLToolTip
    Dim ToolTipForm As New Form
    Dim CurrentControl As New Control
    Dim Text As String
    Dim ToolTipLabel As New Label
    Dim ToolTipLabel_Title As New Label
    Dim AroundLabel As New Label
    Dim Timer As New Timer
    Dim t As Boolean = False
    Public DisplayTime As Integer = 3000
    Public Right_To_Left As Boolean = True
    Public Font As Font = New Font("Tahoma", 8, FontStyle.Regular)
    Public ForeColor As Drawing.Color = Color.Black
    Dim SavedToolTip As ToolTip = New ToolTip
    Public BackColor As Drawing.Color = SavedToolTip.BackColor  'Color.Cornsilk
    Public Title As String = Nothing
    Public ShutDown As Boolean = False
    Public Sub Display(ByRef Control As Control)
        Text = Nothing
        Text = SavedToolTip.GetToolTip(Control)
        SavedToolTip.Active = False
        If ShutDown = True Then Exit Sub
        If Len(Trim(Text)) = 0 Then Exit Sub
        CurrentControl = Nothing
        CurrentControl = Control
        'CurrentControl.Parent = Control.Parent
        AddHandler ToolTipForm.Load, AddressOf ToolTipForm_Load
        AddHandler CurrentControl.MouseLeave, AddressOf CurrentControl_MouseLeave
        'AddHandler CurrentControl.MouseMove, AddressOf CurrentControl_MouseMove
        AddHandler Timer.Tick, AddressOf Timer_Tick
        'CurrentControl_MouseMove(Nothing, Nothing)
        'ToolTipForm.Show()
        If t = True Then Exit Sub
        ToolTipForm_Load(Nothing, Nothing)

        If IsNumeric(DisplayTime) = False Then DisplayTime = 3000
        If DisplayTime < 0 Then DisplayTime = 3000
        Timer.Interval = DisplayTime + 1
        Timer.Enabled = True
    End Sub
    Private Sub ToolTipForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If ToolTipForm.Visible = True Then Exit Sub
        ToolTipForm.Width = 0
        ToolTipForm.Height = 0
        '===============================
        If Len(Trim(Title)) = 0 Then
            ToolTipLabel_Title.AutoSize = False
            ToolTipLabel_Title.Text = Nothing
            ToolTipLabel_Title.Height = 0
            ToolTipLabel_Title.Width = 0
            ToolTipLabel_Title.Visible = False
            GoTo TilteIsEmty
        End If
        ToolTipLabel_Title.Text = Title
        ToolTipLabel_Title.Font = New Font(Font.Name, 8, FontStyle.Bold)
        If Right_To_Left = True Then
            ToolTipLabel_Title.RightToLeft = RightToLeft.Yes
            ToolTipLabel_Title.TextAlign = ContentAlignment.MiddleLeft
        Else
            ToolTipLabel_Title.RightToLeft = RightToLeft.No
            ToolTipLabel_Title.TextAlign = ContentAlignment.MiddleLeft
        End If
        ToolTipLabel_Title.ForeColor = ForeColor
        ToolTipLabel_Title.BackColor = BackColor
        ToolTipLabel_Title.AutoSize = True
        ToolTipLabel_Title.BorderStyle = BorderStyle.None
        ToolTipLabel_Title.Visible = True
        ToolTipLabel_Title.Left = 1 : ToolTipLabel_Title.Top = 1
        ToolTipLabel_Title.Parent = ToolTipForm
        ToolTipLabel_Title.BringToFront()
        '===============================
TilteIsEmty:
        ToolTipLabel.Text = Text
        ToolTipLabel.Font = New Font(Font.Name, 8, FontStyle.Regular)
        If Right_To_Left = True Then
            ToolTipLabel.RightToLeft = RightToLeft.Yes
            ToolTipLabel.TextAlign = ContentAlignment.MiddleLeft
        Else
            ToolTipLabel.RightToLeft = RightToLeft.No
            ToolTipLabel.TextAlign = ContentAlignment.MiddleLeft
        End If
        ToolTipLabel.ForeColor = ForeColor
        ToolTipLabel.BackColor = BackColor
        ToolTipLabel.AutoSize = True
        ToolTipLabel.BorderStyle = BorderStyle.None
        ToolTipLabel.Visible = True
        ToolTipLabel.Left = 1 : ToolTipLabel.Top = ToolTipLabel_Title.Height + 4
        ToolTipLabel.Parent = ToolTipForm
        ToolTipLabel.BringToFront()
        If Right_To_Left = True Then
            If ToolTipLabel.Width >= ToolTipLabel_Title.Width Then
                ToolTipLabel_Title.Left = ToolTipLabel.Width - ToolTipLabel_Title.Width
            Else
                ToolTipLabel.Left = ToolTipLabel_Title.Width - ToolTipLabel.Width
            End If
        End If
       
        AroundLabel.BackColor = ToolTipLabel.BackColor
        AroundLabel.AutoSize = False
        AroundLabel.Text = " "
        If ToolTipLabel.Width >= ToolTipLabel_Title.Width Then
            AroundLabel.Width = ToolTipLabel.Width + 2
        Else
            AroundLabel.Width = ToolTipLabel_Title.Width + 2
        End If
        AroundLabel.Height = ToolTipLabel.Height + ToolTipLabel_Title.Height + 8
        AroundLabel.Left = 0 : AroundLabel.Top = 0
        AroundLabel.BorderStyle = BorderStyle.FixedSingle
        AroundLabel.Parent = ToolTipForm
        ToolTipForm.FormBorderStyle = FormBorderStyle.None
        ToolTipForm.BackColor = ToolTipLabel.BackColor
        ToolTipForm.ShowInTaskbar = False
        ToolTipForm.StartPosition = FormStartPosition.CenterScreen
        ToolTipForm.TopMost = True
        ToolTipForm.Visible = True
        ToolTipForm.Width = AroundLabel.Width
        ToolTipForm.Height = AroundLabel.Height
        ToolTipForm.Anchor = AnchorStyles.Bottom
        ToolTipForm.Left = Cursor.Position.X
        Dim H As Integer = 0
        If CurrentControl.Parent.FindForm.Top = CurrentControl.Parent.Top Then
            H = CurrentControl.Parent.Top + CurrentControl.Top - ToolTipForm.Height - 2
        Else
            H = CurrentControl.Parent.FindForm.Top + CurrentControl.Parent.Top + CurrentControl.Top - ToolTipForm.Height - 2
        End If
        Select Case CurrentControl.Parent.FindForm.FormBorderStyle
            Case FormBorderStyle.None
                H = H
            Case FormBorderStyle.Sizable
                H = H + 30
            Case FormBorderStyle.FixedSingle
                H = H + 28
            Case FormBorderStyle.Fixed3D
                H = H + 32
            Case FormBorderStyle.FixedDialog
                H = H + 28
            Case FormBorderStyle.FixedToolWindow
                H = H + 20
            Case FormBorderStyle.SizableToolWindow
                H = H + 22
        End Select
        ToolTipForm.Top = H
    End Sub
    Private Sub CurrentControl_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs)
        ToolTipForm.Visible = False
        t = False
        'My.Application.DoEvents()
    End Sub
    Private Sub Timer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If Timer.Interval = 1 Then Exit Sub
        If t = True Then
            ToolTipForm.Visible = False
            Timer.Enabled = False
        End If
        t = True
    End Sub
    Public Sub SetToolTip(ByRef Control As Control, ByRef Text As String)
        If Len(Trim(Text)) = 0 Then Exit Sub
        SavedToolTip.SetToolTip(Control, Text)
    End Sub
    Public Function GetToolTip(ByRef Control As Control) As String
        GetToolTip = Nothing
        GetToolTip = SavedToolTip.GetToolTip(Control)
    End Function
End Module

---

یک قطعه کد جالب برای کد گذاری رو فایلها، که بوسیله اون میتونید فایل رو طوری تغییر بدبن که فقط توسط برنامه شما قابل خواندن و نوشتن باشه.
اصل کد مربوط به ورژنهای پایینتر بود که با بازنویسی و تغییرات لازم ، اونو برای وی بی 2005 هم قابل استفاده کردم.

کد:

---

Imports System.IO
Imports System.Security.Cryptography
Imports System.Text
Module Code_a_File
    Private Sub EncryptFile(ByVal sPassword As String, _
                                ByVal sOldFilePath As String, _
                                ByVal sNewFilePath As String)
        Try
            Dim oOldFileStream As New FileStream(sOldFilePath, FileMode.Open)
            Dim oNewFileStream As New FileStream(sNewFilePath, FileMode.Create)
            Dim oRijndaelManaged As New RijndaelManaged
            Dim sKey As Byte() = (New UnicodeEncoding).GetBytes(sPassword.PadRight(8, "*"))
            Dim oCryptoStream As New CryptoStream(oNewFileStream, _
                    oRijndaelManaged.CreateEncryptor(sKey, sKey), CryptoStreamMode.Write)
            Dim data As Integer
            While True
                data = oOldFileStream.ReadByte()
                If data = -1 Then Exit While
                oCryptoStream.WriteByte(CByte(data))
            End While
            oOldFileStream.Close()
            oCryptoStream.Close()
            oNewFileStream.Close()
        Catch
        End Try
        'MsgBox("Done")
    End Sub
    Private Sub DecryptFile(ByVal sPassword As String, _
                            ByVal sOldFilePath As String, _
                            ByVal sNewFilePath As String)
        Try
            Dim sKey As Byte() = (New UnicodeEncoding).GetBytes(sPassword.PadRight(8, "*"))
            Dim oOldFileStream As New FileStream(sOldFilePath, FileMode.Open)
            Dim oNewFileStream As New FileStream(sNewFilePath, FileMode.Create)
            Dim oRijndaelManaged As New RijndaelManaged
            Dim oCryptoStream As New CryptoStream(oOldFileStream, _
                oRijndaelManaged.CreateDecryptor(sKey, sKey), CryptoStreamMode.Read)
            Dim data As Integer
            While True
                data = oCryptoStream.ReadByte()
                If data = -1 Then Exit While
                oNewFileStream.WriteByte(CByte(data))
            End While
            oNewFileStream.Close()
            oCryptoStream.Close()
            oOldFileStream.Close()
        Catch
        End Try
        'MsgBox("Done")
    End Sub
End Module

---

module برای تاریخ شمسی با قابلیت تاریخ به حروف و عدد. این رو هم خودم نوشتم.

کد:

---

Module ShamsiDate
    Public Function WeekDayName() As String
        WeekDayName = ""
        If Date.Today.DayOfWeek = DayOfWeek.Friday Then WeekDayName = "جمعه"
        If Date.Today.DayOfWeek = DayOfWeek.Saturday Then WeekDayName = "شنبه"
        If Date.Today.DayOfWeek = DayOfWeek.Sunday Then WeekDayName = "یکشنبه"
        If Date.Today.DayOfWeek = DayOfWeek.Monday Then WeekDayName = "دوشنبه"
        If Date.Today.DayOfWeek = DayOfWeek.Tuesday Then WeekDayName = "سه شنبه"
        If Date.Today.DayOfWeek = DayOfWeek.Wednesday Then WeekDayName = "چهارشنبه"
        If Date.Today.DayOfWeek = DayOfWeek.Thursday Then WeekDayName = "پنج شنبه"
    End Function
    Public Function DayOfMonth() As Integer
        DayOfMonth = 0
        Select Case Date.Today.Month
            Case 1 'January = 31 Day
                If Date.Today.Day <= 20 Then DayOfMonth = Date.Today.Day + 10
                If Date.Today.Day > 20 Then DayOfMonth = Date.Today.Day - 20
                Exit Function
            Case 2 'February = 28 or 29 Day
                If Date.Today.Day <= 19 Then DayOfMonth = Date.Today.Day + 11
                If Date.Today.Day > 19 Then DayOfMonth = Date.Today.Day - 19
                Exit Function
            Case 3 'March = 31 Day
                Dim DD As Integer
                DD = 9
                If Date.IsLeapYear(Date.Today.Year) = True Then DD = 10
                If Date.Today.Day <= 20 Then DayOfMonth = Date.Today.Day + DD
                If Date.Today.Day > 20 Then DayOfMonth = Date.Today.Day - 20
                Exit Function
            Case 4 'April = 30 Day
                If Date.Today.Day <= 20 Then DayOfMonth = Date.Today.Day + 11
                If Date.Today.Day > 20 Then DayOfMonth = Date.Today.Day - 20
                Exit Function
            Case 5 'May = 31 Day
                If Date.Today.Day <= 21 Then DayOfMonth = Date.Today.Day + 10
                If Date.Today.Day > 21 Then DayOfMonth = Date.Today.Day - 21
                Exit Function
            Case 6 'June = 30 Day
                If Date.Today.Day <= 21 Then DayOfMonth = Date.Today.Day + 10
                If Date.Today.Day > 21 Then DayOfMonth = Date.Today.Day - 21
                Exit Function
            Case 7 'July = 31 Day
                If Date.Today.Day <= 22 Then DayOfMonth = Date.Today.Day + 9
                If Date.Today.Day > 22 Then DayOfMonth = Date.Today.Day - 22
                Exit Function
            Case 8 'August = 31 Day
                If Date.Today.Day <= 22 Then DayOfMonth = Date.Today.Day + 9
                If Date.Today.Day > 22 Then DayOfMonth = Date.Today.Day - 22
                Exit Function
            Case 9 'September = 30 Day
                If Date.Today.Day <= 22 Then DayOfMonth = Date.Today.Day + 9
                If Date.Today.Day > 22 Then DayOfMonth = Date.Today.Day - 22
                Exit Function
                Exit Function
            Case 10 'October = 31 Day
                If Date.Today.Day <= 22 Then DayOfMonth = Date.Today.Day + 8
                If Date.Today.Day > 22 Then DayOfMonth = Date.Today.Day - 22
                Exit Function
            Case 11 'November = 30 Day
                If Date.Today.Day <= 21 Then DayOfMonth = Date.Today.Day + 9
                If Date.Today.Day > 21 Then DayOfMonth = Date.Today.Day - 21
                Exit Function
            Case 12 'December = 31 Day
                If Date.Today.Day <= 21 Then DayOfMonth = Date.Today.Day + 9
                If Date.Today.Day > 21 Then DayOfMonth = Date.Today.Day - 21
                Exit Function
        End Select
    End Function
    Public Function MonthName() As String
        MonthName = ""
        Select Case Date.Today.Month
            Case 1 'January = 31 Day
                If Date.Today.Day <= 20 Then MonthName = "دی"
                If Date.Today.Day > 20 Then MonthName = "بهمن"
                Exit Function
            Case 2 'February = 28 or 29 Day
                If Date.Today.Day <= 19 Then MonthName = "بهمن"
                If Date.Today.Day > 19 Then MonthName = "اسفند"
                Exit Function
            Case 3 'March = 31 Day
                If Date.Today.Day <= 20 Then MonthName = "اسفند"
                If Date.Today.Day > 20 Then MonthName = "فروردین"
                Exit Function
            Case 4 'April = 30 Day
                If Date.Today.Day <= 20 Then MonthName = "فروردین"
                If Date.Today.Day > 20 Then MonthName = "اردیبهشت"
                Exit Function
            Case 5 'May = 31 Day
                If Date.Today.Day <= 21 Then MonthName = "اردیبهشت"
                If Date.Today.Day > 21 Then MonthName = "خرداد"
                Exit Function
            Case 6 'June = 30 Day
                If Date.Today.Day <= 21 Then MonthName = "خرداد"
                If Date.Today.Day > 21 Then MonthName = "تیر"
                Exit Function
            Case 7 'July = 31 Day
                If Date.Today.Day <= 22 Then MonthName = "تیر"
                If Date.Today.Day > 22 Then MonthName = "مرداد"
                Exit Function
            Case 8 'August = 31 Day
                If Date.Today.Day <= 22 Then MonthName = "مرداد"
                If Date.Today.Day > 22 Then MonthName = "شهریور"
                Exit Function
            Case 9 'September = 30 Day
                If Date.Today.Day <= 22 Then MonthName = "شهریور"
                If Date.Today.Day > 22 Then MonthName = "مهر"
                Exit Function
                Exit Function
            Case 10 'October = 31 Day
                If Date.Today.Day <= 22 Then MonthName = "مهر"
                If Date.Today.Day > 22 Then MonthName = "آبان"
                Exit Function
            Case 11 'November = 30 Day
                If Date.Today.Day <= 21 Then MonthName = "آبان"
                If Date.Today.Day > 21 Then MonthName = "آذر"
                Exit Function
            Case 12 'December = 31 Day
                If Date.Today.Day <= 21 Then MonthName = "آذر"
                If Date.Today.Day > 21 Then MonthName = "دی"
                Exit Function
        End Select
    End Function
    Public Function Year() As Integer
        If Date.Today.DayOfYear <= 79 Or Date.Today.DayOfYear > 286 Then
            Year = Date.Today.Year - 622
        Else
            Year = Date.Today.Year - 621
        End If
    End Function
    Public Function MonthNumber() As Integer
        MonthNumber = 0
        Select Case Date.Today.Month
            Case 1 'January = 31 Day
                If Date.Today.Day <= 20 Then MonthNumber = 10
                If Date.Today.Day > 20 Then MonthNumber = 11
                Exit Function
            Case 2 'February = 28 or 29 Day
                If Date.Today.Day <= 19 Then MonthNumber = 11
                If Date.Today.Day > 19 Then MonthNumber = 12
                Exit Function
            Case 3 'March = 31 Day
                If Date.Today.Day <= 20 Then MonthNumber = 12
                If Date.Today.Day > 20 Then MonthNumber = 1
                Exit Function
            Case 4 'April = 30 Day
                If Date.Today.Day <= 20 Then MonthNumber = 1
                If Date.Today.Day > 20 Then MonthNumber = 2
                Exit Function
            Case 5 'May = 31 Day
                If Date.Today.Day <= 21 Then MonthNumber = 2
                If Date.Today.Day > 21 Then MonthNumber = 3
                Exit Function
            Case 6 'June = 30 Day
                If Date.Today.Day <= 21 Then MonthNumber = 3
                If Date.Today.Day > 21 Then MonthNumber = 4
                Exit Function
            Case 7 'July = 31 Day
                If Date.Today.Day <= 22 Then MonthNumber = 4
                If Date.Today.Day > 22 Then MonthNumber = 5
                Exit Function
            Case 8 'August = 31 Day
                If Date.Today.Day <= 22 Then MonthNumber = 5
                If Date.Today.Day > 22 Then MonthNumber = 6
                Exit Function
            Case 9 'September = 30 Day
                If Date.Today.Day <= 22 Then MonthNumber = 6
                If Date.Today.Day > 22 Then MonthNumber = 7
                Exit Function
                Exit Function
            Case 10 'October = 31 Day
                If Date.Today.Day <= 22 Then MonthNumber = 7
                If Date.Today.Day > 22 Then MonthNumber = 8
                Exit Function
            Case 11 'November = 30 Day
                If Date.Today.Day <= 21 Then MonthNumber = 8
                If Date.Today.Day > 21 Then MonthNumber = 9
                Exit Function
            Case 12 'December = 31 Day
                If Date.Today.Day <= 21 Then MonthNumber = 9
                If Date.Today.Day > 21 Then MonthNumber = 10
                Exit Function
        End Select
    End Function
    Public Function Today() As String
        Today = ""
        Today = Year() & "/" & MonthNumber() & "/" & DayOfMonth()
    End Function
End Module

---

یک کلاس Power Off ویندوز با چندین قابلیت جالب. علاوه بر کارکردهای معمولی، میشه از اون به عنوان سر به سر گذاشتن کاربران هم استفاده کرد :46: ( البته توصیه نمیکنم )

کد:

---

Public Class Win_ShutDown
    Public Enum shutdownTypes
        Logoff = 0
        Shutdown = 1
        Reboot = 2
        Force = 4
        PowerOff = 8
    End Enum
    Private Structure LUID
        Dim UsedPart As Integer
        Dim IgnoredForNowHigh32BitPart As Integer
    End Structure
    Private Structure TOKEN_PRIVILEGES
        Dim PrivilegeCount As Integer
        Dim TheLuid As luID
        Dim Attributes As Integer
    End Structure
    Private Declare Function ExitWindowsEx Lib "user32" (ByVal shutdownType As Integer, ByVal dwReserved As _
        Integer) As Integer
    Private Declare Auto Function InitiateSystemShutdownEx Lib "Advapi32.dll" (ByVal lpMachineName As _
        String, ByVal lpMessage As String, ByVal dwTimeout As Integer, ByVal bForceAppsClosed As Boolean, _
            ByVal bRebootAfterShutdown As Boolean, ByVal dwReason As shutdownReason) As Boolean
    Public Enum shutdownReason
        SHTDN_REASON_MAJOR_APPLICATION = &H40000 'Application issue.
        SHTDN_REASON_MAJOR_HARDWARE = &H10000 'Hardware issue.
        SHTDN_REASON_MAJOR_LEGACY_API = &H70000 'The InitiateSystemShutdown function was used instead of InitiateSystemShutdownEx.
        SHTDN_REASON_MAJOR_OPERATINGSYSTEM = &H20000 'Operating system issue.
        SHTDN_REASON_MAJOR_OTHER = &H0    ' Other issue.
        SHTDN_REASON_MAJOR_POWER = &H60000 'Power failure.
        SHTDN_REASON_MAJOR_SOFTWARE = &H30000 'Software issue.
        SHTDN_REASON_MAJOR_SYSTEM = &H50000 'System failure
    End Enum
    Public Enum shutdownMethodToExecute
        ExitWindowsExAPI = 1
        ProcessShellMethod = 2
    End Enum
    Private Declare Auto Function AbortSystemShutdown Lib "Advapi32.dll" (ByVal lpMachineName As String) _
        As Boolean
    Private Declare Function OpenProcessToken Lib "advapi32" (ByVal ProcessHandle As IntPtr, ByVal _
        DesiredAccess As Integer, ByRef TokenHandle As Integer) As Integer
    Private Declare Function LookupPrivilegeValue Lib "advapi32" Alias "LookupPrivilegeValueA" (ByVal _
        lpSystemName As String, ByVal lpName As String, ByRef lpLuid As LUID) As Integer
    Private Declare Function AdjustTokenPrivileges Lib "advapi32" (ByVal TokenHandle As Integer, ByVal _
        DisableAllPrivileges As Boolean, ByRef NewState As TOKEN_PRIVILEGES, ByVal BufferLength As _
            Integer, ByRef PreviousState As TOKEN_PRIVILEGES, ByRef ReturnLength As Integer) As Integer
    Private Declare Function SHShutDownDialog Lib "shell32" Alias "#60" (ByVal notSureYet As Integer) As Integer
    Private Sub AdjustToken()
        Const TOKEN_ADJUST_PRIVILEGES As Int32 = &H20
        Const TOKEN_QUERY As Int32 = &H8
        Const SE_PRIVILEGE_ENABLED As Int32 = &H2
        Dim hdlProcessHandle As IntPtr
        Dim hdlTokenHandle As Int32
        Dim tmpLuid As LUID
        Dim tkp As TOKEN_PRIVILEGES
        Dim tkpNewButIgnored As TOKEN_PRIVILEGES
        Dim lBufferNeeded As Int32
        hdlProcessHandle = Process.GetCurrentProcess.Handle
        OpenProcessToken(hdlProcessHandle, (TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY), hdlTokenHandle)
        LookupPrivilegeValue("", "SeShutdownPrivilege", tmpLuid)
        tkp.PrivilegeCount = 1  'One privilege to set
        tkp.TheLuid = tmpLuid
        tkp.Attributes = SE_PRIVILEGE_ENABLED
        AdjustTokenPrivileges(hdlTokenHandle, False, tkp, Len(tkpNewButIgnored), tkpNewButIgnored, _
            lBufferNeeded)
    End Sub
    Public Function shutdownWindowsOS(ByVal shutdownType As shutdownTypes, Optional ByVal executeShutdownMethod As _
        shutdownMethodToExecute = shutdownMethodToExecute.ExitWindowsExAPI) As Integer
        Select Case executeShutdownMethod
            Case shutdownMethodToExecute.ExitWindowsExAPI
                AdjustToken()
                Return ExitWindowsEx(shutdownType, Nothing)
            Case Else
                If shutdownType = shutdownTypes.Shutdown Then
                    Process.Start("shutdown -s -f -t 0")
                    'Shell("shutdown -s -f -t 0", , False, 0)
                End If
                If shutdownType = shutdownTypes.Reboot Then
                    'Shell("shutdown -r -f -t 0", , False, 0)
                    Process.Start("shutdown -r -f -t 0")
                End If
                If shutdownType = shutdownTypes.Logoff Then
                    'Shell("shutdown -l -f -t 0", , False, 0)
                    Process.Start("shutdown -l -f -t 0")
                End If
        End Select
    End Function
    Public Function initiateSystemShutdownDialog(Optional ByVal computerName As String = "", Optional ByVal _
        shutdownMessage As String = "Computer needs to Shutdown", Optional ByVal shutdownTimeoutBySeconds _
            As Integer = 10, Optional ByVal forceShutdown As Boolean = False, Optional ByVal _
                rebootAfterShutdown As Boolean = True, Optional ByVal shutdownReason As shutdownReason = _
                    shutdownReason.SHTDN_REASON_MAJOR_APPLICATION) As Boolean
        AdjustToken()
        Return InitiateSystemShutdownEx(computerName, shutdownMessage, shutdownTimeoutBySeconds, _
            forceShutdown, rebootAfterShutdown, shutdownReason)
    End Function
    Public Function cancelInitiatedShutdownDialog(Optional ByVal computerName As String = "") As Boolean
        Return AbortSystemShutdown(computerName)
    End Function
    Public Function openTurnOffComputerDialog() As Integer
        Return SHShutDownDialog(0)
    End Function
End Class

---

بوسیله این Dll به راحتی تمامی فرمتهای موزیک در وی بی، قابل پخش خواهد بود.

[html]http://rapidshare.com/files/48354393/Music_Library.dll.html[/html]

برای این کار کافیست کد زیر رو در هر جایی از کد ادیتور که میخواهید بنویسید ( البته خارج از روال ها ) :

کد:

---

Private _closeClick AsBoolean

PublicConst SC_CLOSE AsInteger = 61536

PublicConst WM_SYSCOMMAND AsInteger = 274

ProtectedOverloadsOverridesSub WndProc(ByRef m As Message)
If m.Msg = WM_SYSCOMMAND AndAlso m.WParam.ToInt32 = SC_CLOSE Then

ExitSub

Else

Me._closeClick = True

EndIf

MyBase.WndProc(m)
EndSub

---

کد:

---

Dim

output AsString = ""

Dim msg AsString

Dim I AsInteger

Dim myEventLog AsNew EventLog
myEventLog.Log = "system"

I = myEventLog.Entries.Count - 1

While I >= 0
If myEventLog.Entries.Item(I).Source = "RemoteAccess"Then

msg = myEventLog.Entries.Item(I).Message

If InStr(msg, "successfully established") Then

output =

"You last connected to the network on: "

output &= myEventLog.Entries.Item(I).TimeWritten
msg = Mid(msg, InStr(msg,

"connection to") + 14)
msg = Microsoft.VisualBasic.Left(msg, InStr(msg, "using") - 2)
output &= vbNewLine & "The name of the connection used was: " & msg
ExitWhile

EndIf

EndIf

I -= 1

EndWhile

MsgBox(output)

EndSub

---

سلام
کارتان خوب است و نمی خواهم الکی ایراد بگیرم ولی در چند مورد زیاد جالب نبود!

نقل قول:

---

برای شروع، یک Module در مورد تول تیپ با قابلیت راست به چپ قرار میدم.

---

وقتی خود دات نت راست به چپش و با آیکون و بدون آیکون و... را پشتیبانی میکند چه نیازی به کد فوق است!

نقل قول:

---

module برای تاریخ شمسی با قابلیت تاریخ به حروف و عدد

---

بدون شک اشتباه تبدیل میکند!
اصلاً من یک فتوی شرعی-برنامه نویسی میدهم! هر وقت کد تبدیل تاریخ دیدی که به کرات از اعداد 20 و 21 و22 استفاده کرده بود، مطمئن باشید که ایراد دارد. :31:
حداقل از PersianCalendar استفاده میکردید.

انشا ا... تداوم یابد، میبخشید که مجدداً فضولی کردم، موفق باشید!

نقل قول:

---

نوشته شده توسط _H2_ [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام
کارتان خوب است و نمی خواهم الکی ایراد بگیرم ولی در چند مورد زیاد جالب نبود!

---

بسیار خوشحال میشم ار انتقادات شما. ولی بهتره خودتون هم آستین بالا بزنید و ما رو از دانش خود بهره مند سازید.

نقل قول:

---

وقتی خود دات نت راست به چپش و با آیکون و بدون آیکون و... را پشتیبانی میکند چه نیازی به کد فوق است!

---

اصلا چنین چیزی وجود ندارد. علیرغم قدرت بالای تول تیپ در دات نت، متاسفانه امکانات RTL در اون تعبیه نشده است.

نقل قول:

---

بدون شک اشتباه تبدیل میکند!
اصلاً من یک فتوی شرعی-برنامه نویسی میدهم! هر وقت کد تبدیل تاریخ دیدی که به کرات از اعداد 20 و 21 و22 استفاده کرده بود، مطمئن باشید که ایراد دارد. :31:
حداقل از PersianCalendar استفاده میکردید.

---

در این مورد شاید حق با شما باشد. ولی آیا راه دیگری به ذهنتان میرسد؟ در ضمن PersianCalendar بسیار کامل است و موقعی که من Module مربوطه رو می نوشتم از وجود چنین چیزی باخبر نبودم :11:

نقل قول:

---

انشا ا... تداوم یابد، میبخشید که مجدداً فضولی کردم، موفق باشید!

---

بدون همکاری دوستان ، شاید نتونم ادامه بدم!