ps在選區(qū)內輸入文字 VB Text里當鼠標單擊某一行時即自動選取整一行文字？
VB Text里當鼠標單擊某一行時即自動選取整一行文字？只需使用這串代碼。。privatesubtext1_uClick（）I=Text1。Selstart J=I do IFI=0 theme=1
VB Text里當鼠標單擊某一行時即自動選取整一行文字？
只需使用這串代碼。。privatesubtext1_uClick（）I=Text1。Selstart J=I do IFI=0 theme=1 IFT=0然后“如果找不到行尾，ifmid（Text1。Text，I，1）=Chr（13）theme=1“查找行的結尾，I=I-1 ENDIF ifmid（text1）。Text，J，1）=Chr（13），然后=1“如果J=len（Text1），則查找行的開頭。Text）然后=1 J=J 1 ENDIF loopwhile（t=0或=0）Text1。Selstart=I文本1。Sellength=j-i-1端接頭