Programando o Excel ® Vba Para Leigos - 2ª Ed 2013 NoDRM (1)

304 Parte IV: Como se Comunicar com Seus Usuários
Figura 18-8:
Um UserForm
com um
botão de
rotação e
uma
companheira,
a Caixa de
texto.
diálogo Configurar página do Excel quanto a alguns exemplos. De preferência,
Botões de rotação e Caixa de texto estão sempre em sincronia: se o
usuário clicar no botão, o seu valor deve aparecer na caixa de texto. E se
o usuário entrar com um valor diretamente na caixa de texto, o botão de
rotação assumirá aquele valor. A Figura 18-8 mostra uma caixa de diálogo
personalizada com um botão de rotação e uma caixa de texto.
Este UserForm contém os seguintes controles:
55
Um botão de rotação chamado SpinButton1, com a sua
propriedade Min configurada para 1 e sua propriedade Max
configurada para 100.
55
Uma caixa de texto chamada TextBox1.
55
Um botão de comando chamado OKButton.
A seguir, o procedimento que lida com eventos para o botão de rotação.
Este procedimento lida com o evento Change, que é disparado sempre
que o valor do botão de rotação é alterado. Quando esse valor mudar
(quando ele for clicado), este procedimento designa o seu valor ao
TextBox. Para criar este procedimento, clique duas vezes no botão de
rotação, para ativar a janela de código do UserForm. Depois, entre com
este código:
Private Sub SpinButton1_Change()
TextBox1.Text = SpinButton1.Value
End Sub
O controlador de eventos da caixa de texto, que é listado a seguir, é um
pouco mais complicado. Para criar este procedimento, clique duas
vezes na caixa para ativar a janela de código do UserForm. Este procedimento
é executado sempre que o usuário mudar o texto na caixa.
Private Sub TextBox1_Change()
Dim NewVal As Integer
NewVal = Val(TextBox1.Text)
If NewVal >= Spinbutton1.Min And _
NewVal <= SpinButton1.Max Then _
SpinButton1.Value = NewVal
End Sub