PB 電子会議室
発言No. | 更新日 | 題名(クリックすると発言内容と関連するコメントが表示されます) |
---|---|---|
10864 | 00/03/30 12:01:48 | RE(2):PB7.0: カナの自動入力(取得)する方法 By こてちゅ |
10863 | 00/03/30 11:59:53 | RE(1):PB7.0: カナの自動入力(取得)する方法 By ryochan |
10862 | 00/03/30 11:40:32 | PB7.0: カナの自動入力(取得)する方法 By serio |
カテゴリ:ユーザオブジェクト
日付:2000年03月30日 12:01 発信者:こてちゅ
題名:RE(2):PB7.0: カナの自動入力(取得)する方法
serioさん、こんにちは。
> テキスト入力でカナと漢字を入力したいとき、
>携帯電話の名前の登録のように漢字だけ入力すると
>カナが自動的に入力されることはできるのでしょうか?
> FEPの文字入力を横取りするだけだと思うのですが、
>VBの開発ではinputmanを使うと頭を使わなくても簡単にできました。
>P.Bでは簡単にできないのでしょうか?
>
(改行位置を変更しました。)
DWのEditChangedイベントにて以下のスクリプトを記述することで実現しています。
(抜粋ですから、このままではだめですけど・・・主要な部分はこれでOKです)
Long hnd
String old_txt,new_txt
hnd = handle(This)
new_txt = IMEGetCompositionText ( hnd )
old_txt = This.Object.simei_kana[row]
IF IsNull(old_txt) Then old_txt = \"\"
IF Right(old_txt,len(new_txt)) = new_txt THEN
This.Object.simei_kana[row] = Left(old_txt,40)
ELSE
This.Object.simei_kana[row] = Left(old_txt + new_txt,40)
END IF
付加情報:
PowerBuilder Version (記載なし)
Client SoftWare
OS Windows NT 4.0
DBMS Oracle SQL*Net 8
Browser InternetExplorer4.X
Server SoftWare
OS (記載なし)
DBMS Oracle 8.0
WebServer (記載なし)
Copyright © 2013 Power Future Co., Ltd.