１．フォームの表示に関する基本的な操作色々(34_Frm_01)　(旧、SampleNo.084)

１ ．フォームを最大化・最小化・既定のサイズに設定する ２ ．フォームが最大化・最小化・既定のサイズかを取得する ３ ．フォームの表示位置と表示サイズを変更する ４ ．フォームを最大化した時の位置とサイズを設定する ５ ．フォームを最初に表示した時に画面の中央に表示する(プロパティの方で直接設定して下さい) ６ ．フォームの境界線スタイルを変更する(フォームのサイズを変更できなくする) ７ ．フォームを常に最前面に表示する ８ ．フォームを半透明にする ９ ．フォームをタスクバーに表示させない 10．最大化ボタン・最小化ボタンを脱着する 11．フォームサイズを変更する場合の最小サイズを設定する 12．フォームをアクティブにする 13．フォームを非表示にする・再度表示する 14．フォームのタイトルバーを脱着する 15．フォームを閉じれないようにする 16．Form のタイトルバーの高さを取得 17．タイトルバーとタスクバーをフラッシュさせる 18．フォームで自動スクロールを有効にする 19．フォームの背景に画像をタイル状に並べて表示 20．フォームを閉じる(終了する)

下記プログラムコードに関する補足・注意事項　 動作確認：Windows 8.1 (Windows 7) / VB2013 (VB2010) / Framework 4.5.1 / 対象の CPU：x86 Option　：[Compare Text] [Explicit On] [Infer On] [Strict On] Imports ：Imports System.Runtime.InteropServices 参照設定：追加なし その他　：Wait.WaitTime() は指定時間待機する自作関数です。 　　　　： このサンプル等の内容を無断で転載、掲載、配布する事はお断りします。(私の修正・改訂・削除等が及ばなくなるので) 必要ならリンクをはるようにして下さい。(引用の場合は引用元のリンクを明記して下さい)

１．フォームを最大化・最小化・既定のサイズに設定する

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 'フォームを最大化・最小化・既定のサイズに設定する     Me.WindowState = FormWindowState.Normal         '既定のサイズ     'Wait.WaitTime(1000)     Me.WindowState = FormWindowState.Maximized      '最大化     'Wait.WaitTime(1000)     Me.WindowState = FormWindowState.Minimized      '最小化 End Sub

２．フォームが最大化・最小化・既定のサイズかを取得する

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 'フォームが最大化・最小化・既定のサイズかを取得する     Select Case Me.WindowState         Case FormWindowState.Maximized             MessageBox.Show("最大化状態です")         Case FormWindowState.Minimized             MessageBox.Show("最小化状態です")         Case FormWindowState.Normal             MessageBox.Show("既定のサイズです")     End Select End Sub

３．フォームの表示位置と表示サイズを変更する

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click 'フォームの表示位置と表示サイズを変更する     'フォームの表示位置を変更する     Me.Location = New Point(100, 100)     'Wait.WaitTime(1000)     'フォームの表示サイズを変更する     Me.Size = New Size(900, 600)     'Wait.WaitTime(1000)     'フォームの表示位置とサイズを変更する     Me.SetBounds(10, 10, 890, 470, BoundsSpecified.All) End Sub

４．フォームを最大化した時の位置とサイズを設定する

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click 'フォームを最大化した時の位置とサイズを設定する     Me.MaximizedBounds = New Rectangle(100, 50, 900, 500)     Me.WindowState = FormWindowState.Maximized      '最大化 End Sub

５．フォームを最初に表示した時に画面の中央に表示する(プロパティの方で直接設定して下さい)

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click 'フォームを最初に表示した時に画面の中央に表示する(プロパティの方で直接設定して下さい)     'StartPositionプロパティの設定はフォームが表示される前に設定しておく必要があるので     Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen End Sub

６．フォームの境界線スタイルを変更する(フォームのサイズを変更できなくする)

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click 'フォームの境界線スタイルを変更する(フォームのサイズを変更できなくする)     Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedSingle End Sub

７．フォームを常に最前面に表示する

Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click 'フォームを常に最前面に表示する     Me.TopMost = True     '解除したい場合は False に     'Me.TopMost = False End Sub

８．フォームを半透明にする

Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click 'フォームを半透明にする     'Form.Opacity プロパティ     'フォームの不透明度を取得または設定します     '0.0(透明)〜1.0 の間で設定します。既定値は 1.00 です     Me.Opacity = 0.5 End Sub

