vb_net.txt

支持自定义语法高亮显示的编辑器控件

        Me.stbDateTime.Name = "stbDateTime"
        Me.stbDateTime.RightToLeft = CType(resources.GetObject("stbDateTime.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.stbDateTime.Size = CType(resources.GetObject("stbDateTime.Size"), System.Drawing.Size)
        Me.stbDateTime.TabIndex = CType(resources.GetObject("stbDateTime.TabIndex"), Integer)
        Me.stbDateTime.Text = resources.GetString("stbDateTime.Text")
        Me.stbDateTime.Visible = CType(resources.GetObject("stbDateTime.Visible"), Boolean)
        '
        'Button1
        '
        Me.Button1.AccessibleDescription = CType(resources.GetObject("Button1.AccessibleDescription"), String)
        Me.Button1.AccessibleName = CType(resources.GetObject("Button1.AccessibleName"), String)
        Me.Button1.Anchor = CType(resources.GetObject("Button1.Anchor"), System.Windows.Forms.AnchorStyles)
        Me.Button1.BackgroundImage = CType(resources.GetObject("Button1.BackgroundImage"), System.Drawing.Image)
        Me.Button1.Cursor = CType(resources.GetObject("Button1.Cursor"), System.Windows.Forms.Cursor)
        Me.Button1.Dock = CType(resources.GetObject("Button1.Dock"), System.Windows.Forms.DockStyle)
        Me.Button1.Enabled = CType(resources.GetObject("Button1.Enabled"), Boolean)
        Me.Button1.FlatStyle = CType(resources.GetObject("Button1.FlatStyle"), System.Windows.Forms.FlatStyle)
        Me.Button1.Font = CType(resources.GetObject("Button1.Font"), System.Drawing.Font)
        Me.Button1.Image = CType(resources.GetObject("Button1.Image"), System.Drawing.Image)
        Me.Button1.ImageAlign = CType(resources.GetObject("Button1.ImageAlign"), System.Drawing.ContentAlignment)
        Me.Button1.ImageIndex = CType(resources.GetObject("Button1.ImageIndex"), Integer)
        Me.Button1.ImeMode = CType(resources.GetObject("Button1.ImeMode"), System.Windows.Forms.ImeMode)
        Me.Button1.Location = CType(resources.GetObject("Button1.Location"), System.Drawing.Point)
        Me.Button1.Name = "Button1"
        Me.Button1.RightToLeft = CType(resources.GetObject("Button1.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.Button1.Size = CType(resources.GetObject("Button1.Size"), System.Drawing.Size)
        Me.Button1.TabIndex = CType(resources.GetObject("Button1.TabIndex"), Integer)
        Me.Button1.Text = resources.GetString("Button1.Text")
        Me.Button1.TextAlign = CType(resources.GetObject("Button1.TextAlign"), System.Drawing.ContentAlignment)
        Me.Button1.Visible = CType(resources.GetObject("Button1.Visible"), Boolean)
        '
        'MainMenu1
        '
        Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuFile})
        Me.MainMenu1.RightToLeft = CType(resources.GetObject("MainMenu1.RightToLeft"), System.Windows.Forms.RightToLeft)
        '
        'mnuFile
        '
        Me.mnuFile.Enabled = CType(resources.GetObject("mnuFile.Enabled"), Boolean)
        Me.mnuFile.Index = 0
        Me.mnuFile.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuExit})
        Me.mnuFile.Shortcut = CType(resources.GetObject("mnuFile.Shortcut"), System.Windows.Forms.Shortcut)
        Me.mnuFile.ShowShortcut = CType(resources.GetObject("mnuFile.ShowShortcut"), Boolean)
        Me.mnuFile.Text = resources.GetString("mnuFile.Text")
        Me.mnuFile.Visible = CType(resources.GetObject("mnuFile.Visible"), Boolean)
        '
        'mnuExit
        '
        Me.mnuExit.Enabled = CType(resources.GetObject("mnuExit.Enabled"), Boolean)
        Me.mnuExit.Index = 0
        Me.mnuExit.Shortcut = CType(resources.GetObject("mnuExit.Shortcut"), System.Windows.Forms.Shortcut)
        Me.mnuExit.ShowShortcut = CType(resources.GetObject("mnuExit.ShowShortcut"), Boolean)
        Me.mnuExit.Text = resources.GetString("mnuExit.Text")
        Me.mnuExit.Visible = CType(resources.GetObject("mnuExit.Visible"), Boolean)
        '
        'Form1
        '
        Me.AccessibleDescription = CType(resources.GetObject("$this.AccessibleDescription"), String)
        Me.AccessibleName = CType(resources.GetObject("$this.AccessibleName"), String)
        Me.Anchor = CType(resources.GetObject("$this.Anchor"), System.Windows.Forms.AnchorStyles)
        Me.AutoScaleBaseSize = CType(resources.GetObject("$this.AutoScaleBaseSize"), System.Drawing.Size)
        Me.AutoScroll = CType(resources.GetObject("$this.AutoScroll"), Boolean)
        Me.AutoScrollMargin = CType(resources.GetObject("$this.AutoScrollMargin"), System.Drawing.Size)
        Me.AutoScrollMinSize = CType(resources.GetObject("$this.AutoScrollMinSize"), System.Drawing.Size)
        Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image)
        Me.ClientSize = CType(resources.GetObject("$this.ClientSize"), System.Drawing.Size)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button1, Me.stbDateTime, Me.cmbUICulture, Me.lblCulture, Me.lblUICulture})
        Me.Cursor = CType(resources.GetObject("$this.Cursor"), System.Windows.Forms.Cursor)
        Me.Dock = CType(resources.GetObject("$this.Dock"), System.Windows.Forms.DockStyle)
        Me.Enabled = CType(resources.GetObject("$this.Enabled"), Boolean)
        Me.Font = CType(resources.GetObject("$this.Font"), System.Drawing.Font)
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.ImeMode = CType(resources.GetObject("$this.ImeMode"), System.Windows.Forms.ImeMode)
        Me.Location = CType(resources.GetObject("$this.Location"), System.Drawing.Point)
        Me.MaximumSize = CType(resources.GetObject("$this.MaximumSize"), System.Drawing.Size)
        Me.Menu = Me.MainMenu1
        Me.MinimumSize = CType(resources.GetObject("$this.MinimumSize"), System.Drawing.Size)
        Me.Name = "Form1"
        Me.RightToLeft = CType(resources.GetObject("$this.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.StartPosition = CType(resources.GetObject("$this.StartPosition"), System.Windows.Forms.FormStartPosition)
        Me.Text = resources.GetString("$this.Text")
        Me.Visible = CType(resources.GetObject("$this.Visible"), Boolean)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuExit.Click
        WriteRegistryKey() 'Save the user's preferred UI language to the registry
        Me.Close()
    End Sub

    Private Sub FillUICultureComboBox(ByVal cmb As ComboBox)

        Dim UserUICultures() As String = {"en", "de", "de-DE", "de-AT"}
        'Create an array with the available cultures

        Dim UILanguages As New ArrayList()

        Dim o As Object
        Dim c As CultureInfo
        For Each o In UserUICultures
            c = New CultureInfo(o.ToString())
            UILanguages.Add(New LanguageDropdown(c.NativeName, c.Name))
        Next
        'NativeName will be used for display.  It will display the culture name in the native language.
        'For example, "German" will be displayed as "Deutsch"
        'Use Name for storing the RFC 1766 representation which can be easily stored in the registry and passed to CultureInfo

        cmbUICulture.DataSource = UILanguages
        cmbUICulture.DisplayMember = "LangDisplay"
        cmbUICulture.ValueMember = "LangValue"

        'Set the selected text in the combobox to the CurrentUICulture
        If PreferredUICulture Is Nothing Then
            Thread.CurrentThread.CurrentUICulture = New CultureInfo("", False) 'If no preference is set, use the default settings
            cmbUICulture.SelectedValue = Thread.CurrentThread.CurrentUICulture.Name
        Else
            cmbUICulture.SelectedValue = PreferredUICulture 'Otherwise use the user's preferred language
        End If


    End Sub

    Private Sub cmbUICulture_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbUICulture.SelectionChangeCommitted
        PreferredUICulture = cmbUICulture.SelectedValue 'Store the user's selection in the variable "PreferredUICulture"
    End Sub

    Private Sub WriteRegistryKey()
        'Write the user's preferred UI culture to the registry
        If Registry.CurrentUser.GetValue("VBLocDemo\UILangauge") = Nothing Then
            VBLocDemoUILanguageKey = Registry.CurrentUser.CreateSubKey("Software\VBLocDemo\UILanguage")
        End If

        VBLocDemoUILanguageKey.SetValue("UILanguage", PreferredUICulture)

    End Sub

    Private Sub ReadRegistryKey()
        'Read the user's preferred UI culture from the registry, and store it in PreferredUICulture
        Try
            Dim RK As RegistryKey = Registry.CurrentUser
            RK = RK.OpenSubKey("Software\\VBLocDemo\\UILanguage")
            Dim oRegValue As Object = RK.GetValue("UILanguage")
            PreferredUICulture = oRegValue.ToString()
        Catch 'Catch the error if the registry key does not exist
            PreferredUICulture = Nothing
        End Try

        
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Use the Resource Manager to load strings based on the CurrentUICulture from "LocStrings.resx"
        MessageBox.Show(MyResMgr.GetString("HelloMessage"), MyResMgr.GetString("HelloCaption"), MessageBoxButtons.OKCancel)

    End Sub

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

    End Sub
End Class