Pessoal Agora vamos começar as aulas de VB6.0 blz?
Primeiramente vocês precisam baixar o programa chamado Visual Basic 6.0 ou outra versão
eu recomendo que você baixe o VB6.0 porque é leve mais você pode baixar a versão que você quiser
Primeiro vamos reconhecer a interface:
Somente clik em Abrir
Agora clik no botão e adicione ele no formulario ( o botão fica no menu da esquerda)
Clik em Text no menu a esquerda e adicione ele no formulario
Para mudar o nome do botão basta olhar no menu direito na parte de baixo NÃO MUDE o nome mude somente onde esta escrito "Caption" ali é o nome do botão tipo assim "Command1"
e para mudar o nome do text basta procurar na propiedade no menu direito escrito "Text" e mudar ou deixar em branco mas não mude a propiedade NOME que sempre se encontra no topo.
agora vamos mudar o nome do text1 porque no código em vez de usarmos "text1" ao se referir a caixa de texto vamos usar "textonovo" blz?
procure no menu a direita na caixa de propiedade a propiedade "Nome" na frente esta escrito Text1 vamos trocar por "textonovo"
olhe a imagem:
Feto isso clik 2 vezes sobre o Command1 (o botão)
abrira uma janela de código ali será o código do nosso botão (Command1)
Veja a imagen:
agora nosso código do botão vai ser digitado entre
Private Sub Command1_Click()
aqui vai o código do nosso botão
End Sub
vou explicar o codigo:
tn = textonovo.Text
'estão vendo aqui nosso "textonvo"? .text é para dizer que ele é um texto
e o tn = textonovo.Tex serve para dizer que de agora em diante o tn é a mesma coisa que textonovo.Tex
MsgBox ("") & tn
'MsgBox ("") serve para exibir mensagem MsgBox ("aqui vai a mensagen") as não deixei nada dentro a letra & serve para dizer que... ela vai dizer..
olha o 'tn' na frente dela então tudo que tiver no "tn" vai para o MsgBox ("") o & é como se fosse um caminho de tal coisa até tal coisa no caso ele faz o caminho do "tn" até o MsgBox ("") entendenram?
recomendo que vocês escrevam o código e não copiem, para aprender é melhor escrever
tn = textonovo.Text
MsgBox ("") & tn
Agora vamos testar Clik em Start na flechina no topo
ou no menu superio>run>Start
digite a mensagem na caixa de texto e clik em Command1
Aé pessoal por hj é só qualquer duvida é só postar mas não poste como anonimo se não eu não vou poder responder para o seu E-mail.
Ainda não é um mebro?
Ta esperando oque?
Entre aqui
Cadastre-se
EmoticonEmoticon