Forçando a digitação de caracteres maiúsculos

Forçando a digitação de caracteres maiúsculos Para facilitar a digitação de maiúsculos, independente do pressionamento de CAPS LOCK, converta cada caracter no evento KeyPress. Private Sub Form_KeyPress (KeyAscii as Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) End Sub Obs.: Para que esta rotina funcione para todos os campos do form, altere a propriedade KeyPreview do mesmo para true.

Continuar lendo »

Criando atalhos no menu Iniciar usando DDE

Criando atalhos no menu Iniciar usando DDE Uma maneira simples de criar atalhos no menu iniciar é utilizando comandos DDE usados anteriormente no Windows 3.1, que também vale para Win95. Os comandos são: AddItem, CreateGroup, DeleteGroup, DeleteItem, ShowGroup, ReplaceItem, Reload. Por exemplo, para se criar uma pasta no menu iniciar, e um atalho dentro dela,

Continuar lendo »

Bloqueando funções Copiar e Colar em caixas de texto

Bloqueando funções Copiar e Colar em caixas de texto As funções Copiar (CTRL+C) e Colar (CTRL+V) estão sempre disponíveis para text boxes, mas e se você não quer que estas funções funcionem? O evento KeyDown não consegue detectar CTR+C e CTRL+V. No evento KeyPress, estas teclas podem ser capturadas: Sub Text1_KeyPress (KeyAscii As Integer) If

Continuar lendo »

Função de arredondamento

Função de arredondamento no Visual Basic A função a seguir efetua o arredondamento em um determinado valor dependendo no número de casas decimais que se entra como parâmetro: Function Arredonda(Valor as double, Casas as integer) as double Arredonda = Int ( Valor * 10^Casas+0.5) / 10^Casas End Function ‘Use desta forma: Arredonda (45.3246, 3) para

Continuar lendo »
Pages:«1...56789101112»