MAIS OPCOES NO DATAGRID
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
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
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...
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...
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
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
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...
Se vc tiver algo que determine qual das duas funções o Vb deverá executar, post aqui que montamos para vc o código...
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
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