473,735 Members | 2,271 Online
Bytes | Software Development & Data Engineering Community
+ Post

Home Posts Topics Members FAQ

Date Time Picker For Time Alternative

Well, I read today about how I could set the dropdown value to False to
change the control from presenting a Calendar to cycling through the times.
Before getting that, I developed a custom Time Combo control, which I think
I still prefer, so I'll share it here.

It has two main features. One, an Increment Property, which allows you to
set whether you see every minute of the day, every five minutes, ten,
fifteen, twenty, thirty, or just the even hours. The second feature is a
SetToClosestTim e method which examines which increment you have selected and
sets the dropdown to the proper time.

So, here it is. Comments welcome.

Public Class TimeCombo
Inherits System.Windows. Forms.UserContr ol

Private mIncrement As IncrementProps = IncrementProps. OneMinute
Private aryMinuteElemen t() As Integer
Dim iMinute As Integer
Public Event SelectionChange Committed As EventHandler

#Region " Windows Form Designer generated code "

Public Sub New()
MyBase.New()

'This call is required by the Windows Form Designer.
InitializeCompo nent()

End Sub

'UserControl overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Disp ose()
End If
End If
MyBase.Dispose( disposing)
End Sub

'Required by the Windows Form Designer
Private components As System.Componen tModel.IContain er

