Questions on UI for WinForms Forum

1 answer

215 views

Hi

I have a usercontrol in master page,in this usercontrol ,i have placed tab strip,onclick of tab strip ,i am redirecting to another page.

Page is redirecting to another page but ,that tab is not getting selected,please haelp me out,
i am attaching the source code of that user control :

    
            Source code (ascx)  
        
            ====================  
        
             <table class="planTabTable" width="100%" >  
        
                    <tr>  
        
                        <td colspan="5">  
        
                        <rad:RadTabStrip ID="PlanTabs" runat="server" Skin="Office2007" AutoPostBack="True" SelectedIndex="0" ClickSelectedTab="True">  
        
                            <Tabs>  
        
                                <rad:Tab ID="Tab1" runat="server"  Text="Summary"   >  
        
                                </rad:Tab>  
        
                                <rad:Tab ID="Tab2" runat="server"  Text="Room Revenue"   >  
        
                                </rad:Tab>  
        
                                <rad:Tab ID="Tab3" runat="server"  Text="Line Items" >  
        
                                </rad:Tab>  
        
                                <rad:Tab ID="Tab4" runat="server"  Text="Audit">  
        
                                </rad:Tab>  
        
                            </Tabs>  
        
                        </rad:RadTabStrip>  
        
                    </td>  
        
                </tr>  
        
            </table>  
        
            Code behind (ascx.vb)  
        
            =====================  
        
            Imports PortfolioOne.Common  
        
            <Serializable()> _  
        
            Partial Public Class PlanTabControlHeader_NEW  
        
                Inherits P1BaseUserControl 
        
            #Region "Properties"  
        
                ' these get rendered on the page to set the css class for each tab  
        
                ' they get set in PreRender  
        
                Protected _roomRevenueTabClass As String = "planTabUnactive" 
        
                Protected _lineItemsTabClass As String = "planTabUnactive" 
        
                Protected _summaryTabClass As String = "planTabUnactive" 
        
                Protected _auditTabClass As String = "planTabUnactive" 
        
                Private _tabQueryString As String = "" 
        
                Private _activeTab As PlanTabSelection = PlanTabSelection.RoomRevenue  
        
                Public Property TabQueryString() As String 
        
                    ''' <summary>  
        
                    ''' The params that the tab control should put in the links of the tabs.  
        
                    ''' Do not include the leading '?'.  
        
                    ''' </summary>  
        
                    Get 
        
                        Return _tabQueryString  
        
                    End Get 
        
                    Set(ByVal value As String)  
        
                        _tabQueryString = value  
        
                    End Set 
        
                End Property 
        
                Public Property ActiveTab() As PlanTabSelection  
        
                    ''' <summary>  
        
                    ''' Sets the active tab shown on the control.  
        
                    ''' </summary>  
        
                    Get 
        
                        Return _activeTab  
        
                    End Get 
        
                    Set(ByVal value As PlanTabSelection)  
        
                        _activeTab = value  
        
                    End Set 
        
                End Property
        
            #End Region  
        
            #Region "Events" 
        
                ' we'll fire this event when a tab is clicked so the pages can listen for it  
        
                Public Event TabClicked As CommandEventHandler  
        
                Protected Overrides Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init  
        
                    MyBase.Page_Init(sender, e)  
        
                End Sub 
        
                Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load  
        
                    If Not Me.IsPostBack Then 
        
                        If Me.Parent.FindControl("hdnEditVersionGUID") Is Nothing Then 
        
                            Me.GUIDPlanVersionID.Value = Request.QueryString("GUID").ToString()  
        
                        Else 
        
                            Me.GUIDPlanVersionID.Value = DirectCast(Me.Parent.FindControl("hdnEditVersionGUID"), HtmlInputHidden).Value  
        
                        End If 
        
                        'If Me.Parent.FindControl("hdnCompareVersionGUID") Is Nothing Then  
        
                        '    Me.GUIDComparePlanVersionID.Value = Request.QueryString("CompareGUID").ToString()  
        
                        'Else  
        
                        '    Me.GUIDComparePlanVersionID.Value = DirectCast(Me.Parent.FindControl("hdnCompareVersionGUID"), HtmlInputHidden).Value  
        
                        'End If  
        
                    End If 
        
                End Sub ' Page_Load  
        
                Private Sub Page_PreRender(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.PreRender  
        
                    Try 
        
                        Dim intTabIndex As Integer 
        
                        If Session("LastClick") IsNot Nothing Then 
        
                            intTabIndex = CInt(Session("LastClick").ToString())  
        
                        Else 
        
                            intTabIndex = 0  
        
                        End If 
        
                        Dim oTab As Telerik.WebControls.Tab = PlanTabs.Tabs(intTabIndex)  
        
                        If Not oTab Is Nothing Then 
        
                            oTab.BackColor = Drawing.Color.Honeydew  
        
                            oTab.ForeColor = Drawing.Color.Blue  
        
                            oTab.SelectParents()  
        
                        End If 
        
                    Catch ex As Exception  
        
                        Call Alloso.PortfolioOne.Common.WriteToEventLog(System.Reflection.MethodBase.GetCurrentMethod.Name, Err.Number, ex.ToString(), EventLogEntryType.Error, Me.MyUser.UserName)  
        
                    End Try 
        
                End Sub ' Page_PreRender  
        
                Protected Sub PlanTabs_TabClick(ByVal sender As System.Object, ByVal e As Telerik.WebControls.TabStripEventArgs) Handles PlanTabs.TabClick  
        
                    Try 
        
                        Select Case e.Tab.Text  
        
                            Case "Summary" 
        
                                Session("LastClick") = 0  
        
                                RaiseEvent TabClicked(Me, New CommandEventArgs("PlanTabClicked", PlanTabSelection.Summary))  
        
                                Response.Redirect("PlanSummary_NEW.aspx?" & _tabQueryString & "GUID=" & Me.GUIDPlanVersionID.Value, True)  
        
                            Case "Room Revenue" 
        
                                Session("LastClick") = 1  
        
                                RaiseEvent TabClicked(Me, New CommandEventArgs("PlanTabClicked", PlanTabSelection.RoomRevenue))  
        
                                Response.Redirect("PlanRevenue_NEW.aspx?" & _tabQueryString & "GUID=" & Me.GUIDPlanVersionID.Value, True)  
        
                            Case "Line Items" 
        
                                Session("LastClick") = 2  
        
                                RaiseEvent TabClicked(Me, New CommandEventArgs("PlanTabClicked", PlanTabSelection.LineItems))  
        
                                Response.Redirect("PlanExpenses_NEW.aspx?" & _tabQueryString & "GUID=" & Me.GUIDPlanVersionID.Value, True)  
        
                            Case Else 
        
                                Session("LastClick") = 3  
        
                                ' else assume audit  
        
                                RaiseEvent TabClicked(Me, New CommandEventArgs("PlanTabClicked", PlanTabSelection.Audit))  
        
                                Response.Redirect("PlanAudit_NEW.aspx?" & _tabQueryString & "GUID=" & Me.GUIDPlanVersionID.Value, True)  
        
                        End Select 
        
                        PlanTabs.SelectedTab.BackColor = Drawing.Color.Blue  
        
                    Catch ex As Exception  
        
                        If Err.Number <> 5 Then Call Alloso.PortfolioOne.Common.WriteToEventLog(System.Reflection.MethodBase.GetCurrentMethod.Name, Err.Number, ex.ToString(), EventLogEntryType.Error, Me.MyUser.UserName)  
        
                    End Try 
        
                End Sub 
        
                Private Sub PlanTabs_TabSelected(ByVal sender As Object, ByVal args As Telerik.WebControls.TabStripEventArgs)  
        
                End Sub
        
            #End Region  
        
            End Class

Tabstrip (obsolete as of Q2 2010)

answered on 28 Dec 2009

1 answer

85 views

Setting properties in builder doesn't work, setting in code does

I have an issue with my grid. It seems when I set properties using the property builder the values do not appear when the program is run even though the changes appear in the preview pane. That said, I can set the same properties in code, run the program and they work.
Can anyone explain why?

Thanks,
Tom

Here's a snippet of code I used. The grid is bound to a stored procedure, which I refresh after passing in a new DeptID. The grid sits inside a panel, which is set to visible after the grid is updated.
clsDept.DeptID = DeptID
            rc = clsDept.GetTruckStatusByStation()
            Me.grdVehicle.DataSource = clsDept.TT
            Me.grdVehicle.MasterGridViewTemplate.AllowAddNewRow = False
            Me.grdVehicle.ReadOnly = True
            Me.grdVehicle.Columns(0).IsVisible = False
            Me.grdVehicle.Columns(1).HeaderText = "Vehicle"
            Me.grdVehicle.Columns(3).IsVisible = False
            Me.grdVehicle.Columns(4).FormatString = "{0:MM/dd/yyyy}"
            Me.pnlMain.Visible = True

GridView

answered on 28 Dec 2009

2 answers

103 views

[Solved] Desert Theme Can not be applied on Vista

Hi,

On my desktop computer[Os = XP], When i open up a project and set the dll references, I can see "Desert Theme" for any Rad control when i click on Theme Name property in Visual Studio Designer.

But on my laptop[Os = Vista], I give reference to all telerik dll's, i drag and drop Desert Theme to my designer page, but i only can see "Control Default" and "Office2007Blue".

I couldnt figure out the problem, so i really appreciate if you can help me,

Thanks in advance.

Themes and Visual Style Builder

answered on 26 Dec 2009

1 answer

158 views

MultiColumnComboBox contents stay on form after lost focus

I have a couple of MultiColumnComboBoxes on my form and find that when I load my form with data and set the combo value as required, if the value I set it with differs from the current selected value of the combo, then the combo opens up. This is not desired behaviour. I am setting the combo value using the .Text property, as I would with a standard combo. I have tried using other properties to set the value, but these do not actually set the value at all. Can you advise which property I should use to set the value?

Thanks

MultiColumn ComboBox

answered on 25 Dec 2009

1 answer

1.3K+ views

How to set radGridview column header text bold programmatically

Hi,

How can i make radGridview column header text bold programmatically?

GridView

answered on 24 Dec 2009

1 answer

105 views

Show more days in day view

Hi,

I want to show more days in day view. Rite now I can see only 3 days (I have assigned StartDate and EndDate is readonly !)
Is there any other method/property to show more days?

Thanks,
Divyesh Chapaneri

Scheduler and Reminder

answered on 24 Dec 2009

5 answers

259 views

NodeCheckedChanged with AutoCheckChildNodes

I was wondering if there is a way to disable the NodeCheckedChanged event from being fired for all children nodes when AutoCheckChildNodes is set to true.

The reason why I want to know this is that I store an xml string inside the tag of each node. Every node is a possible record in a database. The xml being stored inside each node contains the information for the current node along with all its children nodes. When the user checks or unchecks a node, I need to give this xml to another component which in turns inserts or removes the proper information to/from the database. I know I could keep raising this event for every node and simply keep the info for the current node in the tag, but this could make for a lot of back and forth between components and the database while this way only one call is being made.

I was thinking of keeping a flag inside the NodeCheckedChanged event and checking this flag before processing like the following:

    
                    private void radTreeView1_NodeCheckedChanged(object sender, RadTreeViewEventArgs e)  
        
                    {  
        
                        if (!m_processing)  
        
                        {  
        
                            m_processing = true;  
        
                            // do work....  
        
                            m_processing = false;  
        
                        }  
        
                    }

but I noticed that the calls weren't nested and that it was actually doing all the code before moving on to the next child/sibling node.

Is there a workaround or another event I could use for this? I want to do the work only once and for the node that was actually checked/unchecked.

Treeview

answered on 24 Dec 2009

2 answers

366 views

RadTextBox Focusable and ReadOnly not working in code

Hello,
I have the two following routines. They are both finding the control and the correct toggle state, however the .Focusable, .ReadOnly and .Focus on the RadTexBox are not changing. .Focusable, .ReadOnly display that they have changed, but .Focus does not.
Why is this?
Thanks.

Private Sub SRSOther_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles SRSOther.ToggleStateChanged

Dim txt As RadTextBox = Nothing

Dim ICon As System.Windows.Forms.Control.ControlCollection = PersonTabStrip.SuspectList.Item(CInt(SusNum)).Controls

For Each cont As Control In ICon

If cont.Name.StartsWith("SgrpSResident") Then 'get textbox from group controls

Dim theGrpBox As RadGroupBox = DirectCast(cont, RadGroupBox)

For Each Gctrl As Control In theGrpBox.Controls

If Gctrl.Name.StartsWith("SRSOtherTxt") Then

txt = DirectCast(Gctrl, RadTextBox)

MsgBox(txt.Name)

If args.ToggleState = Telerik.WinControls.Enumerations.ToggleState.On Then

txt.Focusable = True

txt.ReadOnly = False

txt.Focus()

MsgBox(

"Toggle On, focusable=" & txt.Focusable & " readonly=" & txt.ReadOnly & " focused=" & txt.Focused)

ElseIf args.ToggleState = Telerik.WinControls.Enumerations.ToggleState.Off Then

txt.Focusable = False

txt.ReadOnly = True

txt.Text = ""

MsgBox("Toggle Off")

End If

Exit For

End If

Private Sub SCatOther_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles SCatOther.ToggleStateChanged

Dim ICon As System.Windows.Forms.Control.ControlCollection = PersonTabStrip.SuspectList.Item(CInt(SusNum)).Controls

For Each cont As Control In ICon

If cont.Name.StartsWith("SCatOtherTxt") Then 'get textbox from group controls

MsgBox(cont.Name & " type=" & cont.GetType.ToString)

Dim txt As RadTextBox = DirectCast(cont, RadTextBox)

If args.ToggleState = Telerik.WinControls.Enumerations.ToggleState.On Then

txt.Focusable = True

txt.ReadOnly = False

txt.Focus()

MsgBox(

"Toggle On")

Else

txt.Focusable = False

txt.ReadOnly = True

txt.Text = ""

End If

Exit For

End If

TextBox

answered on 23 Dec 2009

5 answers

193 views

RadTextBox disappeared after anchoring

Hello everybody,

has anyone tried to anchor a RadTextBox top, bottom and right (Q3 SP1)??

Using the Designer View:
I just have a Form, drop a RadTextBox onto that Form, anchor the RadTextBox top, bottom and right and when I start the application I just see the Form. There´s no RadTextBox.

Greetings,
Daniel

TextBox

answered on 23 Dec 2009

3 answers

631 views

How to handle null value

How to handle null value with the GridViewCheckBoxColumn, GridViewMaskBoxColumn, GridViewDateTimeColumn, GridViewDecimalColumn, GridViewImageColumn, GridViewTextColumn, GridViewComboBoxColumn ?

Is there any documentation available ?

Kind Regards,

Ramius

GridView

answered on 23 Dec 2009