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

[复制链接]

wwolves

2008-9-29 12:53 AM

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

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

Super-Tomato

2008-9-29 08:24 AM

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

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

Private Sub Button1_Click(By ...

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

wwolves

2008-9-29 01:42 PM

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

goodday

2008-9-29 10:42 PM

原帖由 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 编辑 ]

1 ... 6 7 8 9 10 11 12 1314 / 14 页

返回列表