VB高手请现江湖，救危扶弱啊！！（危也是我，弱也是我）

萧尧仁

VB高手请现江湖，救危扶弱啊！！（危也是我，弱也是我）


VB大侠，在下先请了！废话少说！开门见山！
问题如下！
在VB里，当点选了单项选择一的圆点后（option1）之后，在text1.text文本框内只能输入0到6的数字，这个该怎么写？？
希望能尽快（这两天内）答复小弟！不胜感激！！ [s:3]  [s:3]  [s:3]

coolpay64

開一個新事件，為text1_OnChange（類似的，某很久沒有用VB)
if option1.value = true then
if int(text1.text)=0 and not (text1.text like "0*") then
text1.text = 0
end if
if int(text1.text)>6 then
text1.text=0
end if
end if

萧尧仁

噢！谢谢！我试试………… [s:1]

fbzerg

或者通过输入的keycode或者ascii码判断。

erose3500

[s:8]  [s:8]  [s:8]  [s:8]

zir

建一个KeyPress事件, 入口参数为KeyAscii
然后判别KeyAscii是否为0~6, 是的话再放入Text中
Private Sub Text1_KeyPress(KeyAscii As Integer)
    If ((KeyAscii > &H30) And (KeyAscii < &H36)) Then     '&H30和&H36为0和6的Ascii码
    Text1.Text = Text1.Text & Chr$(KeyAscii)
    End If
End Sub