PB 電子会議室
| 発言No. | 更新日 | 題名（クリックすると発言内容と関連するコメントが表示されます） |
|---|---|---|
| 8128 | 99/09/09 17:38:24 | RE(7):PB6.5: singleLineEditにて別の文字を代替入力するには？（発見っ！） By ssaka |
| 8127 | 99/09/09 17:37:26 | RE(6):PB6.5: singleLineEditにて別の文字を代替入力するには？ By ssaka |
| 8126 | 99/09/09 17:16:53 | RE(5):PB6.5: singleLineEditにて別の文字を代替入力するには？ By てとらぽっと |
| 8125 | 99/09/09 17:08:00 | RE(4):PB6.5: singleLineEditにて別の文字を代替入力するには？（発見っ！） By こてちゅ |
| 8124 | 99/09/09 16:55:16 | RE(3):PB6.5: singleLineEditにて別の文字を代替入力するには？ By こてちゅ |
| 8122 | 99/09/09 16:43:07 | RE(2):PB6.5: singleLineEditにて別の文字を代替入力するには？ By ssaka |
| 8121 | 99/09/09 16:48:31 | RE(1):PB6.5: singleLineEditにて別の文字を代替入力するには？ By こてちゅ |
| 8120 | 99/09/09 16:20:45 | PB6.5: singleLineEditにて別の文字を代替入力するには？ By ssaka |
カテゴリ：スクリプトの記述
日付：1999年09月09日 17:16 発信者：てとらぽっと
題名：RE(5):PB6.5: singleLineEditにて別の文字を代替入力するには？
ssakaさん、こてちゅさん、こんにちは。
＞Return 1
＞ってやっても、\'+\'が入っちゃうのはなぜだろう？
＞って、これが有効なのは、RichTextEditだけって書いてある(ToT)
そのようですね。(;_;)
しかしながらエディット系は pbm_KeyDownイベントより
pbm_enchangeイベントを使ったほうがよさそうですので、
イベントから変えてみました。
多分(^^; 上手く行くと思います。
string ls_wk
long ll_pos
ll_pos = this.position()
if \'+\' = mid(this.Text, ll_pos - 1, 1) then
ls_wk = mid(this.Text, 1, ll_pos - 2) + \"A\" + mid(this.Text, ll_pos)
this.Text = ls_wk
this.SelectText(ll_pos, 0)
end if
付加情報：
PowerBuilder Version (記載なし)
Client SoftWare
OS Windows98
DBMS Sybase Open Client/C 11
Browser (記載なし)
Server SoftWare
OS (記載なし)
DBMS Oracle 8.0
WebServer (記載なし)
Copyright © 2013 Power Future Co., Ltd.