toolbar.vb

Programming the .NET Compact Framework with vb 源代码

'
Me.mitem18x18.Text = "18x18"
'
'mitem18x20
'
Me.mitem18x20.Text = "18x20"
'
'mitem20x20
'
Me.mitem20x20.Text = "20x20"
'
'MenuItem1
'
Me.MenuItem1.Text = "-"
'
'mitem24x24
'
Me.mitem24x24.Text = "24x24"
'
'mitem32x32
'
Me.mitem32x32.Text = "32x32"
'
'ilistFile
'
Me.ilistFile.Images.Add(CType(resources.GetObject("resource"), System.Drawing.Image))
Me.ilistFile.Images.Add(CType(resources.GetObject("resource1"), System.Drawing.Image))
Me.ilistFile.Images.Add(CType(resources.GetObject("resource2"), System.Drawing.Image))
Me.ilistFile.Images.Add(CType(resources.GetObject("resource3"), System.Drawing.Image))
Me.ilistFile.ImageSize = New System.Drawing.Size(16, 16)
'
'ilistEdit
'
Me.ilistEdit.Images.Add(CType(resources.GetObject("resource4"), System.Drawing.Image))
Me.ilistEdit.Images.Add(CType(resources.GetObject("resource5"), System.Drawing.Image))
Me.ilistEdit.Images.Add(CType(resources.GetObject("resource6"), System.Drawing.Image))
Me.ilistEdit.Images.Add(CType(resources.GetObject("resource7"), System.Drawing.Image))
Me.ilistEdit.Images.Add(CType(resources.GetObject("resource8"), System.Drawing.Image))
Me.ilistEdit.ImageSize = New System.Drawing.Size(16, 16)
'
'tbarFile
'
Me.tbarFile.Buttons.Add(Me.tbbNew)
Me.tbarFile.Buttons.Add(Me.tbbOpen)
Me.tbarFile.Buttons.Add(Me.tbbSave)
Me.tbarFile.Buttons.Add(Me.tbbPrint)
Me.tbarFile.ImageList = Me.ilistFile
'
'tbbNew
'
Me.tbbNew.ImageIndex = 0
'
'tbbOpen
'
Me.tbbOpen.ImageIndex = 1
'
'tbbSave
'
Me.tbbSave.ImageIndex = 2
'
'tbbPrint
'
Me.tbbPrint.ImageIndex = 3
'
'tbarEdit
'
Me.tbarEdit.Buttons.Add(Me.tbbCut)
Me.tbarEdit.Buttons.Add(Me.tbbCopy)
Me.tbarEdit.Buttons.Add(Me.tbbPaste)
Me.tbarEdit.Buttons.Add(Me.tbbUndo)
Me.tbarEdit.Buttons.Add(Me.tbbClear)
Me.tbarEdit.ImageList = Me.ilistEdit
'
'tbbCut
'
Me.tbbCut.ImageIndex = 0
'
'tbbCopy
'
Me.tbbCopy.ImageIndex = 1
'
'tbbPaste
'
Me.tbbPaste.ImageIndex = 2
'
'tbbUndo
'
Me.tbbUndo.ImageIndex = 3
'
'tbbClear
'
Me.tbbClear.ImageIndex = 4
'
'FormMain
'
Me.Controls.Add(Me.cmdHideMenu)
Me.Controls.Add(Me.cmdShowMenu)
Me.Controls.Add(Me.label3)
Me.Controls.Add(Me.cmdRemove2)
Me.Controls.Add(Me.cmdAdd2)
Me.Controls.Add(Me.label2)
Me.Controls.Add(Me.cmdRemove1)
Me.Controls.Add(Me.cmdAdd1)
Me.Controls.Add(Me.label1)
Me.Controls.Add(Me.tbarFile)
Me.Menu = Me.menuMain
Me.MinimizeBox = False
Me.Text = "ToolBar"

    End Sub

