'form1 窗體上添加一個button1
成都創(chuàng)新互聯(lián)公司主要業(yè)務有網(wǎng)站營銷策劃、成都做網(wǎng)站、網(wǎng)站設計、微信公眾號開發(fā)、微信小程序、H5高端網(wǎng)站建設、程序開發(fā)等業(yè)務。一次合作終身朋友,是我們奉行的宗旨;我們不僅僅把客戶當客戶,還把客戶視為我們的合作伙伴,在開展業(yè)務的過程中,公司還積累了豐富的行業(yè)經(jīng)驗、全網(wǎng)整合營銷推廣資源和合作伙伴關系資源,并逐漸建立起規(guī)范的客戶服務和保障體系。
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
Button1.DialogResult = Windows.Forms.DialogResult.OK
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.Close()
End Sub
'以上是form1的代碼
'然后就可以
dim a as new form1
dim b as dialogresult
b=a.showdialog()
Public?Class?Form1
Public?Class?SquareClass?'把多線程調(diào)用的函數(shù)封裝到類中,通過類事件返回
Public?Value?As?Double
Public?Square?As?Double
Public?Event?ThreadComplete(ByVal?Square?As?Double)
Public?Sub?CalcSquare()
Square?=?Value?*?Value
RaiseEvent?ThreadComplete(Square)
End?Sub
End?Class
Dim?WithEvents?oSquare?As?SquareClass
Private?Sub?Button1_Click(sender?As?Object,?e?As?EventArgs)?Handles?Button1.Click?'多線程返回值測試,當線程運行完成激發(fā)事件
oSquare?=?New?SquareClass()
Dim?t?As?New?Threading.Thread(AddressOf?oSquare.CalcSquare)
oSquare.Value?=?30
t.Start()
End?Sub
Sub?SquareEventHandler(ByVal?Square?As?Double)?Handles?oSquare.ThreadComplete?'響應事件函數(shù)
MsgBox("The?square?is?"??Square)
End?Sub
End?Class
1、我有一個function,如下:
function b()
'...
return "abc"
end function
2、調(diào)用時,這樣子用:
Response.write(b());
3、運行結(jié)果:
abc
public function createstringarr() as string()
return new string(){"d1","d2","d3","d4"}
end function
你的?sub過程這個是子過程,無返回值的,這里Form1_Load中b仍然 ?b=""
如果你想b="注釋",將你的sub過程改成自定義函數(shù),用b來接收返回值就行了,代碼如下
Private?Sub?Form1_Load(sender?As?Object,?e?As?EventArgs)?Handles?MyBase.Load
Dim?a?As?String?=?"rem"
Dim?b?As?String?=?""
b?=?sub過程(b,?a)
Me.Text?=?b????????'為什么“b”不是等于?"注釋"
End?Sub
Private?Function?sub過程(ByVal?輸出?As?String,?ByRef?輸入?As?String)?As?String
If?輸入?=?"rem"?Then
輸出?=?"注釋"
End?If
Return?輸出
End?Function
這兩個函數(shù)都是錯誤的,首先C變量沒有定義,其次作為Function函數(shù)沒有Return返回結(jié)果。
所以兩個函數(shù)運行起來不會返回任何結(jié)果!
像下面這個例子:返回值就是(obj Is Nothing),在VB.Net中最好使用Return (obj Is Nothing),而不是IsNothing=(obj Is Nothing)。
Public Function IsNothing(obj As Object) As Boolean
Return (obj Is Nothing)
End Function
本文名稱:vb.net返回,vbs 函數(shù)返回值
轉(zhuǎn)載來源:http://m.newbst.com/article0/hsejoo.html
成都網(wǎng)站建設公司_創(chuàng)新互聯(lián),為您提供靜態(tài)網(wǎng)站、搜索引擎優(yōu)化、ChatGPT、小程序開發(fā)、軟件開發(fā)、微信公眾號
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)