90 Dicas de Visual Basic



Baixar 426,91 Kb.
Página5/14
Encontro03.05.2017
Tamanho426,91 Kb.
1   2   3   4   5   6   7   8   9   ...   14

24 - VB3/VB4 - Tenha uma linha 3D entre um menu pulldown e uma barra de ferramentas


Desenhe um 3DPanel com um tamanho (height) de 30. Este tamanho não é fácil de ser desenhado manualmente. Apague a Caption, mude o BevelOuter para 1 (inset), border para 1 e Align para Top. Desenhe a barra de ferramentas e o menu.

Por Mário Manuel Mourão Coelho*

25 - VB4/VB3 - Providenciando menus específicos de contexto para seus objetos de interface


Muito da facilidade do Windows 95 inicia com o fato de que a interface de seus objetos possui seus próprios menus de contexto, acessados por um simples click no botão direito do mouse. Você, desenvolvedor, poderá criar seus próprios menus de contexto também . O exemplo abaixo mostra como isto funciona numa list box chamada lstSample:

  1. Defina o menu de contexto, assim como se define qualquer outro menu, como o menu de help, com seus submenus. Diferente do menu de help, entretanto, este menu de contexto deverá ter a propriedade visible = false, para que nunca seja visto pelo usuário na barra de menus pull-down. A caption nunca será vista pelo usuário, mas, deverá ser algo compreensível para o programador como Context Menu de lstSample. O nome, neste exemplo, será mnu_lstSample. Agora, basta definir os submenus, que irão aparecer sobre o objeto com o click do botão direito do mouse. Por exemplo, crie menus como &Remover Item, Remover &Todos, &Adicionar Item etc.

  2. No evento MouseMove do objeto desejado (neste caso, lstSample), invoque o método PopupMenu.

Private Sub lstSample_MouseDown (button As Integer, Shift As Integer, _

X As Single, Y As Single)

Const vbRightButton = 2 'constante VB4

If button And vbRightButton Then

PopupMenu mnu_lstSample

End If


End Sub

  1. Deve, obviamente, ser adicionado o código de cada evento menu_click. Veja no help do VB mais detalhes sobre o método PopupMenu.

Por Hassan Davis*, MicroHelp Inc

Nota da redação: segundo o autor*, esta é uma dica de VB4, mas, já existe menu de contexto (método popup) no VB3, que funciona no Windows 3.1x (e parcialmente no Windows 3.0). A diferença é que, o método possui menos recursos que no VB4. Há um exemplo no VB3 (SAMPLES/CALLDLLS) que mostra como desenvolver Popup menus através da API TrackPopupMenu (biblioteca User); é um exemplo do VB2 que não deveria estar na versão 3. No VB3, a constante vbRightButton chama-se RIGHT_BUTTON. (Charles A. Müller)

26 - VB4 - Use seus próprios menus popup


Em VB4, se você quiser mostrar um menu popup para um texto, um menu de sistema (default) será mostrado primeiro e o seu menu só aparecerá quando o menu default for fechado. Para contornar este problema:

Private Sub Text1_MouseDown(Button As Integer, _

Shift As Integer, X As Single, Y as Single)

If Button = 2 Then

Text1.Enabled = False



PopupMenu myMenu

Text1.Enabled = False

End If

End Sub

Por Mário Coelho*

27 - VB3/VB4 - Criando múltiplos níveis de diretórios


Programas de instalação ou outras aplicações podem solicitar ao usuário para que informe onde deseja instalar arquivos ou efetuar alguma operação. Se o diretório não existir, será criado. Mas, o usuário poderá informar vários subníveis de diretórios inexistentes que devem ser criados. A rotina abaixo cria qualquer diretório, em todos os níveis. Basta informar o drive (como C:) e o caminho (como \MYAPP\MYDIR\SUBDIR) a ser criado (se não existir). Podem ser criados diretórios de nomes longos em VB4 32 bits, mas, em 16 bits (inclusive VB3), os nomes serão truncados para a convenção 8.3. Você poderá adicionar seu próprio código de manipulação de erros, conforme sua necessidade.

Abaixo temos um exemplo simples da criação de vários níveis de diretórios:

Sub CreateLongDir(sDrive as String, sDir as String)

Dim sBuild As String

While Instr(2, sDir, "\") > 1

sBuild = sBuild & Left(sDir, Instr(2, sDir, "\") - 1)

sDir = Mid$(sDir, InStr (2, sDir, "\")

If Dir$(sDrive & Sbuild, 16) = "" Then MkDir sDrive & sBuild

Wend

End Sub


Sub Test( )

Call CreateLongDir ("C:", "Test\MyApp\MyDir\Long Directory Name\")

End Sub

Por Jeffrey Renton*

28 - VB3/VB4 - Mova e redimensione controles com precisão


Ao desenhar um form, você pode utilizar mouse e teclado para obter melhor precisão. Esta dica serve também para Access 2 e 7 (95).

A - Quando você desejar alterar o tamanho de um controle:



  1. Selecione-o

  2. Pressione SHIFT e use as teclas de navegação para alterar o tamanho.

B - Quando você desejar mover um controle:

  1. Selecione-o

  2. Pressione CTRL e use as teclas de navegação para alterar a posição.

Por Chris Kunicki, repassada por John Chmela (VB Developer's Network)*

Nota da Redação: Os autores informam que a dica (A e B) se aplica ao VB3, mas, não funciona. Acrescentamos, ainda, alguns dados abaixo.

C - Evitando acidentes



  1. O VB4 possui o recurso de trava (lock) de tamanho e posição em tempo de desenho. Selecione o(s) controle(s) e clique no botão "cadeado", na barra de ferramentas.

  2. O VB3 não possui o recurso de "cadeado", mas, é possível mover ou selecionar os controles com maior cuidado (para alterar várias propriedades ao mesmo tempo, por exemplo). Basta selecionar, passando o mouse no form, uma área em volta dos controles. Isto não se aplica a controles contidos em outros objetos (como painéis, frames e picture boxes).

D - Maior precisão

Use os valores numéricos de tamanho e posição: left, top, height e width - correspondentes a x, y' (eixo y do topo para baixo) , h (altura) e b (base), respectivamente - na Janela de Propriedades ou Janela de Código. Esta tarefa é um pouco árdua, então, desenhe o controle com medidas aproximadas para depois, ajustar, via digitação de valores.



Aperf. por Charles A. Müller


1   2   3   4   5   6   7   8   9   ...   14


©livred.info 2017
enviar mensagem

    Página principal