No35671 の記事表示 - DOBON.NETプログラミング道掲示板

DOBON.NETプログラミング道掲示板

No35671 の記事

■35671 / )

　AppActiveが正常に機能しない。

□投稿者/ 日研迷琉一般人(1回)-(2025/04/10(Thu) 14:02:35)

環境/言語:[Windows11 Pro(24H2) VS2022 VB .NetFreamwork4.8]　
分類:[.NET]　

現在、ＰＣから離れた位置で無線バーコードリーダによるエントリプログラムを作成しているのですが、アプリケーションからカーソルが離れるとＰＣにもって入力項目にカーソルを移動しなければなりません。
但し、フォーム上の入力項目は1つなのでフォームがアクティブになっていれば問題はないのですが、なにぶん長時間、他数のエントリを行うためにフォームがアクティブ状態になっていない場合、取り返しがつきません。
そこで、タイマーイベントで、アクティブフォームを取得し、自身がアクティブでない場合に自身をアクティブにするロジックを考えたのですがタスクバーが点滅するだけでアクティブになってくれません。（VSのデバック起動では動作します。）
下記の様な記述をしています。どなたか御教授願えませんでしょうか？

【環境】 Windows11 Pro(24H2)
VS2022 VB .NetFreamwork4.8

【Code】タイマーイベント内に記載
Dim ActiveFmName As String = ""
Try
ActiveFmName = IIf(IsNothing(ActiveForm.Name), "", ActiveForm.Name)
Catch ex As Exception
End Try

If Not ActiveFmName = Me.Name Then
AppActivate(Process.GetCurrentProcess.Id)
End If

以上よろしくお願いします

違反を報告