simotetsuのプロフィール

こんにちは。GetKeyStateについて質問させていただきます。 ＶＢ６にて、APIの「GetKeyState」を使用し、Tabキーのキー入力判断を行っているのですが、その他の操作(GetKeyStateを判断しているフィールドより マウス左ボタンにて他のコントロールに移動した時等)に、Tabキーを押して いないのに、プログラムはTabキーを押した状態のロジックが動作していま す。下記にそのコードを記述しますので、原因・対処方法がありましたら、 教えてください。 ****コード Private Sub TXT_ATAI_LostFocus() Dim SUBM0030 As SUBM0030_AREA Dim X As Variant If (GetKeyState(vbKeyTab) <> 0) Then If FRM70.TXT_ATAI.Text <> "" Then Call MEDIA_DECODE3_SEC(SUBM0030, "1") If SUBM0030.RETURN_CD <> "0" Then FRM70.GRD1.Col = 7 FRM70.TXT_ATAI.SetFocus FRM70.MousePointer = vbDefault Exit Sub End If End If End If End Sub **** 開発環境 ・ＯＳ：Windows98 4.10.1998 ・メモリ：６４ＭＢ ・ＣＰＵ：Ｐ２－２３３ ・ＰＣ：ＦＭＶ６２３３－Ｄ９

タイトル通りなんですけど、 テーブルにあるフィールドを追加、削除したいのですが、 どうしたらいいのか全くお手上げ状態です。 助けてください。 ADOを使用しています。 お願いします。

こんにちは。GetKeyStateについて質問させていただきます。 ＶＢ６にて、APIの「GetKeyState」を使用し、Tabキーのキー入力判断を行っているのですが、その他の操作(GetKeyStateを判断しているフィールドより マウス左ボタンにて他のコントロールに移動した時等)に、Tabキーを押して いないのに、プログラムはTabキーを押した状態のロジックが動作していま す。下記にそのコードを記述しますので、原因・対処方法がありましたら、 教えてください。 ****コード Private Sub TXT_ATAI_LostFocus() Dim SUBM0030 As SUBM0030_AREA Dim X As Variant If (GetKeyState(vbKeyTab) <> 0) Then If FRM70.TXT_ATAI.Text <> "" Then Call MEDIA_DECODE3_SEC(SUBM0030, "1") If SUBM0030.RETURN_CD <> "0" Then FRM70.GRD1.Col = 7 FRM70.TXT_ATAI.SetFocus FRM70.MousePointer = vbDefault Exit Sub End If End If End If End Sub **** 開発環境 ・ＯＳ：Windows98 4.10.1998 ・メモリ：６４ＭＢ ・ＣＰＵ：Ｐ２－２３３ ・ＰＣ：ＦＭＶ６２３３－Ｄ９

ActiveXでIEウインドウの最小化をしたいのですが・・・。 たとえば、コマンドボタンを押したときにIEウインドウが閉じてVBも終了・・・。 というのは、できますでしょか？

全角のスペースの削除の仕方を教えてください。 例を下に示します。 50桁の変数"name"の中身は"山田　太郎　　　　　　　　　　　"です。 変数の中身は、山田　太郎の後ろは全角のスペースが入っています。 名前の後ろの全角のスペースが半角4桁（全角2桁）以上ある場合は、 それ以降を削除したと思っています。 かなり困っています。良い方法をどなたかご伝授下さい。 宜しくお願いします。