VB.NETのコンソールアプリケーションについて

質問

現在「Microsoft Visual Basic 2005 Express Edition」でコンソールアプリケーションを作りました。

でも、最終的に動かしてみて、コンソール画面が実行のたびに表示されて、目がチカチカしてしまいます。
これをなくす為に画面の最小化実行をしたいと思い、色々調べてみたのですが方法が解りませんでした。
そもそも、最小化した状態で実行は可能なのでしょうか?

よろしくお願いします。

回答No.1

kero_mio

こんなので如何でしょう？

　　Sub Main()

　　　　' プロセスを取得
　　　　Dim p As System.Diagnostics.Process = System.Diagnostics.Process.GetCurrentProcess

　　　　' Windowハンドルを取得
　　　　Dim handle As IntPtr = p.MainWindowHandle()

　　　　' DOS窓の最小化設定
　　　　Dim minsize As Int32 = &HF020
　　　　Dim syscommand As IntPtr = &H112

　　　　' 最小化実行
　　　　If handle Then
　　　　　　Dim winMessage As System.Windows.Forms.Message
　　　　　　winMessage = System.Windows.Forms.Message.Create(handle, syscommand, minsize, 0)
　　　　　　Dim nativeWindow As New System.Windows.Forms.NativeWindow()
　　　　　　nativeWindow.DefWndProc(winMessage)
　　　　　　nativeWindow = Nothing
　　　　End If

　　　　' ご自身がやりたい処理へ
　　　　While (True)
　　　　　　System.Threading.Thread.Sleep(1000)
　　　　　　Console.WriteLine("Hello World")
　　　　End While
　　End Sub

補足

ご返事が遅くなり申し訳ありませんでした。
早速ためさせていただきました。

無事最小化できました!!
でも、ウィンドウが表示されてしまうのは仕方ないのでしょうか?
(起動後、DOS窓表示→最小化になるのですが)

これを起動時に最小化された状態。(DOS窓非表示)
みたいな感じななことができればベストなのですが…
画面の下のタスクバーに表示されるのは気にしません。

ご返事が遅くなったのに再度お聞きして申し訳ありませんがよろしくお願いいたします。