#End Region

   ' Remember currently-selected toolbar
   Private m_tbarCurrent As System.Windows.Forms.ToolBar

   Private Sub FormMain_Load( _
   ByVal sender As Object, _
   ByVal e As System.EventArgs) Handles MyBase.Load
      ' Disconnect both toolbars, so we always know which
      ' toolbar we start with (can change this inadvertently
      ' in forms designer.
      Me.Controls.Remove(tbarEdit)
      Me.Controls.Remove(tbarFile)

      m_tbarCurrent = tbarFile
      Me.Controls.Add(m_tbarCurrent)
   End Sub

   Private Sub cmdAdd1_Click( _
   ByVal sender As System.Object, _
   ByVal e As System.EventArgs) Handles cmdAdd1.Click
      Controls.Add(tbarFile)
      m_tbarCurrent = tbarFile
   End Sub

   Private Sub cmdRemove1_Click( _
   ByVal sender As System.Object, _
   ByVal e As System.EventArgs) Handles cmdRemove1.Click
      Controls.Remove(tbarFile)
      If (m_tbarCurrent Is tbarFile) Then
         m_tbarCurrent = Nothing
      End If
   End Sub

   Private Sub cmdAdd2_Click( _
   ByVal sender As System.Object, _
   ByVal e As System.EventArgs) Handles cmdAdd2.Click
      Controls.Add(tbarEdit)
      m_tbarCurrent = tbarEdit
   End Sub

   Private Sub cmdRemove2_Click( _
   ByVal sender As System.Object, _
   ByVal e As System.EventArgs) Handles cmdRemove2.Click
      Controls.Remove(tbarEdit)
      If (m_tbarCurrent Is tbarEdit) Then
         m_tbarCurrent = Nothing
      End If
   End Sub

   Private Sub cmdShowMenu_Click( _
   ByVal sender As System.Object, _
   ByVal e As System.EventArgs) Handles cmdShowMenu.Click
      Me.Menu = menuMain
   End Sub

   Private Sub cmdHideMenu_Click( _
   ByVal sender As System.Object, _
   ByVal e As System.EventArgs) Handles cmdHideMenu.Click
      Me.Menu = Nothing
   End Sub

   Private Sub ResetImageListSize( _
   ByVal cxWidth As Integer, _
   ByVal cyHeight As Integer)
      Me.ilistEdit.ImageSize = _
         New System.Drawing.Size(cxWidth, cyHeight)
      Me.ilistFile.ImageSize = _
         New System.Drawing.Size(cxWidth, cyHeight)
      If Not m_tbarCurrent Is Nothing Then
         Me.Controls.Remove(m_tbarCurrent)
         Me.Controls.Add(m_tbarCurrent)
      End If
   End Sub

   Private Sub ToggleMenuCheckMark( _
   ByVal mitemSender As MenuItem)
      ' Clear check mark from all other menu items.
      Dim citems As Integer = menuSizePopup.MenuItems.Count
      Dim i As Integer
      For i = 0 To citems - 1 Step i + 1
         menuSizePopup.MenuItems(i).Checked = False
      Next

      ' Set check mark on requested menu item.
      mitemSender.Checked = True
   End Sub

   Private Sub mitem12x12_Click( _
   ByVal sender As System.Object, _
   ByVal e As System.EventArgs) Handles mitem12x12.Click
      ResetImageListSize(12, 12)
      ToggleMenuCheckMark(CType(sender, MenuItem))
   End Sub

   Private Sub mitem12x20_Click( _
   ByVal sender As System.Object, _
   ByVal e As System.EventArgs) Handles mitem12x20.Click
      ResetImageListSize(12, 20)
      ToggleMenuCheckMark(CType(sender, MenuItem))
   End Sub

   Private Sub mitem14x14_Click( _
   ByVal sender As System.Object, _
   ByVal e As System.EventArgs) Handles mitem14x14.Click
      ResetImageListSize(14, 14)
      ToggleMenuCheckMark(CType(sender, MenuItem))
   End Sub

   Private Sub mitem14x20_Click( _
   ByVal sender As System.Object, _
   ByVal e As System.EventArgs) Handles mitem14x20.Click
      ResetImageListSize(14, 20)
      ToggleMenuCheckMark(CType(sender, MenuItem))
   End Sub

   Private Sub mitem16x16_Click( _
   ByVal sender As System.Object, _
   ByVal e As System.EventArgs) Handles mitem16x16.Click
      ResetImageListSize(16, 16)
      ToggleMenuCheckMark(CType(sender, MenuItem))
   End Sub

   Private Sub mitem16x20_Click( _
   ByVal sender As System.Object, _
   ByVal e As System.EventArgs) Handles mitem16x20.Click
      ResetImageListSize(16, 20)
      ToggleMenuCheckMark(CType(sender, MenuItem))
   End Sub

   Private Sub mitem18x18_Click( _
   ByVal sender As System.Object, _
   ByVal e As System.EventArgs) Handles mitem18x18.Click
      ResetImageListSize(18, 18)
      ToggleMenuCheckMark(CType(sender, MenuItem))
   End Sub

   Private Sub mitem18x20_Click( _
   ByVal sender As System.Object, _
   ByVal e As System.EventArgs) Handles mitem18x20.Click
      ResetImageListSize(18, 20)
      ToggleMenuCheckMark(CType(sender, MenuItem))
   End Sub

   Private Sub mitem20x20_Click( _
   ByVal sender As System.Object, _
   ByVal e As System.EventArgs) Handles mitem20x20.Click
      ResetImageListSize(20, 20)
      ToggleMenuCheckMark(CType(sender, MenuItem))
   End Sub

   Private Sub mitem24x24_Click( _
   ByVal sender As System.Object, _
   ByVal e As System.EventArgs) Handles mitem24x24.Click
      ResetImageListSize(24, 24)
      ToggleMenuCheckMark(CType(sender, MenuItem))
   End Sub

   Private Sub mitem32x32_Click( _
   ByVal sender As System.Object, _
   ByVal e As System.EventArgs) Handles mitem32x32.Click
      ResetImageListSize(32, 32)
      ToggleMenuCheckMark(CType(sender, MenuItem))
   End Sub

   Private Sub tbarEdit_ButtonClick( _
   ByVal sender As System.Object, _
   ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) _
   Handles tbarEdit.ButtonClick
      Dim strButtonName As String = String.Empty
      If e.Button Is tbbCut Then
         strButtonName = "tbbCut"
      ElseIf e.Button Is tbbCopy Then
         strButtonName = "tbbCopy"
      ElseIf e.Button Is tbbPaste Then
         strButtonName = "tbbPaste"
      ElseIf e.Button Is tbbUndo Then
         strButtonName = "tbbUndo"
      ElseIf e.Button Is tbbClear Then
         strButtonName = "tbbClear"
      End If

      MessageBox.Show("User clicked " + strButtonName + _
         " tool bar button.")

   End Sub

   Private Sub tbarFile_ButtonClick( _
   ByVal sender As System.Object, _
   ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) _
   Handles tbarFile.ButtonClick

      Dim strButtonName As String = String.Empty
      If e.Button Is tbbNew Then
         strButtonName = "tbbNew"
      ElseIf e.Button Is tbbOpen Then
         strButtonName = "tbbOpen"
      ElseIf e.Button Is tbbSave Then
         strButtonName = "tbbSave"
      ElseIf e.Button Is tbbPrint Then
         strButtonName = "tbbPrint"
      End If

      MessageBox.Show("User clicked " + strButtonName + _
      " tool bar button.")
   End Sub
End Class