Public Class Form1
' ******************************************************
' 閉じるボタンを無効にする
' ******************************************************
Protected Overrides Sub WndProc( _
ByRef m As System.Windows.Forms.Message)
Const WM_SYSCOMMAND As Integer = &H112
Const SC_CLOSE As Integer = &HF060
If m.Msg = WM_SYSCOMMAND And m.WParam.ToInt32() = SC_CLOSE Then
Return
End If
MyBase.WndProc(m)
End Sub
' ******************************************************
' Enter キーで次のコントロールへ移動
' ( フォームの KeyPreview : True )
' ******************************************************
Private Sub Form1_KeyPress(ByVal sender As Object, _
ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
If e.KeyChar = ControlChars.Cr Then
Me.SelectNextControl(Me.ActiveControl, True, True, True, True)
e.Handled = True
End If
End Sub
' ******************************************************
' 初期処理
' ( フォームは表示されていない )
' ******************************************************
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.処理区分.SelectedIndex = 0
Me.CenterToScreen()
End Sub
' ******************************************************
' 初期処理
' ( フォームは表示されている )
' ******************************************************
Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
Me.社員コード.Focus()
End Sub
Private Sub Form1_FormClosing(ByVal sender As Object, _
ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
e.Cancel = True
End Sub
' ******************************************************
' キー入力のチェック
' ******************************************************
Private Sub 社員コード_Validating(ByVal sender As Object, _
ByVal e As System.ComponentModel.CancelEventArgs) Handles 社員コード.Validating
If Trim(Me.社員コード.Text) = "" Then
e.Cancel = True
MessageBox.Show("必須入力です")
End If
End Sub
' ******************************************************
' メニューによる終了
' ******************************************************
Private Sub 終了_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles 終了.Click
End
End Sub
' ******************************************************
' 確認
' ******************************************************
Private Sub 確認_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles 確認.Click
Me.ヘッド部.Enabled = False
Me.ボディ部.Enabled = True
Me.社員名.Focus()
Me.社員名.SelectAll()
End Sub
' ******************************************************
' 更新確認
' ******************************************************
Private Sub 更新_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles 更新.Click
If MessageBox.Show("更新しますか?", "", _
MessageBoxButtons.OKCancel, _
MessageBoxIcon.Question, _
MessageBoxDefaultButton.Button2) = Windows.Forms.DialogResult.Cancel Then
Exit Sub
End If
' 更新処理
Me.ヘッド部.Enabled = True
Me.ボディ部.Enabled = False
Dim nControls As Integer = Me.ボディ部.Controls.Count
Dim obj As Object
For Each obj In Me.ボディ部.Controls
If obj.GetType().ToString() = "System.Windows.Forms.TextBox" Then
obj.Clear()
End If
Next
Me.社員コード.Clear()
Me.社員コード.Focus()
End Sub
' ******************************************************
' キャンセル
' ******************************************************
Private Sub キャンセル_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles キャンセル.Click
Me.ヘッド部.Enabled = True
Me.ボディ部.Enabled = False
Dim obj As Object
For Each obj In Me.ボディ部.Controls
If obj.GetType().ToString() = "System.Windows.Forms.TextBox" Then
obj.Clear()
End If
Next
Me.社員コード.Focus()
Me.社員コード.SelectAll()
End Sub
End Class