在網(wǎng)頁(yè)里加入你要跳轉(zhuǎn)的按鈕，這個(gè)可以隨便是圖片或者文字ltDIV ltIMG border=0 src=quotimageslanren_topjpgquotltDIV ltSCRIPT type=textjavascriptgoTopExltSCRIPT在層div里加入這樣的代碼這個(gè)頁(yè)面鏈接的詳細(xì)JS代；向上按鈕的click事件代碼if 0 =5 這里的5可以自己更改， 設(shè)的大每次變動(dòng)的就大 endif 其他你可以參考上面的代碼， 下面寫(xiě)注意點(diǎn)向下 更改top屬性。

根據(jù)您提供的代碼，很抱歉看不到具體的實(shí)現(xiàn)邏輯但是，我可以為您提供一個(gè)常見(jiàn)的實(shí)現(xiàn)方法，以幫助您解決問(wèn)題首先要確保使用正確的HTML和JavaScript語(yǔ)法然后，請(qǐng)按照以下步驟進(jìn)行操作在HTML文件中，創(chuàng)建一個(gè)按鈕元素，如下；代碼 那個(gè)bbstop就是我亂起的名字，然后在底下添加按鈕，按鈕的href就設(shè)置為#bbstop 依照你的按鈕加代碼，例回頁(yè)頭；Form2Show Form2x = MeLeft Form2y = MeTop Unload MeEnd Sub#39窗體2代碼Public x As Single， y As SinglePrivate Sub Form_Click Form1Show Form1Left = Mex Form1Top = Me；最簡(jiǎn)單的方法點(diǎn)提交按鈕后使用js刷新頁(yè)面，即，提交quot，js代碼 function myrefresh 這里寫(xiě)提交數(shù)據(jù)動(dòng)作 刷新當(dāng)前頁(yè)面 setTimeout#39myrefresh#39，1000 指定1秒刷新一。

Move cmdLeft， cmdDynamici 1Top + cmdHeight， cmdWidth， cmdHeight Caption = cmdDynamic0Caption quot第quot i quot節(jié)quot Visible = True End With Next i End Sub #39刪除動(dòng)態(tài)按鈕過(guò)程 Sub；是label中的字嗎是的話Option Explicit Dim a As Integer Private Sub form_loada = InputBoxquot請(qǐng)輸入移動(dòng)幅度quot，quot請(qǐng)輸入quot，quot100quotEnd Sub Private Sub Command1_Click#39上 Label1Top = Label1Top。

2在窗口上繪制兩個(gè)超級(jí)按鈕組件，調(diào)整該組件的大小和位置如圖3修改超級(jí)組件組件的相關(guān)屬性且規(guī)范命名該組件的名稱(chēng)，以方便編寫(xiě)代碼如圖4查看超級(jí)按鈕組件的數(shù)據(jù)類(lèi)型定義，編寫(xiě)測(cè)試代碼，如圖所示5代碼編寫(xiě)完畢；Private Sub Command1_ClickMeTop = 0 MeLeft = 0 #39Me 表示本窗體，如果是其他窗體可以替換，如Form2top=0 End Sub 1991年，微軟公司推出了 Visual Basic 10當(dāng)時(shí)引起了很大的轟動(dòng)這個(gè)連接編程語(yǔ)言和用戶；以上是窗體設(shè)計(jì)界面以下是程序運(yùn)行界面程序代碼如下Dim Flag17 As Boolean， Flag27 As Boolean， Flag As Boolean Private Sub Command1_ClickIndex As IntegerFlag1Index = False If Flag2Index =；那么第一個(gè)按鈕的Click事件代碼為T(mén)ext1Left=100 #39改成你想要的值Text1Top=100 #39改成你想要的值文本框向下移50，是指Top自加50，那么第二個(gè)按鈕的Click事件代碼為T(mén)ext1Top = Text1Top + 50；Dim j As Long， lf As Long， tp As Long Private Sub Command1_ClickIndex As Integerj = j + 1 Load Command1jlf = 10 tp = tp + 150 Command1jLeft = lf Command1jTop = tp Command1j；這樣做吧，你先在窗口上添加一個(gè)CommandButton控件，將它改名為Cmd，然后選中該控件，按上CTRL+ C ，再按下CTRL +V，從彈出的窗口中選“是”，主要是創(chuàng)建一個(gè)控件數(shù)組，再刪去復(fù)制出來(lái)的這個(gè)控件最后代碼這樣編寫(xiě)Dim。

如在頁(yè)面的最頂端設(shè)置錨點(diǎn) 然后在回到頂部的top按鈕加連接 top 就可以了 當(dāng)然JS也能實(shí)現(xiàn)，主要是給scrolltop賦值為0，從而回到頁(yè)面頂部。

可以在設(shè)計(jì)時(shí)，全選需要排列的按鈕，然后點(diǎn)擊vb菜單的“格式”“對(duì)齊”還可以使用代碼，以下代碼供參考，假如有5個(gè)按鈕凌亂的在form上，使用下面的代碼會(huì)以第一個(gè)按鈕為標(biāo)準(zhǔn)排列Private Sub Form_ClickDim i For i；1建立兩個(gè)命令按鈕，分別將名稱(chēng)改為A，B，style設(shè)置為12在屬性欄里找到picture，找到本地圖片，裝上圖片，先要將style設(shè)置為13將按鈕A中的disabledpicture改為你本地圖片4最后運(yùn)行一下這是在普通狀態(tài)下；最簡(jiǎn)單的實(shí)現(xiàn)方法Private Sub Command1_MouseMoveButton As Integer， Shift As Integer， X As Single， Y As SingleRandomizeCommand1Move IntMeScaleWidth Command1Width * Rnd， IntMeScaleHeight。