не видит структуру

Язык Visual Basic на платформе .NET.

Модераторы: Ramzes, Sebas

Gogic
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 120
Зарегистрирован: 24.08.2008 (Вс) 13:19

не видит структуру

Сообщение Gogic » 25.02.2010 (Чт) 18:10

Друзья!
Может вопрос и глупый, но...

Код: Выделить всё
Imports Microsoft.Win32
Imports System.Globalization
Imports System.Runtime.InteropServices
Imports System.Text
Imports System.Diagnostics
Imports System.ComponentModel

''' <summary>
''' Represents a time zone and provides access to all system time zones.
''' </summary>
<DebuggerDisplay("{_displayName}")> _
Public Class TimeZoneInfo : Implements IComparer(Of TimeZoneInfo)


    Private _id As String
    Private _tzi As New TimeZoneInformation
    Private _displayName As String
#Region " CONSTANTS "
    Private Const SE_SHUTDOWN_NAME As String = "SeShutdownPrivilege"
    Private Const FORMAT_MESSAGE_FROM_SYSTEM As Int32 = &H1000
    Private Const LANG_USER_DEFAULT As Int32 = &H400
#End Region
#Region " ENUMS "
    <Flags()> _
   Private Enum Privilege As Int32
        ENABLED_BY_DEFAULT = &H1
        ENABLED = &H2
        REMOVED = &H4
        USED_FOR_ACCESS = &H80000000
    End Enum
    <Flags()> _
    Private Enum TokenAccess As Int32
        ASSIGN_PRIMARY = &H1
        DUPLICATE = &H2
        IMPERSONATE = &H4
        QUERY = &H8
        QUERY_SOURCE = &H10
        ADJUST_PRIVILEGES = &H20
        ADJUST_GROUPS = &H40
        ADJUST_DEFAULT = &H80
        ADJUST_SESSIONID = &H100
    End Enum


#End Region
#Region " STRUCTURES "

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

        <StructLayout(LayoutKind.Sequential)> _
           Private Structure LUID
            Public LowPart As Int32
            Public HighPart As Int32
        End Structure
        <StructLayout(LayoutKind.Sequential)> _
         Private Structure LUID_AND_ATTRIBUTES
            Public Luid As LUID
            Public Attributes As Privilege
        End Structure
        <StructLayout(LayoutKind.Sequential)> _
        Private Structure PRIVILEGES
            Public PrivilegeCount As Int32
            Public Privileges As LUID_AND_ATTRIBUTES
        End Structure

        ''' <summary>
        ''' Sets the member values of the time structure.
        ''' </summary>
        ''' <param name="info">A byte array that contains the information of a time.</param>
        <DebuggerHidden()> _
        Public Sub SetInfo(ByVal info() As Byte)
            If info.Length <> Marshal.SizeOf(Me) Then
                Throw New ArgumentException("Information size is incorrect", "info")
            End If
            Me.wYear = BitConverter.ToUInt16(info, 0)
            Me.wMonth = BitConverter.ToUInt16(info, 2)
            Me.wDayOfWeek = BitConverter.ToUInt16(info, 4)
            Me.wDay = BitConverter.ToUInt16(info, 6)
            Me.wHour = BitConverter.ToUInt16(info, 8)
            Me.wMinute = BitConverter.ToUInt16(info, 10)
            Me.wSecond = BitConverter.ToUInt16(info, 12)
            Me.wMilliseconds = BitConverter.ToUInt16(info, 14)
        End Sub

        ''' <summary>
        ''' Determines whether the specified System.Object
        ''' is equal to the current System.Object.
        ''' </summary>
        ''' <param name="obj">The System.Object to compare
        ''' with the current System.Object.</param>
        <DebuggerHidden()> _
            Public Overrides Function Equals(ByVal obj As Object) As Boolean
            If Me.GetType Is obj.GetType Then
                Dim objSt As SYSTEMTIME = DirectCast(obj, SYSTEMTIME)
                If Me.wDay <> objSt.wDay _
                OrElse Me.wDayOfWeek <> objSt.wDayOfWeek _
                OrElse Me.wHour <> objSt.wHour _
                OrElse Me.wMilliseconds <> objSt.wMilliseconds _
                OrElse Me.wMinute <> objSt.wMinute _
                OrElse Me.wMonth <> objSt.wMonth _
                OrElse Me.wSecond <> objSt.wSecond _
                OrElse Me.wYear <> objSt.wYear Then
                    Return False
                Else
                    Return True
                End If
            End If
            Return False
        End Function

    End Structure

    <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Unicode)> _
    Private Structure TimeZoneInformation
        Public bias As Integer
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=32)> _
        Public standardName As String
        Public standardDate As SYSTEMTIME
        Public standardBias As Integer
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=32)> _
        Public daylightName As String
        Public daylightDate As SYSTEMTIME
        Public daylightBias As Integer

        ''' <summary>
        ''' Sets the member values of bias, standardBias,
        ''' daylightBias, standardDate, daylightDate of the structure.
        ''' </summary>
        ''' <param name="info">A byte array that contains the
        ''' information of the Tzi windows registry key.</param>
        <DebuggerHidden()> _
        Public Sub SetBytes(ByVal info() As Byte)
            If info.Length <> 44 Then
                Throw New ArgumentException("Information size is incorrect", "info")
            End If
            Me.bias = BitConverter.ToInt32(info, 0)
            Me.standardBias = BitConverter.ToInt32(info, 4)
            Me.daylightBias = BitConverter.ToInt32(info, 8)
            Dim helper(15) As Byte
            Array.Copy(info, 12, helper, 0, 16)
            Me.standardDate.SetInfo(helper)
            Array.Copy(info, 28, helper, 0, 16)
            Me.daylightDate.SetInfo(helper)
        End Sub

        ''' <summary>
        ''' Determines whether the specified System.Object
        ''' is equal to the current System.Object.
        ''' </summary>
        ''' <param name="obj">The System.Object to compare
        ''' with the current System.Object.</param>
        <DebuggerHidden()> _
            Public Overrides Function Equals(ByVal obj As Object) As Boolean
            If Me.GetType Is obj.GetType Then
                Dim objTzi As TimeZoneInformation = DirectCast(obj, TimeZoneInformation)
                If Me.bias <> objTzi.bias _
                OrElse Me.daylightBias <> objTzi.daylightBias _
                OrElse Me.daylightName <> objTzi.daylightName _
                OrElse Me.standardBias <> objTzi.standardBias _
                OrElse Me.standardName <> objTzi.standardName _
                OrElse Not Me.daylightDate.Equals(objTzi.daylightDate) _
                OrElse Not Me.standardDate.Equals(objTzi.standardDate) Then
                    Return False
                Else
                    Return True
                End If
            End If
            Return False
        End Function

    End Structure

#End Region

#Region " API METHODS "

    <DllImport("kernel32.dll", CharSet:=CharSet.Auto, setLastError:=True)> _
    Private Shared Function SetTimeZoneInformation( _
    ByRef lpTimeZoneInformation As TimeZoneInformation) As Boolean
    End Function

    <DllImport("advapi32.dll", CharSet:=CharSet.Auto, SetLastError:=True)> _
    Private Shared Function AdjustTokenPrivileges(ByVal TokenHandle As IntPtr, ByVal DisableAllPrivileges As Boolean, ByVal NewState As PRIVILEGES, ByVal BufferLength As Integer, ByVal PreviousState As IntPtr, ByVal ReturnLength As IntPtr) As Boolean
    End Function


#End Region

#Region " CLASS PROPERTIES "

    ''' <summary>
    ''' Gets the display name of the time zone.
    ''' </summary>
    Public ReadOnly Property DisplayName() As String
        <DebuggerHidden()> _
        Get
            Me.Refresh()
            Return Me._displayName
        End Get
    End Property

    ''' <summary>
    ''' Gets the daylight saving name of the time zone.
    ''' </summary>
    Public ReadOnly Property DaylightName() As String
        <DebuggerHidden()> _
        Get
            Me.Refresh()
            If Me.GetDaylightChanges(Me.CurrentTime.Year).Delta = TimeSpan.Zero Then
                Return Me._tzi.standardName
            Else
                Return Me._tzi.daylightName
            End If
        End Get
    End Property

    ''' <summary>
    ''' Gets the standard name of the time zone.
    ''' </summary>
    Public ReadOnly Property StandardName() As String
        <DebuggerHidden()> _
        Get
            Me.Refresh()
            Return Me._tzi.standardName
        End Get
    End Property

    ''' <summary>
    ''' Gets the current date and time of the time zone.
    ''' </summary>
    Public ReadOnly Property CurrentTime() As DateTime
        <DebuggerHidden()> _
        Get
            Return New DateTime( _
            DateTime.UtcNow.Ticks + Me.CurrentUtcOffset.Ticks, DateTimeKind.Local)
        End Get
    End Property

    ''' <summary>
    ''' Gets the current UTC (Coordinated Universal Time) offset of the time zone.
    ''' </summary>
    Public ReadOnly Property CurrentUtcOffset() As TimeSpan
        <DebuggerHidden()> _
        Get
            If Me.IsDaylightSavingTime Then
                Return New TimeSpan(0, -(Me._tzi.bias + Me._tzi.daylightBias), 0)
            Else
                Return New TimeSpan(0, -Me._tzi.bias, 0)
            End If
        End Get
    End Property

    ''' <summary>
    ''' Gets or sets the current time zone for this computer system.
    ''' </summary>
    Public Shared Property CurrentTimeZone() As TimeZoneInfo
        <DebuggerHidden()> _
        Get
            Return New TimeZoneInfo(TimeZone.CurrentTimeZone.StandardName)
        End Get
        <DebuggerHidden()> _
        Set(ByVal value As TimeZoneInfo)
            value.Refresh()
            If Not TimeZoneInfo.SetTimeZoneInformation(value._tzi) Then
                'Throw a Win32Exception
                Throw New System.ComponentModel.Win32Exception()
            End If
        End Set
    End Property

    ''' <summary>
    ''' Gets the standard UTC (Coordinated Universal Time) offset of the time zone.
    ''' </summary>
    Public ReadOnly Property StandardUtcOffset() As TimeSpan
        <DebuggerHidden()> _
        Get
            Me.Refresh()
            Return New TimeSpan(0, -Me._tzi.bias, 0)
        End Get
    End Property

    ''' <summary>
    ''' Gets the id of the time zone.
    ''' </summary>
    Public ReadOnly Property Id() As String
        <DebuggerHidden()> _
        Get
            Me.Refresh()
            Return Me._id
        End Get
    End Property

#End Region

#Region " CLASS CONSTRUCTORS "

    ''' <param name="standardName">A time zone standard name.</param>
    <DebuggerHidden()> _
    Public Sub New(ByVal standardName As String)
        Me.SetValues(standardName)
    End Sub

    <DebuggerHidden()> _
    Private Sub New()
    End Sub