'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents TimeComboBox1 As System.Windows. Forms.ComboBox
<System.Diagnos tics.DebuggerSt epThrough()> Private Sub
InitializeCompo nent()
Me.TimeComboBox 1 = New System.Windows. Forms.ComboBox( )
Me.SuspendLayou t()
'
'TimeComboBox1
'
Me.TimeComboBox 1.DropDownStyle =
System.Windows. Forms.ComboBoxS tyle.DropDownLi st
Me.TimeComboBox 1.Items.AddRang e(New Object() {"00:00", "00:01",
"00:02", "00:03", "00:04", "00:05", "00:06", "00:07", "00:08", "00:09",
"00:10", "00:11", "00:12", "00:13", "00:14", "00:15", "00:16", "00:17",
"00:18", "00:19", "00:20", "00:21", "00:22", "00:23", "00:24", "00:25",
"00:26", "00:27", "00:28", "00:29", "00:30", "00:31", "00:32", "00:33",
"00:34", "00:35", "00:36", "00:37", "00:38", "00:39", "00:40", "00:41",
"00:42", "00:43", "00:44", "00:45", "00:46", "00:47", "00:48", "00:49",
"00:50", "00:51", "00:52", "00:53", "00:54", "00:55", "00:56", "00:57",
"00:58", "00:59", "01:00", "01:01", "01:02", "01:03", "01:04", "01:05",
"01:06", "01:07", "01:08", "01:09", "01:10", "01:11", "01:12", "01:13",
"01:14", "01:15", "01:16", "01:17", "01:18", "01:19", "01:20", "01:21",
"01:22", "01:23", "01:24", "01:25", "01:26", "01:27", "01:28", "01:29",
"01:30", "01:31", "01:32", "01:33", "01:34", "01:35", "01:36", "01:37",
"01:38", "01:39", "01:40", "01:41", "01:42", "01:43", "01:44", "01:45",
"01:46", "01:47", "01:48", "01:49", "01:50", "01:51", "01:52", "01:53",
"01:54", "01:55", "01:56", "01:57", "01:58", "01:59", "02:00", "02:01",
"02:02", "02:03", "02:04", "02:05", "02:06", "02:07", "02:08", "02:09",
"02:10", "02:11", "02:12", "02:13", "02:14", "02:15", "02:16", "02:17",
"02:18", "02:19", "02:20", "02:21", "02:22", "02:23", "02:24", "02:25",
"02:26", "02:27", "02:28", "02:29", "02:30", "02:31", "02:32", "02:33",
"02:34", "02:35", "02:36", "02:37", "02:38", "02:39", "02:40", "02:41",
"02:42", "02:43", "02:44", "02:45", "02:46", "02:47", "02:48", "02:49",
"02:50", "02:51", "02:52", "02:53", "02:54", "02:55", "02:56", "02:57",
"02:58", "02:59", "03:00", "03:01", "03:02", "03:03", "03:04", "03:05",
"03:06", "03:07", "03:08", "03:09", "03:10", "03:11", "03:12", "03:13",
"03:14", "03:15", "03:16", "03:17", "03:18", "03:19", "03:20", "03:21",
"03:22", "03:23", "03:24", "03:25", "03:26", "03:27", "03:28", "03:29",
"03:30", "03:31", "03:32", "03:33", "03:34", "03:35", "03:36", "03:37",
"03:38", "03:39", "03:40", "03:41", "03:42", "03:43", "03:44", "03:45",
"03:46", "03:47", "03:48", "03:49", "03:50", "03:51", "03:52", "03:53",
"03:54", "03:55", "03:56", "03:57", "03:58", "03:59", "04:00", "04:01",
"04:02", "04:03", "04:04", "04:05", "04:06", "04:07", "04:08", "04:09",
"04:10", "04:11", "04:12", "04:13", "04:14", "04:15", "04:16", "04:17",
"04:18", "04:19", "04:20", "04:21", "04:22", "04:23", "04:24", "04:25",
"04:26", "04:27", "04:28", "04:29", "04:30", "04:31", "04:32", "04:33",
"04:34", "04:35", "04:36", "04:37", "04:38", "04:39", "04:40", "04:41",
"04:42", "04:43", "04:44", "04:45", "04:46", "04:47", "04:48", "04:49",
"04:50", "04:51", "04:52", "04:53", "04:54", "04:55", "04:56", "04:57",
"04:58", "04:59", "05:00", "05:01", "05:02", "05:03", "05:04", "05:05",
"05:06", "05:07", "05:08", "05:09", "05:10", "05:11", "05:12", "05:13",
"05:14", "05:15", "05:16", "05:17", "05:18", "05:19", "05:20", "05:21",
"05:22", "05:23", "05:24", "05:25", "05:26", "05:27", "05:28", "05:29",
"05:30", "05:31", "05:32", "05:33", "05:34", "05:35", "05:36", "05:37",
"05:38", "05:39", "05:40", "05:41", "05:42", "05:43", "05:44", "05:45",
"05:46", "05:47", "05:48", "05:49", "05:50", "05:51", "05:52", "05:53",
"05:54", "05:55", "05:56", "05:57", "05:58", "05:59", "06:00", "06:01",
"06:02", "06:03", "06:04", "06:05", "06:06", "06:07", "06:08", "06:09",
"06:10", "06:11", "06:12", "06:13", "06:14", "06:15", "06:16", "06:17",
"06:18", "06:19", "06:20", "06:21", "06:22", "06:23", "06:24", "06:25",
"06:26", "06:27", "06:28", "06:29", "06:30", "06:31", "06:32", "06:33",
"06:34", "06:35", "06:36", "06:37", "06:38", "06:39", "06:40", "06:41",
"06:42", "06:43", "06:44", "06:45", "06:46", "06:47", "06:48", "06:49",
"06:50", "06:51", "06:52", "06:53", "06:54", "06:55", "06:56", "06:57",
"06:58", "06:59", "07:00", "07:01", "07:02", "07:03", "07:04", "07:05",
"07:06", "07:07", "07:08", "07:09", "07:10", "07:11", "07:12", "07:13",
"07:14", "07:15", "07:16", "07:17", "07:18", "07:19", "07:20", "07:21",
"07:22", "07:23", "07:24", "07:25", "07:26", "07:27", "07:28", "07:29",
"07:30", "07:31", "07:32", "07:33", "07:34", "07:35", "07:36", "07:37",
"07:38", "07:39", "07:40", "07:41", "07:42", "07:43", "07:44", "07:45",
"07:46", "07:47", "07:48", "07:49", "07:50", "07:51", "07:52", "07:53",
"07:54", "07:55", "07:56", "07:57", "07:58", "07:59", "08:00", "08:01",
"08:02", "08:03", "08:04", "08:05", "08:06", "08:07", "08:08", "08:09",
"08:10", "08:11", "08:12", "08:13", "08:14", "08:15", "08:16", "08:17",
"08:18", "08:19", "08:20", "08:21", "08:22", "08:23", "08:24", "08:25",
"08:26", "08:27", "08:28", "08:29", "08:30", "08:31", "08:32", "08:33",
"08:34", "08:35", "08:36", "08:37", "08:38", "08:39", "08:40", "08:41",
"08:42", "08:43", "08:44", "08:45", "08:46", "08:47", "08:48", "08:49",
"08:50", "08:51", "08:52", "08:53", "08:54", "08:55", "08:56", "08:57",
"08:58", "08:59", "09:00", "09:01", "09:02", "09:03", "09:04", "09:05",
"09:06", "09:07", "09:08", "09:09", "09:10", "09:11", "09:12", "09:13",
"09:14", "09:15", "09:16", "09:17", "09:18", "09:19", "09:20", "09:21",
"09:22", "09:23", "09:24", "09:25", "09:26", "09:27", "09:28", "09:29",
"09:30", "09:31", "09:32", "09:33", "09:34", "09:35", "09:36", "09:37",
"09:38", "09:39", "09:40", "09:41", "09:42", "09:43", "09:44", "09:45",
"09:46", "09:47", "09:48", "09:49", "09:50", "09:51", "09:52", "09:53",
"09:54", "09:55", "09:56", "09:57", "09:58", "09:59", "10:00", "10:01",
"10:02", "10:03", "10:04", "10:05", "10:06", "10:07", "10:08", "10:09",
"10:10", "10:11", "10:12", "10:13", "10:14", "10:15", "10:16", "10:17",
"10:18", "10:19", "10:20", "10:21", "10:22", "10:23", "10:24", "10:25",
"10:26", "10:27", "10:28", "10:29", "10:30", "10:31", "10:32", "10:33",
"10:34", "10:35", "10:36", "10:37", "10:38", "10:39", "10:40", "10:41",
"10:42", "10:43", "10:44", "10:45", "10:46", "10:47", "10:48", "10:49",
"10:50", "10:51", "10:52", "10:53", "10:54", "10:55", "10:56", "10:57",
"10:58", "10:59", "11:00", "11:01", "11:02", "11:03", "11:04", "11:05",
"11:06", "11:07", "11:08", "11:09", "11:10", "11:11", "11:12", "11:13",
"11:14", "11:15", "11:16", "11:17", "11:18", "11:19", "11:20", "11:21",
"11:22", "11:23", "11:24", "11:25", "11:26", "11:27", "11:28", "11:29",
"11:30", "11:31", "11:32", "11:33", "11:34", "11:35", "11:36", "11:37",
"11:38", "11:39", "11:40", "11:41", "11:42", "11:43", "11:44", "11:45",
"11:46", "11:47", "11:48", "11:49", "11:50", "11:51", "11:52", "11:53",
"11:54", "11:55", "11:56", "11:57", "11:58", "11:59", "12:00", "12:01",
"12:02", "12:03", "12:04", "12:05", "12:06", "12:07", "12:08", "12:09",
"12:10", "12:11", "12:12", "12:13", "12:14", "12:15", "12:16", "12:17",
"12:18", "12:19", "12:20", "12:21", "12:22", "12:23", "12:24", "12:25",
"12:26", "12:27", "12:28", "12:29", "12:30", "12:31", "12:32", "12:33",
"12:34", "12:35", "12:36", "12:37", "12:38", "12:39", "12:40", "12:41",
"12:42", "12:43", "12:44", "12:45", "12:46", "12:47", "12:48", "12:49",
"12:50", "12:51", "12:52", "12:53", "12:54", "12:55", "12:56", "12:57",
"12:58", "12:59", "13:00", "13:01", "13:02", "13:03", "13:04", "13:05",
"13:06", "13:07", "13:08", "13:09", "13:10", "13:11", "13:12", "13:13",
"13:14", "13:15", "13:16", "13:17", "13:18", "13:19", "13:20", "13:21",
"13:22", "13:23", "13:24", "13:25", "13:26", "13:27", "13:28", "13:29",
"13:30", "13:31", "13:32", "13:33", "13:34", "13:35", "13:36", "13:37",
"13:38", "13:39", "13:40", "13:41", "13:42", "13:43", "13:44", "13:45",
"13:46", "13:47", "13:48", "13:49", "13:50", "13:51", "13:52", "13:53",
"13:54", "13:55", "13:56", "13:57", "13:58", "13:59", "14:00", "14:01",
"14:02", "14:03", "14:04", "14:05", "14:06", "14:07", "14:08", "14:09",
"14:10", "14:11", "14:12", "14:13", "14:14", "14:15", "14:16", "14:17",
"14:18", "14:19", "14:20", "14:21", "14:22", "14:23", "14:24", "14:25",
"14:26", "14:27", "14:28", "14:29", "14:30", "14:31", "14:32", "14:33",
"14:34", "14:35", "14:36", "14:37", "14:38", "14:39", "14:40", "14:41",
"14:42", "14:43", "14:44", "14:45", "14:46", "14:47", "14:48", "14:49",
"14:50", "14:51", "14:52", "14:53", "14:54", "14:55", "14:56", "14:57",
"14:58", "14:59", "15:00", "15:01", "15:02", "15:03", "15:04", "15:05",
"15:06", "15:07", "15:08", "15:09", "15:10", "15:11", "15:12", "15:13",
"15:14", "15:15", "15:16", "15:17", "15:18", "15:19", "15:20", "15:21",
"15:22", "15:23", "15:24", "15:25", "15:26", "15:27", "15:28", "15:29",
"15:30", "15:31", "15:32", "15:33", "15:34", "15:35", "15:36", "15:37",
"15:38", "15:39", "15:40", "15:41", "15:42", "15:43", "15:44", "15:45",
"15:46", "15:47", "15:48", "15:49", "15:50", "15:51", "15:52", "15:53",
"15:54", "15:55", "15:56", "15:57", "15:58", "15:59", "16:00", "16:01",
"16:02", "16:03", "16:04", "16:05", "16:06", "16:07", "16:08", "16:09",
"16:10", "16:11", "16:12", "16:13", "16:14", "16:15", "16:16", "16:17",
"16:18", "16:19", "16:20", "16:21", "16:22", "16:23", "16:24", "16:25",
"16:26", "16:27", "16:28", "16:29", "16:30", "16:31", "16:32", "16:33",
"16:34", "16:35", "16:36", "16:37", "16:38", "16:39", "16:40", "16:41",
"16:42", "16:43", "16:44", "16:45", "16:46", "16:47", "16:48", "16:49",
"16:50", "16:51", "16:52", "16:53", "16:54", "16:55", "16:56", "16:57",
"16:58", "16:59", "17:00", "17:01", "17:02", "17:03", "17:04", "17:05",
"17:06", "17:07", "17:08", "17:09", "17:10", "17:11", "17:12", "17:13",
"17:14", "17:15", "17:16", "17:17", "17:18", "17:19", "17:20", "17:21",
"17:22", "17:23", "17:24", "17:25", "17:26", "17:27", "17:28", "17:29",
"17:30", "17:31", "17:32", "17:33", "17:34", "17:35", "17:36", "17:37",
"17:38", "17:39", "17:40", "17:41", "17:42", "17:43", "17:44", "17:45",
"17:46", "17:47", "17:48", "17:49", "17:50", "17:51", "17:52", "17:53",
"17:54", "17:55", "17:56", "17:57", "17:58", "17:59", "18:00", "18:01",
"18:02", "18:03", "18:04", "18:05", "18:06", "18:07", "18:08", "18:09",
"18:10", "18:11", "18:12", "18:13", "18:14", "18:15", "18:16", "18:17",
"18:18", "18:19", "18:20", "18:21", "18:22", "18:23", "18:24", "18:25",
"18:26", "18:27", "18:28", "18:29", "18:30", "18:31", "18:32", "18:33",
"18:34", "18:35", "18:36", "18:37", "18:38", "18:39", "18:40", "18:41",
"18:42", "18:43", "18:44", "18:45", "18:46", "18:47", "18:48", "18:49",
"18:50", "18:51", "18:52", "18:53", "18:54", "18:55", "18:56", "18:57",
"18:58", "18:59", "19:00", "19:01", "19:02", "19:03", "19:04", "19:05",
"19:06", "19:07", "19:08", "19:09", "19:10", "19:11", "19:12", "19:13",
"19:14", "19:15", "19:16", "19:17", "19:18", "19:19", "19:20", "19:21",
"19:22", "19:23", "19:24", "19:25", "19:26", "19:27", "19:28", "19:29",
"19:30", "19:31", "19:32", "19:33", "19:34", "19:35", "19:36", "19:37",
"19:38", "19:39", "19:40", "19:41", "19:42", "19:43", "19:44", "19:45",
"19:46", "19:47", "19:48", "19:49", "19:50", "19:51", "19:52", "19:53",
"19:54", "19:55", "19:56", "19:57", "19:58", "19:59", "20:00", "20:01",
"20:02", "20:03", "20:04", "20:05", "20:06", "20:07", "20:08", "20:09",
"20:10", "20:11", "20:12", "20:13", "20:14", "20:15", "20:16", "20:17",
"20:18", "20:19", "20:20", "20:21", "20:22", "20:23", "20:24", "20:25",
"20:26", "20:27", "20:28", "20:29", "20:30", "20:31", "20:32", "20:33",
"20:34", "20:35", "20:36", "20:37", "20:38", "20:39", "20:40", "20:41",
"20:42", "20:43", "20:44", "20:45", "20:46", "20:47", "20:48", "20:49",
"20:50", "20:51", "20:52", "20:53", "20:54", "20:55", "20:56", "20:57",
"20:58", "20:59", "21:00", "21:01", "21:02", "21:03", "21:04", "21:05",
"21:06", "21:07", "21:08", "21:09", "21:10", "21:11", "21:12", "21:13",
"21:14", "21:15", "21:16", "21:17", "21:18", "21:19", "21:20", "21:21",
"21:22", "21:23", "21:24", "21:25", "21:26", "21:27", "21:28", "21:29",
"21:30", "21:31", "21:32", "21:33", "21:34", "21:35", "21:36", "21:37",
"21:38", "21:39", "21:40", "21:41", "21:42", "21:43", "21:44", "21:45",
"21:46", "21:47", "21:48", "21:49", "21:50", "21:51", "21:52", "21:53",
"21:54", "21:55", "21:56", "21:57", "21:58", "21:59", "22:00", "22:01",
"22:02", "22:03", "22:04", "22:05", "22:06", "22:07", "22:08", "22:09",
"22:10", "22:11", "22:12", "22:13", "22:14", "22:15", "22:16", "22:17",
"22:18", "22:19", "22:20", "22:21", "22:22", "22:23", "22:24", "22:25",
"22:26", "22:27", "22:28", "22:29", "22:30", "22:31", "22:32", "22:33",
"22:34", "22:35", "22:36", "22:37", "22:38", "22:39", "22:40", "22:41",
"22:42", "22:43", "22:44", "22:45", "22:46", "22:47", "22:48", "22:49",
"22:50", "22:51", "22:52", "22:53", "22:54", "22:55", "22:56", "22:57",
"22:58", "22:59", "23:00", "23:01", "23:02", "23:03", "23:04", "23:05",
"23:06", "23:07", "23:08", "23:09", "23:10", "23:11", "23:12", "23:13",
"23:14", "23:15", "23:16", "23:17", "23:18", "23:19", "23:20", "23:21",
"23:22", "23:23", "23:24", "23:25", "23:26", "23:27", "23:28", "23:29",
"23:30", "23:31", "23:32", "23:33", "23:34", "23:35", "23:36", "23:37",
"23:38", "23:39", "23:40", "23:41", "23:42", "23:43", "23:44", "23:45",
"23:46", "23:47", "23:48", "23:49", "23:50", "23:51", "23:52", "23:53",
"23:54", "23:55", "23:56", "23:57", "23:58", "23:59"})
Me.TimeComboBox 1.Name = "TimeComboB ox1"
Me.TimeComboBox 1.Size = New System.Drawing. Size(54, 21)
Me.TimeComboBox 1.TabIndex = 0
'
'TimeCombo
'
Me.Controls.Add Range(New System.Windows. Forms.Control()
{Me.TimeComboBo x1})
Me.Name = "TimeCombo"
Me.Size = New System.Drawing. Size(56, 24)
Me.ResumeLayout (False)

