初始化

BLV_Studio/UserControl1.vb

@@ -0,0 +1,537 @@
+Public Class UserControl1
+
+    Private Sub RicTxtBlod_btn_Click(sender As Object, e As EventArgs) Handles RicTxtBlod_btn.Click
+       ToolStripLabel1_Click(Nothing ,Nothing )
+        SetRictxtFontStyle(FontStyle.Bold)
+    End Sub
+
+
+    Public Sub SetRictxtFontStyle(flag As FontStyle)
+        Console.WriteLine($"Selectionstop={ProjectDescription_rictxt.SelectedText }")
+        If IsNothing(ProjectDescription_rictxt.SelectionFont) Then Return
+        Dim setval As FontStyle = ProjectDescription_rictxt.SelectionFont.Style
+        Select Case flag
+            Case FontStyle.Italic
+                If Not ProjectDescription_rictxt.SelectionFont.Italic Then
+                    setval = setval Or FontStyle.Italic
+                Else
+                    setval = setval And Not (FontStyle.Italic)
+                End If
+            Case FontStyle.Bold
+                If Not ProjectDescription_rictxt.SelectionFont.Italic Then
+                    setval = setval Or FontStyle.Bold
+                Else
+                    setval = setval And Not (FontStyle.Bold)
+                End If
+            Case FontStyle.Underline
+                If Not ProjectDescription_rictxt.SelectionFont.Underline Then
+                    setval = setval Or FontStyle.Underline
+                Else
+                    setval = setval And Not (FontStyle.Underline)
+                End If
+            Case FontStyle.Strikeout
+                If Not ProjectDescription_rictxt.SelectionFont.Strikeout Then
+                    setval = setval Or FontStyle.Strikeout
+                Else
+                    setval = setval And Not (FontStyle.Strikeout)
+                End If
+        End Select
+        Console.WriteLine($"setval={setval }")
+        ProjectDescription_rictxt.SelectionFont = New System.Drawing.Font(ProjectDescription_rictxt.SelectionFont.FontFamily, ProjectDescription_rictxt.SelectionFont.Size, setval) '//设置选中文本的字体
+
+    End Sub
+
+    Private Sub RicrTxtItalic_btn_Click(sender As Object, e As EventArgs) Handles RicrTxtItalic_btn.Click
+         ToolStripLabel1_Click(Nothing ,Nothing )
+        SetRictxtFontStyle(FontStyle.Italic)
+    End Sub
+
+    Private Sub RicTxtUnderline_btn_Click(sender As Object, e As EventArgs) Handles RicTxtUnderline_btn.Click
+        ToolStripLabel1_Click(Nothing ,Nothing )
+        SetRictxtFontStyle(FontStyle.Underline）
+    End Sub
+
+    Private Sub RicTxtStrikeout_btn_Click(sender As Object, e As EventArgs) Handles RicTxtStrikeout_btn.Click
+         ToolStripLabel1_Click(Nothing ,Nothing )
+        SetRictxtFontStyle(FontStyle.Strikeout）
+    End Sub
+
+    Private Sub ToolStripButton5_Click(sender As Object, e As EventArgs) Handles ToolStripButton5.Click
+        '对齐  ProjectDescription_rictxt.SelectionAlignment = HorizontalAlignment.
+        Dim Start As Integer = ProjectDescription_rictxt.SelectionStart
+        'ProjectDescription_rictxt.Select (,) 
+        Console.WriteLine($"SelectionStart={Start}")
+    End Sub
+
+    Private Sub ProjectDescription_rictxt_SelectionChanged(sender As Object, e As EventArgs) Handles ProjectDescription_rictxt.SelectionChanged
+
+    End Sub
+
+    Private Sub RicTxtSetcolor_btn_DropDownOpening(sender As Object, e As EventArgs) Handles RicTxtSetcolor_btn.DropDownOpening
+        ColorCelect1.Visible = False
+        ColorCelect1.Visible = True
+        ColorCelect1.Location = New Point(235, 28)
+        ColorCelect1.Tag = RicTxtSetcolor_btn
+        'RicTxtSetcolor_btn.ButtonBounds .Left 
+    End Sub
+
+    Private Sub RicTxtSetcolor_btn_ButtonClick(sender As Object, e As EventArgs) Handles RicTxtSetcolor_btn.ButtonClick
+        ProjectDescription_rictxt.SelectionColor = RicTxtSetcolor_btn.ForeColor
+    End Sub
+
+    Private Sub RicTxtSetcolor_btn_DropDownClosed(sender As Object, e As EventArgs) Handles RicTxtSetcolor_btn.DropDownClosed
+        RicTxtSetcolor_btn.ForeColor = ColorCelect1.SelectColor.BackColor
+        ColorCelect1.Visible = False
+    End Sub
+
+    Private Sub ToolStripSplitButton1_DropDownOpening(sender As Object, e As EventArgs) Handles ToolStripSplitButton1.DropDownOpening
+        ColorCelect1.Visible = False
+        ColorCelect1.Visible = True
+        ColorCelect1.Location = New Point(280, 28)
+        ColorCelect1.Tag = ToolStripSplitButton1
+    End Sub
+
+    Private Sub ToolStripSplitButton1_DropDownClosed(sender As Object, e As EventArgs) Handles ToolStripSplitButton1.DropDownClosed
+        ToolStripSplitButton1.ForeColor = ColorCelect1.SelectColor.BackColor
+        ColorCelect1.Visible = False
+    End Sub
+
+    Private Sub ToolStripSplitButton1_ButtonClick(sender As Object, e As EventArgs) Handles ToolStripSplitButton1.ButtonClick
+        ProjectDescription_rictxt.SelectionBackColor = ToolStripSplitButton1.ForeColor
+    End Sub
+
+    Private Sub ToolStripButton7_Click(sender As Object, e As EventArgs) Handles ToolStripButton7.Click
+       ToolStripLabel1_Click(Nothing ,Nothing )
+        'Dim link As New link_frm
+        'If IsNothing(ProjectDescription_rictxt.SelectionLength) OrElse ProjectDescription_rictxt.SelectionLength < 1 Then
+
+        'Else
+        '    link.TextBox1.Text = ProjectDescription_rictxt.SelectedText
+        'End If
+        'If link.ShowDialog = DialogResult.OK Then
+        '    If IsNothing(ProjectDescription_rictxt.SelectionLength) Then
+
+        '    Else
+        '        ' ProjectDescription_rictxt.a
+        '    End If
+        'End If
+    End Sub
+
+    Private Sub ToolStripButton8_Click(sender As Object, e As EventArgs) Handles ToolStripButton8.Click
+         ToolStripLabel1_Click(Nothing ,Nothing )
+        '        '获得要复制图片的完整路径
+        '     string picPath = Application.StartupPath + "\\accept.png";
+        Dim filename As String = ""
+        Dim filepath As String = ""
+        Using openFileDialog As New OpenFileDialog
+            Dim tmpInitDir As String = Application.StartupPath
+            openFileDialog.InitialDirectory = tmpInitDir
+            openFileDialog.RestoreDirectory = True
+            openFileDialog.Title = "打开文件"
+            openFileDialog.Filter = $"配置文件(*.png)|*.png"
+
+
+            If openFileDialog.ShowDialog() = DialogResult.OK Then
+                filename = openFileDialog.SafeFileName
+                filepath = openFileDialog.FileName
+                Dim myImage As New Bitmap(filepath)
+                Dim data = New DataObject()
+                data.SetData(myImage)
+                Clipboard.SetDataObject(data, False)
+                'ProjectDescription_rictxt.SelectionStart = ProjectDescription_rictxt.Text.Length
+
+                ProjectDescription_rictxt.Paste()
+
+            End If
+        End Using
+
+    End Sub
+
+    Private Sub ToolStripSplitButton3_ButtonClick(sender As Object, e As EventArgs) Handles ToolStripSplitButton3.ButtonClick
+       ToolStripLabel1_Click(Nothing ,Nothing )
+        Dim tssb As ToolStripSplitButton = sender
+        Select Case tssb.Tag
+            Case 0
+                ProjectDescription_rictxt.SelectionAlignment = HorizontalAlignment.Left
+            Case 1
+                ProjectDescription_rictxt.SelectionAlignment = HorizontalAlignment.Right
+            Case 2
+                ProjectDescription_rictxt.SelectionAlignment = HorizontalAlignment.Right
+        End Select
+
+
+    End Sub
+
+    Private Sub ToolStripMenuItem5_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem6.Click, ToolStripMenuItem5.Click, ToolStripMenuItem2.Click
+        Dim tmi As ToolStripMenuItem = sender
+        ToolStripSplitButton3.Tag = tmi.Tag
+        ToolStripSplitButton3.DropDown.Close()
+    End Sub
+
+    Private Sub ToolStripComboBox1_DropDownClosed(sender As Object, e As EventArgs) Handles ToolStripComboBox1.DropDownClosed
+        Dim txtsize As Integer = 9
+        Select Case ToolStripComboBox1.SelectedIndex
+            Case 0
+                txtsize = 18
+            Case 1
+                txtsize = 16
+            Case 2
+                txtsize = 14
+            Case 3
+                txtsize = 12
+            Case 4
+                txtsize = 10
+        End Select
+
+        'Dim start As Integer = ProjectDescription_rictxt.SelectionStart
+        'Dim ricstop As Integer = start + ProjectDescription_rictxt.SelectionLength - 1
+        Dim index As Integer = 0
+        For Each rowstr In ProjectDescription_rictxt.Lines
+
+
+            If start > (index + rowstr.Length) Then
+                Console.WriteLine($"NOT行:1")
+
+            Else
+
+
+                If ricstop < (index) Then
+                Else
+
+                    ProjectDescription_rictxt.Select（index, rowstr.Length）
+                    Console.WriteLine($"index={index}, rowstr.Length={ rowstr.Length}")
+                    ProjectDescription_rictxt.SelectionFont = New Font(ProjectDescription_rictxt.Font.Name, txtsize)
+                End If
+
+            End If
+            index = index + rowstr.Length + 1
+
+
+
+
+        Next
+
+
+
+    End Sub
+    Public start As Integer = 0
+    Public ricstop As Integer = 0
+
+    Private Sub ToolStripComboBox1_Click(sender As Object, e As EventArgs) Handles ToolStripComboBox1.Click
+        ToolStripLabel1_Click(Nothing ,Nothing )
+        start = ProjectDescription_rictxt.SelectionStart
+        ricstop = start + ProjectDescription_rictxt.SelectionLength - 1
+        Console.WriteLine($"start:{start},stop:{ricstop }")
+    End Sub
+
+    Private Sub ToolStripComboBox1_DropDown(sender As Object, e As EventArgs) Handles ToolStripComboBox1.DropDown
+        start = ProjectDescription_rictxt.SelectionStart
+        ricstop = start + ProjectDescription_rictxt.SelectionLength - 1
+        Console.WriteLine($"start:{start},stop:{ricstop }")
+    End Sub
+
+
+
+    Private Sub Panel8_MouseClick(sender As Object, e As MouseEventArgs) Handles Panel8.MouseClick
+
+        'If ColorCelect1.Jflag AndAlso ColorCelect1.LFlag Then
+            ColorCelect1.Visible = False
+            ColorCelect1.Jflag=False 
+            ColorCelect1.LFlag=False 
+        'End If
+
+    End Sub
+
+    Private Sub ColorCelect1_VisibleChanged(sender As Object, e As EventArgs) Handles ColorCelect1.VisibleChanged
+        Dim tssb As ToolStripSplitButton = ColorCelect1.Tag
+        If IsNothing (tssb) Then Return 
+        tssb.ForeColor = ColorCelect1.SelectColor.BackColor
+
+    End Sub
+
+    Private Sub ProjectDescription_rictxt_MouseClick(sender As Object, e As MouseEventArgs) Handles ProjectDescription_rictxt.MouseClick
+         ' If ColorCelect1.Jflag AndAlso ColorCelect1.LFlag Then
+            ColorCelect1.Visible = False
+            ColorCelect1.Jflag=False 
+            ColorCelect1.LFlag=False 
+       ' End If
+    End Sub
+
+    Private Sub ToolStripLabel1_Click(sender As Object, e As EventArgs) Handles ToolStripLabel1.Click
+        'If ColorCelect1.Jflag AndAlso ColorCelect1.LFlag Then
+            ColorCelect1.Visible = False
+            ColorCelect1.Jflag=False 
+            ColorCelect1.LFlag=False 
+        'End If
+    End Sub
+
+    Private Sub ToolStripSplitButton3_DropDownOpening(sender As Object, e As EventArgs) Handles ToolStripSplitButton3.DropDownOpening
+        ColorCelect1.Visible = False
+            ColorCelect1.Jflag=False 
+            ColorCelect1.LFlag=False
+    End Sub
+
+
+
+    '    #Region "RicTxt字体处理"
+    '    Private Sub RicTxtBlod_btn_Click(sender As Object, e As EventArgs) Handles RicTxtBlod_btn.Click
+    '        '首先找到要查找字符串的起始位置
+    '        SetRictxtFontStyle(FontStyle.Bold)
+
+    '    End Sub
+
+    '    Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) Handles RicrTxtItalic_btn.Click
+    '        SetRictxtFontStyle(FontStyle.Italic)
+    '    End Sub
+
+    '    Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles RicTxtUnderline_btn.Click
+    '        SetRictxtFontStyle(FontStyle.Underline)
+    '    End Sub
+    '    Private Sub RicTxtStrikeout_btn_Click(sender As Object, e As EventArgs) Handles RicTxtStrikeout_btn.Click
+    '        SetRictxtFontStyle(FontStyle.Strikeout)
+    '    End Sub
+    '    Public Sub SetRictxtFontStyle(flag As FontStyle)
+    '        Dim setval As FontStyle = FontStyle.Regular
+    '        Select Case flag
+    '            Case FontStyle.Italic
+    '                If Not ProjectDescription_rictxt.SelectionFont.Italic Then setval = FontStyle.Italic
+    '            Case FontStyle.Bold
+    '                If Not ProjectDescription_rictxt.SelectionFont.Italic Then setval = FontStyle.Bold
+    '            Case FontStyle.Underline
+    '                If Not ProjectDescription_rictxt.SelectionFont.Italic Then setval = FontStyle.Underline
+    '            Case FontStyle.Strikeout
+    '                If Not ProjectDescription_rictxt.SelectionFont.Italic Then setval = FontStyle.Strikeout
+    '        End Select
+
+    '        ProjectDescription_rictxt.SelectionFont = New System.Drawing.Font(ProjectDescription_rictxt.SelectionFont.FontFamily, ProjectDescription_rictxt.SelectionFont.Size, setval) '//设置选中文本的字体
+
+    '    End Sub
+
+    '    Private Sub Addlabel_btn_Click(sender As Object, e As EventArgs) Handles Addlabel_btn.Click
+    '        Dim UcreateFrm As New UCreatelabel
+    '        If UcreateFrm.ShowDialog = DialogResult.OK Then
+    '            Dim lab As Label = UserCreateLabel(UcreateFrm.txt, UcreateFrm.txtcolor, Color.LightGray, Addlabel_btn.Location.X, Addlabel_btn.Location.Y, 12, Addlabel_btn.Height)
+    '            ricLabel_Grb.Controls.Add(lab)
+    '            ricLabelGrb_li.Insert(ricLabelGrb_li.Count - 2, lab)
+    '        End If
+    '        arrangementLabel()
+
+
+
+
+
+    '        'If Addlabel_btn.Location.X + lab.Width + Addlabel_btn.Width > ricLabel_Grb.Width Then
+    '        '    Addlabel_btn.Location = New Point(0 + 3, Addlabel_btn.Location.Y + 1 + Addlabel_btn.Height)
+    '        'Else
+    '        '    Addlabel_btn.Location = New Point(lab.Location.X + lab.Width + 3, Addlabel_btn.Location.Y)
+    '        'End If
+
+    '        'End If
+
+
+    '    End Sub
+
+    '    Public Sub arrangementLabel()
+    '        Dim x As Integer = 2             '上一个开始位置
+    '        Dim y As Integer = 0
+    '        For i As Integer = 0 To ricLabelGrb_li.Count - 1
+    '            Dim index As Control = ricLabelGrb_li.Item(i)
+    '            If i < ricLabelGrb_li.Count - 2 Then
+
+    '                If x + index.Width > ricLabel_Grb.Width Then
+    '                    y = y + index.Height + 1
+    '                    x = 2
+    '                    index.Location = New Point(2, y)
+    '                    x = 2 + index.Width + x
+
+    '                Else
+    '                    index.Location = New Point(x, y)
+    '                    x = 2 + index.Width + x
+    '                End If
+    '            Else
+    '                Dim index2 As Control = ricLabelGrb_li.Item(i + 1)
+    '                If x + 160 > ricLabel_Grb.Width Then
+    '                    y = y + index.Height + 1
+    '                    x = 2
+    '                    Console.WriteLine($"h:")
+    '                    index.Location = New Point(2, y)
+    '                    x = 2 + index.Width + x
+
+    '                    index2.Location = New Point(x, y)
+    '                Else
+    '                    index.Location = New Point(x, y)
+    '                    x = 2 + index.Width + x
+    '                    index2.Location = New Point(x, y)
+    '                End If
+    '                Exit Sub
+    '            End If
+
+
+    '        Next
+    '    End Sub
+
+
+    '    Public Function UserCreateLabel(txt As String, textcolor As Color, bar As Color, x As Integer, y As Integer, Optional txtsize As Integer = 12, Optional h As Integer = 0, Optional w As Integer = 0) As Label
+    '        Dim lab As New Label
+    '        lab.Text = txt
+    '        lab.ForeColor = textcolor
+    '        lab.BackColor = bar
+    '        lab.TextAlign = ContentAlignment.MiddleCenter
+    '        lab.Font = New Font(lab.Font.Name, txtsize)
+    '        lab.Location = New Point(x, y)
+    '        If h > 1 OrElse w > 1 Then
+    '            lab.AutoSize = True
+    '            lab.Height = h
+    '            lab.Width = w
+    '        End If
+    '        Return lab
+
+    '    End Function
+
+    '    Private Sub dellabel_btn_Click(sender As Object, e As EventArgs) Handles dellabel_btn.Click
+
+
+    '        If ricLabelGrb_li.Count > 2 Then
+    '            Dim index As Control = ricLabelGrb_li.Item(ricLabelGrb_li.Count - 3)
+    '            ricLabelGrb_li.RemoveAt(ricLabelGrb_li.Count - 3)
+    '            ricLabel_Grb.Controls.Remove(index)
+
+    '        Else
+    '            Return
+    '        End If
+
+
+    '        arrangementLabel()
+    '    End Sub
+
+    '    Private Sub TabControl1_Click(sender As Object, e As EventArgs) Handles TabControl1.Click
+    '        Select Case TabControl1.TabIndex
+    '            Case 1
+    '            Case 2
+    '            Case 3
+    '            Case 4
+    '            Case 5
+    '                initPojerManger()
+    '        End Select
+    '    End Sub
+    '    Public Sub initPojerManger()
+    '        PUserHolte_lab.Text = $"当前酒店：{_project.HotelName}"
+    '        PUserVar_lab.Text = $"当前版本：{Application.ProductVersion }"
+    '        PUserName_lab.Text = $"用户名：{Account}"
+    '        PUserLimits_lab.Text = $"用户权限：{1}"
+    '        PUserSection_lab.Text = $"所属部门：暂无"
+    '        PUserPojerNum_lab.Text = $"用户项目数量：{10}"
+    '        PUserPojerNum_lab.Text = $"团队成员数量：{20}"
+    '    End Sub
+    '    Public DbConnString2 As String = "Server=blv-cloud-db.mysql.rds.aliyuncs.com;Port=3307;Database=engineering_db;Uid=blv_rcu;Pwd=fnadiaJDIJ7546;charset=utf8;"
+
+    '    Private Sub AddMember_btn_Click(sender As Object, e As EventArgs) Handles AddMember_btn.Click
+    '        Dim addmem As New AddMember_frm
+    '        addmem.AddUsercmb = GetRoonConfigHistoryVersion("tbl_engineerning_teammembers", "", DbConnString2)
+
+    '        'addmem.Limitscmb = GetRoonConfigHistoryVersion(tabname, "",DbConnString2)
+    '        'addmem.Pojercmb = GetRoonConfigHistoryVersion(tabname, "",DbConnString2)
+
+    '    End Sub
+
+    '    Private Sub ToolStripButton5_Click(sender As Object, e As EventArgs)
+
+    '    End Sub
+
+    '    Private Sub ToolStripButton5_Click_1(sender As Object, e As EventArgs) Handles ToolStripButton5.Click
+    '        Dim Start As Integer = ProjectDescription_rictxt.SelectionStart
+    '        Console.WriteLine($"SelectionStart={Start}")
+    '    End Sub
+
+    '    Private Sub ToolStripButton8_Click(sender As Object, e As EventArgs) Handles ToolStripButton8.Click
+    '        Dim filename As String = ""
+    '        Dim filepath As String = ""
+    '        Using openFileDialog As New OpenFileDialog
+    '            Dim tmpInitDir As String = Application.StartupPath
+    '            openFileDialog.InitialDirectory = tmpInitDir
+    '            openFileDialog.RestoreDirectory = True
+    '            openFileDialog.Title = "打开文件"
+    '            openFileDialog.Filter = $"配置文件(*.png)|*.png"
+
+
+    '            If openFileDialog.ShowDialog() = DialogResult.OK Then
+    '                filename = openFileDialog.SafeFileName
+    '                filepath = openFileDialog.FileName
+    '                Dim myImage As New Bitmap(filepath)
+    '                Dim data = New DataObject()
+    '                data.SetData(myImage)
+    '                Clipboard.SetDataObject(data, False)
+    '                'ProjectDescription_rictxt.SelectionStart = ProjectDescription_rictxt.Text.Length
+
+    '                ProjectDescription_rictxt.Paste()
+
+    '            End If
+
+
+
+    '        End Using
+    '    End Sub
+
+    '    Private Sub ToolStripComboBox1_DropDownClosed(sender As Object, e As EventArgs) Handles ToolStripComboBox1.DropDownClosed
+    '        Dim txtsize As Integer = 9
+    '        Select Case ToolStripComboBox1.SelectedIndex
+    '            Case 0
+    '                txtsize = 18
+    '            Case 1
+    '                txtsize = 16
+    '            Case 2
+    '                txtsize = 14
+    '            Case 3
+    '                txtsize = 12
+    '            Case 4
+    '                txtsize = 10
+    '        End Select
+
+    '        'Dim start As Integer = ProjectDescription_rictxt.SelectionStart
+    '        'Dim ricstop As Integer = start + ProjectDescription_rictxt.SelectionLength - 1
+    '        Dim index As Integer = 0
+    '        Console.WriteLine($"start:{start},stop:{ricstop }")
+
+    '        For Each rowstr In ProjectDescription_rictxt.Lines
+
+    '            index = index + rowstr.Length
+    '            Console.WriteLine($"index + rowstr.Length:{index + rowstr.Length},index:{index }")
+    '            If start > (index + rowstr.Length) OrElse ricstop < (index) Then
+    '                Continue For
+    '            Else
+    '                ProjectDescription_rictxt.Select（index, rowstr.Length）
+    '                ProjectDescription_rictxt.SelectionFont = New Font(ProjectDescription_rictxt.Font.Name, txtsize)
+    '            End If
+
+
+
+    '        Next
+
+
+
+
+    '    End Sub
+    '    Public start As Integer = 0
+    '    Public ricstop As Integer = 0
+    '    Private Sub ToolStripComboBox1_DropDown(sender As Object, e As EventArgs) Handles ToolStripComboBox1.DropDown
+    '        start = ProjectDescription_rictxt.SelectionStart
+    '        ricstop = start + ProjectDescription_rictxt.SelectionLength - 1
+    '        Console.WriteLine($"start:{start},stop:{ricstop }")
+    '    End Sub
+
+
+
+
+
+
+
+
+
+
+
+
+
+    '#End Region
+
+
+End Class