如何使vb中textbox内容不能更改

Posted 2023-05-15

Locked属性设置为True仍然可以通过复制粘贴修改的。但如果Enabled属性设置为False，那么滚动条都没有用了。只要内容确实不会被改，并且能使用滚动条就可以了。Label无法设置滚动条所以用不来。

可以把它的READONLY属性设成True,这样就是只读属性了,改不了了. 参考技术A VB6 SP6已解决TextBox Locked了还可以粘贴的问题了!下个补丁安装吧

vb.net如何运算一个字符串

比如在textbox1中输入1*5+3-6/2，建立一个botton1控件，点击，使”5“这个结果出现在textbox2中

调用 脚本解析引擎，

textbox2.text=Eval(textbox1.text).ToString()

     Function Eval(ByVal Expressions As String) As Double
        Dim Mssc = CreateObject("MSScriptControl.ScriptControl")
        Mssc.Language = "vbscript"
        Return CDbl( Mssc.Eval(Expressions))
    End Function

不喜欢上面提示的警告的话

     textbox2.text=EvalString(textbox1.text)
     
     Function EvalString(ByVal Expressions As String) As String
        dim oType = System.Type.GetTypeFromProgID("MSScriptControl.ScriptControl")
        Dim o = System.Activator.CreateInstance(oType)
        oType.InvokeMember("Language", System.Reflection.BindingFlags.SetProperty , Nothing, o,New Object() "vbscript")
        Return oType.InvokeMember("Eval", System.Reflection.BindingFlags.InvokeMethod, Nothing, o, New Object()Expressions).ToString()
    End Function

Eval 在VB中使用，刚找到的_vb吧_百度贴吧

http://tieba.baidu.com/p/967893260

参考技术A 在按钮里面设置程序 当按下按钮时候 tetx2显示text1的东西 参考技术B 如果是windows电脑，调用vbs即可。如果要移植，那就自己写。用栈。 参考技术C 复合运算需要你自己去写算法