在网页里加入你要跳转的按钮，这个可以随便是图片或者文字ltDIV ltIMG border=0 src=quotimageslanren_topjpgquotltDIV ltSCRIPT type=textjavascriptgoTopExltSCRIPT在层div里加入这样的代码这个页面链接的详细JS代；向上按钮的click事件代码if 0 =5 这里的5可以自己更改， 设的大每次变动的就大 endif 其他你可以参考上面的代码， 下面写注意点向下 更改top属性。

根据您提供的代码，很抱歉看不到具体的实现逻辑但是，我可以为您提供一个常见的实现方法，以帮助您解决问题首先要确保使用正确的HTML和JavaScript语法然后，请按照以下步骤进行操作在HTML文件中，创建一个按钮元素，如下；代码 那个bbstop就是我乱起的名字，然后在底下添加按钮，按钮的href就设置为#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；最简单的方法点提交按钮后使用js刷新页面，即，提交quot，js代码 function myrefresh 这里写提交数据动作 刷新当前页面 setTimeout#39myrefresh#39，1000 指定1秒刷新一。

Move cmdLeft， cmdDynamici 1Top + cmdHeight， cmdWidth， cmdHeight Caption = cmdDynamic0Caption quot第quot i quot节quot Visible = True End With Next i End Sub #39删除动态按钮过程 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在窗口上绘制两个超级按钮组件，调整该组件的大小和位置如图3修改超级组件组件的相关属性且规范命名该组件的名称，以方便编写代码如图4查看超级按钮组件的数据类型定义，编写测试代码，如图所示5代码编写完毕；Private Sub Command1_ClickMeTop = 0 MeLeft = 0 #39Me 表示本窗体，如果是其他窗体可以替换，如Form2top=0 End Sub 1991年，微软公司推出了 Visual Basic 10当时引起了很大的轰动这个连接编程语言和用户；以上是窗体设计界面以下是程序运行界面程序代码如下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，从弹出的窗口中选“是”，主要是创建一个控件数组，再删去复制出来的这个控件最后代码这样编写Dim。

如在页面的最顶端设置锚点 然后在回到顶部的top按钮加连接 top 就可以了 当然JS也能实现，主要是给scrolltop赋值为0，从而回到页面顶部。

可以在设计时，全选需要排列的按钮，然后点击vb菜单的“格式”“对齐”还可以使用代码，以下代码供参考，假如有5个按钮凌乱的在form上，使用下面的代码会以第一个按钮为标准排列Private Sub Form_ClickDim i For i；1建立两个命令按钮，分别将名称改为A，B，style设置为12在属性栏里找到picture，找到本地图片，装上图片，先要将style设置为13将按钮A中的disabledpicture改为你本地图片4最后运行一下这是在普通状态下；最简单的实现方法Private Sub Command1_MouseMoveButton As Integer， Shift As Integer， X As Single， Y As SingleRandomizeCommand1Move IntMeScaleWidth Command1Width * Rnd， IntMeScaleHeight。