從你的例子來看你要實現(xiàn)的功能是

創(chuàng)新互聯(lián)為客戶提供專業(yè)的成都網(wǎng)站設(shè)計、成都網(wǎng)站制作、程序、域名、空間一條龍服務(wù),提供基于WEB的系統(tǒng)開發(fā). 服務(wù)項目涵蓋了網(wǎng)頁設(shè)計、網(wǎng)站程序開發(fā)、WEB系統(tǒng)開發(fā)、微信二次開發(fā)、成都手機網(wǎng)站制作等網(wǎng)站方面業(yè)務(wù)。
在
i=0
到
10
中
如果
i=3
就跳過
msgbox
("ok")
指令,否則執(zhí)行該指令。
你可從另一方面來考慮。程序可以這樣寫:
dim
i
as
integer
for
i=0
to
10
if
i3
then
msgbox
("ok")
end
if
next
i
Public?Class?Form2
Dim?test?As?String
Public?Sub?New(ByVal?_test?As?String)
test?=?_test
End?Sub
End?Class
Form1 中 New Form2("abc") 即可傳參給 Form2 中的 test。
但在 VB.NET 中,沒必要這么麻煩,只需要聲明為 Public,即可直接方法,如:
Public?Class?Form2
Public?test?As?String
End?Class
Form1 中直接 Form2.test = "abc" 即可。
Sub Main()
Dim Ispath As String
Console.Write("請輸入目錄:")
Ispath = Console.ReadLine()
Do While (Not Directory.Exists(Trim(Ispath)))
Console.WriteLine("你輸入的目錄不存在,請檢查重新輸入.")
Console.Write("請輸入目錄:")
Ispath = Console.ReadLine()
Loop
Console.WriteLine("目錄為:{0}", Ispath)
Console.ReadLine()
End Sub
Try
IO.File.ReadAllLines("c:/123.txt")
Catch ex As Exception
MsgBox("文件不存在!")
End Try
網(wǎng)頁標題:vb.net中的跳轉(zhuǎn)語句,vb窗口跳轉(zhuǎn)代碼
文章網(wǎng)址:http://chinadenli.net/article2/dsshsic.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站制作、云服務(wù)器、網(wǎng)站策劃、企業(yè)網(wǎng)站制作、手機網(wǎng)站建設(shè)、定制網(wǎng)站
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)