End Sub

#End Region

#Region " Set Increment"

Public Enum IncrementProps As Integer
OneMinute = 1
FiveMinutes = 5
TenMinutes = 10
FifteenMinutes = 15
TwentyMinutes = 20
ThirtyMinutes = 30
OneHour = 60
End Enum

Public Property Increment() As IncrementProps
Get
Return mIncrement
End Get
Set(ByVal Value As IncrementProps)
If Value <> mIncrement Then
mIncrement = Value
SetItems()
End If
End Set
End Property

Private Sub SetItems()
Dim h As Integer
Dim m As Integer
Dim sh As String
Dim sm As String
Dim s As String
Me.TimeComboBox 1.Items.Clear()
Select Case mIncrement
Case mIncrement.OneM inute
LoadItems(59, 1)
Case mIncrement.Five Minutes
LoadItems(55, 5)
Case mIncrement.TenM inutes
LoadItems(50, 10)
Case mIncrement.Fift eenMinutes
LoadItems(45, 15)
Case mIncrement.Twen tyMinutes
LoadItems(40, 20)
Case mIncrement.Thir tyMinutes
LoadItems(30, 30)
Case mIncrement.OneH our
For h = 0 To 23
s = GetTime(h) & ":00"
Me.TimeComboBox 1.Items.Add(s)
Next
End Select

