包含vb點(diǎn)虐 中catch的詞條

VB點(diǎn)虐 中的 異常處理 不是說(shuō)try__Catch語(yǔ)句可以避免異常嗎??

Dim i As Integer

專業(yè)成都網(wǎng)站建設(shè)公司,做排名好的好網(wǎng)站,排在同行前面,為您帶來(lái)客戶和效益!成都創(chuàng)新互聯(lián)公司為您提供成都網(wǎng)站建設(shè),五站合一網(wǎng)站設(shè)計(jì)制作,服務(wù)好的網(wǎng)站設(shè)計(jì)公司,做網(wǎng)站、網(wǎng)站建設(shè)負(fù)責(zé)任的成都網(wǎng)站制作公司!

Try

i = CInt(TextBox1.Text)//這個(gè)里顯然輸入文字的話是不對(duì)的

If i = 6 Then

MessageBox.Show("666!")

End If

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try

試試。。。

i = CInt(TextBox1.Text) 這句已經(jīng)出現(xiàn)錯(cuò)誤,所以無(wú)法進(jìn)入try語(yǔ)句

在vb點(diǎn)虐 中,try,catch,endtry是什么意思

try

'嘗試執(zhí)行某些操作,有可能在執(zhí)行過(guò)程中產(chǎn)生異常

...

...

catch

'執(zhí)行上面的語(yǔ)句竟然真的發(fā)生錯(cuò)誤,產(chǎn)生異常了,就在這里處理把

...

...

endtry

用軟件改變世界,用代碼書寫人生,用思想創(chuàng)造未來(lái)! GOOD LUCK

VB.NET的Try Catch和Property類問(wèn)題綜合題(告急!)

Public Class Form1

Public Class Circl

Dim _radius As Single '#1

Public Function Area() As Single

Return _radius ^ 2 * 3.14 '#2

End Function

Public Property Radius() '#3

Get

Return Area() '#4

End Get

Set(ByVal value)

If value = 0 Then

_radius = value '#5

Else

_radius = 0

MsgBox("半徑不能為負(fù)數(shù)") '#6

End If

End Set

End Property

End Class

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Try

Dim c As New Circl '#7

c.Radius = Convert.ToSingle(txbradius.Text) '#8

txbarea.Text = c.Area '#9

Catch ex As Exception

MsgBox(ex.Message) '#10

End Try

End Sub

文章標(biāo)題:包含vb點(diǎn)虐 中catch的詞條
網(wǎng)頁(yè)URL:http://www.muchs.cn/article46/ddihheg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供面包屑導(dǎo)航、網(wǎng)站建設(shè)、自適應(yīng)網(wǎng)站、定制開(kāi)發(fā)、品牌網(wǎng)站設(shè)計(jì)網(wǎng)站制作

廣告

聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來(lái)源: 創(chuàng)新互聯(lián)

微信小程序開(kāi)發(fā)