ソース掲示板




すべてから検索

キーワード   条件 表示 現行ログ 過去ログ トピックス 名前 本文
VB.NET マスタメンテ ( No.0 )
日時: 2007/09/09 20:47
名前: lightbox






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