C# と VB.NET の質問掲示板

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト

タスクバーを隠すフォームの出し方

分類:[VB6以前]　

分類:[VB6以前]　

すみません　教えてください。

フォームをタスクバーがあっても
下まで表示（タスクバーを隠す）させるには
どのようにすればよいでしょうか？

よろしくお願いいたします。

分類:[VB6以前]　

■No2662に返信(たかさんの記事)
> すみません　教えてください。
>
> フォームをタスクバーがあっても
> 下まで表示（タスクバーを隠す）させるには
> どのようにすればよいでしょうか？
>
> よろしくお願いいたします。

意味がわかりません。
表示したいのかしたくないのか。

分類:[VB6以前]　

VB2005で言うところのこういう意味では？
（VB6以前）ではわかりません。

Me.TopMost = True
Me.Location = New Point(0, 0)
Me.Size = Screen.PrimaryScreen.Bounds.Size

分類:[VB6以前]　

すみません　
言葉たらずで・・

フォームが画面を占有して、利用者が
タスクバーをいじったり、表示フォームを動かしたりして
現在動いてる処理を変更されたくないということなんです。

いかかでしょうか？

分類:[VB6以前]　

フォームのボーダースタイルをNoneにしてタイトルバーを消し，
フォームの位置を(0,0)にし，（最大化ではなく）フォームのサイズをスクリーンと同じ大きさにすれば他のアプリケーションに切り替える手段はAlt-Tabくらいに
絞られると思います。
Alt-Tabを封じるのはたぶん面倒です。

ところで，
分類は[VB6以前]なんですか？
VB6以前というと具体的になんですか？

分類:[VB6以前]　

API使うと↓とかかな。

Dim WinHorz As Long
Dim WinVert As Long

WinHorz = GetDeviceCaps(Me.hdc, HORZRES) '画面の横幅
WinVert = GetDeviceCaps(Me.hdc, VERTRES) '画面の縦幅
Call SetWindowPos(Me.hwnd, HWND_TOPMOST, 0, 0, WinHorz, WinVert, SWP_SHOWWINDOW)

#タスクバーのウィンドウハンドル取ってきてHideにも出来るけど、やはりキーは押さ
#えられない。(Winキー、Ctrl+ESC等)

分類:[VB6以前]　

YASさん
GODさん

ありがとうございます。
YASさん　　ＶＢ2005　ではうまくいきました。
このようにしたいです　ＶＢ６で・・・

現状は
Me.BorderStyle = vbBSNone
Me.WindowState = vbMaximized
です。　タスクバーも出ています。
＞フォームの位置を(0,0)にし，（最大化ではなく）
フォームのサイズをスクリーンと同じ大きさにすれば
例をできましたら示していただければと思います。

GODさん
ＡＰＩ　すみません　レベルが低いのでよくわかりません
どのようにして使い、どんな定数値を入れればいいのでしょうか？
トホホでございます。

分類:[VB6以前]　

>ＡＰＩ　すみません　レベルが低いのでよくわかりません
>どのようにして使い、どんな定数値を入れればいいのでしょうか？
>
↑というのならAPIは使用しないほうが良いと思います。
一応宣言などは書いておきますが、理解できないものを使用するほど怖いことはないで
すからね。後に保守しなければいけないこともあるでしょうし。

'以下の宣言を標準モジュールで行えばOK。
'----- ここから

Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Public Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long

'SetWindowPosで使用する定数
Public Const HWND_TOP = 0
Public Const SWP_SHOWWINDOW = &H40
Public Const HWND_TOPMOST = -1

'GetDeviceCapsで使用する定数
Public Const HORZRES = 8 ' Horizontal width in pixels
Public Const VERTRES = 10 ' Vertical width in pixels

'----- ここまで

> フォームのサイズをスクリーンと同じ大きさにすれば
>
これだけなら
Me.Left = 0
Me.Top = 0
Me.Width = Screen.Width
Me.Height = Screen.Height
でできます。TopMostはAPIじゃなければできませんが。
BorderStyle はデザイン時でなければいけないのかも(未確認。)

分類:[VB6以前]　

GOD さん

ありがとうございました。

Me.Left = 0
Me.Top = 0
Me.Width = Screen.Width
Me.Height = Screen.Height
と
フォームのプロパティ
Moveable を False　にしたら　いい感じとなりました。

本当に助かりました。 m(__)m

C# と VB.NET の質問掲示板

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト

タスクバーを隠すフォームの出し方

過去ログには書き込み不可