Imports System
Imports System.ComponentModel
Imports System.Drawing
Imports System.Drawing.Design
Imports System.Runtime.InteropServices
Imports System.Data.SqlClient
Imports System.Windows.Controls.Primitives


Public Class usr_SQLComboBox
    Inherits ComboBox

    'Закрытые поля
    Private Property ControlClicks As Integer = 0
    Private _Query As String = ""
    Private plug As New ContextMenu()

    'Открытые поля
    Public Property QueryLines As String()
    <Editor("System.ComponentModel.Design.MultilineStringEditor, System.Design", GetType(UITypeEditor))> _
    <Localizable(True)> _
    Public Property Query As String
        Get
            If QueryLines.Count > 0 Then
                Return Join(QueryLines, vbNewLine)
            Else
                Return _Query
            End If
        End Get
        Set(value As String)
            QueryLines = Split(value, vbNewLine)
            _Query = value
        End Set
    End Property
    Public Property QueryType As CommandType
    Public Property UseMainConnection As Boolean

    'Конструкторы
    Sub New()
        QueryType = CommandType.Text
        Query = "SELECT 0 AS ID, '' AS Value"
        'ControlClicks = 0
        ValueMember = "ID"
        DisplayMember = "Value"
    End Sub

    'Внешние функции
    Public Declare Auto Function GetWindow Lib "User32.dll" (ByVal hwnd As IntPtr, ByVal nIndex As Integer) As Integer
    Public Declare Auto Function GetClassName Lib "User32.dll" (ByVal hwnd As IntPtr, <Out()> ByVal lpClassName As System.Text.StringBuilder, ByVal nMaxCount As Integer) As Integer
    Public Declare Auto Function LockWindowUpdate Lib "User32.dll" (ByVal hwndLock As IntPtr) As Long
    Public Declare Auto Function GetLastActivePopup Lib "User32.dll" (ByVal hWnd As IntPtr) As IntPtr
    Public Declare Auto Function CloseWindow Lib "User32.dll" (ByVal hWnd As IntPtr) As Boolean
    Public Declare Auto Function ShowOwnedPopups Lib "User32.dll" (ByVal hWnd As IntPtr, ByVal fShow As Boolean) As Boolean

    'Функции
    Public Function FindEditChild(ByVal hWnd As IntPtr) As Long
        Const GW_CHILD = 5
        Const GW_HWNDNEXT = 2
        Dim child_hwnd As Long = 0

        child_hwnd = GetWindow(hWnd, GW_CHILD)
        Do While child_hwnd <> 0
            If GetWindowClassName(child_hwnd) = "Edit" Then
                Return child_hwnd
            End If

            child_hwnd = GetWindow(child_hwnd, GW_HWNDNEXT)
        Loop

        Return 0
    End Function
    Public Function GetWindowClassName(hWnd As IntPtr) As String
        Dim buffer As New System.Text.StringBuilder(128)
        GetClassName(hWnd, buffer, buffer.Capacity)

        Return buffer.ToString
    End Function

    'Методы
    Protected Overrides Sub OnDropDown(e As EventArgs)
        If String.IsNullOrEmpty(Query) Then GoTo _BaseSub
        Using cn As New SqlConnection("Data Source=gormskdias3.gorod.int; Initial Catalog=work; Trusted_connection=true;")
            Try
                cn.Open()
                Dim da = New SqlDataAdapter(Query, cn)

                Dim ds = New DataSet()
                da.Fill(ds, "TBL")

                If ds.Tables("TBL").Rows.Count > 0 AndAlso ds.Tables("TBL").Columns.Contains(Me.DisplayMember) Then

                    Me.DataSource = ds.Tables("TBL")
                    'Me.DisplayMember = "TBL"

                End If

            Catch ex As Exception
                MsgBox(ex.Message)
                Return
            End Try
        End Using
