none
Access RRS feed

  • Question

  • Hola, necesito que en un control me muestre el valor de otro control y me permita dejar o cambiar el primero
    Monday, August 12, 2019 8:12 PM

Answers

  • Also for me i cannot take out any sense in translation,

    Perhaps something like this

    GraphicsWindow.FontBold = "" GraphicsWindow.FontSize = 11 GraphicsWindow.BrushColor = "Black" tb1 = Controls.AddTextBox(10,10) GraphicsWindow.DrawText(200,10 "TB1") tb2 = Controls.AddTextBox(10,40) GraphicsWindow.DrawText(200,40 "TB2") GraphicsWindow.Title = "Toggle by TAB" Controls.TextTyped = OnTextTyped GraphicsWindow.KeyDown = OnKeyDown ' ////////////////// EVENTs /////////////////// Sub OnTextTyped lastTB = Controls.LastTypedTextBox If lastTB = tb1 Then Controls.SetTextBoxText(tb2, Controls.GetTextBoxText(tb1)) ElseIf lastTB = tb2 Then Controls.SetTextBoxText(tb1, Controls.GetTextBoxText(tb2)) EndIf EndSub Sub OnKeyDown If GraphicsWindow.LastKey = "Escape" Then Program.End() EndIf EndSub


    Monday, August 12, 2019 9:20 PM
    Answerer

All replies

  • Is this Smal Basic?

    Sorry the translation of your question to English doesn't make sense.

    Monday, August 12, 2019 8:19 PM
    Moderator
  • Also for me i cannot take out any sense in translation,

    Perhaps something like this

    GraphicsWindow.FontBold = "" GraphicsWindow.FontSize = 11 GraphicsWindow.BrushColor = "Black" tb1 = Controls.AddTextBox(10,10) GraphicsWindow.DrawText(200,10 "TB1") tb2 = Controls.AddTextBox(10,40) GraphicsWindow.DrawText(200,40 "TB2") GraphicsWindow.Title = "Toggle by TAB" Controls.TextTyped = OnTextTyped GraphicsWindow.KeyDown = OnKeyDown ' ////////////////// EVENTs /////////////////// Sub OnTextTyped lastTB = Controls.LastTypedTextBox If lastTB = tb1 Then Controls.SetTextBoxText(tb2, Controls.GetTextBoxText(tb1)) ElseIf lastTB = tb2 Then Controls.SetTextBoxText(tb1, Controls.GetTextBoxText(tb2)) EndIf EndSub Sub OnKeyDown If GraphicsWindow.LastKey = "Escape" Then Program.End() EndIf EndSub


    Monday, August 12, 2019 9:20 PM
    Answerer