修改只读文本框

Question

我正在尝试创建一个表单，在加载时会出现一个输入框，以便我可以输入库存编号。从那里，我想获取库存编号并将其显示为表单上的只读文本框。在那之后，我希望该用户能够按下一个按钮，他们可以输入另一个库存编号。我遇到的问题是，当我单击允许您输入另一个库存编号的按钮时，表格不会更新新信息。我知道我错过了什么，但我不能把手指放在上面。任何帮助将不胜感激。

这发生在负载上

    Private Sub Contract_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    DocName = C1Report1.Document.DocumentName

    Me.btnPrint.Focus()
    Me.Text = DocName & " - " & DealID
    Try
        Try
            mFormInfo = SetValues(DocName, Me, DealID)
        Catch
        End Try
        myDeal = Infinity.Finance.Calc.Deal.GetDealNumber(DealID)
        myFinance = Infinity.Entity.TotalEntity.GetEntity(myDeal.FinanceCompany)
        myVeh = Infinity.Vehicle.Inventory.VehicleUnit.GetVehicleUnit(myDeal.DealVehicles(0).VehID)
        myDealership = Infinity.CompanyInfo.Company.GetCompany(myDeal.CompanyNumber)
        Dim StkNumber As String = InputBox("Please Enter Stock Number", DocName & " - " & DealID, UltraTextEditor22.Text)
        StkNumber = UltraTextEditor22.Text
        UltraTextEditor22.ReadOnly = True

    Catch
    End Try
    'GetaccesoriesFromObject()
End Sub

这是按钮点击的事件

    Private Sub btnNewStockNum_Click(sender As Object, e As EventArgs) Handles btnNewStockNum.Click
    UltraTextEditor22.Clear()
    Dim NewStkNumber As String = InputBox("Please Enter Stock Number", DocName & " - " & DealID, UltraTextEditor22.Text)
    NewStkNumber = UltraTextEditor22.Text
    UltraTextEditor22.ReadOnly = True
End Sub

Answer 1

您正在将用于检索用户输入的变量的值设置为文本框的值。你需要做相反的事情：

Dim NewStkNumber As String = InputBox("Please Enter Stock Number", DocName & " - " & DealID, UltraTextEditor22.Text)
UltraTextEditor22.Text = NewStkNumber

修改只读文本框

Modifying a Read-Only Text Box

vb.net

textbox

readonly

inputbox