End Sub

Private Sub LoadItems(ByVal iLoopMax As Integer, ByVal iStep As Integer)
Dim h As Integer
Dim m As Integer
Dim sh As String
Dim s As String

For h = 0 To 23
sh = GetTime(h)
For m = 0 To iLoopMax Step iStep
s = sh & ":" & GetTime(m)
Me.TimeComboBox 1.Items.Add(s)
Next
Next

End Sub

Private Function GetTime(ByVal i As Integer) As String
Return Format(i, "0#")
End Function

#End Region

#Region " Set To Closest Current"

Public Sub SetToClosestCur rentTime(ByVal strUseTime As String)

Select Case mIncrement
Case mIncrement.OneM inute
Me.TimeComboBox 1.Text = strUseTime
Case mIncrement.Five Minutes
ReDim aryMinuteElemen t(11)
aryMinuteElemen t(0) = 0
aryMinuteElemen t(1) = 5
aryMinuteElemen t(2) = 10
aryMinuteElemen t(3) = 15
aryMinuteElemen t(4) = 20
aryMinuteElemen t(5) = 25
aryMinuteElemen t(6) = 30
aryMinuteElemen t(7) = 35
aryMinuteElemen t(8) = 40
aryMinuteElemen t(9) = 45
aryMinuteElemen t(10) = 50
aryMinuteElemen t(11) = 55
Case mIncrement.TenM inutes
ReDim aryMinuteElemen t(5)
aryMinuteElemen t(0) = 0
aryMinuteElemen t(1) = 10
aryMinuteElemen t(2) = 20
aryMinuteElemen t(3) = 30
aryMinuteElemen t(4) = 40
aryMinuteElemen t(5) = 50
Case mIncrement.Fift eenMinutes
ReDim aryMinuteElemen t(3)
aryMinuteElemen t(0) = 0
aryMinuteElemen t(1) = 15
aryMinuteElemen t(2) = 30
aryMinuteElemen t(3) = 45
Case mIncrement.Twen tyMinutes
ReDim aryMinuteElemen t(2)
aryMinuteElemen t(0) = 0
aryMinuteElemen t(1) = 20
aryMinuteElemen t(2) = 40
Case mIncrement.Thir tyMinutes
ReDim aryMinuteElemen t(1)
aryMinuteElemen t(0) = 0
aryMinuteElemen t(1) = 30
Case mIncrement.OneH our
ReDim aryMinuteElemen t(0)
aryMinuteElemen t(0) = 0
End Select
If mIncrement <> mIncrement.OneM inute Then
SetTheTime(strU seTime)
End If
End Sub

