MS Small Basic : TextBox를 읽기 전용으로 설정

Question

누구나 TextBox를 MS Small Basic에서 읽기 전용으로 설정할 수 있는지 알고 있습니까? 속성을 설정하는 방법이없는 것 같습니다. 감사.

Answer 1

예, 방법이 있습니다. 그러나 다소 부정 행위입니다.

Textbox = Controls.AddTextBox(20,20) 

While 1 = 1 
Program.Delay(5) 
Controls.SetTextBoxText(Textbox,"Text Here") 
EndWhile 

여기서 알 수 있듯이 가장 깨끗한 방식은 아닙니다. 그러나 SB는 읽기 전용 명령을 추가하지 않았으며 위대한 기능을 수행합니다.

Answer 2

당신은 여기

controls.settextboxtext(control,text) 

Answer 3

을 할 수있는 당신을 위해 무엇을 찾고있는 당신에게 90 %를 줘야 다른 솔루션입니다. 두 개의 텍스트 상자가 있습니다. 하나는 회색의 텍스트 색으로 잠긴 것이고 다른 하나는 텍스트 색이 검정 인 편집 가능한 것입니다. 잠금 버튼을 누르면 편집 가능한 상자가 숨겨지고 잠겨있는 상자가 표시되고 현재 텍스트로 업데이트됩니다. 나머지 프로그램과의 간섭을 피하기 위해 타이머 이벤트 (자체 스레드에서 실행 됨)를 사용하여 텍스트를 잠급니다. 이것은 모두 편집 가능한 변수에 의해 제어됩니다. 이 예를 들어

SmallBasic 가져 오기 코드는 다음과 같습니다 PNJ462

즐기십시오! :-)

GraphicsWindow.BrushColor = "darkgray" 
Textboxlocked = Controls.AddTextBox(20,20) 
Controls.HideControl(Textboxlocked) 
GraphicsWindow.BrushColor = "black" 
Textbox = Controls.AddTextBox(20,20) 
Controls.SetTextBoxText(Textbox,"Hello World") 
lock = Controls.AddButton("Lock",20,50) 
unlock = Controls.AddButton("Unlock", 130,50) 
Controls.ButtonClicked = onButtonClick 

Timer.Interval = 10 
Timer.Tick = whenTickTocks 

Sub whenTickTocks 
    If editable = "False" then 
    Controls.SetTextBoxText(Textboxlocked,holdtext) 
    EndIf 
endsub 

Sub onButtonClick 
    If Controls.LastClickedButton = lock Then 
    editable = "False" 
    holdtext = Controls.GetTextBoxText(Textbox) 
    Controls.SetTextBoxText(Textboxlocked,holdtext) 
    Controls.ShowControl(Textboxlocked) 
    Controls.HideControl(Textbox) 
    Else 
    editable = "True" 
    Controls.ShowControl(Textbox) 
    Controls.HideControl(Textboxlocked) 
    EndIf 
EndSub