1樓：匿名使用者
一般的命令按鈕單擊事件應該是：private sub command1_click()
你的裡面有（index as integer）說明應該 是控制元件陣列，但 是如果你的按不是控制元件陣列就會有你說的錯誤：過程宣告與同名事件或過程的描述不匹配
可以去掉index as integer 但是你裡面的**也是有問題的！
一般用控制元件陣列方式（設計時先有一個text1，設定它的index=0）在form_load 事件裡直接用
load text(i) 來新增。但是執行之後再新增比較麻煩。給你個參考**，你可以看一看：
另外就是一樓所說的問題！
2樓：匿名使用者
private sub form_dragdrop(source as control, x as single, y as single)
source.move left + x - oldx, top + y - oldy
end sub
private sub text1_mousedown(index as integer, button as integer, shift as integer, x as single, y as single)
dim oldx as single, oldy as single '你少了。index as integer
oldx = x + left
oldy = y + top
text1(0).drag 1 '因為text是控制元件陣列 所以text1.drag的寫法不正確 得指明標誌號
end sub
private sub text1_mouseup(index as integer, button as integer, shift as integer, x as single, y as single)
text1.drag 2
end sub
private sub command1_click(index as integer)
static i
i = i + 1
load text1(i)
text1(i).visible = true
text1(i).left = text1(i).left + text1(i).width * i
end sub
3樓：摩瑛京雪風
鑑於你只列出了**，並沒有寫出是那句話報錯；
分析你的錯誤描述後得出以下結論：
只有可能是你的command1、command2、command3或command4其中一個或多個本來是個控制元件陣列，結果你卻沒把它當控制元件陣列來寫**，才能造成你所描述的錯誤。
例如，你窗體中command1是個控制元件陣列，那麼你的**應該是：
private sub command1_click(index as integer)
'你的**
end sub
如果你不知道如何看哪個是控制元件陣列，請分別單擊每個按鈕後，觀察屬性視窗中的index是否有值，哪怕是0，也算這個按鈕為控制元件陣列。
4樓：勤全廖盼易
是你的電腦與那臺電腦上的庫檔案版本新舊不同，一般來說是舊版與安裝了補丁sp5.0或sp6.0導致，若是舊版本，「工程」->「引用」選單，你能看到打鉤的項"microsoft
activex
data
objects
2.0libarbry"；若是後者補丁打了的情況，則應去掉這個鉤，選上"microsoft
activex
data
objects
2.6libarbry"即可正常執行程式。依此原因，你看看打鉤情況，做一下更改即能解決問題。
5樓：
load text1(i)
text1(i).visible = true
text1(i).left = text1(i).left + text1(i).width * i
從這幾句看，text1應該是個控制元件陣列，因此在text1的所有事件過程宣告中第一個引數都應該是index as integer，即
private sub text1_mousedown(index as integer, button as integer, shift as integer, x as single, y as single)
private sub text1_mouseup(index as integer, button as integer, shift as integer, x as single, y as single)
在你成長的過程中有哪些活動事件或人物讓你所觸動深受啟發寫一寫注意寫出真情
寫作思路 使用簡單的寫作風格，讀者傾向於選擇簡單的文字來閱讀，而不是在複雜的表達中沉思。例如，你可以用 幫助 而不是 促進 或 使用 而不是 利用 把複雜的單詞留給教授，用簡單易懂的語言與人交談，而不用讓讀者花很多時間去閱讀。正文 成長像美麗的花，五彩繽紛 成長像調味品，酸甜苦辣 成長像彩虹，色彩斑...
vb編實現順序查詢的函式過程 呼叫此過程在有元素的陣列中
private sub form load dim b 15 as string b 3 a b 9 b b 11 c msgbox searchvalinarray b,b end sub private function searchvalinarray byref a as string,by...
中原突圍發生的背景與原因，影響事件過程和結果的因素，事件的意
事故的起因，官方有兩個互相矛盾的解釋，如下 1 1986年8月事故起因公佈，完全把事故的責任推卸給核電站操縱員。2 釋出於1991年，該解釋認為事故是由於壓力管式石墨慢化沸水反應堆 rbmk 的設計缺陷導致，尤其是控制棒的設計。 修車車滴 其實你完全不用管缺陷 控制棒 不穩定 切爾洛貝利反應堆的原理...