Private Function GetClosestEleme nt(ByVal i As Integer) As Integer
Dim intLoop As Integer

For intLoop = 0 To UBound(aryMinut eElement)
If i <= aryMinuteElemen t(intLoop) Then
Return intLoop
End If
Next

'If I'm still in the routine, then I'm dealing with an hour
situation
Return -1
End Function

Private Function GetNextHour(ByV al strUseTime As String) As String
Dim iHour As Integer = Val(Microsoft.V isualBasic.Left (strUseTime,
2)) + 1
Return Format(iHour, "0#") & ":00"
End Function

Private Sub SetTheTime(ByVa l strUseTime As String)
'iMinute = Val(Microsoft.V isualBasic.Righ t(Format(Now, "HH:mm"), 2))
iMinute = Val(Microsoft.V isualBasic.Righ t(strUseTime, 2))
Dim iElement As Integer = GetClosestEleme nt(iMinute)
Dim sh As String

If iElement = -1 Then
sh = GetNextHour(str UseTime)
Else
Dim s As String = Format(aryMinut eElement(iEleme nt), "0#")
sh = Microsoft.Visua lBasic.Left(str UseTime, 2) & ":" & s
End If
Me.TimeComboBox 1.Text = sh

End Sub
#End Region

#Region " Overridden Properties"

