none
textbox RRS feed

  • Pergunta

  • ola galera 

    estou montando um projeto onde faço somas no próprio textbox , tenho 3 textbox e 1 botão

    onde devo digitar altura do perfil e obiter   altura do corte

    H.text  ,soma.text, corte.text

    gostaria  que na soma.text em vez de eu digitar o valor da textbox ( H ) se eu poderia digitar só o nome da H.text   exemplo ( H-24  ao invés de 1200-24)

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


            Dim a As New MSScriptControl.ScriptControl
            a.language = "vbscript"
            Try
               soma.Text = a.Eval(TextBox1.Text)

            Catch
                MsgBox("Error")
            End Try

        End Sub

     agradeço 

    domingo, 5 de abril de 2015 17:05

Respostas

  • no form poderia deixar dessa maneira:

    Exemplo do Form

    No CodeBehind pode ser feito dessa maneira

        Private Const h As Integer = 1200
    
        Private Sub btnExemplo1_Click(sender As Object, e As EventArgs) Handles btnExemplo1.Click
            txtResultado1.Text = h - txtExemplo1.Text
        End Sub
    
        Private Sub btnExemplo2_Click(sender As Object, e As EventArgs) Handles btnExemplo2.Click
            txtResultado2.Text = h - txtExemplo2.Text()
        End Sub
    Boa Pascoa para você também.


    Uma imagem vale mais do que mil palavras, mas ocupa 3 mil vezes mais espaço em disco


    domingo, 5 de abril de 2015 21:28

Todas as Respostas

  • armazena o valor da TextBox "H", no lugar de ficar digitando varias vezes H.Text varias vezes exemplo

    Dim valor as string = H.Text


    Uma imagem vale mais do que mil palavras, mas ocupa 3 mil vezes mais espaço em disco

    domingo, 5 de abril de 2015 17:15
  • OLÁ  Amigo


    eu acho que não fui muito claro...  e a pergunta deixei muito confusa , me desculpe vou explicar melhor

    o projeto e sobre calculo de esquadrias 

    refiz o projeto  

            

     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

            
            Dim a As New MSScriptControl.ScriptControl
            a.language = "vbscript"
            Try
                RESULTADO.Text = a.Eval(SOMA.Text)

            Catch
                MsgBox("Error")
            End Try

        End Sub

         

    Private Sub H_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles H.TextChanged

      H.Text = ("1200")
      

    End Sub

    o que eu queria e poder digitar na soma.text ( H-24)  ao invés de( 1200-24)

    bom gostaria muito se vc pude-se me ajudar pois custei muito para achar o esquema de calcular dentro da mesma textbox..  agradeço amigo abraço

    domingo, 5 de abril de 2015 19:01
  • Não é por nada, mas continua esquesito, outra coisa é seu TextBox H com um TextChanged sempre para H.Text = ("1200"), você pode defenir na propriedade Text o Valor 1200 e depois Enabled = False Ou ReadyOnly = True, que a pessoa não ira conseguir alterar o valor do TextBox.

    Só para entender melhor, no TextBox você quer digitar H, mas no codígo quer reconhecer essa Letra "H" como valor de 1200?

    Se for isso não é mais facil ter uma label Antes mostrando a Formula na Label ficaria "H -" e logo em seguida o TextBox.


    Uma imagem vale mais do que mil palavras, mas ocupa 3 mil vezes mais espaço em disco

    domingo, 5 de abril de 2015 19:31
  • sim é isto mesmo  

    mas como eu faria este procedimento sera se vc poderia montar um exemplo para que eu pudesse entender melhor .. me desculpe a confusão e o transtorno ..

    agradeço amigo

    boa Pascoa

    domingo, 5 de abril de 2015 19:59
  • no form poderia deixar dessa maneira:

    Exemplo do Form

    No CodeBehind pode ser feito dessa maneira

        Private Const h As Integer = 1200
    
        Private Sub btnExemplo1_Click(sender As Object, e As EventArgs) Handles btnExemplo1.Click
            txtResultado1.Text = h - txtExemplo1.Text
        End Sub
    
        Private Sub btnExemplo2_Click(sender As Object, e As EventArgs) Handles btnExemplo2.Click
            txtResultado2.Text = h - txtExemplo2.Text()
        End Sub
    Boa Pascoa para você também.


    Uma imagem vale mais do que mil palavras, mas ocupa 3 mil vezes mais espaço em disco


    domingo, 5 de abril de 2015 21:28
  • Bom dia Alexsandro

    muito obrigado era isso mesmo que precisava..   

    deu certo no projeto ..  

    Abraço ...  

    segunda-feira, 6 de abril de 2015 16:47
  • Um detalhe que, para evitar erro no projeto que se coloque "0" nas propriedades "Text" dos TextBox, sendo assim, se clicar ao botão sem os "zeros" vem o erro.


    MS INFORMATICA - Projeto Marinner

    segunda-feira, 6 de abril de 2015 17:53