Algum maluco aqui programa em VB ?

[Valiant]

Tô com uma dúvida em um comando aqui no VB6. Algum doido do KM entende de VB ?

[Pereirao]

EEEU !!! Chapolin Colorado !

Manda

[ReiserFS]

já programei em VB num passado muito distante, porem não lembro de nada.

No momento somente
C
C++
Java
BASH
PHP

Delphi (meio esquecido mas desenrolo)
Pascalzin (idem acima) pascal e delphi da no mesmo heheheh.

VB (Deletado da memoria)

[EduardoBerto]

EEEU !!! Chapolin Colorado !

Manda

Manja mas é enroladooooooooo.....!!!!!!!!!!!!!!!

Pereirão, antes q me esqueça...VSF

X

[Valiant]

EEEU !!! Chapolin Colorado !

Manda

Manja mas é enroladooooooooo.....!!!!!!!!!!!!!!!

Pereirão, antes q me esqueça...VSF

X

Huhauhauhauha... Os dois se amam mesmo...

Pereira, é o seguinte: Eu uso um objeto aqui chamado MSFlexGrid. É uma gradezinha.

Bom, nessa grade eu relaciono, entre outras coisas, nomes de clientes. Pra facilitar, eu fiz uma "janelinha" (form) onde a pessoa digita o nome e ele busca nessa grade.

Acontece que eu pretendo usar essa "janelinha" em mais de uma grade. Então eu queria saber como faço pra atribuir a uma variável a condição de objeto e apontar essa condição pra grade onde eu quero buscar os nomes. Mais ou menos como se eu dissesse ao programa: olha, "x" aqui refere-se ao objeto grade lá daquele form.

Com isso, eu só troco pra onde o "x" vai apontar, logo no início da rotina, e ele executa o resto. Senão eu vou precisar escrever uma rotina pra cada grade, porque muda o nome e o form onde ela está.

Entendeu ????

[Pereirao]

Entendi mais ou menos...

Você pode passar o FlexGrid como parâmetro da sub ou function que chama a tal janelinha.

Entendeu ?

Vamos supor:

Em um form você tem 1 label L1, um botão B1, um label L2 e um botão B2

No click do B1 você coloca:

Código: Selecionar todos

Call ChamaJanelinha( L1 )

No click do B2 você coloca:

Código: Selecionar todos

Call ChamaJanelinha( L2 )

Daí você cria uma sub:

Código: Selecionar todos

Sub ChamaJanelinha( X As Label )
  Janelinha.Show vbModal
  X.Caption = Janelinha!T1.Text
End Sub

No form Janelinha, vai ter um textbox chamado T1 e um botão de OK, sei lá...

No click do OK você coloca:

Código: Selecionar todos

Me.Hide

Então, se você clicar em B1, ele vai atualizar a L1 com o texto digitado na Janelinha. Se clicar em B2, ele atualiza L2.

Veja que eu passo uma referência da label como parâmetro da sub (X) e utilizo essa referência prá trabalhar (X.Caption)

Resolvido ?

[Valiant]

Não é nada disso, rsrsrs....

Depois eu te explico melhor no TS. Não consegui me expressar bem aqui, acho. É meio complicado mesmo, assim, escrevendo.

Vlw pela atenção, por enquanto.

[Pereirao]

Presta atenção que é isso mesmo...

No exemplo que eu fiz, eu transformei um objeto label ( L1 ou L2 ) em uma variável ( X )

Veja que, prá mudar o caption de L1 ou L2 eu não escrevi L1.Caption = "onono" ou L2.Caption = "onono"

O comando X.Caption = "onono" vai alterar o caption da label que foi passada como parâmetro da sub ou função Sub Teste( X As Label )

No lugar de Label, Text, você vai usar seu FlexGrid, etc... Só dei um exemplo... Quer moleza ? Come sopa de minhoca !

[-=KM=-zero]

LÓU!

viajei nesse tópico

[Freeman]

vocês tão falando sério mesmo?

[Valiant]

Presta atenção que é isso mesmo...

No exemplo que eu fiz, eu transformei um objeto label ( L1 ou L2 ) em uma variável ( X )

Veja que, prá mudar o caption de L1 ou L2 eu não escrevi L1.Caption = "onono" ou L2.Caption = "onono"

O comando X.Caption = "onono" vai alterar o caption da label que foi passada como parâmetro da sub ou função Sub Teste( X As Label )

No lugar de Label, Text, você vai usar seu FlexGrid, etc... Só dei um exemplo... Quer moleza ? Come sopa de minhoca !

Acho que entendi, tio pereira.... Agora vou testar lá. Depois falo pra vocês o que deu, se o pc não explodiu...