Public Overrides Property Text() As String
Get
Return Me.TimeComboBox 1.Text
End Get
Set(ByVal Value As String)
Me.TimeComboBox 1.Text = Value
End Set
End Property

Sub TimeComboBox1_S electionChangeC ommitted(ByVal sender As Object, ByVal
e As EventArgs) Handles TimeComboBox1.S electionChangeC ommitted
RaiseEvent SelectionChange Committed(Me, e)
End Sub
#End Region

End Class

Nov 20 '05 #1
0 1389

This thread has been closed and replies have been disabled. Please start a new discussion.

Similar topics

5
7104
by: Adrian Parker | last post by:
Hi. I have a date time picker in my program which uses ADO to read from an Access database. It works perfectly, unless the database is empty (no records) when opened. When you try to open an empty database, the date time picker returns error 545. Any attempts to progmatically add new records after the empty database has been opened returns, or to use the DTP and set a new date for those added records, "Field not updateable, Bound...
13
3090
by: Deano | last post by:
Hi, I generate a report using two dates (From and To). I notice if I enter 01/10/2003 that it is interpreted by Access as 10/01/2003 i.e 10th January rather than 1st October as I intended. This is the old problem of US date format mm/dd/yy versus dd/mm/yy. I am stepping through the code and the dates do seem to be ok but when the report runs I get records earlier than 1st October which is not what I want.
3
5245
by: TD | last post by:
This code doesn't work. Every posting I can find suggests that it should. If TypeOf controlname Is DTPicker then do something here End If I am using the Date Time Picker control and wish to use TypeOf to determine if the controlname is indeed a Date Time Picker control.
7
10775
by: XmlAdoNewbie | last post by:
Hi All, I am wondering if it is possible to allow nulls or empty strings when it comes to the datetimepicker control. I have an app with a few datetimepickers on it and there are some instances when i don't want a date to show at all but the datetimepickers always have at least todays date in it so when i go to press the save button on my app there is always a date stored in the retrieved field. Is there a way to say "hey i don't want a...
2
3954
by: Need Helps | last post by:
The example given in msdn.com on how to create a Date Time Picker involves using the CreateWindowEx function. However, I created a dialog box using the graphical interface, and then used the graphical interface to add a Date Time Picker control to it. The only problem is, I don't know how to do anything with the Date Time Picker, like access the date selected within the control. All I have is the ID, which in my code is IDC_DATETIMEPICKER1. ...
4
2670
by: Michael Turner | last post by:
Hi Guys I have two DateTime pickers one shows the Date and the other the time, this is a requirement of the solution. The problem I have is that when the time is saved to the sql database into a datetime field it uses the default date which is a problem when I try to sort, what I wanted to know is there a way for me to set the date in the time picker to the date in the date picker? Any help greatly appreciated.
2
2415
by: Darhl Thomason | last post by:
I'm converting my Access 2003 VBA app. I have a number of date fields in my db that I want to use the date/time picker control with, but if there is no entry in my database, I want the date/time picker to show no date. Right now the first time it shows a blank date record, it inserts today's date. But as I move through the db and it finds a date in that field, the next time it finds a blank data record, it uses the last one as the...
4
4876
by: Michel Posseth [MCP] | last post by:
I have a problem with the date time picker validate event wich i believe is a bug How to reproduce : throw on a form a date time picker control and a textbox control select the validating event of the control and add this code
0
2843
by: fredloh | last post by:
i have a tab control on my form. i then have several microsoft date and time picker control on the tab control. when i select a date on any of the date and time picker control, the result of the control's value is always 12:00:00 am instead of the date i selected even though the date displays correctly on the date and time picker control. the controls are unbound. why is this? i also have another identical form where the date and...
1
4464
by: Sabbuser | last post by:
Hey Guys please help me out!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! I have placed a Date & Time Picker Control on a form in Windows 2000, When our Organization has upgraded all the PC's with Windows XP. Now i can't find the Date&Time Picker Control on the Form, it is showing a blank box. I have visited the Microsoft website, there i found that "Date&Time Picker Control has been eliminated in Windows XP".
0
8958
marktang
by: marktang | last post by:
ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However, people are often confused as to whether an ONU can Work As a Router. In this blog post, we’ll explore What is ONU, What Is Router, ONU & Router’s main usage, and What is the difference between ONU and Router. Let’s take a closer look ! Part I. Meaning of...
0
9460
Oralloy
by: Oralloy | last post by:
Hello folks, I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>". The problem is that using the GNU compilers, it seems that the internal comparison operator "<=>" tries to promote arguments from unsigned to signed. This is as boiled down as I can make it. Here is my compilation command: g++-12 -std=c++20 -Wnarrowing bit_field.cpp Here is the code in...
1
9248
by: Hystou | last post by:
Overview: Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows Update option using the Control Panel or Settings app; it automatically checks for updates and installs any it finds, whether you like it or not. For most users, this new feature is actually very convenient. If you want to control the update process,...
0
8196
agi2029
by: agi2029 | last post by:
Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing, and deployment—without human intervention. Imagine an AI that can take a project description, break it down, write the code, debug it, and then launch it, all on its own.... Now, this would greatly impact the work of software developers. The idea...
0
6045
by: conductexam | last post by:
I have .net C# application in which I am extracting data from word file and save it in database particularly. To store word all data as it is I am converting the whole word file firstly in HTML and then checking html paragraph one by one. At the time of converting from word file to html my equations which are in the word document file was convert into image. Globals.ThisAddIn.Application.ActiveDocument.Select();...
0
4821
by: adsilva | last post by:
A Windows Forms form does not have the event Unload, like VB6. What one acts like?
1
3269
by: 6302768590 | last post by:
Hai team i want code for transfer the data from one system to another through IP address by using C# our system has to for every 5mins then we have to update the data what the data is updated we have to send another system
2
2737
muto222
by: muto222 | last post by:
How can i add a mobile payment intergratation into php mysql website.
3
2186
bsmnconsultancy
by: bsmnconsultancy | last post by:
In today's digital era, a well-designed website is crucial for businesses looking to succeed. Whether you're a small business owner or a large corporation in Toronto, having a strong online presence can significantly impact your brand's success. BSMN Consultancy, a leader in Website Development in Toronto offers valuable insights into creating effective websites that not only look great but also perform exceptionally well. In this comprehensive...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.