| フォームの表示に関する基本的な操作色々(25個) (SNo.084) １．フォームを最大化・最小化・既定のサイズに設定する ２．フォームが最大化・最小化・既定のサイズかを取得する ３．フォームの表示位置と表示サイズを変更する ４．フォームを最大化した時の位置とサイズを設定する ５．フォームを最初に表示した時に画面の中央に表示する ６．フォームのサイズを変更できなくする ７．フォームを常に最前面に表示する ８．フォームを半透明にする ９．フォームをタスクバーに表示させない 10．最大化ボタン・最小化ボタンを脱着する 11．フォームサイズを変更する場合の最小サイズを設定する 12．フォームをアクティブにする 13．フォームを非表示にする・再度表示する 14．フォームのタイトルバーを脱着する 15．フォームを閉じれないようにする 16．フォームを閉じる（終了する） 17．フォームのタイトルバーの高さを取得 |
|
| 使用コントロール | Button1 〜 Button20 |
| その他条件 | WindowsXP(Vista) Visual Basic 2005(VB2008) |
|
１．フォームを最大化・最小化・既定のサイズに設定する(3)
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click 'フォームを最大化・最小化・既定のサイズに設定する Me.WindowState = FormWindowState.Normal '既定のサイズ System.Threading.Thread.Sleep(1000) Me.WindowState = FormWindowState.Maximized '最大化 System.Threading.Thread.Sleep(1000) Me.WindowState = FormWindowState.Minimized '最小化 End Sub |
|
| ２．フォームが最大化・最小化・既定のサイズかを取得する(3) Private Sub Button2_Click(ByVal sender As System.Object, _
ByVal e As System.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 |
|
| ３．フォームの表示位置と表示サイズを変更する(3) Private Sub Button3_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button3.Click 'フォームの表示位置と表示サイズを変更する 'フォームの表示位置を変更する Me.Location = New Point(100, 100) 'フォームの表示サイズを変更する Me.Size = New Size(600, 500) 'フォームの表示位置とサイズを変更する Me.SetBounds(0, 0, 700, 600, BoundsSpecified.All) End Sub |
|
| ４．フォームを最大化した時の位置とサイズを設定する Private Sub Button4_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button4.Click 'フォームを最大化した時の位置とサイズを設定する Me.MaximizedBounds = New Rectangle(50, 50, 500, 400) End Sub |
|
| ５．フォームを最初に表示した時に画面の中央に表示する デザイン時にStartPosition プロパティ で設定するか、下記の位置に記入して下さい。
デザイン時にStartPosition プロパティ で設定すれば下記の位置にコードが自動的に 追加されます。 'Form1 Me.AutoScaleBaseSize = New System.Drawing.Size(5, 12) Me.ClientSize = New System.Drawing.Size(388, 406) Me.Controls.Add(Me.Button5) Me.Controls.Add(Me.Button4) Me.Controls.Add(Me.Button3) Me.Controls.Add(Me.Button2) Me.Controls.Add(Me.Button1) Me.Name = "Form1" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "フォームの表示に関する基本的な操作色々(084)" Me.ResumeLayout(False) End Sub #End Region |
|
| ６．フォームのサイズを変更できなくする Private Sub Button6_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button6.Click 'フォームのサイズを変更できなくする Me.FormBorderStyle = FormBorderStyle.FixedSingle End Sub |
|
| ７．フォームを常に最前面に表示する Private Sub Button7_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button7.Click 'フォームを常に最前面に表示する Me.TopMost = True '解除したい場合は False に 'Me.TopMost = False End Sub |
|
| ８．フォームを半透明にする Private Sub Button8_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button8.Click 'フォームを半透明にする 'Form.Opacity プロパティ 'フォームの不透明度を取得または設定します '0.0(透明）〜1.0 の間で設定します。既定値は 1.00 です Me.Opacity = 0.5 End Sub |
|
| ９．フォームをタスクバーに表示させない Private Sub Button9_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button9.Click 'フォームをタスクバーに表示させない 'Form.ShowInTaskbar プロパティ 'フォームを Windows タスク バーに表示するかどうかを示す値を取得または設定します Me.ShowInTaskbar = Not Me.ShowInTaskbar End Sub |
|
| 10．最大化ボタン・最小化ボタンを脱着する(2) Private Sub Button10_Click(ByVal sender As System.Object, _
ByVal e As System.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(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button11.Click 'フォームサイズを変更する場合の最小サイズを設定する Me.MinimumSize = New Size(300, 400) End Sub |
|
| 12．フォームをアクティブにする Private Sub Button12_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button12.Click 'フォームをアクティブにする Me.Activate() End Sub |
|
| 13．フォームを非表示にする・再度表示する(2) Private Sub Button13_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button13.Click 'フォームを非表示にする・再度表示する Me.Visible = False '非表示 Me.Visible = True '表示 '又は Me.Hide() '非表示 Me.Show() '表示 End Sub |
|
| 14．フォームのタイトルバーを脱着する Private Sub Button14_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button14.Click 'フォームのタイトルバーを脱着する If Me.ControlBox Then Me.ControlBox = False Me.Text = "" Else Me.ControlBox = True Me.Text = "フォームの表示に関する基本的な操作色々(084)" End If End Sub |
|
| 15．フォームを閉じれないようにする Private noClose As Boolean
'終了する場合Private Sub Form1_Closing(ByVal sender As Object, _ ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing '閉じるボタンや Alt ＋ F4 キー等では終了しません。 If noClose = False Then MessageBox.Show("終了ボタンから終了して下さい") e.Cancel = True End If End Sub Private Sub Button20_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button20.Click 'フォームを閉じる（終了する） noClose = True 'フォームを閉じれないようにする為のフラグ Me.Close() End Sub 注意！ VB2005 では、Form1_Closing は、Form1_FormClosing イベントになります。 |
|
| 16．フォームを閉じる（終了する） Private Sub Button20_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button20.Click 'フォームを閉じる（終了する） Me.Close() End Sub |
|
| 17．フォームのタイトルバーの高さを取得 Private Sub Button16_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button16.Click 'Form のタイトルバーの高さを取得 Debug.WriteLine(SystemInformation.CaptionHeight) End Sub |
|
2004/05/06
2006/09/03
VBレスキュー(花ちゃん)
VB.NET2003 VB2005