I created a composite control using three dropdownListBoxes. it has one property "SelectedTime" to show specific time in the control. the control is working properly. i am able to add the control to the toolbox and to a page. the problem is that i am not able to (drag) the control on the web form.when ever i double click on the contol in the toolbox it is creating the control in upper left coner of the page. From There i am not able to move(drag) the control.

i understood the problem. my control is not having style proporty like other web control. if my understanding is correct please help me in adding the style property to my control. Is there any other way to solve my problem? please help me. below i am posting my code....


Imports System.ComponentModel
Imports System.Web.UI
Imports System.Web.UI.WebControls

<DefaultProperty("SelectedTime"), ToolboxData("<{0}:RajeshTimePicker runat=server></{0}:RajeshTimePicker>")> Public Class RajeshTimePicker
Inherits System.Web.UI.Control
Implements INamingContainer


Dim Hrdblist As New DropDownList()
Dim Mindblist As New DropDownList()
Dim AMPMdblist As New DropDownList()


<Bindable(True), Category("Appearance"), DefaultValue("")> Property SelectedTime() As String
Get
Dim vTimeStr As String
vTimeStr = Hrdblist.SelectedItem.Text & ":" & Mindblist.SelectedItem.Text & _
AMPMdblist.SelectedItem.Text
Return vTimeStr

End Get

Set(ByVal Value As String)
EnsureChildControls()
'_text1 = Value
showtime(Value)
End Set
End Property


Protected Overrides Sub CreateChildControls()

popdblists()
Dim Hrlabel As New Label()
Hrlabel.Text = "HR"
Dim Minlabel As New Label()
Hrlabel.Text = "MIN"
Dim emtlabel As New Label()
Hrlabel.Text = " "
Controls.Add(Hrlabel)
Controls.Add(Hrdblist)
Controls.Add(Minlabel)
Controls.Add(Mindblist)
Controls.Add(emtlabel)
Controls.Add(AMPMdblist)

End Sub

Private Function showtime(ByVal fvdatetime)

If (fvdatetime Is "empty") Then
Hrdblist.SelectedIndex = 0
Mindblist.SelectedIndex = 0
AMPMdblist.SelectedIndex = 0
Else

Dim moment As DateTime = fvdatetime

Dim vHr As Integer = moment.Hour
Dim vMin As Integer = moment.Minute

If vHr = 12 Then
Hrdblist.SelectedIndex = 12
Else
Hrdblist.SelectedIndex = (vHr Mod 12)

End If

Mindblist.SelectedIndex = vMin / 5

If vHr / 12 > 1 Then
AMPMdblist.SelectedIndex = 1
Else
AMPMdblist.SelectedIndex = 0
End If
End If
End Function
Private Sub popdblists()
Hrdblist.Items.Add("00")
Hrdblist.Items.Add("01")
Hrdblist.Items.Add("02")
Hrdblist.Items.Add("03")
Hrdblist.Items.Add("04")
Hrdblist.Items.Add("05")
Hrdblist.Items.Add("06")
Hrdblist.Items.Add("07")
Hrdblist.Items.Add("08")
Hrdblist.Items.Add("09")
Hrdblist.Items.Add("10")
Hrdblist.Items.Add("11")
Hrdblist.Items.Add("12")

Mindblist.Items.Add("00")
Mindblist.Items.Add("05")
Mindblist.Items.Add("10")
Mindblist.Items.Add("15")
Mindblist.Items.Add("20")
Mindblist.Items.Add("25")
Mindblist.Items.Add("30")
Mindblist.Items.Add("35")
Mindblist.Items.Add("40")
Mindblist.Items.Add("45")
Mindblist.Items.Add("50")
Mindblist.Items.Add("55")


AMPMdblist.Items.Add("AM")
AMPMdblist.Items.Add("PM")

End Sub
End Class

Put the control to derive from System.Web.UI.WebControls.WebControl. Do you want the style then to apply to child controls somehow?

---

Thanks,

Teemu Keiski
Finland, EU

it is woring... thank you for ur help...