vb中如何使程序跳转到某个地方

跨过其他代码,到指定处开始执行

第1个回答  2010-08-03
使用Goto命令。

格式:
goto 行号/标签

标签的声明格式为:
表签名:

示例代码代码如下:
Private Command1_Click()
Dim a as Integer
a = 0
a = a + 1
goto Lab1
a = a + 3
Lab:
Print a
End Sub

最后输出的结果为1,请楼主自己研究吧。
另,goto应最好避免使用或不适用,以避免程序运行错乱。本回答被提问者采纳

VB语言中“跳转到XX处“怎么编程
首先 你得有那个xx 在某一行写上 abc: (记得冒号,abc可以使任意有效标识)然后就可以 用 goto abc 来跳转了 这种跳转是无条件的 而且不会返回 所以 用的时候注意 goto之后的程序会不会出错

VB语言中“跳转到XX处“怎么编程
首先 你得有那个xx 在某一行写上 abc:(记得冒号,abc可以使任意有效标识)然后就可以 用 goto abc 来跳转了 这种跳转是无条件的 而且不会返回 所以 用的时候注意 goto之后的程序会不会出错

如何用vb编个程序…打开按钮链接到一个网页上的某个位置…
1、先在程序工程中添加 WebBrowser控件 “工程”->"部件"->找到"Microsoft Internet Controls" 选择->"确定"2、在窗体中添加 WebBrowser 控件,并根据 Form窗体的大小放大 WebBrowser可见区域 3、增加一个按扭Command1 在Command1_Click() 事件中添加如下程序 Private Sub Command1_Click() WebBrow...

vb 让移动到指定的位置
ScreenToClient Me.hwnd, P '将现有坐标0,0转换为本窗体的坐标 Dim mx As Integer, my As Integer mx = 100: my = 100 '移动到窗体坐标为100,100的位置,单位为像素 SetCursorPos mx - P.x, my - P.y End Sub Private Sub Form_Load()Timer1.Interval = 10 '设置获取鼠标坐标间隔 End ...

在VBA中,如何让程序自动等待一定时间后,跳转至某一步?
调用Sleep函数可以实现延时。或者加一个do loop循环 ,使用timer检测时间。但是,按照你的代码结构,延时后继续跳转到IF上面,会不会重复判断,陷入死循环哦?

VB 切换到指定的应用程序上
wait 可选的。Boolean 值,说明在激活另一个应用程序之前调用的应用程序是否有焦点。如果为 False(缺省),那么,即使调用的应用程序没有焦点,也直接激活指定的应用程序。如果为 True,则调用的应用程序会等到有焦点后,才激活指定的应用程序。说明 AppActivate 语句将焦点移动到命名的应用程序或窗口,但...

关于VB中的goto的用法
A:控制台程序,执行click事件(当某个按钮被按下时执行Command_Click()事件)B:定义n为整型,s为字符串型 C:初始化n=1 D:判断:n>1时,跳转到11,;否则跳转到12 EF:定义跳转到11时,s="n大于1"字符串,再跳转到13,msgbox输出s的内容为n大于1 HI:定义跳转到12时,s="n小于等于零"...

VB的页面间跳转用代码如何实现?
2、工程启动,首先加载Form1,在form1中添加一个定时器,用于卸载Form1(显示一段时间后卸载)并加载Form2,也就是主页面。Visual Basic是一种由 Microsoft 公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。从任何标准来说,VB都是世界上使用人数最多...

VB中如何让WebBrowser打开一个网址后就自动跳转到另一个网址
1、VB中首先引如 Microsoft Internet Controls “工程”->"引用"->选择"Microsoft Internet Controls"->"确定"2、在窗体中设置定时器控件 timeNavigate,时间间隔可以自己实践一下确定,在定时器事件中增加下面的程序。Private Sub timeNavigate_Timer()dim winFolder as New ShellWindows dim objIE as ...

在VB编程中的无条件转移语句(GOTO)是如何编写的?
在要跳转的地方goto XXX(XXX是行号,比如100 或是 gotohere等都可以)在被跳转到的地方输入行号 XXX 你的代码 在要跳转的地方goto XXX(XXX是行号,比如100 或是 gotohere等都可以)在被跳转到的地方输入行号 XXX 你的代码 例 Private Sub Form_Click()Print "没跳的"GoTo 1000 1000 Print "跳了...

相似回答