' ****************************************************
' 実行時、最初に処理されるイベント
' ****************************************************
Private Sub Form_Load()

	Call BodyProtect

End Sub

' ****************************************************
' 第２会話エリアのプロテクト
' ****************************************************
Private Function BodyProtect()

	With txt名前
		.Enabled = False
		.BackColor = &H8000000F
	End With

	With txt学年
		.Enabled = False
		.BackColor = &H8000000F
	End With

	With txt誕生日
		.Enabled = False
		.BackColor = &H8000000F
	End With
	
	With txt電話番号
		.Enabled = False
		.BackColor = &H8000000F
	End With

	With btn確認2会話目
		.Enabled = False
	End With

End Function

' ****************************************************
' 第１会話から第２会話への画面遷移
' ****************************************************
Private Sub btn確認1会話目_Click()

	Call HeadProtect
	Call BodyEnable

End Sub

' ****************************************************
' 第１会話エリアのプロテクト
' ****************************************************
Private Function HeadProtect()

	With txt処理区分
		.Enabled = False
		.BackColor = &H8000000F
	End With

	With txtコード
		.Enabled = False
		.BackColor = &H8000000F
	End With

	With btn確認1会話目
		.Enabled = False
	End With

End Function

' ****************************************************
' 第２会話エリアを入力可能にする
' ****************************************************
Private Function BodyEnable()

	With txt名前
		.Enabled = True
		.BackColor = &H80000005
	End With

	With txt学年
		.Enabled = True
		.BackColor = &H80000005
	End With

	With txt誕生日
		.Enabled = True
		.BackColor = &H80000005
	End With
	
	With txt電話番号
		.Enabled = True
		.BackColor = &H80000005
	End With

	With btn確認2会話目
		.Enabled = True
	End With

End Function

' ****************************************************
' 第一会話へ戻る為のキャンセルメニュー
' ****************************************************
Private Sub mnuキャンセル_Click()

	Call BodyClear
	Call BodyProtect
	Call HeadEnable

End Sub

' ****************************************************
' 第２会話エリアのクリア
' ****************************************************
Private Function BodyClear()

	With txt名前
		.Text = ""
	End With

	With txt学年
		.Text = ""
	End With

	With txt誕生日
		.Text = ""
	End With
	
	With txt電話番号
		.Text = ""
	End With

End Function

' ****************************************************
' 第１会話エリアを入力可能にする
' ****************************************************
Private Function HeadEnable()

	With txt処理区分
		.Enabled = True
		.BackColor = &H80000005
	End With

	With txtコード
		.Enabled = True
		.BackColor = &H80000005
	End With

	With btn確認1会話目
		.Enabled = True
	End With

End Function