可以將您的程式PO上來嗎?

>>P陳
哪一段呢?
我是照著範例在panel裡面生成按鈕

BtuNumber(1, BtuCount) = BtuCount BtuCount = BtuCount + 1 btuArray(ButtonNumber) = New Button() '以迴圈逐個實體化按鈕 Panel1.Controls.Add(btuArray(ButtonNumber)) '加入按鈕          btuArray(ButtonNumber).Width = 100 btuArray(ButtonNumber).Height = 80 btuArray(ButtonNumber).AutoSize = False btuArray(ButtonNumber).Font = New Font("Bahnschrift Condensed", 10) btuArray(ButtonNumber).Text = "Inv-" & C1Inv(i) & "-" & C1StringNum(i, j) & "-" & j & vbCr & " W" & vbCr & " V" btuArrayText(ButtonNumber) = "Inv-" & C1Inv(i) & "-" & C1StringNum(i, j) & "-" & j & vbCr & " W" & vbCr & " V" btuArray(ButtonNumber).Top = yaxis '按鈕生成垂直座標          btuArray(ButtonNumber).Left = xaxis '按鈕生成水平座標    xaxis = xaxis + 70 AddHandler btuArray(ButtonNumber).Click, AddressOf button_Click xaxis = xaxis + 45 ButtonNumber = ButtonNumber + 1

當我滑鼠最後點選的物件是panel內的按鈕時，才會有上述的那種情況
例如從上到下總共10個按鈕，當我點選第3個按鈕之後，
我將panel滾到下面要看第10個按鈕上的文字，
panel就會被拉回像我PO文的那個位置。

哪一段呢?
我是照著範例在panel裡面生成按鈕
------------------------------------
您要PO出 前一段，ButtonA 來產生 所有PANEL 及 button 的程式

也就是讓要協助你的人，要按一個　ButtonA 就能產生您的問題，並來協助你
您PO的程式有很多未知的變數，比如 i j 等等，我那能猜出來要放什麼

C1StringNum 也沒有交待

> P陳

抱歉 沒有講清楚讓您產生誤會了
上面那段有些變數只是我要顯示在button上面的文字而已
跟我講的狀況沒有甚麼關聯 所以我才沒有詳述
我拿下面這個做例子

宣告變數

Dim btuArrayInputMainID As TextBox() = New TextBox(200) {} '第一組textbox Dim btuArrayInputID As TextBox() = New TextBox(500) {} '第二組textbox Dim MainIDX As Integer = 0 ' 第一組的X軸 Dim MainIDY As Integer = 0 ' 第一組的Y軸 Dim IDX As Integer = 0 ' 第二組的X軸 Dim IDY As Integer = 0 ' 第二組的Y軸

我這邊生成的是用textbox 跟 button一樣狀況

我拉一個panel 這裡是元件名稱是panel6
panel的AutoScroll設為True


Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click Panel6.Controls.Clear() ' 清空panel ' X/Y軸變數歸零 MainIDX = 0 MainIDY = 0 IDX = 0 IDY = 0 For i = 0 To 20 ' 產textbox btuArrayInputMainID(btuinput) = New TextBox() '以迴圈逐個實體化按鈕            Panel6.Controls.Add(btuArrayInputMainID(btuinput)) btuArrayInputMainID(btuinput).Width = 40 btuArrayInputMainID(btuinput).Height = 30 btuArrayInputMainID(btuinput).Top = 10 '按鈕生成垂直座標          btuArrayInputMainID(btuinput).Left = 10 + MainIDY '按鈕生成水平座標    btuArrayInputID(btuinput) = New TextBox() Panel6.Controls.Add(btuArrayInputID(btuinput)) btuArrayInputID(btuinput).Width = 40 btuArrayInputID(btuinput).Height = 30 btuArrayInputID(btuinput).Top = 40 '按鈕生成垂直座標          btuArrayInputID(btuinput).Left = 10 + IDY '按鈕生成水平座標    MainIDY = MainIDY + 100 ' 下一個textbox的位子右移100 IDY = IDY + 100 ' 下一個textbox的位子右移100 Next End Sub

情況應該是一樣的，我在panel內點選第一個textbox要輸入時，如果滾輪往後面滾動，
他會被拉回第一個textbox那邊，
我想問的是有沒有什麼設定可以讓它不會被拉回去那個位子。

1. 每一個欄位都可以打資料沒問題，跳格也很正常，我看不到問題在那
2.btuinput 您沒有交待，我猜是編號，就加在FOR 的後面加了一句 btuinput =I

在左上角那格打字後 上下滾動，很正常