SelectMenu

<< Clique para Mostrar o Sumário >>

 

SelectMenu

SelectMenu(Menu, [Left], [Top])

Este método mostra um menu contextual conforme especificado pelo parâmetro Menu. Este parâmetro é um texto que consiste em várias opções delimitadas por uma barra vertical (|), e cada uma destas Strings é uma opção do menu. Caso haja um conjunto de dois delimitadores sucessivos (||), um separador é inserido. Use os caracteres de abre e fecha chaves para criar um submenu. Um asterisco na frente de uma String indica que a opção está marcada. Já um sinal de exclamação indica que a opção está desabilitada.

A posição da caixa de diálogo pode ser configurada através dos parâmetros opcionais Left e Top, que indicam a distância da margem esquerda e do topo da Tela em pixels, respectivamente. Caso estes parâmetros não sejam informados, o menu é posicionado de acordo com o local onde o clique do mouse foi acionado.

Este método retorna 0 (zero) se nenhuma opção foi selecionada, ou o número da opção, em que 1 (um) é a primeira opção contida no texto, 2 (dois) é a segunda opção, e assim por diante. O código a seguir contém um exemplo de uso deste método.

Sub Botao1_Click()
  op = _
    Application.SelectMenu(_
      "Opção1||Opção2{*Opção2|Opção3}|Opção4|!Opção5")
  If op = 1 Then
    MsgBox "Opção 1 foi escolhida"
  ElseIf op = 2 Then
    MsgBox "Opção 2 foi escolhida"
  ElseIf op = 3 Then
    MsgBox "Opção 3 foi escolhida"
  ElseIf op = 4 Then
    MsgBox "Opção 4 foi escolhida"
  ElseIf op = 0 Then
    MsgBox "Nenhuma opção foi escolhida"
  End If
End Sub

Esta página foi útil?