下面是目前我的程式碼
Private Sub HS1_Change()
If HS1 ＞= 61 Then
HS1.Value = 60
MsgBox "數值超出範圍，60"
Else
End If
End Sub
Private Sub HS2_Change()
If HS2 ＞= 61 Then
HS2.Value = 60
MsgBox "數值超出範圍，60"
Else
End If
End Sub
HS=HScrollbar，我想在HS1每增加2時，HS2的值會加1，請問該如何做？本來是想用
IF HS1 ＞=2 Then
HS2.value=HS2.value+1
else
end if
但是這樣變成凡是HS1大於2時，HS2會持續地增加，結果就當機了，請問該如何改？謝謝！另外，我一直翻書卻找不到...關於msgbox中的問題...
text1.text="2"
text2.text="5"
msgbox"兩數分別為____" ＜-----想將text1,2中的數值依序帶入msgbox中，該如何做？雖然有教過，但是都忘光了...上面兩個小問題希望大家能夠見諒。謝謝。
Private Sub HS1_Change()
If HS1 ＞= 61 Then
HS1.Value = 60
MsgBox "數值超出範圍，60"
Else
End If
End Sub
Private Sub HS2_Change()
If HS2 ＞= 61 Then
HS2.Value = 60
MsgBox "數值超出範圍，60"
Else
End If
End Sub
HS=HScrollbar，我想在HS1每增加2時，HS2的值會加1，請問該如何做？本來是想用
IF HS1 ＞=2 Then
HS2.value=HS2.value+1
else
end if
但是這樣變成凡是HS1大於2時，HS2會持續地增加，結果就當機了，請問該如何改？謝謝！另外，我一直翻書卻找不到...關於msgbox中的問題...
text1.text="2"
text2.text="5"
msgbox"兩數分別為____" ＜-----想將text1,2中的數值依序帶入msgbox中，該如何做？雖然有教過，但是都忘光了...上面兩個小問題希望大家能夠見諒。謝謝。
文章標籤
全站熱搜
我的方法比較笨,你試試看能不能用 Dim i As Integer, j As Integer Private Sub Form_Load() i = 0 hs1 = 0 hs2 = 0 End Sub Private Sub HS1_Validate(Cancel As Boolean) If hs1 ＞= 61 Then hs1 = 60 MsgBox "數值超出範圍，" & hs1, vbYes, "訊息" Else If hs1 - i ＞= 2 Then j = (hs1 - i) \ 2 hs2 = hs2 + j i = hs1 End If End If End Sub ================================================== MsgBox "兩數分別為 " & hs1 & " 和 " & hs2, vbYes, "訊息"
Private Sub HS1_Validate(Cancel As Boolean) If hs1 ＞= 61 Then hs1 = 60 MsgBox "數值超出範圍，" & hs1, vbYes, "訊息" Else If hs1 - i ＞= 2 Then j = (hs1 - i) \ 2 hs2 = hs2 + j i = hs1 End If End If End Sub 這段程式執行後，HS1每增加1時，HS2的增加值如下：1,1,2,2,3,3,4,4...請問有別的方法可補救嗎?謝謝你。
因為 當hs1輸入1,因為沒有多2,所以不變,仍然是0 當hs1輸入2,hs2就變1 當hs1輸入3,hs2不變,因為3只比2多1,所以hs2就維持不變 當hs1輸入4,hs2就變2 請問你在hs1輸入1,2,3,4時,hs2你要讓它變什麼呢
If HScroll1.Value Mod 2 = 0 Then HScroll2.Value = HScroll1.Value / 2 End If 關於您在HS1每增加2時，HS2的值會加1 不知道這樣對不對