ps在选区内输入文字 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端接头