USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  comunicação entre forms...
The Victrix
SANTOS
SP - BRASIL
ENUNCIADA !
Postada em 08/07/2004 12:09 hs            
Preciso ter uma comunicação entre um form de opções(form2) q aparece após o splash(frmsplash), em que esse form d opções deve dizer ao form 1 as opções q o usoário marcou, no caso 2 frames, os dois com 4 options, e dependendo das seleções feitas, isso alteraria os intervals de timers.
 
Grato,
Victor
   
Rochª
Pontos: 2843 Pontos: 2843 Pontos: 2843
RIO DE JANEIRO
RJ - BRASIL
ENUNCIADA !
Postada em 08/07/2004 13:15 hs            
Voce pode acessar um text, combo e etc de outro forma. Se voce estiver no form2 e queira acessar algum objeto do form1 use
 
------ Form 2
nome_do_cliente = Form1.txt_cliente
 
ou
If form1.opcao1 = true Then
....
 
Ajudou
 

__________________________________________________________________________
Qualquer coisa post
 
Emoções
Rochª
   
WaldirJr
POÇOS DE CALDAS
MG - BRASIL
Postada em 08/07/2004 13:17 hs            
'No Form1
If Form2.OptButton1(0).Value=True AND Form2.OptButton2(0).Value=True Then
   Timer.Interval = 10
 ElseIf Form2.OptButton1(1).Value=True And Form2.OptButton2(0).Value=True Then
   Timer.Interval = 20
 ElseIf Form2.OptButton1(2).Value=True And Form2.OptButton2(0).Value=True Then
   ...
End If

________________________

Té +

Que NIMB role bons Dados! Emoções

     
WaldirJr
POÇOS DE CALDAS
MG - BRASIL
Postada em 08/07/2004 13:26 hs            
Ou então vc pode Criar uma Variavel Global e fazer uma Combinação de Valores, Por ex:
Private Sub Option1_Click(Index As Integer)
   x = (Index + 1) * 100
   If Option2(1).Value Then
      x = x + 500
    ElseIf Option2(2).Value Then
      x = x + 1000
    ElseIf Option2(3).Value Then
      x = x + 1500
   End If
End Sub
Private Sub Option2_Click(Index As Integer)
   x = (Index) * 500
   If Option1(0).Value Then
      x = x + 100
    ElseIf Option1(1).Value Then
      x = x + 200
    ElseIf Option1(2).Value Then
      x = x + 300
    ElseIf Option1(3).Value Then
      x = x + 400
   End If
End Sub
Depois faça:
Timer1.Interval = x

________________________

Té +

Que NIMB role bons Dados! Emoções

TÓPICO EDITADO
   
The Victrix
SANTOS
SP - BRASIL
ENUNCIADA !
Postada em 10/07/2004 22:05 hs            

será q isso q vcs me falaram funciona mesmo se o form não tenha sido carregado aínda?Pq ele só carrega depois do form de opções, e o form de opções é dado o comando Unload(isso nessa ordem: unload me ; form1.load)...       Obrigado.;....(Meu teclado naum tah dando enter....)                          

   
Anjo Negro
SÃO GONÇALO
RJ - BRASIL
Postada em 10/07/2004 23:38 hs            
Então faça uma variável global e depois (qndo o form for carregado) você atribui o valor ao objeto que vc qr através dessa variável.

_______________________

Anjo Negro

anjonegro86@ibest.com.br

     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página