Dim i As Integer
專業成都網站建設公司,做排名好的好網站,排在同行前面,為您帶來客戶和效益!成都創新互聯公司為您提供成都網站建設,五站合一網站設計制作,服務好的網站設計公司,做網站、網站建設負責任的成都網站制作公司!
Try
i = CInt(TextBox1.Text)//這個里顯然輸入文字的話是不對的
If i = 6 Then
MessageBox.Show("666!")
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
試試。。。
i = CInt(TextBox1.Text) 這句已經出現錯誤,所以無法進入try語句
try
'嘗試執行某些操作,有可能在執行過程中產生異常
...
...
catch
'執行上面的語句竟然真的發生錯誤,產生異常了,就在這里處理把
...
...
endtry
用軟件改變世界,用代碼書寫人生,用思想創造未來! GOOD LUCK
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("半徑不能為負數") '#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
文章標題:包含vb點虐
中catch的詞條
網頁URL:http://vcdvsql.cn/article46/ddihheg.html
成都網站建設公司_創新互聯,為您提供面包屑導航、網站建設、自適應網站、定制開發、品牌網站設計、網站制作
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