Public
Class
agenda_task
Inherits System.Windows.Forms.Form
Windows Form Designer
generated code |
Private Sub
agenda_task_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase .Load
'new task & edit
task
Select
Case
task_type
Case
"new"
Me.Text = "new task"
Me.txtdescription.Text =
""
Me.rad_ligh.Checked = 0
Me.Rad_normal.Checked =
1
Me.Rad_low.Checked = 0
task_prirority = "N"
Case
"edit"
Me.Text = "edit task"
Me.txtdescription.Text =
agenda_desc
Select
Case
task_prirority
Case
"H"
Me.rad_ligh.Checked = 1
Me.Rad_normal.Checked =
0
Me.Rad_low.Checked = 0
Case
"N"
Me.rad_ligh.Checked = 0
Me.Rad_normal.Checked =
1
Me.Rad_low.Checked = 0
Case
"L"
Me.rad_ligh.Checked = 0
Me.Rad_normal.Checked =
0
Me.Rad_low.Checked = 1
End
Select
End
Select
Me.Btn_cancel.Left = (Me.txtdescription.Left
+ Me.txtdescription.Width) - Me.Btn_cancel.Width
Me.Btn_ok.Enabled =
False
Me.txtdescription.Focus()
End
Sub
Private
Sub
rad_ligh_CheckedChanged(ByVal
sender As
System.Object, ByVal
e As
System.EventArgs)
Handles
rad_ligh.CheckedChanged
If
Me.rad_ligh.Checked
= True
Then
Me.Rad_normal.Checked =
0
Me.Rad_low.Checked = 0
task_prirority = "H"
If
Me.Btn_ok.Enabled =
False
Then
Me.Btn_ok.Enabled =
True
Me.txtdescription.Focus()
End
If
End
Sub
Private
Sub
Rad_normal_CheckedChanged(ByVal
sender As
Object,
ByVal
e As
System.EventArgs)
Handles
Rad_normal.CheckedChanged
If
Me.Rad_normal.Checked = True
Then
Me.rad_ligh.Checked = 0
Me.Rad_low.Checked = 0
task_prirority = "N"
If
Me.Btn_ok.Enabled =
False
Then
Me.Btn_ok.Enabled =
True
Me.txtdescription.Focus()
End
If
End
Sub
Private
Sub
Rad_low_CheckedChanged(ByVal
sender As
Object,
ByVal
e As
System.EventArgs)
Handles
Rad_low.CheckedChanged
If
Me.Rad_low.Checked =
True
Then
Me.rad_ligh.Checked = 0
Me.Rad_normal.Checked =
0
task_prirority = "L"
If
Me.Btn_ok.Enabled =
False
Then
Me.Btn_ok.Enabled =
True
Me.txtdescription.Focus()
End
If
End
Sub
Private
Sub
txtdescription_KeyPress(ByVal
sender As
Object,
ByVal
e As
System.Windows.Forms.KeyPressEventArgs)
Handles
txtdescription.KeyPress
If
Me.Btn_ok.Enabled =
False
Then
Me.Btn_ok.Enabled =
True
End
Sub
Private
Sub
Btn_ok_Click(ByVal
sender As
System.Object, ByVal
e As
System.EventArgs)
Handles Btn_ok.Click
If
Me.txtdescription.Text <> "" Then
Select
Case
task_type
Case
"new"
task_flag =
True
agenda_desc =
Me.txtdescription.Text
Close()
fagenda.afternew_task()
Case
"edit"
task_flag =
True
agenda_desc =
Me.txtdescription.Text
Close()
fagenda.afteredit_task()
End
Select
Else
MsgBox("description value, empty
... not available", MsgBoxStyle.DefaultButton1
Or
MsgBoxStyle.Information
Or
MsgBoxStyle.OKOnly, Title)
End
If
End
Sub
Private
Sub
Btn_cancel_Click(ByVal
sender As
System.Object, ByVal
e As
System.EventArgs)
Handles Btn_cancel.Click
task_flag =
False
agenda_desc = ""
task_prirority = ""
Me.Close()
End
Sub
End
Class
|