Keskustelu: Ohjelmointikysymykset: VB.NET: Pikanäppäinten rekisteröiminen

'(Huom! väännetty SharpDevelop 4.0:lla/.NET Framework 4.0:lla)

'Lomakkeele:
'1 MenuStrip kontrolli (menuStrip1)
' asetuksetToolStripMenuItem
'  pikavalinnatToolStripMenuItem

Imports System.Windows.Forms
Imports System.Configuration

Public Partial Class MainForm

   Public Shared HotKey(3) As String

   Private config As Configuration = _
   ConfigurationManager.OpenExeConfiguration( _
   ConfigurationUserLevel.None)

   Public Sub New()
      Me.InitializeComponent()
   End Sub

   Sub MainForm_Load(sender As Object, e As EventArgs)

      For i = 0 To HotKey.Length - 1
         HotKey(i) = config.AppSettings.Settings.Item( _
         "HotKey" + CStr(i + 1)).Value
      Next

      Me.KeyPreview = True

   End Sub

   Sub MainForm_KeyUp(sender As Object, e As KeyEventArgs)

      For i = 0 To HotKey.Length - 1

         If e.KeyData.ToString = HotKey(i) Then

            'testi
            MsgBox("Pikavalinta " + CStr(i + 1) + " = " + HotKey(i))

            Select Case i
               Case 0
                  'tee jotain...
               Case 1
                  'tee jotain muuta...
               Case 2
                  'tee jotain muuta...
               Case 3
                  'tee jotain muuta...
            End Select

            Exit For

         End If
      Next
   End Sub

   Sub PikavalinnatToolStripMenuItem_Click(sender As Object, e As EventArgs)

      Dim frm As New FormSettings
      frm.ShowDialog : frm = Nothing

   End Sub

   Sub MainForm_FormClosing(sender As Object, e As FormClosingEventArgs)

      For i = 0 To HotKey.Length - 1
         config.AppSettings.Settings.Item( _
         "HotKey" + CStr(i + 1)).Value = HotKey(i)
      Next

      config.Save(ConfigurationSaveMode.Modified)
      '(VB Express ei tallenna asetuksia debug tilassa)
      config = Nothing: HotKey = Nothing

   End Sub

End Class

'Lomakkeelle:
'2 Button kontrollia  (button1 & button2)
'4 TexBox kontrollia  (textBox1 - textBox4)
'1 ComboBox kontrolli (comboBox1)

Imports System.Windows.Forms

Public Partial Class FormSettings

   Public Sub New()

      Me.InitializeComponent()

   End Sub

   Sub FormSettings_Load(sender As Object, e As EventArgs)

      Me.Text = "Asetukset - Pikanäppäimet"
      Me.FormBorderStyle = FormBorderStyle.FixedToolWindow
      Me.ControlBox = False
      comboBox1.DropDownStyle = ComboBoxStyle.DropDownList
      comboBox1.TabStop = False

      comboBox1.Items.AddRange(New Object(){"", _
      Keys.A, Keys.B, Keys.C, Keys.D, Keys.E, _
      Keys.F, Keys.G, Keys.H, Keys.I, Keys.J, _
      Keys.K, Keys.L, Keys.M, Keys.N, Keys.O, _
      Keys.P, Keys.Q, Keys.R, Keys.S, Keys.T, _
      Keys.U, Keys.V, Keys.W, Keys.X, Keys.Y, Keys.Z, _
      Keys.F1,Keys.F2, Keys.F3, Keys.F4, Keys.F5, Keys.F6, _
      Keys.F7, Keys.F8, Keys.F9, Keys.F10, Keys.F11, Keys.F12}) 'esim.

      For i As Integer = 0 To MainForm.HotKey.Length - 1
         Dim txtBox As TextBox = _
         CType(Me.Controls("textBox" + CStr(i + 1)),TextBox)
         txtBox.ReadOnly = True
         txtBox.Text = MainForm.HotKey(i)
         txtBox = Nothing
      Next

      button1.Text = "OK"
      button2.Text = "Cancel"
      comboBox1.Visible = False
      button2.Focus

   End Sub

   Sub TextBox1_Enter(sender As Object, e As EventArgs)
      SetComboBox(CType(sender, TextBox))
   End Sub

   Sub TextBox2_Enter(sender As Object, e As EventArgs)
      SetComboBox(CType(sender, TextBox))
   End Sub

   Sub TextBox3_Enter(sender As Object, e As EventArgs)
      SetComboBox(CType(sender, TextBox))
   End Sub

   Sub TextBox4_Enter(sender As Object, e As EventArgs)
      SetComboBox(CType(sender, TextBox))
   End Sub

   Sub SetComboBox(txtBox As TextBox)

      comboBox1.Left = txtBox.Left
      comboBox1.Width = txtBox.Width
      comboBox1.Top = txtBox.Top + txtBox.Height
      comboBox1.Visible = True
      comboBox1.SelectedIndex = 0

      For i As Integer = 0 To comboBox1.Items.Count  - 1
         If comboBox1.Items(i).ToString = txtBox.Text Then
            comboBox1.SelectedIndex = i: Exit For
         End If
      Next

   End Sub

   Sub Button1_Click(sender As Object, e As EventArgs)

      For i As Integer = 0 To MainForm.HotKey.Length - 1
         MainForm.HotKey(i) = Me.Controls( _
         "textBox" + CStr(i + 1)).Text
      Next

      Me.Close

   End Sub

   Sub Button2_Click(sender As Object, e As EventArgs)
      Me.Close
   End Sub

   Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs)

      Dim txtBox As TextBox, tmpBox As TextBox
      Static tagIndex As Integer

      For i As Integer = 1 To 4
         txtBox = CType(Me.Controls("textBox" + CStr(i)), TextBox)
         If txtBox.Left = comboBox1.Left Then
            For j As Integer = 1 To 4
               tmpBox = CType(Me.Controls("textBox" + CStr(j)), TextBox)
               If tmpBox.Text = ComboBox1.SelectedItem.ToString _
               And tmpBox.Text <> String.Empty And j <> i Then
                  MsgBox("Pikavalinta '" + tmpBox.Text + "' on jo valittu")
                  comboBox1.SelectedIndex = tagIndex
                  txtBox = Nothing: tmpBox = Nothing: Exit Sub
               End If
            Next j
            txtBox.Text = ComboBox1.SelectedItem.ToString
            Exit For
         End If
      Next i

      tagIndex = comboBox1.SelectedIndex
      txtBox = Nothing: tmpBox = Nothing

   End Sub

   Sub Button1_Enter(sender As Object, e As EventArgs)
      comboBox1.Visible = False
   End Sub

   Sub Button2_Enter(sender As Object, e As EventArgs)
      comboBox1.Visible = False
   End Sub

End Class