or
private void radGridView1_CellBeginEdit(object sender, GridViewCellCancelEventArgs e) |
{ |
RadTextBoxEditor editor = radGridView1.ActiveEditor as RadTextBoxEditor; |
editor.AcceptsReturn = true; |
editor.AcceptsTab = true; |
} |
Private Sub RGVContacts_RowFormatting(ByVal sender As Object, ByVal e As Telerik.WinControls.UI.RowFormattingEventArgs) Handles RGVContacts.RowFormatting |
If e.RowElement.IsOdd Then |
e.RowElement.BackColor = Color.Moccasin |
Else |
e.RowElement.BackColor = Color.FloralWhite |
End If |
e.RowElement.DrawFill = True |
End Sub |
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 |
How can i make radGridview column header text bold programmatically?