有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

解决方案 »

  1.   

    能具体点吗?我很菜,还没学到 getfoucs ,现在只会基本的VB格式
      

  2.   

    再‘菜’也不至于菜到这步程度啊! -_-!Private Sub Text1_GotFocus()
        Set Picture1.Picture = LoadPicture("http://www.jcard.cn/Modules/RandomImage.aspx?colorf=ff0000&colorb=F0F0F0")
    End Sub
      

  3.   

    把上面的 Text1_GotFocus()
    改成:    Text2_GotFocus()
      

  4.   

    谢谢了,本人快30了,从来没有接触过VB,现在也只是接触VB10来天左右,所以很多地方都不懂,不明白,实在不好意思呀。