９．フォームをタスクバーに表示させない

Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click 'フォームをタスクバーに表示させない     'Form.ShowInTaskbar プロパティ     'フォームを Windows タスクバーに表示するかどうかを示す値を取得または設定します     Me.ShowInTaskbar = Not Me.ShowInTaskbar End Sub

10．最大化ボタン・最小化ボタンを脱着する

Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click '最大化ボタン・最小化ボタンを脱着する     If Me.MaximizeBox = True Then         Me.MaximizeBox = False      'ボタンを非表示         Me.MinimizeBox = False     Else         '元に戻す         Me.MaximizeBox = True       'ボタンを表示         Me.MinimizeBox = True     End If End Sub

11．フォームサイズを変更する場合の最小サイズを設定する

Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click 'フォームサイズを変更する場合の最小サイズを設定する     Me.MinimumSize = New Size(300, 400) End Sub

12．フォームをアクティブにする

Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click 'フォームをアクティブにする     Me.Activate() End Sub

13．フォームを非表示にする・再度表示する

Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click 'フォームを非表示にする・再度表示する     Me.Visible = False     'Wait.WaitTime(2000)     Me.Visible = True     'Wait.WaitTime(2000)     Me.Hide()     'Wait.WaitTime(2000)     Me.Show() End Sub

14．フォームのタイトルバーを脱着する

Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click 'フォームのタイトルバーを脱着する     If Me.ControlBox Then         Me.ControlBox = False         Me.Text = ""     Else         Me.ControlBox = True         Me.Text = "フォームの表示に関する基本的な操作色々(34_Frm_01) - VB2013"     End If End Sub

15．フォームを閉じれないようにする

Private noClose As Boolean Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing '閉じるボタンや Alt ＋ F4 キー等では終了しません。    If noClose = False Then       MessageBox.Show("終了ボタンから終了してください")       e.Cancel = True    End If End Sub

16．Form のタイトルバーの高さを取得

Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click 'Form のタイトルバーの高さを取得     Debug.WriteLine(SystemInformation.CaptionHeight) End Sub

17．タイトルバーとタスクバーをフラッシュさせる

#Region "タイトルバーを点滅させる Win32 API 関数の宣言" <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Auto)> _ Private Structure FLASHWINFO     Public cbSize As Integer      '構造体のバイト数     Public hWnd As IntPtr         'ウィンドウのハンドル     Public dwFlags As Integer     'フラッシュの状態を指定する次の定数の組み合せ     Public uCount As Integer      'フラッシュの回数     Public dwTimeout As Integer   'フラッシュの継続時間(ミリ秒) End Structure <DllImport("user32.dll", CharSet:=CharSet.Auto)> _ Private Shared Function FlashWindowEx( _     ByRef Pfwi As FLASHWINFO) As Integer End Function Private Const FLASHW_STOP As Integer = &H0      'フラッシュを停止し、元の状態に戻る Private Const FLASHW_CAPTION As Integer = &H1   'キャプションバーをフラッシュする Private Const FLASHW_TRAY As Integer = &H2      'タスクバーボタンをフラッシュする Private Const FLASHW_All As Integer = &H3 #End Region Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click 'タイトルバーとタスクバーをフラッシュさせる '別途、Win32 API 関数を宣言しておいて下さい。     Dim rc As Integer     Dim fi As FLASHWINFO     '条件を構造体に設定     With fi         .cbSize = Marshal.SizeOf(fi)  '構造体のサイズを設定         .hWnd = Me.Handle             'フラッシュさせるウィンドウのハンドル         .dwFlags = FLASHW_All         'タイトルバーとタスクバーをフラッシュ         .uCount = 10                  '10回繰り返す         .dwTimeout = 200              '200ミリ秒毎に実施     End With     '関数の実行     rc = FlashWindowEx(fi) End Sub

18．フォームで自動スクロールを有効にする

Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click 'フォームで自動スクロールを有効にする     Me.Size = New Size(600, 600)     Me.AutoScroll = True    'フォームで自動スクロールを有効にする End Sub

19．フォームの背景に画像をタイル状に並べて表示

Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click 'フォームの背景に画像をタイル状に並べて表示     Me.BackgroundImage = Image.FromFile("..\..\..\data_pic\BACK335.JPG") End Sub

20．フォームを閉じる(終了する)

Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click 'フォームを閉じる(終了する)     noClose = True  'フォームを閉じれないようにする為のフラグ     Me.Close() End Sub

検索キーワード及びサンプルコードの別名(機能名)

フォームに関する基本的な操作のTips集 Form に関するTips Form に関する操作色々