textbox

Question

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 

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

no form poderia deixar dessa maneira:

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

Answer 6

Bom dia Alexsandro

muito obrigado era isso mesmo que precisava..   

deu certo no projeto ..  

Abraço ...  

Answer 7

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