请教会VB的,我完全不会用

wwolves

還是解決不了問題，但是倒讓我學會了goto和on error的用法

上去csdn才發現原來有很多人也有和我一樣的問題但是我看不懂。。。- -lll

Super-Tomato

原帖由 wwolves 于 2008-9-28 11:50 PM 发表
剛剛看了某個教學學到了dim...as...
有感而發寫了個算circle area的小軟件(剛剛好老師教到。。。。)


要是要驗證textbox1里的字是不是number應該怎么寫？一直出error


  Private Sub Button1_Click(By ...

型態不符, 用 cstr 轉換成文字型態就好了

wwolves

vb里的file browser dialog,Open和save dialog應該怎么用？
可以求個范例嗎？

goodday

原帖由 wwolves 于 2008-9-28 11:50 PM 发表
剛剛看了某個教學學到了dim...as...
有感而發寫了個算circle area的小軟件(剛剛好老師教到。。。。)


要是要驗證textbox1里的字是不是number應該怎么寫？一直出error


  Private Sub Button1_Click(By ...

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

        Dim radius As Integer
        Dim pi As Decimal
        Dim ans As Decimal


        pi = 3.142

        radius = TextBox1.Text

        ans = pi * radius * radius

        If IsNumeric(TextBox1.Text)     '= Integer '問題就出在這里

        Then

            TextBox2.Text = (ans)

        Else

            MsgBox("Please insert a number!")

        End If

[ 本帖最后由 goodday 于 2008-9-29 10:45 PM 编辑 ]