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

★笨☆天使

我想学写软件
可以教我基本的吗?
VB可以写出什么软件?

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 编辑 ]

wwolves

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

Super-Tomato

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


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


  Private Sub Button1_Click(By ...

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

wwolves

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

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

goodhermit95

这个我不会
你可以用别的方法啊

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

on error goto notinteger
      textbox2.text = ans
exit sub
notinteger:
MsgBox("Please insert a number!")
end sub

wwolves

剛剛看了某個教學學到了dim...as...
有感而發寫了個算circle area的小軟件(剛剛好老師教到。。。。)


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


  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

        TextBox1.Text = Integer '問題就出在這里

        Then

            TextBox2.Text = (ans)

        Else

            MsgBox("Please insert a number!")

        End If

[ 本帖最后由 wwolves 于 2008-9-29 12:05 AM 编辑 ]

goodhermit95

2005 有一点不同
我这里有一个……
你不是要开process然后关process？
还是你要shutdown罢了

shutdown很容易

run command
process.start("shutdown /s")
shell command
shell("shutdown -s")

然后设定时间。要放一个timer是时间，放一个监视时间到了没有

wwolves

process.start + getprocess,ternimate(0)

這一段是什么

什么都不懂Orz

我想試試看用windows 系統內置的shutdown來做個自動關機的軟件

請問能否設定幾小時，幾分鐘，幾天?機器全部用ms來算嗎？

有什么學vb的ebooks介紹嗎？

網上看到很多visual basic 6的教學，有一些范例不能用在2005上

比如這個

Private Sub Form_activate()

print (20+10)
print (20-10)
print (20*10)
print (20/10)

End Sub

6和2005之間有傳承性嗎？

[ 本帖最后由 wwolves 于 2008-9-24 01:08 AM 编辑 ]

goodhermit95

明白~~
你要Start什么类型的Program？？

process.start + getprocess,ternimate(0)
至于自动，Set Timer
If datetime.now = textbox1.text then
'todo
end if