MAIS OPCOES NO DATAGRID

USUARIO.EXCLUIDOS 08/05/2006 11:10:14
#145460
Bom dia Pessoal,

Estou usando aqui no DataGrid, a opção DlClick, para enviar os dados do Grid para outros dois objetos. Na verdade no dlclick eu abro o msgbox, para ter duas opções, em Sim joga o código para um campo texto, e em Não abri outro formulário.
Gostaria de saber se tem mais uma opção diferente, pois precisava agora abrir uma terceira opção que quando clica-se de novo no código pudesse jogalo em outro campo texto, sem dar conflito com o DoubleClick.
é possivel ?

Obrigado,
Valdecyr
USUARIO.EXCLUIDOS 08/05/2006 11:41:25
#145474
Bem, a única forma que vejo de vc realizar o que quer e criar uma variável booleana, tipo primeira...

no load do seu formulário, vc coloca primeira = 1
na primeira vez que vc efetuar o duplo clique vc coloca primeira = 2

este codigo no evento do duplo clique do datagrid...

if primeira = 1 then
'faz o que vc precisa
primeira = 2
else
' faz o que vc precisa
primeira = 1
end if

bem, ai vc adapta ao que vc precisar...
USUARIO.EXCLUIDOS 08/05/2006 13:00:33
#145504
olá marco

se entendi o que vc postou, no meu caso acho que não vai dar certo, pois tanto poderá dar o duplo clique prá fazer uma ação como outra, e isso é feito várias vezes após abrir o formulário.
Obrigado,

Valdecyr
USUARIO.EXCLUIDOS 08/05/2006 13:08:35
#145509
Bem, você tem de ter algum diferencial para saber qual função executar na hora do ducplo clique, você pode fazer por coluna, se clicar duas vezes em uma coluna faz uma coisa se clicar 2x em outra faz a segunda, pois, o VB tem de ter um parà¢metro para saber qual função ele irá executar, não tem como definir o que fazer sem dizer ao programa o que exatamente você quer...

Se vc tiver algo que determine qual das duas funções o Vb deverá executar, post aqui que montamos para vc o código...
USUARIO.EXCLUIDOS 08/05/2006 13:16:11
#145511
Legal marco, então deixa eu passar como estou fazendo eu havia falado que no dlclick fazia duas ações uma abrindo um formulário, outro enviando os dados para um campo texto, mas na verdade eu estou abrindo dois formulários diferentes, na verdade faltou o envio do código que esta no primeiro campo para um campo texto, o código funcinando está assim:

If Not IsDate(DGEncaminha.Columns(1).Text) Then
MsgBox "Digite antes na Lista a Data de Envio", vbExclamation
Exit Sub

Else

Dim Resposta As String

Resposta = MsgBox("Deseja Encaminhar o Aluno" & vbCrLf & _
"SIM, será aberto o ENCAMINHAMENTO" & vbCrLf & _
"NÃO, irá para a tela de ESTUDANTES", vbYesNoCancel + vbQuestion)

If Resposta = 6 Then

Encaminhamento.Show 'Encaminhamento é um Form
Encaminhamento.txtcod.Text = CheckList.DGEncaminha.Columns(0).Text
Encaminhamento.txtCodE.Text = CheckList.txtCodE.Text
Encaminhamento.Text3.Text = CheckList.DGEncaminha.Columns(1).Text
Encaminhamento.Text4.Text = CheckList.DGEncaminha.Columns(2).Text
Encaminhamento.Text5.Text = CheckList.txtFalar.Text
Encaminhamento.Text1.Text = CheckList.txtAtividades
Encaminhamento.Text2.Text = CheckList.txtOrdemServiço.Text
Encaminhamento.cmdVer_Click

ElseIf Resposta = 7 Then

Form1.Show
Form1.txtFields(0).Text = DGEncaminha.Columns(0).Text
Form1.VerificaeLista
Form1.lblUser.Caption = CheckList.lblUsaC.Caption

Else

Exit Sub

End If

End If

agora , eu percebi que tem as opções de colunas, mas não sei como usar, se puder então me dar um exemplo

Obrigado,
Valdecyr
Tópico encerrado , respostas não são mais permitidas