Array
(
    [0] => stdClass Object
        (
            [Votos_Balanceados] => 1
            [id] => 537172
            [titulo] => calculadora com teclado numérico
            [dataCadastro] => DateTime Object
                (
                    [date] => 2015-11-14 18:02:24
                    [timezone_type] => 3
                    [timezone] => America/Sao_Paulo
                )

            [isFirstPost] => -1
            [idUsuario] => 341795
            [status] => M
            [isExample] => 
            [NomeUsuario] => Lucas Riechelmann Ramos
            [Apelido] => Riechelmann
            [Foto] => 341795_20160129112219.jpg
            [Conteudo] => Segue o que propus para lhe auxiliar

Variável global para auxiliar no controle do textBox no evento Leave, e no Evento click do botão adicionar o valor ao último textbox com foco

[code]
Public Class Form1
Dim ControleTextBox As Integer = 0

Private Sub txtVim_Leave(sender As Object, e As EventArgs) Handles txtVim.Leave
ControleTextBox = 1
End Sub

Private Sub txtA_Leave(sender As Object, e As EventArgs) Handles txtA.Leave
ControleTextBox = 2
End Sub

Private Sub txtVout_Leave(sender As Object, e As EventArgs) Handles txtVout.Leave
ControleTextBox = 3
End Sub

Private Sub btnNum1_Click(sender As Object, e As EventArgs) Handles btnNum1.Click
Select Case ControleTextBox
Case 1
txtVim.Text += "1"
Case 2
txtA.Text += "1"
Case 3
txtVout.Text += "1"
End Select
End Sub
End Class
[/code] ) )

calculadora com teclado numérico

Anderson Mariano
   - 13 nov 2015

Olá estou com dificuldades em fazer uma calculadora especifica para calcular valor de um capacitor.
Essa calculadora contém 03 textbox e um teclado de buttons com numeros ao clicar no button seria para colocar no textbox que estivesse selecionado o numero correspondente ao button que apertei, mas meu codigo não deu certo.
Clique na imagem para abrir em uma nova janela
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If TextBox1.Text = 0 Then
TextBox1.Text += "1"
ElseIf TextBox2.Text = 0 Then
TextBox2.Text += "1"
ElseIf TextBox3.Text = 0 Then
TextBox3.Text += "1"
End If
End Sub
Coloquei este codigo em todos os buttons de 0 ao 9 mas não deu certo.

Post mais votado

Riechelmann
   - 14 nov 2015

Segue o que propus para lhe auxiliar

Variável global para auxiliar no controle do textBox no evento Leave, e no Evento click do botão adicionar o valor ao último textbox com foco

#Código

Public Class Form1
    Dim ControleTextBox As Integer = 0

    Private Sub txtVim_Leave(sender As Object, e As EventArgs) Handles txtVim.Leave
        ControleTextBox = 1
    End Sub

    Private Sub txtA_Leave(sender As Object, e As EventArgs) Handles txtA.Leave
        ControleTextBox = 2
    End Sub

    Private Sub txtVout_Leave(sender As Object, e As EventArgs) Handles txtVout.Leave
        ControleTextBox = 3
    End Sub

    Private Sub btnNum1_Click(sender As Object, e As EventArgs) Handles btnNum1.Click
        Select Case ControleTextBox
            Case 1
                txtVim.Text += "1"
            Case 2
                txtA.Text += "1"
            Case 3
                txtVout.Text += "1"
        End Select
    End Sub
End Class

1
|
0

Aluisio Cavalcante
   - 13 nov 2015

Aonde está a operação que deve ser feita?

Anderson Mariano
   - 13 nov 2015

A operação é feita no botão enter e o valor aparece em um picturebox.
Só preciso fazer com que insira os numeros no textbox quando clicado nele, quando clicar em outro textbox consiga inserir os números nele.

Aluisio Cavalcante
   - 13 nov 2015

Esse código que vc fez já faz a operação?

Anderson Mariano
   - 13 nov 2015


Citação:
Esse código que vc fez já faz a operação?

Amigo o que preciso é fazer com que quando clica no botão referente aos números ele preencha o textbox que está em foco.
De resto já está funcionando.

Riechelmann
   - 14 nov 2015

Quando você aperta o botão o TextBox perde o foco e não tem como saber qual lugar preencher sem controle, faça o seguinte, crie uma variável global
#Código

int ControleTextBox;


No evento Exit de cada textbox atribua um valor a ela, e quando clicar no botão só verificar o valor dessa variável para saber qual deve alimentar.

Anderson Mariano
   - 14 nov 2015

Como assim Lucas não entendi o que vc quis dizer, estou trabalhando com vb.net.

Anderson Mariano
   - 14 nov 2015


Citação:
Como assim Lucas não entendi o que vc quis dizer, estou trabalhando com vb.net.


Blz consegui fazer a variável global e agora está quase funcionando, só que o primeiro numero que clico tem que ser do teclado dai meus botões de numeros funcionam se não, não funcionam.
O que posso fazer agora.

Anderson Mariano
   - 14 nov 2015


Citação:
Segue o que propus para lhe auxiliar

Variável global para auxiliar no controle do textBox no evento Leave, e no Evento click do botão adicionar o valor ao último textbox com foco

#Código

Public Class Form1
    Dim ControleTextBox As Integer = 0

    Private Sub txtVim_Leave(sender As Object, e As EventArgs) Handles txtVim.Leave
        ControleTextBox = 1
    End Sub

    Private Sub txtA_Leave(sender As Object, e As EventArgs) Handles txtA.Leave
        ControleTextBox = 2
    End Sub

    Private Sub txtVout_Leave(sender As Object, e As EventArgs) Handles txtVout.Leave
        ControleTextBox = 3
    End Sub

    Private Sub btnNum1_Click(sender As Object, e As EventArgs) Handles btnNum1.Click
        Select Case ControleTextBox
            Case 1
                txtVim.Text += "1"
            Case 2
                txtA.Text += "1"
            Case 3
                txtVout.Text += "1"
        End Select
    End Sub
End Class


Era exatamente o que eu procurava deu certo. Parabéns Lucas me ajudou e muito em.