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

根據(jù)您提供的代碼，很抱歉看不到具體的實現(xiàn)邏輯但是，我可以為您提供一個常見的實現(xiàn)方法，以幫助您解決問題首先要確保使用正確的HTML和JavaScript語法然后，請按照以下步驟進(jìn)行操作在HTML文件中，創(chuàng)建一個按鈕元素，如下；代碼 那個bbstop就是我亂起的名字，然后在底下添加按鈕，按鈕的href就設(shè)置為#bbstop 依照你的按鈕加代碼，例回頁頭；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；最簡單的方法點(diǎn)提交按鈕后使用js刷新頁面，即，提交quot，js代碼 function myrefresh 這里寫提交數(shù)據(jù)動作 刷新當(dāng)前頁面 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刪除動態(tài)按鈕過程 Sub；是label中的字嗎是的話Option Explicit Dim a As Integer Private Sub form_loada = InputBoxquot請輸入移動幅度quot，quot請輸入quot，quot100quotEnd Sub Private Sub Command1_Click#39上 Label1Top = Label1Top。

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

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

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