VB option

来源：百度知道 编辑：UC知道 时间：2024/06/01 05:20:04
在1个frame里面，有1个option组对应3个文本框，3个文本框都默认值为0，如何实现实现选择其中一个option后，其对应的文本框可以修改值0，另外2个文本框中则不可以修改

代码这样写就行了 , 不行的话 百度HI我
Private Sub Option1_Click()
Text1.Enabled = True
Text2.Enabled = False
Text3.Enabled = False
End Sub

Private Sub Option2_Click()
Text1.Enabled = False
Text2.Enabled = True
Text3.Enabled = False
End Sub

Private Sub Option3_Click()
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = True
End Sub

private sub text1_keypress(keyascii as integer)
if option1.value=false then
keyascii=0
endif
end sub

private sub text2_keypress(keyascii as integer)
if option2.value=false then
keyascii=0
endif
end sub

private sub text3_keypress(keyascii as integer)
if option3.value=false then
keyascii=0
endif
end sub

'-----------------------------------------------------------------
'如果用控件数组代码要少的多了
private sub text1_keypress(index as integer,keyascii as integer)
if option1