1

MS Small Basic で TextBox を読み取り専用に設定できるかどうか知っている人はいますか? プロパティを設定する方法はないようです。ありがとう。

4

3 に答える 3

0

これは、探しているものの 90% を提供する別のソリューションです。テキストの色が灰色のロックされたボックスと、テキストの色が黒の編集可能なボックスの 2 つのテキスト ボックスがあります。ロック ボタンを押すと、編集可能なボックスが非表示になり、ロックされたボックスが表示され、現在のテキストで更新されます。プログラムの残りの部分に干渉しないようにするために、(それ自体のスレッドで実行される) タイマー イベントを使用してテキストを所定の位置にロックします。これはすべて、編集可能な変数によって制御されます。

この例の 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
于 2015-06-04T20:55:33.550 に答える