fbpx

15 Dicas de Visual Basic

Dicas de Visual Basic

15 Dicas de Visual Basic

Neste post mostraremos 15 dicas de desenvolvimento na linguagem de programação Visual Basic.

Dicas de Visual Basic

15 Dicas de Visual Basic

Descobrindo se o S.O. é Windows 95 ou Windows NT

Desabilitando o botão Fechar nos forms

Adicione o código a seguir em um módulo .BAS:

Adicione em sua aplicação o seguinte código no evento Form_Load:

RemoveCloseButton Me.hWND

Adicionando segurança a uma base de dados Jet

Para ter uma maior segurança a uma base de dados Jet (.MDB), versão 2.5 (Access 2/VB3/VB4-16 bit) ou versão 3.0 (Access 7/VB4-32 bit), siga os seguintes passos:

  1. Use o Access Workgroup Administrator para criar um novo grupo de trabalho, com uma não nula Workgroup ID.
  2. Inicie o Access e altere a senha para o usuário default Admin.
  3. Crie um novo usuário, adicione-o no grupo de Administração, com os privilégios de administrador. Remova a conta Admin do grupo de administradores.
  4. Reinicie o Access, conectando-se como novo usuário, e altere a senha.
  5. Execute o Access Security Wizard
    (No Access, copie do site da Ms em http://www.microsoft.com/accdev).
  6. Crie o(s) usuários e o(s) grupo(s) de usuário, definindo seus privilégios.
  7. Não defina nenhuma permissão para o Admin.

 

Criando toolbars dockaveis

Função Mid do Visual Basic

Muitos já conhecem a Função Mid do Visual Basic, ela retorna uma substring com um número específico de caracteres, ou seja, uma parte da string usada como parâmetro.

Mas, você sabia que pode utilizar o Mid para substituir caracteres no meio de uma string?

O Mid é uma excelente função do Visual Basic, pois, altera um de seus próprios argumentos e isto economiza uma série de instruções de concatenação, veja o exemplo:

 

 

Atualizando Bound Controls por uma List Box

Quando você desejar que os Bound Controls (controles associados a dados) sejam atualizados em eventos de listas ou combos, adicione este código no evento click (ou double-click) da lista ou combo:

Data1.RecordSet.Bookmark = DBCombo1.SelectedItem

Como resultado, seu registro corrente passará a ser o registro com a chave indicada na lista ou combo.

Todos os Bound Controls são atualizados automaticamente.

É necessário definir apenas as propriedades RowSource e ListField. Assim, economiza-se tempo que seria gasto em conversões de dados e atualização de campos.

Conversão de Nulos

Em uma consulta a bancos de dados, o retorno de uma variável, quando nula, poderá não ser 0 (numérico) ou “” (string).
Geralmente resolve-se este problema assim:

Uma outra forma mais simples é:

minhavar = “” & meurecordset.meucampo

Ou

minhavar = val(0 & meurecordset.meucampo) ‘ para numéricos

 

Movendo-se entre os campos com Enter

Usar o evento KeyPress dos seus controles.

Enviando um E-Mail

 

Este código funciona adequadamente, quando o Outlook do usuário que envia o e-mail está aberto, caso não quera assim, retire o código (,,false,false) das instruções acima
na quarta linha.

Tab Automático sem codificação

Use o MaskEdBox setando o valor da propriedade autotab com true.

Todas as vezes que for preenchido com o valor igual ao de maxlength automaticamente passará para o próximo controle sem codificação.

Criando Credits Scroll

Para criar um formulário com que os créditos rolem no Form proceda da seguinte forma:

Crie um Form.
Adicione um timer ao seu form com o valor do intervalo =1
Tenha 1 label ou mais em seu form (esse código pode rolar figuras, textboxes …)

Formulário de Senha

Crie um Form e adicione 2 textbox e um commandButon no text2 altere a opção de PassowordChar para *

 

Cores do Sistema

Para não ocorrer de você colocar um controle em cor Cinza, por exemplo, e o seu usuário trocar as cores do sistema para o padrão “Lilás” e seu controle continuar cinza, use o SystemColorConstants

Ex:
Controle.BackColor = SystemColorConstants.vb3DDKShadow
Controle.BackColor = SystemColorConstants.vb3DFace
Controle.BackColor = SystemColorConstants.vbActiveTitleBar

Bookmark

A utilização de Bookmarks permitem ao desenvolvedor “memorizar” um determinado registro da tabela para que possa retornar mais tarde ao mesmo registro memorizado, Este recurso é muito simples e fácil de utilizar..

Para marcar um determinado local em uma tabela , utilize a seguinte instrução:

No (General) (Declarations) do Form, criar uma variável tipo string da seguinte forma:

Dim marca As String
marca = tblwm.Bookmark

Quando quiser retornar o ponteiro no referido registro utilize:

tblwm.Bookmark = marca

Para exibi-los no form, basta forçar a reexibição dos dados novamente

 

Apresentar “*” em uma textbox que está sendo usada para senha

Apresentar “*” em uma textbox que está sendo usada para senha

Coloque * na propriedade PasswordChar da TextBox

 

Obrigado

Espero que estas dicas sejam úteis para você ou tenha lhe ajudado de alguma forma.

Se você gostou, compartilhe estas dicas com um amigo ou participe de nossas redes sociais.

Conhece alguma outra dica ?

Envie para nos em nossa página do Facebook.

Caso queira nos incentivar a criar mais conteúdos como este, prestigie nossos anunciantes.

Um Grande Abraço e até a próxima dica!

Compartilhe esta matéria
  , ,


Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Esse site utiliza o Akismet para reduzir spam. Aprenda como seus dados de comentários são processados.