有2个text,一个Picture当光标在text1的时候,按TAB能转到text2,但不能触发 Set Picture1.Picture = LoadPicture("http://www.mayi.cn/Modules/RandomImage.aspx?colorf=ff0000&colorb=F0F0F0")
取到验证码,但鼠标点击text2可以取道验证码。要求光标在text1的时候,按TAB能转到txetbox2的时候触发 Set Picture1.Picture = LoadPicture("http://www.mayi.cn/Modules/RandomImage.aspx?colorf=ff0000&colorb=F0F0F0")
也能取到验证码,鼠标点击text2同样可以取道验证码。本人代码如下,但按TAB不能触发取图。Private Sub Text1_Change()End SubPrivate Sub Text2_Click()
Set Picture1.Picture = LoadPicture("http://www.jcard.cn/Modules/RandomImage.aspx?colorf=ff0000&colorb=F0F0F0")
End Sub
取到验证码,但鼠标点击text2可以取道验证码。要求光标在text1的时候,按TAB能转到txetbox2的时候触发 Set Picture1.Picture = LoadPicture("http://www.mayi.cn/Modules/RandomImage.aspx?colorf=ff0000&colorb=F0F0F0")
也能取到验证码,鼠标点击text2同样可以取道验证码。本人代码如下,但按TAB不能触发取图。Private Sub Text1_Change()End SubPrivate Sub Text2_Click()
Set Picture1.Picture = LoadPicture("http://www.jcard.cn/Modules/RandomImage.aspx?colorf=ff0000&colorb=F0F0F0")
End Sub
Set Picture1.Picture = LoadPicture("http://www.jcard.cn/Modules/RandomImage.aspx?colorf=ff0000&colorb=F0F0F0")
End Sub
改成: Text2_GotFocus()