- gtimepickercontrol.zip
- gTimePickerControl
- gTimePicker.zip
- gTimePicker
- gDateTimePicker.jpg
- gDateTimePickergValue.jpg
- gDateTimePickerNull.jpg
- gTimePickerAMPM.jpg
- gTimePickerColors.jpg
- gTimePickerExamples.jpg
- gTimePickerProps.jpg
- gTimePickerTimeColors.jpg
- Thumbs.db
|
Public Class Form2
Dim dtDateTest As New DataTable
Dim WithEvents dbDateTest As New BindingSource
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
dtDateTest = New DataTable
GDateTimePicker1.DataBindings.Clear()
GTimePicker1.DataBindings.Clear()
dtDateTest.Columns.Add("Date", GetType(DateTime))
dtDateTest.Columns.Add("Time", GetType(String))
dtDateTest.Columns.Add("Name", GetType(String))
dtDateTest.Columns("Date").AllowDBNull = True
dtDateTest.Columns("Time").AllowDBNull = True
Dim i As Integer = 1
For Each wx As String In New String() {"Carl Denham", "Jack Driscoll", "Ann Darrow", _
"Captain Englehorn", "Bruce Baxter", "Preston"}
Dim rw As DataRow = dtDateTest.NewRow
rw.Item("Date") = Choose(i, Today, #10/17/2000#, DBNull.Value, #3/27/1998#, DBNull.Value, DBNull.Value)
rw.Item("Time") = Choose(i, Format(Now, "hh:mm"), "04:00", DBNull.Value, "21:00", "03:15", DBNull.Value)
rw.Item("Name") = wx
dtDateTest.Rows.Add(rw)
i += 1
Next
dbDateTest.DataSource = dtDateTest
With DataGridView1
.DataSource = dbDateTest
.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
.RowHeadersVisible = False
.EditMode = DataGridViewEditMode.EditProgrammatically
.AllowUserToResizeColumns = False
.AllowUserToResizeRows = False
.AllowUserToAddRows = False
End With
GTimePicker1.DataBindings.Add("Time", dbDateTest, "Time", True, DataSourceUpdateMode.OnPropertyChanged)
GDateTimePicker1.DataBindings.Add("gValue", dbDateTest, "Date", True, DataSourceUpdateMode.OnValidation Or DataSourceUpdateMode.OnPropertyChanged)
End Sub
Private Sub GDateTimePicker1_ValueOrNullChanged(ByVal sender As System.Object) Handles GDateTimePicker1.ValueOrNullChanged
GDateTimePicker1.DataBindings.Item("gValue").WriteValue()
SetDateNullText()
End Sub
Private Sub SetDateNullText()
Try
GDateTimePicker1.NullText = String.Format("{0} Has No Date", DataGridView1.SelectedCells.Item(2).Value.ToString)
Catch ex As Exception
End Try
End Sub
Private Sub dbDateTest_PositionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles dbDateTest.PositionChanged
Dim currRow As DataRowView = dbDateTest.Current
If currRow.Item(0) Is DBNull.Value Then SetDateNullText()
End Sub
End Class
|
By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.
If a file you wish to view isn't highlighted, and is a text file (not binary), please
let us know and we'll add colourisation support for it.
I first got hooked on programing with the TI994A. After it finally lost all support I reluctantly moved to the Apple IIe. Thank You BeagleBros for getting me through. I wrote programs for my Scuba buisness during this time. Currently I am a Database manager and software developer. I started with VBA and VB6 and now having fun with VB.NET/WPF/C#...