PB 電子会議室
| 発言No. | 更新日 | 題名（クリックすると発言内容と関連するコメントが表示されます） |
|---|---|---|
| 15566 | 01/06/21 09:36:09 | RE(2):PB7.0: Number型のエディット項目に数字以外入力できなくするには By きん |
| 15564 | 01/06/21 09:10:14 | RE(1):PB7.0: Number型のエディット項目に数字以外入力できなくするには By 川端 |
| 15562 | 01/06/21 00:40:15 | PB7.0: Number型のエディット項目に数字以外入力できなくするには By きん |
カテゴリ：スクリプトの記述
日付：2001年06月21日 00:40 発信者：きん
題名：PB7.0: Number型のエディット項目に数字以外入力できなくするには
dw上のNumber型エディットカラムにアルファベットを入力し、Enterを押下すると｢とてつもない数字｣に変換されてし
まう現象に悩まされています。
Deleteキー押下後にEnterを押下されても｢とてつもない数字｣になってしまいます。
この問題を回避しようと pbm_DwnKey イベントに
If Key = KeyDelete! Then
This.SetItem(1,This.GetColumnName(),0)
Else
If KeyFlags <> 0 Or &
(Key <> Key0! ?一部省略? And Key <> Key9! And &
Key <> KeyNumpad0! ?一部省略? And Key <> KeyNumpad9!)
This.Undo()
End If
End If
とコードを記述してみましたが Undo() で -1 が返ってきてしまいエディットカラムにもアルファベットが表示された
ままになっています。(This.Undo()の下でMessageBoxを表示させると、なぜか Undoされます)
Deleteが押下された時も0がセットされません。
どなたかこの問題の解決方法を御存知の方はいらっしゃいませんでしょうか
付加情報：
PowerBuilder Version (記載なし)
Client SoftWare
OS Windows NT 4.0
DBMS Oracle SQL*Net 8
Browser (記載なし)
Server SoftWare
OS (記載なし)
DBMS Oracle 8.0
WebServer (記載なし)
Copyright © 2013 Power Future Co., Ltd.