VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[管理用]
| 投稿日 | ： 2004/12/07(Tue) 13:53 |
| 投稿者 | ： LESIA |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^5: Validateイベントについて |
> 返事ありがとうございます。
> 内容の通りにしたのですが、
> KeyPressの中にIf KeyAscii = vbKeyReturn Then
> と記述しても発動しないのですが、
> 何か他に原因があるのでしょうか。
私は、Enterキーを押してLostFocusは発動させるコードがどこに書いてあるか
わからないので、KeyPressの方を書きましたが、もしNAOさんがKeyDownの方に
そのコードを書いていたら、そちらの方を修正してください。(^^;
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Debug.Print "KeyDown"
If KeyCode = vbKeyReturn Then
If IsNumeric(Text1.Text) Then
KeyCode = 0
Text2.SetFocus
End If
End If
End Sub
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）