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

★笨☆天使

原帖由 goodhermit95 于 2008-9-10 11:07 AM 发表
你很好了啦~
自己去找
有些人很欠打

“去下载VB先”
“哪里下载？？？” 《这个……
“Google 啦”
“找不到……” 《拜托，第一个就是了
“我找到你怎样”
“不要这样啦~~把download link 给我~”

呵呵~~我是在某个贴找到的
不是google找的
我觉得大部分想要学的都是为了用在游戏里
修改游戏的咯
都不是真的想要学

goodhermit95

想不到~~
学VB改不到游戏的
要就C++

还想教你的

★笨☆天使

原帖由 goodhermit95 于 2008-9-10 08:13 PM 发表

想不到~~
学VB改不到游戏的
要就C++

还想教你的

我主要不是改游戏啦
是想自己写程序
我对电脑硬件软件都有兴趣

wwolves

這里是VB新手的發問區嗎？
我想問一下，如果我要有一個欄設定時間定時啟動/關閉某個exe
我該怎么寫？

我是新來的 這個是我的第一帖

對編程很有興趣什么編程基礎都沒有聽說vb很好學就一頭栽進來了

想學我這里的Porpular全部都是那些C,C#,Asp.net,Java那些比較熱的語言
VB找沒有。。。

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

goodday

em0014
我VB 9 年
em0035   《-- 这样 9 年
em0030  〈 -- 也9 年
em0057  〈-- 也9 年

你想em0033 em0038

em0022
你说要什么啊？？

em0034

goodhermit95

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

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

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

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

shutdown很容易

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

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

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

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

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