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 (記載なし)

PowerSpaceの運営は、パワーフューチャー株式会社が行っております。
Copyright © 2013 Power Future Co., Ltd.