Fórum
Ver pergunta

instanciar uma customForm que devolva um resultado em VB.NET   

Duplicada
80 visualizações
0
0
Duplicada.

Esta pergunta já tem uma resposta aqui: Como passar um valor entre dois objetos do tipo CustomForms

Olá.

Quero abrir um formulário (FDU) ao clicar uma combinação de teclas no editor de vendas, e quero que esse formulário me devolva um double que se encontra num campo de números, depois de este ser preenchido e o usuário clicar o OK. Como faço isso? Obrigado.

Segue o meu codigo atual.

Public Overrides Sub TeclaPressionada(KeyCode As Integer, Shift As Integer, e As ExtensibilityEventArgs)
        Dim descontoForm As New FDU_Desconto
        Dim desconto As Double
        Dim precoAtual As Double
        Dim precoFinal As Double


        'Using resultado = BSO.Extensibility.CreateCustomFormInstance(GetType(FDU_Desconto))

        'TryCast(resultado.Result, FDU_Desconto).ShowDialog()




        If descontoForm.ShowDialog() = Windows.Forms.DialogResult.OK Then
            precoFinal = descontoForm.Res
            precoAtual = Me.DocumentoVenda.Linhas.GetEdita(NumLinha).PrecUnit
            desconto = precoFinal * 100 / precoAtual

            Me.DocumentoVenda.Linhas.GetEdita(NumLinha).DescontoComercial = desconto
        Else

        End If
        'End Using



End Sub

 

Faça login para poder traduzir
V10
Geral
Marcado como spam
Criado há 3 anos e 7 meses clovisribeiro
c
clovisribeiro Iniciante