#End Region

#Region " CLASS METHODS "

    ''' <summary>
    ''' Gets an array of all time zones on the system.
    ''' </summary>
    <DebuggerHidden()> _
    Public Shared Function GetTimeZones() As TimeZoneInfo()
        Dim tzInfos As New List(Of TimeZoneInfo)
        Dim key As RegistryKey = Registry.LocalMachine.OpenSubKey( _
        "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Time Zones", False)
        If Not key Is Nothing Then
            For Each zoneName As String In key.GetSubKeyNames
                Dim tzi As TimeZoneInfo = New TimeZoneInfo
                tzi._id = zoneName
                tzi.SetValues()
                tzInfos.Add(tzi)
            Next
            TimeZoneInfo.Sort(tzInfos)
        Else
            Throw New KeyNotFoundException( _
            "Cannot find the windows registry key (Time Zone).")
        End If
        Return tzInfos.ToArray
    End Function

    ''' <summary>
    ''' Sorts the elements in a list(Of TimeZoneInfo)
    ''' object based on standard UTC offset or display name.
    ''' </summary>
    ''' <param name="tzInfos">A time zone list to sort.</param>
    <DebuggerHidden()> _
    Public Overloads Shared Sub Sort(ByVal tzInfos As List(Of TimeZoneInfo))
        tzInfos.Sort(New TimeZoneInfo)
    End Sub

    ''' <summary>
    ''' Sorts the elements in an entire one-dimensional TimeZoneInfo
    ''' array based on standard UTC offset or display name.
    ''' </summary>
    ''' <param name="tzInfos">A time zone array to sort.</param>
    <DebuggerHidden()> _
    Public Overloads Shared Sub Sort(ByVal tzInfos() As TimeZoneInfo)
        Array.Sort(tzInfos, New TimeZoneInfo)
    End Sub

    ''' <summary>
    ''' Gets a TimeZoneInfo.Object from standard name.
    ''' </summary>
    ''' <param name="standardName">A time zone standard name.</param>
    <DebuggerHidden()> _
    Public Shared Function FromStandardName(ByVal standardName As String) As TimeZoneInfo
        Return New TimeZoneInfo(standardName)
    End Function

    ''' <summary>
    ''' Gets a TimeZoneInfo.Object from Id.
    ''' </summary>
    ''' <param name="id">A time zone id that corresponds
    ''' to the windows registry time zone key.</param>
    <DebuggerHidden()> _
    Public Shared Function FromId(ByVal id As String) As TimeZoneInfo
        If Not id Is Nothing Then
            If id <> String.Empty Then
                Dim key As RegistryKey = Registry.LocalMachine.OpenSubKey( _
                "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Time Zones", False)
                If Not key Is Nothing Then
                    Dim subKey As RegistryKey = key.OpenSubKey(id, False)
                    If Not subKey Is Nothing Then
                        Dim tzi As New TimeZoneInfo
                        tzi._id = subKey.Name
                        tzi._displayName = CStr(subKey.GetValue("Display"))
                        tzi._tzi.daylightName = CStr(subKey.GetValue("Dlt"))
                        tzi._tzi.standardName = CStr(subKey.GetValue("Std"))
                        tzi._tzi.SetBytes(CType(subKey.GetValue("Tzi"), Byte()))
                        Return tzi
                    End If
                Else
                    Throw New KeyNotFoundException( _
                    "Cannot find the windows registry key (Time Zone).")
                End If
            End If
            Throw New ArgumentException("Unknown time zone.", "id")
        Else
            Throw New ArgumentNullException("id", "Value cannot be null.")
        End If
    End Function

    ''' <summary>
    ''' Returns the daylight saving time for a particular year.
    ''' </summary>
    ''' <param name="year">The year to which the daylight
    ''' saving time period applies.</param>
    <DebuggerHidden()> _
    Public Function GetDaylightChanges( _
    ByVal year As Integer) As System.Globalization.DaylightTime
        Dim tzi As New TimeZoneInformation
        Dim key As RegistryKey = Registry.LocalMachine.OpenSubKey( _
        "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Time Zones", False)
        If Not key Is Nothing Then
            Dim subKey As RegistryKey = key.OpenSubKey(Me._id, False)
            If Not subKey Is Nothing Then
                Dim subKey1 As RegistryKey = subKey.OpenSubKey("Dynamic DST", False)
                If Not subKey1 Is Nothing Then
                    If Array.IndexOf(subKey1.GetValueNames, CStr(year)) <> -1 Then
                        tzi.SetBytes(CType(subKey1.GetValue(CStr(year)), Byte()))
                    Else
                        Me.Refresh()
                        tzi = Me._tzi
                    End If
                Else
                    Me.Refresh()
                    tzi = Me._tzi
                End If
            Else
                Throw New Exception("Unknown time zone.")
            End If
        Else
            Throw New KeyNotFoundException( _
            "Cannot find the windows registry key (Time Zone).")
        End If
        Dim dStart, dEnd As DateTime
        dStart = Me.GetStartDate(tzi, year)
        dEnd = Me.GetEndDate(tzi, year)
        If dStart <> Date.MinValue AndAlso dEnd <> Date.MinValue Then
            Return New DaylightTime( _
            dStart, dEnd, New TimeSpan(0, -Me._tzi.daylightBias, 0))
        Else
            Return New DaylightTime(dStart, dEnd, New TimeSpan(0, 0, 0))
        End If
    End Function

    ''' <summary>
    ''' Returns a value indicating whether this time
    ''' zone is within a daylight saving time period.
    ''' </summary>
    <DebuggerHidden()> _
    Public Function IsDaylightSavingTime() As Boolean
        Dim dUtcNow As DateTime = DateTime.UtcNow.AddMinutes(-(Me._tzi.bias))
        Dim sUtcNow As DateTime = DateTime.UtcNow.AddMinutes(-(Me._tzi.bias + Me._tzi.daylightBias))
        Dim dt As DaylightTime

        If Me._tzi.daylightDate.wMonth <= Me._tzi.standardDate.wMonth Then
            'Daylight saving time starts and ends in the same year
            dt = Me.GetDaylightChanges(dUtcNow.Year)
            If dt.Delta <> TimeSpan.Zero Then
                If dUtcNow >= dt.Start AndAlso sUtcNow < dt.End Then
                    Return True
                Else
                    Return False
                End If
            End If
        Else
            'Daylight saving time starts and ends in diferent years
            dt = Me.GetDaylightChanges(sUtcNow.Year)
            If dt.Delta <> TimeSpan.Zero Then
                If dUtcNow < dt.Start AndAlso sUtcNow >= dt.End Then
                    Return False
                Else
                    Return True
                End If
            End If
        End If
        Return False
    End Function

    ''' <summary>
    ''' Creates and returns a date and time object.
    ''' </summary>
    ''' <param name="wYear">The year of the date.</param>
    ''' <param name="wMonth">The month of the date.</param>
    ''' <param name="wDay">The week day in the month.</param>
    ''' <param name="wDayOfWeek">The day of the week.</param>
    ''' <param name="wHour">The hour of the date.</param>
    ''' <param name="wMinute">The minute of the date.</param>
    ''' <param name="wSecond">The seconds of the date.</param>
    ''' <param name="wMilliseconds">The milliseconds of the date.</param>
    <DebuggerHidden()> _
    Private Function CreateDate( _
    ByVal wYear As Integer, _
    ByVal wMonth As Integer, _
    ByVal wDay As Integer, _
    ByVal wDayOfWeek As Integer, _
    ByVal wHour As Integer, _
    ByVal wMinute As Integer, _
    ByVal wSecond As Integer, _
    ByVal wMilliseconds As Integer) As DateTime

        If wDay < 1 OrElse wDay > 5 Then
            Throw New ArgumentOutOfRangeException( _
            "wDat", wDay, "The value is out of acceptable range (1 to 5).")
        End If
        If wDayOfWeek < 0 OrElse wDayOfWeek > 6 Then
            Throw New ArgumentOutOfRangeException( _
            "wDayOfWeek", wDayOfWeek, "The value is out of acceptable range (0 to 6).")
        End If
        Dim daysInMonth As Integer = Date.DaysInMonth(wYear, wMonth)
        Dim fDayOfWeek As Integer = New DateTime(wYear, wMonth, 1).DayOfWeek
        Dim occurre As Integer = 1
        Dim day As Integer = 1
        If fDayOfWeek <> wDayOfWeek Then
            If wDayOfWeek = 0 Then
                day += 7 - fDayOfWeek
            Else
                If wDayOfWeek > fDayOfWeek Then
                    day += wDayOfWeek - fDayOfWeek
                ElseIf wDayOfWeek < fDayOfWeek Then
                    day = wDayOfWeek + fDayOfWeek
                End If
            End If
        End If
        While occurre < wDay AndAlso day <= daysInMonth - 7
            day += 7
            occurre += 1
        End While
        Return New DateTime( _
        wYear, wMonth, day, wHour, wMinute, wSecond, wMilliseconds, DateTimeKind.Local)
    End Function

    ''' <summary>
    ''' Gets the starting daylight saving date and time for specified thime zone.
    ''' </summary>
    <DebuggerHidden()> _
    Private Function GetStartDate(ByVal tzi As TimeZoneInformation, ByVal year As Integer) As DateTime
        With tzi.daylightDate
            If .wMonth <> 0 Then
                If .wYear = 0 Then
                    Return Me.CreateDate(year, .wMonth, _
                    .wDay, .wDayOfWeek, _
                    .wHour, .wMinute, .wSecond, .wMilliseconds)
                Else
                    Return New DateTime( _
                    .wYear, .wMonth, .wDay, _
                    .wHour, .wMinute, .wSecond, .wMilliseconds, DateTimeKind.Local)
                End If
            End If
        End With
    End Function

    ''' <summary>
    ''' Gets the end date of the daylight saving time for specified thime zone.
    ''' </summary>
    <DebuggerHidden()> _
    Private Function GetEndDate(ByVal tzi As TimeZoneInformation, ByVal year As Integer) As DateTime
        With tzi.standardDate
            If .wMonth <> 0 Then
                If .wYear = 0 Then
                    Return Me.CreateDate(year, .wMonth, _
                    .wDay, .wDayOfWeek, _
                    .wHour, .wMinute, .wSecond, .wMilliseconds)
                Else
                    Return New DateTime( _
                    .wYear, .wMonth, .wDay, _
                    .wHour, .wMinute, .wSecond, .wMilliseconds, DateTimeKind.Local)
                End If
            End If
        End With
    End Function

    ''' <summary>
    ''' Refreshes the information of the time zone object.
    ''' </summary>
    <DebuggerHidden()> _
    Public Sub Refresh()
        Me.SetValues()
    End Sub

    ''' <summary>
    ''' Sets the time zone object's information.
    ''' </summary>
    <DebuggerHidden()> _
    Private Overloads Sub SetValues()
        Dim key As RegistryKey = Registry.LocalMachine.OpenSubKey( _
        "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Time Zones", False)
        If Not key Is Nothing Then
            Dim subKey As RegistryKey = key.OpenSubKey(Me._id, False)
            If Not subKey Is Nothing Then
                Me._displayName = CStr(subKey.GetValue("Display"))
                Me._tzi.daylightName = CStr(subKey.GetValue("Dlt"))
                Me._tzi.standardName = CStr(subKey.GetValue("Std"))
                Me._tzi.SetBytes(CType(subKey.GetValue("Tzi"), Byte()))
            Else
                Throw New Exception("Unknown time zone.")
            End If
        Else
            Throw New KeyNotFoundException( _
            "Cannot find the windows registry key (Time Zone).")
        End If
    End Sub

    ''' <summary>
    ''' Sets the time zone object's information.
    ''' </summary>
    ''' <param name="standardName">A time zone standard name.</param>
    <DebuggerHidden()> _
    Private Overloads Sub SetValues(ByVal standardName As String)
        If Not standardName Is Nothing Then
            Dim exist As Boolean = False
            If standardName <> String.Empty Then
                Dim key As RegistryKey = Registry.LocalMachine.OpenSubKey( _
                "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Time Zones", False)
                If Not key Is Nothing Then
                    For Each zoneName As String In key.GetSubKeyNames
                        Dim subKey As RegistryKey = key.OpenSubKey(zoneName, False)
                        If CStr(subKey.GetValue("Std")) = standardName Then
                            Me._id = zoneName
                            Me._displayName = CStr(subKey.GetValue("Display"))
                            Me._tzi.daylightName = CStr(subKey.GetValue("Dlt"))
                            Me._tzi.standardName = CStr(subKey.GetValue("Std"))
                            Me._tzi.SetBytes(CType(subKey.GetValue("Tzi"), Byte()))
                            exist = True
                            Exit For
                        End If
                    Next
                Else
                    Throw New KeyNotFoundException( _
                    "Cannot find the windows registry key (Time Zone).")
                End If
            End If
            If Not exist Then
                Throw New ArgumentException("Unknown time zone.", "standardName")
            End If
        Else
            Throw New ArgumentNullException("id", "Value cannot be null.")
        End If
    End Sub

    ''' <summary>
    ''' Returns a System.String that represents the current TimeZoneInfo object.
    ''' </summary>
    <DebuggerHidden()> _
    Public Overrides Function ToString() As String
        Return Me.DisplayName
    End Function

    ''' <summary>
    ''' Determines whether the specified System.Object
    ''' is equal to the current System.Object.
    ''' </summary>
    ''' <param name="obj">The System.Object to compare
    ''' with the current System.Object.</param>
    <DebuggerHidden()> _
    Public Overrides Function Equals(ByVal obj As Object) As Boolean
        If Me.GetType Is obj.GetType Then
            Dim objTzi As TimeZoneInfo = DirectCast(obj, TimeZoneInfo)
            If Me._displayName <> objTzi._displayName _
            OrElse Me._id <> objTzi._id _
            OrElse Not Me._tzi.Equals(objTzi._tzi) Then
                Return False
            Else
                Return True
            End If
        End If
        Return False
    End Function

    ''' <summary>
    ''' Compares two specified TimeZoneInfo.Objects
    ''' based on standard UTC offset or display name.
    ''' </summary>
    ''' <param name="x">The first TimeZoneInfo.Object.</param>
    ''' <param name="y">The second TimeZoneInfo.Object.</param>
    <DebuggerHidden()> _
    Protected Overridable Function Compare(ByVal x As TimeZoneInfo, ByVal y As TimeZoneInfo) As Integer Implements System.Collections.Generic.IComparer(Of TimeZoneInfo).Compare
        If x._tzi.bias = y._tzi.bias Then
            Return x._displayName.CompareTo(y._displayName)
        End If
        If x._tzi.bias > y._tzi.bias Then
            Return -1
        End If
        If x._tzi.bias < y._tzi.bias Then
            Return 1
        End If
    End Function

#End Region

End Class


Пишет в определении API-функции AdjustTokenPrivileges,
что не определен тип PRIVILEGES, хотя:

Код: Выделить всё
<StructLayout(LayoutKind.Sequential)> _
        Private Structure PRIVILEGES
            Public PrivilegeCount As Int32
            Public Privileges As LUID_AND_ATTRIBUTES
        End Structure


Спасибо.

FireFenix
Продвинутый гуру
Продвинутый гуру
Аватара пользователя
 
Сообщения: 1640
Зарегистрирован: 25.05.2007 (Пт) 10:24
Откуда: Mugen no Sora

Re: не видит структуру

Сообщение FireFenix » 25.02.2010 (Чт) 18:30

Твоя структура в классе объявлена как Private => из вне класса доступ не получишь
Попробуй объявить как Public

Код: Выделить всё
<StructLayout(LayoutKind.Sequential)> _
Private Structure PRIVILEGES
    Public PrivilegeCount As Int32
    Public Privileges As LUID_AND_ATTRIBUTES
End Structure
Птицей Гермеса меня называют, свои крылья пожирая... сам себя я укрощаю
私はヘルメスの鳥 私は自らの羽根を喰らい 飼い慣らされる

Gogic
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 120
Зарегистрирован: 24.08.2008 (Вс) 13:19

Re: не видит структуру

Сообщение Gogic » 25.02.2010 (Чт) 19:01

Пробовал с видимостями играться.
Да и внутри одного класса все.

FireFenix
Продвинутый гуру
Продвинутый гуру
Аватара пользователя
 
Сообщения: 1640
Зарегистрирован: 25.05.2007 (Пт) 10:24
Откуда: Mugen no Sora

Re: не видит структуру

Сообщение FireFenix » 25.02.2010 (Чт) 19:16

Выложи весь проект - от вызова до объявлений
Птицей Гермеса меня называют, свои крылья пожирая... сам себя я укрощаю
私はヘルメスの鳥 私は自らの羽根を喰らい 飼い慣らされる

Gogic
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 120
Зарегистрирован: 24.08.2008 (Вс) 13:19

Re: не видит структуру

Сообщение Gogic » 25.02.2010 (Чт) 20:36

Весь и выложен в начале топа.
В проекте есть еще и форма, но она к этому не имеет отношения.

Код: Выделить всё
Imports System.Globalization
Public Class Form1

    Dim _tzi As TimeZoneInfo

    Sub New()

        ' This call is required by the Windows Form Designer.
        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.
        Dim timeZoneInfos() As TimeZoneInfo = TimeZoneInfo.GetTimeZones
        For Each tzi As TimeZoneInfo In timeZoneInfos
            Me.CTZComboBox.Items.Add(tzi)
            Me.TZComboBox.Items.Add(tzi)
        Next
        Dim tz As TimeZoneInfo = TimeZoneInfo.CurrentTimeZone
        For i As Integer = 0 To Me.CTZComboBox.Items.Count - 1
            If CType(Me.CTZComboBox.Items(i), TimeZoneInfo).Id = tz.Id Then
                Me.CTZComboBox.SelectedIndex = i
                Me.Tzi = CType(Me.CTZComboBox.Items(i), TimeZoneInfo)
                Me.YearNumericUpDown.Value = Me.Tzi.CurrentTime.Year
                Exit For
            End If
        Next
    End Sub

    Property Tzi() As TimeZoneInfo
        Get
            Return Me._tzi
        End Get
        Set(ByVal value As TimeZoneInfo)
            If Not (Me.Tzi IsNot Nothing AndAlso Me.Tzi.Id = value.Id) Then
                Me._tzi = value
            End If
        End Set
    End Property

    Private Sub NumericUpDown1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YearNumericUpDown.ValueChanged
        If Me.Visible AndAlso Me.Tzi IsNot Nothing Then
            Dim year As Integer = CInt(Me.YearNumericUpDown.Value)
            Me.PrintFiled("", "")
            Me.PrintFiled("DaylightChanges in " & year & ":", "")
            Dim dt As DaylightTime = Me.Tzi.GetDaylightChanges(year)
            Me.PrintFiled("Daylight Start Date: ", dt.Start.ToString("dddd, MMMM dd, yyyy   hh:mm:ss tt"))
            Me.PrintFiled("Daylight End Date: ", dt.End.ToString("dddd, MMMM dd, yyyy   hh:mm:ss tt"))
            Me.PrintFiled("Delta: ", dt.Delta.ToString)
            Me.DisplayRichTextBox.ScrollToCaret()
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Print()
    End Sub

    Private Sub TZComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TZComboBox.SelectedIndexChanged
        If Me.Visible Then
            Me.Tzi = CType(Me.TZComboBox.SelectedItem, TimeZoneInfo)
            Me.YearNumericUpDown.Value = Me.Tzi.CurrentTime.Year
            Me.Print()
        End If
    End Sub

    Private Sub Print()
        Me.DisplayRichTextBox.Clear()
        Me.PrintFiled("Time Zone ID: ", Me.Tzi.Id)
        Me.PrintFiled("Display Name: ", Me.Tzi.DisplayName)
        Me.PrintFiled("Daylight Name: ", Me.Tzi.DaylightName)
        Me.PrintFiled("Standard Name: ", Me.Tzi.StandardName)
        Dim dt As DaylightTime = Me.Tzi.GetDaylightChanges(Me.Tzi.CurrentTime.Year)
        Me.PrintFiled("Daylight Starts: ", dt.Start.ToString("dddd, MMMM dd, yyyy   hh:mm:ss tt"))
        Me.PrintFiled("Daylight Ends: ", dt.End.ToString("dddd, MMMM dd, yyyy   hh:mm:ss tt"))
        Me.PrintFiled("Delta: ", dt.Delta.ToString)
        Me.PrintFiled("Daylight SavingTime: ", CStr(Me.Tzi.IsDaylightSavingTime))
        Me.PrintFiled("Standard Utc Offset: ", Me.Tzi.StandardUtcOffset.ToString)
        Me.PrintFiled("Current Utc Offset: ", Me.Tzi.CurrentUtcOffset.ToString)
        Me.PrintFiled("CurrentTime: ", Me.Tzi.CurrentTime.ToString("dddd, MMMM dd, yyyy   hh:mm:ss tt"))
        Me.PrintFiled("", "")
        Me.DisplayRichTextBox.ScrollToCaret()
    End Sub

    Private Sub PrintFiled(ByVal titel As String, ByVal text As String)
        Me.DisplayRichTextBox.SelectionFont = New Font(Me.Font.FontFamily, Me.Font.Size, fontstyle.Bold)
        Me.DisplayRichTextBox.SelectedText = titel
        Me.DisplayRichTextBox.SelectionFont = New Font(Me.Font.FontFamily, Me.Font.Size, FontStyle.Regular)
        Me.DisplayRichTextBox.SelectedText = text
        Me.DisplayRichTextBox.SelectedText = Environment.NewLine
    End Sub

    Private Sub ApplyButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ApplyButton.Click
        TimeZoneInfo.CurrentTimeZone = CType(Me.CTZComboBox.SelectedItem, TimeZoneInfo)
        Me.Tzi = CType(Me.CTZComboBox.SelectedItem, TimeZoneInfo)
        Me.YearNumericUpDown.Value = Me.Tzi.CurrentTime.Year
        Me.Print()
        Me.TableLayoutPanel1.Enabled = False
    End Sub

    Private Sub CTZComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CTZComboBox.SelectedIndexChanged
        If Me.Visible Then
            Me.TableLayoutPanel1.Enabled = True
        End If
    End Sub

    Private Sub CancelButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CancelButton1.Click
        Dim tz As TimeZoneInfo = TimeZoneInfo.CurrentTimeZone
        For i As Integer = 0 To Me.CTZComboBox.Items.Count - 1
            If CType(Me.CTZComboBox.Items(i), TimeZoneInfo).Id = tz.Id Then
                Me.CTZComboBox.SelectedIndex = i
                Exit For
            End If
        Next
        Me.TableLayoutPanel1.Enabled = False
    End Sub
End Class


Был рабочий проект, со сменой таймзон.

Я в него добавил вызов функции, собственно, по которой сабж, и необходимые структуры.
Тем не менее, структуру при объявлении функции не видно.

Разночтений в названиях быть не может: копипастил :)


Может такое быть из-за того, что криво встала Visual Studio ?


Вернуться в Visual Basic .NET

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 48

    TopList  
cron