VFP 愛用者社區

[jerryclt]

比方我在表格A的init處下了一個ON KEY LABEL CTRL+D KEYBOARD '國'
然後在一個editbox內容有3行如下:

1234567890
ABCDEFGHIJ
abcdefghij

此時游標位置在 E F 的中間,
我按下CTRL+D後變成如下,

ABCDE國FGHIJ

此時游標位置在 國 F 的中間,
我再按一次CTRL+D後變成如下,

ABCDE國F國FGHIJ

自動右移了一個位置後才貼上[國]字;

這時我做了一個試驗,
在第一次按完CTRL+D後,
我按了TAB脫離該editbox,
然後再按SHIFT+TAB回到該editbox,
結果發現...

ABCDE國FGHIJ

游標位置竟然是在 N F 的中間,
果然偷偷移了一位...(泣

反覆測試了幾次,
發現可能是行尾的CHR(13)導致,
因為

1234567890
ABCDEFGHIJ

這兩行中間有一個CHR(13),
我試著在第三行按CTRL+D,
果如所料,
第二次按下CTRL+D時先向右移了2位才貼上...

接著我又試了系統的CTRL+V(貼上去)的功能,
結果連貼是沒問題,
但是經由TAB/SHIFT TAB後,
游標依然移了位;
請問如何解決此一問題?

希望先輩們能有具體的方法提出,
因為我試了 .selstart _CLIPTEXT 等等各種方式,
還解決不了...

對了,在下使用是 VFP 6.0C
感謝

[richshih]

試試 AddLineFeeds Property=.f. 看看
詳情請看Help檔

[jerryclt]

[richshih]

vfp9.0

[jerryclt]

在下使用的是 VFP 6.0C

繼續請教先輩們有無辦法解決......

[jerryclt]

問題已自行解決了,
就是........別用KEYBOARD
我的方式是:

ON KEY LABEL ALT+A DO _insert_str WITH '國',this.SelStart,'1234567890'+CHR(13)+'ABCDEFGHIJ',this.value
.
.
.
.
.

PROCEDURE _insert_str
PARAMETER _str0,_str1,_str2,_str3
* _str0=欲插入的字串
* _str1=Form.Editbox.SelStart
* _str2=Form.Editbox.ControlSource
* _str3=Form.Editbox.Name

old_selstart=&_str1
&_str2=LEFT(&_str2,old_selstart)+_str0+RIGHT(&_str2,LEN(&_str2)-old_selstart)
&_str3=&_str2
&_str1=old_selstart+LEN(_str0)
ENDPROC

感謝!!