96 dicas de visual basic

1 - VB4 - Atalhos para VB no Windows 95
Com a versão quatro do Visual Basic e o novo ambiente de sistema operacional de 32 bits, eu usava três versões do VB. Alguns de meus clientes não aceitavam aplicações construídas em VB4. E alguns não migraram para 32 bits. Após instalar ambas as versões 16 e 32 bits em minha máquina com Windows 95, descobri que qualquer projeto com extensão .VBP pode ser aberto no VB 32 bits. Este é o melhor caminho para executar a correta versão do VB:
1) Salve todos os arquivos de um projeto na mesma pasta.
2) Crie um atalho para o VB, na edição que você usa.
3) Arraste o projeto (VBP) para o topo do atalho e (tcham); o projeto será aberto por esta versão.
Por Joe Sytniak*
2 - VB3/VB4 - Criando um procedimento de pausa
Falta um comando do VB para provocar uma pausa (wait, dalay, pause etc.) no processamento? Basta implementar uma pequena rotina, em um módulo (.BAS):
Function FU_Delay (Quanto As Double, PermiteDoEvents As Integer) As Double 'executa uma pausa na aplicação 'quanto = tempo da pausa (em segundos) ' pode ter frações de segundos 'PermiteDoEvents é true ou false ' DoEvents permite realizar outras tasks do Windows 'Timer é uma função do VB que retorna ' o nr. de segundos desde meia noite ' RETORNO: o tempo de looping ' que devido a imprecisão e multitask, pode ser ' diferente do valor pedido Dim Inicio As Double Dim Check As Double Dim Contador As Double Contador = Timer Inicio = Timer Do Until Check >= (Inicio + Quanto) Check = Timer If PermiteDoEvents Then DoEvents Loop 'o VB dá uma boa precisão em 1/10 de segundo 'a 1/100 a precisão já é parcialmente comprometida 'a 1/100 a precisão se perde FU_Delay = (Timer - Contador)
End Function
Note que não foi necessário inserir um controle Timer no form para executar esta pausa.
Para acessar a rotina basta citar o nome e passar o número