Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #57 da revista programar. Faz já o download aqui!

Hitman

Ajuda nestes codigos

Mensagens Recomendadas

Hitman    0
Hitman

Boas eu estou comecando agora a dar os meus primeiros passos no VB 6

e estou a ter alguns problemas

1 problema

eu tenho 4 textbox 1 clicbox e 2 checksbox

queria por as 2 checksbox a funcionarem ao mesmo tempo clicando na clickbox

para isso utilizo este codigo

Private Sub Command1_Click()
Text4.Text = Text1.Text & vbCrLf & vbCrLf & Text2
If Check1.Value = 1 Then
Text4.Text = Text1.Text & vbCrLf & vbCrLf & Text2.Text & vbCrLf & Text4.Text 
Else
Text4.Text = Text1.Text & vbCrLf & vbCrLf & Text2.Text
End If

If Check2.Value = 1 Then
Text4.Text = Text1.Text & vbCrLf & vbCrLf & Text2.Text & vbCrLf & Text3.Text 
Else
Text4.Text = Text1.Text & vbCrLf & vbCrLf & Text2.Text
End If
End Sub

por algum motivo que desconheco não funciona

queria poder utlizar as 2 ao mesmo tempo  ou só 1

desde já obrigado pela ajuda

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
NuGuN    2
NuGuN

Boas..

E tens algum código nos eventos das checkbox's? E nesse código não tens nada pra alterar as checkbox's. Tens apenas os ciclos if. Ou será que percebi mal o que queres fazer  :P

Cumps

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Hitman    0
Hitman

Não tenho mais nada,alias nem sabia que era preciso mais alguma coisa.

como disse estou a dar o meu primeiro passo e não percebo nada disto ,estou a tentar descobrir

até pode ser que este codigo esteja mal desde o inicio,

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Hitman    0
Hitman

já descobri como fazer.

Obrigado na mesma pela ajuda

aqui fica o ex:

If Check1.Value = 1 And Check2.Value = 0 Then
Text4.Text = Text1.Text & Text2.Text
ElseIf Check1.Value = 0 And Check2.Value = 1 Then
Text4.Text = Text2.Text & Text3.Text
ElseIf Check1.Value = 1 And Check2.Value = 1 Then
Text4.Text = Text1.Text & Text2.Text & Text3.Text
End If

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita a nossa Política de Privacidade