1

次の簡単なコマンドがあります。

me.textbox1.databindings.clear
me.textbox1.databindings.add("text",TicketsBindingSource,"TicketSubject")

コマンドは正常に実行され、テキストボックスにタイトルが表示されますが、テキストボックス1をクリックすると、カーソルの位置は常に位置0に移動し、クリックしたテキストボックスの領域には移動しません。たとえば、私のテキストボックスには次のテキストがあります: "Hello World". 文字 W のテキストボックス内またはクリックした場所をマウスでクリックすると、カーソルが 0 インデックスに移動します。例えば。最初に、カーソルを左右に移動するには、キーボードの矢印キーを使用する必要があります。

この問題を解決する方法を知っている人はいますか?

public sub LoadTicket(byval TicketID as integer)

    Dim CmdString As SqlClient.SqlCommand = New SqlClient.SqlCommand("Select * from CRMTicketDetails where ID=" & TicketID, ConnestionString)

    TicketTA.SelectCommand = CmdString
    TicketDS.Clear()
    TicketTA.Fill(TicketDS, "MyTable")
    TicketsBindingSource.DataSource = TicketDS.Tables("MyTable")
    TicketBuilder.DataAdapter = TicketTA 

    me.textbox1.databindings.clear
    me.textbox1.databindings.add("text",TicketsBindingSource,"TicketSubject")

End Sub
4

1 に答える 1

0

わかりました、ようやく問題を追跡しましたが、これは非常に奇妙です。私のフォームには次の設定があります

        With Form_
            .TopLevel = False
            .MdiParent = MainForm
            .Parent = MainForm.SplitContainer1.Panel2
            .FormBorderStyle = Windows.Forms.FormBorderStyle.FixedToolWindow
            .Dock = DockStyle.Fill
            .Show()
            .BringToFront()
        End With

問題の修正の短いバージョン

form.borderstyle=none
于 2012-12-18T13:31:26.140 に答える