Hi David,
this is how I did it and is what I had mentioned before about the dialog
anme, or main, what ever your dialog name is.
Sub setHourMinuteFields()
' Set all time dialog fields.
' Speak " Opening combo Box Entries ", speakerVoice
' Sleep 1000
myTimeDialog.Control( "txt_cmb_hour").Text = editName & " Hour: "
myTimeDialog.Control( "txt_cmb_minute").Text = editName & " Minute: "
Dim theHour, theMinute: theHour = editTime \ 100: theMinute = editTime mod 100
Dim s, e, i: s = 0: e = 24: i = 0
If timeFormat = 12 Then
s = 1: e = 12: i = 1
' Enable am/pm here.
myTimeDialog.Control( "cmb_ampm").Add "A.M.", 1
myTimeDialog.Control( "cmb_ampm").Add "P.M.", 2
' Set am and pm default check here.
myTimeDialog.Control( "cmb_ampm").SelectedItem = 1
If theHour > 12 Then
theHour = theHour - 12
' check pm here.
myTimeDialog.Control( "cmb_ampm").SelectedItem = 2
ElseIf theHour = 12 Then
myTimeDialog.Control( "cmb_ampm").SelectedItem = 2
ElseIf theHour = 0 Then
theHour = 12
End If
End If
For i = s to e
' Make combo box selections.
myTimeDialog.Control( "cmb_hour").Add Replace( "%1 ", "%1", i), i
Next
For i = 0 to 59
' Make combo box selections.
myTimeDialog.Control( "cmb_minute").Add Replace( "%1 ", "%1", i), i
Next
' Set focus or check each appropriate comboBox id here.
myTimeDialog.Control( "cmb_hour").SelectedItem = theHour
myTimeDialog.Control( "cmb_minute").SelectedItem = theMinute + 1
End Sub
<dialog id="myTimeDialog" sysmenu="yes" minimize="no">
Edit Time
<group orientation="vertical" width="250" id="grp_timervalues">
<static id="txt_cmb_hour" width="group" shortcut="h"> Hour </static>
<group orientation="vertical">
<combobox id="cmb_hour">
</combobox>
</group>
<static id="txt_cmb_minute" width="group" shortcut="m"> Minute </static>
<group orientation="vertical">
<combobox id="cmb_minute">
</combobox>
</group>
<static id="txt_cmb_AmPm" shortcut="t" enabled="no"> AM or PM </static>
<group orientation="vertical">
<combobox id="cmb_ampm">
</combobox>
</group>
<group>
<button id="btn_combo_save" widthclass="btn"> Save </button>
<button id="btn_combo_cancel" widthclass="btn" width="+10"> Cancel </button>
</group>
</group>
</dialog>
---
This email is free from viruses and malware because avast! Antivirus protection
is active.
http://www.avast.com
