Public
Class
aganda_time
Inherits System.Windows.Forms.Form
Dim j As Integer
Dim i As Integer
Dim vi As String
Dim vj As String
Dim vitem As
Integer
Windows Form Designer
generated code |
Private
Sub
aganda_time_Load(ByVal
sender As
System.Object, ByVal
e As
System.EventArgs)
Handles
MyBase.Load
Dim
vleft As
Integer
Dim
vtop As
Integer
' Move
vleft = fagenda_appoint.Left +
fagenda_appoint.txttime.Left
vtop = fagenda_appoint.Top +
fagenda_appoint.txttime.Top +
fagenda_appoint.txttime.Height * 5 / 2
Me.Location
= New
Point(vleft, vtop)
time_flag =
False
Me.RadAM.Checked
= 1
End
Sub
Private
Sub
RadAM_CheckedChanged(ByVal
sender As
System.Object, ByVal
e As
System.EventArgs)
Handles RadAM.CheckedChanged
If
Me.Listtime.Items.Count
> 0 Then
vitem = (Me.Listtime.Items.Count
- 1)
Me.Listtime.Items.Clear()
End
If
For
i = 0 To
11
For
j = 0 To
55 Step
5
vi = Format(i, "00")
vj = Format(j, "00")
Me.Listtime.Items.Add(Trim(vi
& ":" & vj & " AM"))
Next
Next
If
Me.RadAM.Checked
= 1 Then
Me.RadPM.Checked
= 0
End
Sub
Private
Sub
RadPM_CheckedChanged(ByVal
sender As
System.Object, ByVal
e As
System.EventArgs)
Handles RadPM.CheckedChanged
If
Me.Listtime.Items.Count
> 0 Then
vitem = (Me.Listtime.Items.Count
- 1)
Me.Listtime.Items.Clear()
End
If
For
i = 12 To
23
For
j = 0 To
55 Step
5
vi = Format(i, "00")
vj = Format(j, "00")
Me.Listtime.Items.Add(Trim(vi
& ":" & vj & " PM"))
Next
Next
If
Me.RadPM.Checked
= 1 Then
Me.RadAM.Checked
= 0
End
Sub
Private
Sub
Listtime_SelectedIndexChanged(ByVal
sender As
System.Object, ByVal
e As
System.EventArgs)
Handles
Listtime.SelectedIndexChanged
appoint_time =
Me.Listtime.SelectedItem
time_flag =
True
End
Sub
Private
Sub
PictureBox1_Click(ByVal
sender As
System.Object, ByVal
e As
System.EventArgs)
Handles PictureBox1.Click
Dim
response As
MsgBoxResult
If
time_flag Then
fagenda_appoint.sub_timeok()
Close()
End
If
If
time_flag = False
Then
response = MsgBox("Time, not
selected ...", MsgBoxStyle.DefaultButton2
Or
MsgBoxStyle.Information
Or
MsgBoxStyle.YesNo, Title)
If
(response = MsgBoxResult.Yes)
Then
Close()
If
(response = MsgBoxResult.No)
Then
Exit
Sub
End
If
End
Sub
End
Class
|