_BaseSub:
        MyBase.OnDropDown(e)

    End Sub
    Protected Overrides Sub OnMouseDown(e As MouseEventArgs)
        If ModifierKeys = Keys.Control Then
            Me.ContextMenu = plug

            If e.Button = Windows.Forms.MouseButtons.Right Then
                ControlClicks += 1
            Else
                ControlClicks = 0
            End If

            If ControlClicks > 1 Then
                ControlClicks = 0
                'MsgBox("clicks")
                SqlPropertyChanger.ShowPropertyDialog(Me)
                OnMouseUp(New MouseEventArgs(Windows.Forms.MouseButtons.Right, 1, 0, 0, 0))
            End If

        ElseIf ControlClicks > 0 Then
            ControlClicks = 0
        End If

        MyBase.OnMouseDown(e)
    End Sub
    Protected Overrides Sub OnMouseUp(e As MouseEventArgs)
        If Not Me.ContextMenu Is Nothing AndAlso Me.ContextMenu.Equals(plug) Then Me.ContextMenu = Nothing
        MyBase.OnMouseUp(e)
    End Sub

    Protected Overrides Sub WndProc(ByRef m As Message)
        ' If m.Msg = WM_RBUTTONDOWN Then
        ' Dim childEdit = FindEditChild(m.HWnd)
        ' LockWindowUpdate(childEdit)
        ' MyBase.WndProc(m)
        ' LockWindowUpdate(0&)
        ' Dim frm As New Form()
        '  Dim lst As New ListBox()
        '  lst.Items.AddRange(LogLst.ToArray)
        '  frm.Controls.Add(lst)
        '  lst.Dock = DockStyle.Fill
        '  frm.Text = Guid.NewGuid.ToString()
        '  frm.ShowDialog()
        '  frm.Dispose()
        ' Else
        MyBase.WndProc(m)
        ' End If

_Base:
        'MyBase.WndProc(m)
    End Sub


    Private Class SqlPropertyChanger
        Inherits Form

        Private Owner As usr_SQLComboBox = Nothing
        <System.Diagnostics.DebuggerStepThrough()> _
        Private Sub InitializeComponent()
            fld_SqlText = New System.Windows.Forms.RichTextBox()
            btn_OK = New System.Windows.Forms.Button()
            btn_Cancel = New System.Windows.Forms.Button()
            Me.SuspendLayout()
            '
            'fld_SqlText
            '
            fld_SqlText.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                Or System.Windows.Forms.AnchorStyles.Left) _
                Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
            fld_SqlText.Location = New System.Drawing.Point(2, 2)
            fld_SqlText.Name = "RichTextBox1"
            fld_SqlText.Size = New System.Drawing.Size(330, 179)
            fld_SqlText.TabIndex = 0
            fld_SqlText.Text = ""
            '
            'btn_OK
            '
            btn_OK.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
            btn_OK.DialogResult = Windows.Forms.DialogResult.OK
            btn_OK.Location = New System.Drawing.Point(176, 187)
            btn_OK.Name = "btn_OK"
            btn_OK.Size = New System.Drawing.Size(75, 23)
            btn_OK.TabIndex = 1
            btn_OK.Text = "OK"
            btn_OK.UseVisualStyleBackColor = True
            '
            'btn_Cancel
            '
            btn_Cancel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
            btn_Cancel.DialogResult = Windows.Forms.DialogResult.Cancel
            btn_Cancel.Location = New System.Drawing.Point(257, 187)
            btn_Cancel.Name = "Button2"
            btn_Cancel.Size = New System.Drawing.Size(75, 23)
            btn_Cancel.TabIndex = 2
            btn_Cancel.Text = "Cancel"
            btn_Cancel.UseVisualStyleBackColor = True
            '
            'Form
            '
            Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
            Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
            Me.ClientSize = New System.Drawing.Size(334, 212)
            Me.AcceptButton = btn_OK
            Me.CancelButton = btn_Cancel
            Me.Controls.Add(btn_Cancel)
            Me.Controls.Add(btn_OK)
            Me.Controls.Add(fld_SqlText)
            Me.Name = "frm_SqlProperty"
            Me.Text = "Свойства модуля данных"
            Me.ResumeLayout(False)
        End Sub      

        Sub New()
            InitializeComponent()
        End Sub

        Private Sub LoadSqlText()
            fld_SqlText.Text = Owner.Query
        End Sub

        Private Sub SaveSqlText() Handles btn_OK.Click
            Owner.Query = fld_SqlText.Text
        End Sub


        Shared Function ShowPropertyDialog(ByVal owner As usr_SQLComboBox) As DialogResult
            Dim obj As New SqlPropertyChanger()
            obj.Owner = owner
            obj.LoadSqlText()
            'obj.InitializeComponent()
            Return obj.ShowDialog()
        End Function

        Friend WithEvents fld_SqlText As System.Windows.Forms.RichTextBox
        Friend WithEvents btn_OK As System.Windows.Forms.Button
        Friend WithEvents btn_Cancel As System.Windows.Forms.Button
    End Class

End Class