2011-10-22 56 views
0

我想編寫VB中的一個小角色扮演,我需要一點幫助:如何使用「或」 /做一個不同的結局

  1. 所以我要把它當你購買木從商店盾牌然後你的防守將改變。

  2. 我不知道是否需要更改我的整個代碼,所以我會分享一下它來展示給你,並指導一些幫助。

  3. 基本上目前是:

    If Progressbar2.Value = 100 Then MsgBox("Oh Dear you have died!")` 
    

    而且酒吧最大值爲默認100 ..而且該店是在不同的形式。(防爆遊戲是Form1,店鋪是Form4。 )

  4. 所以我希望把它當我點擊它改變了按鈕的值是:

    If ProgressBar2.Value = 200 Then MsgBox("Oh Dear you have died!") 
        And ProgressBar2.Maximum = 200 
    

我的代碼:

If ProgressBar2.Value = 100 Then MsgBox("Oh dear you have died!") 
If ProgressBar2.Value = 100 Then ProgressBar2.Value = 0 

不在代碼:最大如上100

+0

[markdown formatting](http://stackoverflow.com/editing-help)確實需要一點時間適應;我重新格式化了你的問題,但我不是100%,我的#4正確。 (如果visual basic的''And'關鍵字是這樣的,或者VB是一種面向行的語言,我的行包裝會發出尖銳的聲音,我還沒有弄清楚。我只是非常討厭水平滾動條。) – sarnold

+0

我是不確定在重新格式化sarnold之前它是什麼,但#4不會編譯。它應該也許閱讀(如果在評論中原諒了代碼)'如果ProgressBar2.Value = 200並且ProgressBar.Maximum = 200然後MsgBox(「哦,親愛的你已經死了」)'(即'And''''''''''''''' Then'''''''ElseIf ...''或'Else ...'。另外,考慮使用'AndAlso' @ user1008070 - 它可以嵌套'If'語句而不需要實際嵌套它們(它不評估後續謂詞除非前面的謂詞導致「真」) – Smudge202

回答

0

更換說上面的代碼:

if ProgressBar2.Value = 100 then 
    MsgBox("Oh dear, you have died!") 
    ProgressBar2.Value = 0 
end if 

您附上報表if...thenend if如果條件匹配,則執行多項操作。 (儘管for循環以next結束。)

相關問題