Programação  
 
Conhecimento computador >> Programação >> Programação Visual Basics >> 
Como verificar uma String para Alphabet Somente em VB
aplicativos Visual Basic geralmente permitem aos usuários inserir dados usando o teclado. Saneantes e transformando esta informação bruta em dados utilizáveis ​​é uma tarefa crucial para o desenvolvedor. Por exemplo, muitas vezes é necessário para filtrar e remover caracteres não-alfabéticos para proteger aplicativos de falhas de segurança . Limpeza de dados e manter a uniformidade é importante quando o armazenamento de dados , o que impedirá a criação de registos duplicados . Visual Basic 6 oferece muitas funções de manipulação de corda, tornando-se uma tarefa simples para escrever código que verifica a existência de caracteres não- alfabéticos. Instruções
1

Abra o Visual Basic 6 no ícone "Iniciar" , localizado na barra de tarefas do Windows.
2

Selecione " Standard.exe " e clique em "Abrir" para iniciar uma nova aplicação do Visual Basic 6 .
3

Arraste o ícone " caixa de texto " para a janela chamada " Form1 ", criando uma caixa de texto chamada "Text1 ".
< br > 4

Arraste o ícone " CommandButton " para a janela chamada " Form1 ", criando um botão rotulado " Command1 ".
5

Dê um duplo clique no botão " Command1 " para abrir o código janela . Abaixo da linha denominada " Private Sub Command1_Click () " cole o código:

fraca scompare As String

fraca iCount As Integer

Para iCount = 1 To Len ( Text1. texto)

scompare = Mid $ ( Text1.Text , iCount , 1)

Text1.Text = Mid $ ( Text1.Text , iCount + 1 , Len _ ( Text1.Textt ) )

Se scompare Curtir ( " [AZ ]" ) Or _

scompare Curtir ( " [az ]" ) Or _

scompare Curtir ( "#") Então

msgbox ( " apenas personagens Alpa " )

Else

msgbox ( caracteres não-alfabéticos encontrado " )

Exit Function End

Se

Próxima iCount
6

Pressione a tecla "F5" para executar o aplicativo Visual Basic. Digite o texto que deseja verificar na caixa de texto . Clique no botão " Command1 " , e uma mensagem será exibido verificando se o texto é alfabética ou não.

Anterior :

Próximo : No
  Os artigos relacionados
·Como usar API Net Com VB6 
·Como Verificar o driver ODBC em VBA 
·Como usar o controle TreeView 
·Como converter uma variável String para uma variável …
·Como parar um loop infinito em Macro 
·Como preencher uma célula após uma seleção suspensa…
·Como contar o número de letras de uma String em VB6 
·Funções GridExibir 
·Como usar ADODC em VB6.0 
·Como Ler e Escrever para RichTextBox no VB6 
  Artigos em destaque
·Como escrever programas Java para uma Slot Machine 
·Como construir um site usando Java 
·Objetivo de Métodos CString 
·Como Loop através de tipos MIME 
·Mid função em VBScript 
·Como codificar um link no PHP 
·Como criar um banco de dados MySQL Site 
·Como truncar Tudo Depois de um personagem em PHP 
·Como liberar uma consulta Log lento no MySQL 
·Como assegurar que o arquivo foi copiado em VB6 
Cop e direita © Conhecimento computador https://ptcomputador.com Todos os Direitos Reservados