2

[請教]請問一下VB的程式碼choose

JL90202
個人積分：51分
文章編號：151203

51分

11樓

2004-04-23 4:01

亂入一下....

Private Sub Text4_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 And KeyAscii <> 13 And KeyAscii <> 9 And KeyAscii <> 27 Then
Select Case Chr(KeyAscii)
Case "0", "1", "2", "3", "4", "5", "6", "7", "8", "9"
Case Else
KeyAscii = 0
End Select
End If
End Sub

這段可以寫到程式裡限制使用者只能輸入數字，這樣程式才能正確執行。
text4改成你要判斷的文字框.....
----------------------------------------------------------------------------
此外
num = hourtxt.text
寫成
num=val(hourtxt.text)

[大老婆：SUBARU FORESTER XTP] [小老婆：SUZUKI GSX-R1000] [女僕：SUZUKI 鐵拳 125]

ming

ming
個人積分：84分
文章編號：152776

84分

樓主

2004-04-26 3:02

那個~~可以麻煩各位幫忙看一下嗎~~
這是主程式(下載後把doc改成rar用winrar解壓縮)
我有2個部分的問題
第一個部分就是case在選擇時~不知為何~一值只會出現"子時"和"丑時"
第二個部分就是csse的結果應該要顯示在"hourlbl.caption"
卻不知為何~~一值出現在左上角
怪怪~~

煩請各位幫忙解答一下~~<(_ _)>感謝~

附加Word文件檔: mobile01-8d9458c15417a6d6cc86ca5dfbd5a973.doc

JL90202

JL90202
個人積分：51分
文章編號：153015

51分

13樓

2004-04-26 15:21

Private Sub tracmd_Click()
op = (Val(yeartxt.Text) - 1) Mod 12 + 1
yearlbl = Choose(op, "鼠", "牛", "虎", "兔", "龍", "蛇", "馬", "羊", "猴", "雞", "狗", "豬")
ttime = Val(hourtxt.Text)
Select Case ttime
Case Is = 0
hourlbl = "子時"
Case 1 To 2
hourlbl = "丑時"
Case 3 To 4
hourlbl = "寅時"
Case 5 To 6
hourlbl = "卯時"
Case 7 To 8
hourlbl = "辰時"
Case 9 To 10
hourlbl = "巳時"
Case 11 To 12
hourlbl = "午時"
Case 13 To 14
hourlbl = "未時"
Case 15 To 16
hourlbl = "申時"
Case 17 To 18
hourlbl = "酉時"
Case 19 To 20
hourlbl = "戌時"
Case 21 To 22
hourlbl = "亥時"
Case 23 To 24
hourlbl = "子時"
End Select
End Sub

[大老婆：SUBARU FORESTER XTP] [小老婆：SUZUKI GSX-R1000] [女僕：SUZUKI 鐵拳 125]