Hi,
I recently moved a web application from our old server (which used .Net 1.0) to
a new server which uses .Net 2.0. Everything works fine except for an
Infragistics CalendarControl I use. When I go to the page that uses this
control, it throws the following error:
Server Error in '/TrainingPortal' Application.
Compilation Error
Description: An error occurred during the compilation of a resource required to
service this request. Please review the following specific error details and
modify your source code appropriately.
Compiler Error Message: BC32206: Indirect reference is being made to assembly
CalendarControl version 1.0.1634.24771, which contains
'trainingportal.MyCalForm.MyCalendarControl1'. This Project references a prior
version of CalendarControl version 1.0.1605.18008. To use
'trainingportal.MyCalForm.MyCalendarControl1', you must replace the reference to
CalendarControl with version 1.0.1634.24771 or higher.
Source Error:
Line 782:
Line 783: #End ExternalSource
Line 784: Me.MyCalendarControl1 = __ctrl
Line 785: __ctrl.ApplyStyleSheetSkin(Me)
Line 786:
Source File: C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET
Files\trainingportal\e8572078\a8722bd6\App_Web_mycal.aspx.cdcab7d2.mv4ozg7i.0.vb
Line: 784
Show Detailed Compiler Output:
c:\windows\system32\inetsrv>
"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\vbc.exe" /t:library
/utf8output /R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary
ASP.NET
Files\trainingportal\e8572078\a8722bd6\assembly\dl3\0193eb07\00c704ed_436bc301\C
rystalDecisions.ReportSource.DLL"
/R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET
Files\trainingportal\e8572078\a8722bd6\assembly\dl3\e3bffbfc\00040ea4_a188c301\I
nfragistics.WebUI.UltraWebNavigator.v3.DLL"
/R:"C:\WINDOWS\assembly\GAC_MSIL\System.Web.Services\2.0.0.0__b03f5f7f11d50
a3a\System.Web.Services.dll"
/R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET
Files\trainingportal\e8572078\a8722bd6\assembly\dl3\5cd1aaa5\00535b71_cc80c301\I
nfragistics.WebUI.Shared.DLL"
/R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET
Files\trainingportal\e8572078\a8722bd6\assembly\dl3\59e8fc5c\007aa2a5_5941c401\C
alendarControl.DLL"
/R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET
Files\trainingportal\e8572078\a8722bd6\assembly\dl3\e67bf033\00b9732e_162ec301\R
iversideInternet.WebSolution.DLL"
/R:"C:\WINDOWS\assembly\GAC_MSIL\System.Web.Mobile\2.0.0.0__b03f5f7f11d50a3
a\System.Web.Mobile.dll"
/R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET
Files\trainingportal\e8572078\a8722bd6\assembly\dl3\24f4210a\c9b16ee1_ed67c401\t
rainingportal.DLL"
/R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET
Files\trainingportal\e8572078\a8722bd6\assembly\dl3\5e4bf909\00c44bde_438cc201\C
rystalDecisions.ReportAppServer.ClientDoc.DLL"
/R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET
Files\trainingportal\e8572078\a8722bd6\App_global.asax.7gwmyrvr.dll"
/R:"C:\WINDOWS\assembly\GAC_32\System.EnterpriseServices\2.0.0.0__b03f5f7f1
1d50a3a\System.EnterpriseServices.dll"
/R:"C:\WINDOWS\assembly\GAC_MSIL\System.Xml\2.0.0.0__b77a5c561934e089\Syste
m.Xml.dll" /R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary
ASP.NET
Files\trainingportal\e8572078\a8722bd6\assembly\dl3\ec2cc6b7\0071b9e4_cf0bc301\D
Bauer.Web.UI.WebControls.HierarGrid.DLL"
/R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET
Files\trainingportal\e8572078\a8722bd6\assembly\dl3\b23c42f6\00c704ed_436bc301\C
rystalDecisions.Web.DLL"
/R:"C:\WINDOWS\assembly\GAC_32\System.Web\2.0.0.0__b03f5f7f11d50a3a\System.
Web.dll"
/R:"C:\WINDOWS\assembly\GAC_MSIL\System\2.0.0.0__b77a5c561934e089\System.dl
l" /R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET
Files\trainingportal\e8572078\a8722bd6\assembly\dl3\8b6a4ccd\008637ea_438cc201\C
rystalKeyCodeLib.DLL"
/R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET
Files\trainingportal\e8572078\a8722bd6\assembly\dl3\006cbdc2\002fa077_5c8dc301\M
icrosoft.ApplicationBlocks.ExceptionManagement.DLL"
/R:"C:\WINDOWS\assembly\GAC_MSIL\System.Configuration\2.0.0.0__b03f5f7f11d5
0a3a\System.Configuration.dll"
/R:"C:\WINDOWS\assembly\GAC_32\System.Data\2.0.0.0__b77a5c561934e089\System
.Data.dll" /R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary
ASP.NET
Files\trainingportal\e8572078\a8722bd6\assembly\dl3\f62f978e\0002353b_5e83c301\I
nfragistics.WebUI.UltraWebTab.v2.DLL"
/R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET
Files\trainingportal\e8572078\a8722bd6\assembly\dl3\1abdce0f\009bc936_9893c301\C
rystalDecisions.CrystalReports.Engine.DLL"
/R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET
Files\trainingportal\e8572078\a8722bd6\assembly\dl3\e9a917d5\00abe824_4f51c301\C
rystalDecisions.Windows.Forms.DLL"
/R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET
Files\trainingportal\e8572078\a8722bd6\assembly\dl3\5d551b7f\00026f76_5c8dc301\M
icrosoft.ApplicationBlocks.ExceptionManagement.Interfaces.DLL"
/R:"C:\WINDOWS\assembly\GAC_MSIL\System.Drawing\2.0.0.0__b03f5f7f11d50a3a\S
ystem.Drawing.dll"
/R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET
Files\trainingportal\e8572078\a8722bd6\assembly\dl3\96c400dc\00c704ed_436bc301\C
rystalDecisions.Shared.DLL"
/R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET
Files\trainingportal\e8572078\a8722bd6\assembly\dl3\b2e70370\000a3e81_2588c301\I
nfragistics.WebUI.UltraWebGrid.v2.DLL"
/R:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET
Files\trainingportal\e8572078\a8722bd6\App_Web__nzrcoap.dll"
/out:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET
Files\trainingportal\e8572078\a8722bd6\App_Web_mycal.aspx.cdcab7d2.mv4ozg7i.dll&
quot; /D:DEBUG=1 /debug+
/win32resource:"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary
ASP.NET Files\trainingportal\e8572078\a8722bd6\ipattnwr.res"
/define:_MYTYPE=\"Web\"
/imports:Microsoft.VisualBasic,System,System.Collections,System.Collections.Spec
ialized,System.Configuration,System.Text,System.Text.RegularExpressions,System.W
eb,System.Web.Caching,System.Web.SessionState,System.Web.Security,System.Web.Pro
file,System.Web.UI,System.Web.UI.WebControls,System.Web.UI.WebControls.WebParts,
System.Web.UI.HtmlControls
"C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET
Files\trainingportal\e8572078\a8722bd6\App_Web_mycal.aspx.cdcab7d2.mv4ozg7i.0.vb
" "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET
Files\trainingportal\e8572078\a8722bd6\App_Web_mycal.aspx.cdcab7d2.mv4ozg7i.1.vb
"
Microsoft (R) Visual Basic Compiler version 8.0.50727.42
for Microsoft (R) .NET Framework version 2.0.50727.42
Copyright (c) Microsoft Corporation. All rights reserved.
C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET
Files\trainingportal\e8572078\a8722bd6\App_Web_mycal.aspx.cdcab7d2.mv4ozg7i.0.vb
(784) : error BC32206: Indirect reference is being made to assembly
CalendarControl version 1.0.1634.24771, which contains
'trainingportal.MyCalForm.MyCalendarControl1'. This Project references a prior
version of CalendarControl version 1.0.1605.18008. To use
'trainingportal.MyCalForm.MyCalendarControl1', you must replace the reference to
CalendarControl with version 1.0.1634.24771 or higher.
Me.MyCalendarControl1 = __ctrl
~~~~~~~~~~~~~~~~~~~~~
Show Complete Compilation Source:
Line 1:
#ExternalChecksum("D:\app-data\Intranet\HRTraining\mycal.aspx","","C73C7DBD40C64A4DCBA2C33E783627
67")
Line 2:
'------------------------------------------------------------------------------
Line 3: ' <auto-generated>
Line 4: ' This code was generated by a tool.
Line 5: ' Runtime Version:2.0.50727.42
Line 6: '
Line 7: ' Changes to this file may cause incorrect behavior and will be
lost if
Line 8: ' the code is regenerated.
Line 9: ' </auto-generated>
Line 10:
'------------------------------------------------------------------------------
Line 11:
Line 12: Option Strict Off
Line 13: Option Explicit On
Line 14:
Line 15: Imports ASP
Line 16: Imports CalendarControl
Line 17: Imports Microsoft.VisualBasic
Line 18: Imports System
Line 19: Imports System.Collections
Line 20: Imports System.Collections.Specialized
Line 21: Imports System.Configuration
Line 22: Imports System.Text
Line 23: Imports System.Text.RegularExpressions
Line 24: Imports System.Web
Line 25: Imports System.Web.Caching
Line 26: Imports System.Web.Profile
Line 27: Imports System.Web.Security
Line 28: Imports System.Web.SessionState
Line 29: Imports System.Web.UI
Line 30: Imports System.Web.UI.HtmlControls
Line 31: Imports System.Web.UI.WebControls
Line 32: Imports System.Web.UI.WebControls.WebParts
Line 33:
Line 34: Namespace ASP
Line 35:
Line 36:
<System.Runtime.CompilerServices.CompilerGlobalScopeAttribute()> _
Line 37: Public Class mycal_aspx
Line 38: Inherits Global.trainingportal.MyCalForm
Line 39: Implements System.Web.SessionState.IRequiresSessionState,
System.Web.IHttpHandler
Line 40:
Line 41:
Line 42:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",13)
Line 43: Protected WithEvents Header1 As
Global.ASP.templates_header_ascx
Line 44:
Line 45: #End ExternalSource
Line 46:
Line 47:
Line 48:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",203)
Line 49: Protected WithEvents Cal1 As
Global.System.Web.UI.WebControls.Calendar
Line 50:
Line 51: #End ExternalSource
Line 52:
Line 53:
Line 54:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",219)
Line 55: Protected WithEvents DDLYear1 As
Global.System.Web.UI.WebControls.DropDownList
Line 56:
Line 57: #End ExternalSource
Line 58:
Line 59:
Line 60:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",221)
Line 61: Protected WithEvents DDLMonth1 As
Global.System.Web.UI.WebControls.DropDownList
Line 62:
Line 63: #End ExternalSource
Line 64:
Line 65:
Line 66:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",241)
Line 67: Protected WithEvents btnGo1 As
Global.System.Web.UI.WebControls.Button
Line 68:
Line 69: #End ExternalSource
Line 70:
Line 71:
Line 72:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",248)
Line 73: Protected WithEvents imgUpcomingEvents As
Global.System.Web.UI.WebControls.Image
Line 74:
Line 75: #End ExternalSource
Line 76:
Line 77:
Line 78:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",255)
Line 79: Protected WithEvents lblUpComingEvents As
Global.System.Web.UI.WebControls.Label
Line 80:
Line 81: #End ExternalSource
Line 82:
Line 83:
Line 84:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",12)
Line 85: Protected WithEvents Form1 As
Global.System.Web.UI.HtmlControls.HtmlForm
Line 86:
Line 87: #End ExternalSource
Line 88:
Line 89: Private Shared __initialized As Boolean
Line 90:
Line 91: Private Shared __stringResource As Object
Line 92:
Line 93: Private Shared __fileDependencies As Object
Line 94:
Line 95: Public Sub New()
Line 96: MyBase.New
Line 97: Dim dependencies() As String
Line 98: CType(Me,trainingportal.MyCalForm).AppRelativeVirtualPath
= "~/mycal.aspx"
Line 99: If (Global.ASP.mycal_aspx.__initialized = false) Then
Line 100: Global.ASP.mycal_aspx.__stringResource =
Me.ReadStringResource
Line 101: dependencies = New String(1) {}
Line 102: dependencies(0) = "~/mycal.aspx"
Line 103: dependencies(1) =
"~/Templates/Header.ascx"
Line 104: Global.ASP.mycal_aspx.__fileDependencies =
Me.GetWrappedFileDependencies(dependencies)
Line 105: Global.ASP.mycal_aspx.__initialized = true
Line 106: End If
Line 107: Me.Server.ScriptTimeout = 30000000
Line 108: End Sub
Line 109:
Line 110: Protected ReadOnly Property Profile() As
System.Web.Profile.DefaultProfile
Line 111: Get
Line 112: Return
CType(Me.Context.Profile,System.Web.Profile.DefaultProfile)
Line 113: End Get
Line 114: End Property
Line 115:
Line 116: Protected Overrides ReadOnly Property SupportAutoEvents() As
Boolean
Line 117: Get
Line 118: Return false
Line 119: End Get
Line 120: End Property
Line 121:
Line 122: Protected ReadOnly Property ApplicationInstance() As
ASP.global_asax
Line 123: Get
Line 124: Return
CType(Me.Context.ApplicationInstance,ASP.global_asax)
Line 125: End Get
Line 126: End Property
Line 127:
Line 128: Private Function __BuildControlHeader1() As
Global.ASP.templates_header_ascx
Line 129: Dim __ctrl As Global.ASP.templates_header_ascx
Line 130:
Line 131:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",13)
Line 132: __ctrl = New Global.ASP.templates_header_ascx
Line 133:
Line 134: #End ExternalSource
Line 135: Me.Header1 = __ctrl
Line 136:
Line 137:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",13)
Line 138: __ctrl.InitializeAsUserControl(Me.Page)
Line 139:
Line 140: #End ExternalSource
Line 141:
Line 142:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",13)
Line 143: __ctrl.ID = "Header1"
Line 144:
Line 145: #End ExternalSource
Line 146: Return __ctrl
Line 147: End Function
Line 148:
Line 149: Private Function __BuildControllbtn_cal() As
Global.System.Web.UI.WebControls.LinkButton
Line 150: Dim __ctrl As
Global.System.Web.UI.WebControls.LinkButton
Line 151:
Line 152:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",33)
Line 153: __ctrl = New Global.System.Web.UI.WebControls.LinkButton
Line 154:
Line 155: #End ExternalSource
Line 156: Me.lbtn_cal = __ctrl
Line 157: __ctrl.ApplyStyleSheetSkin(Me)
Line 158:
Line 159:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",33)
Line 160: __ctrl.ID = "lbtn_cal"
Line 161:
Line 162: #End ExternalSource
Line 163: Dim __parser As System.Web.UI.IParserAccessor =
CType(__ctrl,System.Web.UI.IParserAccessor)
Line 164:
Line 165:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",33)
Line 166: __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl("Calendar View"))
Line 167:
Line 168: #End ExternalSource
Line 169: Return __ctrl
Line 170: End Function
Line 171:
Line 172: Private Function __BuildControllbtn_list() As
Global.System.Web.UI.WebControls.LinkButton
Line 173: Dim __ctrl As
Global.System.Web.UI.WebControls.LinkButton
Line 174:
Line 175:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",35)
Line 176: __ctrl = New Global.System.Web.UI.WebControls.LinkButton
Line 177:
Line 178: #End ExternalSource
Line 179: Me.lbtn_list = __ctrl
Line 180: __ctrl.ApplyStyleSheetSkin(Me)
Line 181:
Line 182:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",35)
Line 183: __ctrl.ID = "lbtn_list"
Line 184:
Line 185: #End ExternalSource
Line 186: Dim __parser As System.Web.UI.IParserAccessor =
CType(__ctrl,System.Web.UI.IParserAccessor)
Line 187:
Line 188:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",35)
Line 189: __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl("List View"))
Line 190:
Line 191: #End ExternalSource
Line 192: Return __ctrl
Line 193: End Function
Line 194:
Line 195: Private Function __BuildControltxt_srch() As
Global.System.Web.UI.WebControls.TextBox
Line 196: Dim __ctrl As Global.System.Web.UI.WebControls.TextBox
Line 197:
Line 198:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",45)
Line 199: __ctrl = New Global.System.Web.UI.WebControls.TextBox
Line 200:
Line 201: #End ExternalSource
Line 202: Me.txt_srch = __ctrl
Line 203: __ctrl.ApplyStyleSheetSkin(Me)
Line 204:
Line 205:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",45)
Line 206: __ctrl.ID = "txt_srch"
Line 207:
Line 208: #End ExternalSource
Line 209:
Line 210:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",45)
Line 211: __ctrl.Font.Names = New String() {"Verdana"}
Line 212:
Line 213: #End ExternalSource
Line 214:
Line 215:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",45)
Line 216: __ctrl.Font.Size = New
System.Web.UI.WebControls.FontUnit(New System.Web.UI.WebControls.Unit(8.5,
System.Web.UI.WebControls.UnitType.Point))
Line 217:
Line 218: #End ExternalSource
Line 219:
Line 220:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",45)
Line 221: __ctrl.Height = New System.Web.UI.WebControls.Unit(24,
System.Web.UI.WebControls.UnitType.Pixel)
Line 222:
Line 223: #End ExternalSource
Line 224:
Line 225:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",45)
Line 226: __ctrl.Width = New System.Web.UI.WebControls.Unit(140,
System.Web.UI.WebControls.UnitType.Pixel)
Line 227:
Line 228: #End ExternalSource
Line 229: Return __ctrl
Line 230: End Function
Line 231:
Line 232: Private Function __BuildControlbtn_srch() As
Global.System.Web.UI.WebControls.Button
Line 233: Dim __ctrl As Global.System.Web.UI.WebControls.Button
Line 234:
Line 235:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",48)
Line 236: __ctrl = New Global.System.Web.UI.WebControls.Button
Line 237:
Line 238: #End ExternalSource
Line 239: Me.btn_srch = __ctrl
Line 240: __ctrl.ApplyStyleSheetSkin(Me)
Line 241:
Line 242:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",48)
Line 243: __ctrl.ID = "btn_srch"
Line 244:
Line 245: #End ExternalSource
Line 246:
Line 247:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",48)
Line 248: __ctrl.Font.Size = New
System.Web.UI.WebControls.FontUnit(New System.Web.UI.WebControls.Unit(7.5,
System.Web.UI.WebControls.UnitType.Point))
Line 249:
Line 250: #End ExternalSource
Line 251:
Line 252:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",48)
Line 253: __ctrl.Height = New System.Web.UI.WebControls.Unit(24,
System.Web.UI.WebControls.UnitType.Pixel)
Line 254:
Line 255: #End ExternalSource
Line 256:
Line 257:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",48)
Line 258: __ctrl.Width = New System.Web.UI.WebControls.Unit(50,
System.Web.UI.WebControls.UnitType.Pixel)
Line 259:
Line 260: #End ExternalSource
Line 261:
Line 262:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",48)
Line 263: __ctrl.Font.Name = "verdana"
Line 264:
Line 265: #End ExternalSource
Line 266:
Line 267:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",48)
Line 268: __ctrl.Text = "Search"
Line 269:
Line 270: #End ExternalSource
Line 271: Return __ctrl
Line 272: End Function
Line 273:
Line 274: Private Function __BuildControllbl_srchalrt() As
Global.System.Web.UI.WebControls.Label
Line 275: Dim __ctrl As Global.System.Web.UI.WebControls.Label
Line 276:
Line 277:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",55)
Line 278: __ctrl = New Global.System.Web.UI.WebControls.Label
Line 279:
Line 280: #End ExternalSource
Line 281: Me.lbl_srchalrt = __ctrl
Line 282: __ctrl.ApplyStyleSheetSkin(Me)
Line 283:
Line 284:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",55)
Line 285: __ctrl.ID = "lbl_srchalrt"
Line 286:
Line 287: #End ExternalSource
Line 288:
Line 289:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",55)
Line 290: __ctrl.Font.Names = New String() {"Verdana",
"Arial"}
Line 291:
Line 292: #End ExternalSource
Line 293:
Line 294:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",55)
Line 295: __ctrl.Font.Size =
System.Web.UI.WebControls.FontUnit.XXSmall
Line 296:
Line 297: #End ExternalSource
Line 298:
Line 299:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",55)
Line 300: __ctrl.ForeColor = System.Drawing.Color.Red
Line 301:
Line 302: #End ExternalSource
Line 303: Return __ctrl
Line 304: End Function
Line 305:
Line 306: Private Function __BuildControlDDLYear() As
Global.System.Web.UI.WebControls.DropDownList
Line 307: Dim __ctrl As
Global.System.Web.UI.WebControls.DropDownList
Line 308:
Line 309:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",68)
Line 310: __ctrl = New
Global.System.Web.UI.WebControls.DropDownList
Line 311:
Line 312: #End ExternalSource
Line 313: Me.DDLYear = __ctrl
Line 314: __ctrl.ApplyStyleSheetSkin(Me)
Line 315:
Line 316:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",68)
Line 317: __ctrl.ID = "DDLYear"
Line 318:
Line 319: #End ExternalSource
Line 320:
Line 321:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",68)
Line 322: __ctrl.Height = New System.Web.UI.WebControls.Unit(19,
System.Web.UI.WebControls.UnitType.Pixel)
Line 323:
Line 324: #End ExternalSource
Line 325:
Line 326:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",68)
Line 327: __ctrl.Width = New System.Web.UI.WebControls.Unit(70,
System.Web.UI.WebControls.UnitType.Pixel)
Line 328:
Line 329: #End ExternalSource
Line 330: Return __ctrl
Line 331: End Function
Line 332:
Line 333: Private Function __BuildControl__control3() As
Global.System.Web.UI.WebControls.ListItem
Line 334: Dim __ctrl As Global.System.Web.UI.WebControls.ListItem
Line 335:
Line 336:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",73)
Line 337: __ctrl = New Global.System.Web.UI.WebControls.ListItem
Line 338:
Line 339: #End ExternalSource
Line 340:
Line 341:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",73)
Line 342: __ctrl.Value = "January"
Line 343:
Line 344: #End ExternalSource
Line 345:
Line 346:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",73)
Line 347: __ctrl.Text = "January"
Line 348:
Line 349: #End ExternalSource
Line 350: Return __ctrl
Line 351: End Function
Line 352:
Line 353: Private Function __BuildControl__control4() As
Global.System.Web.UI.WebControls.ListItem
Line 354: Dim __ctrl As Global.System.Web.UI.WebControls.ListItem
Line 355:
Line 356:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",74)
Line 357: __ctrl = New Global.System.Web.UI.WebControls.ListItem
Line 358:
Line 359: #End ExternalSource
Line 360:
Line 361:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",74)
Line 362: __ctrl.Value = "February"
Line 363:
Line 364: #End ExternalSource
Line 365:
Line 366:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",74)
Line 367: __ctrl.Text = "February"
Line 368:
Line 369: #End ExternalSource
Line 370: Return __ctrl
Line 371: End Function
Line 372:
Line 373: Private Function __BuildControl__control5() As
Global.System.Web.UI.WebControls.ListItem
Line 374: Dim __ctrl As Global.System.Web.UI.WebControls.ListItem
Line 375:
Line 376:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",75)
Line 377: __ctrl = New Global.System.Web.UI.WebControls.ListItem
Line 378:
Line 379: #End ExternalSource
Line 380:
Line 381:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",75)
Line 382: __ctrl.Value = "March"
Line 383:
Line 384: #End ExternalSource
Line 385:
Line 386:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",75)
Line 387: __ctrl.Text = "March"
Line 388:
Line 389: #End ExternalSource
Line 390: Return __ctrl
Line 391: End Function
Line 392:
Line 393: Private Function __BuildControl__control6() As
Global.System.Web.UI.WebControls.ListItem
Line 394: Dim __ctrl As Global.System.Web.UI.WebControls.ListItem
Line 395:
Line 396:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",76)
Line 397: __ctrl = New Global.System.Web.UI.WebControls.ListItem
Line 398:
Line 399: #End ExternalSource
Line 400:
Line 401:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",76)
Line 402: __ctrl.Value = "April"
Line 403:
Line 404: #End ExternalSource
Line 405:
Line 406:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",76)
Line 407: __ctrl.Text = "April"
Line 408:
Line 409: #End ExternalSource
Line 410: Return __ctrl
Line 411: End Function
Line 412:
Line 413: Private Function __BuildControl__control7() As
Global.System.Web.UI.WebControls.ListItem
Line 414: Dim __ctrl As Global.System.Web.UI.WebControls.ListItem
Line 415:
Line 416:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",77)
Line 417: __ctrl = New Global.System.Web.UI.WebControls.ListItem
Line 418:
Line 419: #End ExternalSource
Line 420:
Line 421:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",77)
Line 422: __ctrl.Value = "May"
Line 423:
Line 424: #End ExternalSource
Line 425:
Line 426:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",77)
Line 427: __ctrl.Text = "May"
Line 428:
Line 429: #End ExternalSource
Line 430: Return __ctrl
Line 431: End Function
Line 432:
Line 433: Private Function __BuildControl__control8() As
Global.System.Web.UI.WebControls.ListItem
Line 434: Dim __ctrl As Global.System.Web.UI.WebControls.ListItem
Line 435:
Line 436:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",78)
Line 437: __ctrl = New Global.System.Web.UI.WebControls.ListItem
Line 438:
Line 439: #End ExternalSource
Line 440:
Line 441:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",78)
Line 442: __ctrl.Value = "June"
Line 443:
Line 444: #End ExternalSource
Line 445:
Line 446:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",78)
Line 447: __ctrl.Text = "June"
Line 448:
Line 449: #End ExternalSource
Line 450: Return __ctrl
Line 451: End Function
Line 452:
Line 453: Private Function __BuildControl__control9() As
Global.System.Web.UI.WebControls.ListItem
Line 454: Dim __ctrl As Global.System.Web.UI.WebControls.ListItem
Line 455:
Line 456:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",79)
Line 457: __ctrl = New Global.System.Web.UI.WebControls.ListItem
Line 458:
Line 459: #End ExternalSource
Line 460:
Line 461:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",79)
Line 462: __ctrl.Value = "July"
Line 463:
Line 464: #End ExternalSource
Line 465:
Line 466:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",79)
Line 467: __ctrl.Text = "July"
Line 468:
Line 469: #End ExternalSource
Line 470: Return __ctrl
Line 471: End Function
Line 472:
Line 473: Private Function __BuildControl__control10() As
Global.System.Web.UI.WebControls.ListItem
Line 474: Dim __ctrl As Global.System.Web.UI.WebControls.ListItem
Line 475:
Line 476:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",80)
Line 477: __ctrl = New Global.System.Web.UI.WebControls.ListItem
Line 478:
Line 479: #End ExternalSource
Line 480:
Line 481:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",80)
Line 482: __ctrl.Value = "August"
Line 483:
Line 484: #End ExternalSource
Line 485:
Line 486:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",80)
Line 487: __ctrl.Text = "August"
Line 488:
Line 489: #End ExternalSource
Line 490: Return __ctrl
Line 491: End Function
Line 492:
Line 493: Private Function __BuildControl__control11() As
Global.System.Web.UI.WebControls.ListItem
Line 494: Dim __ctrl As Global.System.Web.UI.WebControls.ListItem
Line 495:
Line 496:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",81)
Line 497: __ctrl = New Global.System.Web.UI.WebControls.ListItem
Line 498:
Line 499: #End ExternalSource
Line 500:
Line 501:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",81)
Line 502: __ctrl.Value = "September"
Line 503:
Line 504: #End ExternalSource
Line 505:
Line 506:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",81)
Line 507: __ctrl.Text = "September"
Line 508:
Line 509: #End ExternalSource
Line 510: Return __ctrl
Line 511: End Function
Line 512:
Line 513: Private Function __BuildControl__control12() As
Global.System.Web.UI.WebControls.ListItem
Line 514: Dim __ctrl As Global.System.Web.UI.WebControls.ListItem
Line 515:
Line 516:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",82)
Line 517: __ctrl = New Global.System.Web.UI.WebControls.ListItem
Line 518:
Line 519: #End ExternalSource
Line 520:
Line 521:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",82)
Line 522: __ctrl.Value = "October"
Line 523:
Line 524: #End ExternalSource
Line 525:
Line 526:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",82)
Line 527: __ctrl.Text = "October"
Line 528:
Line 529: #End ExternalSource
Line 530: Return __ctrl
Line 531: End Function
Line 532:
Line 533: Private Function __BuildControl__control13() As
Global.System.Web.UI.WebControls.ListItem
Line 534: Dim __ctrl As Global.System.Web.UI.WebControls.ListItem
Line 535:
Line 536:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",83)
Line 537: __ctrl = New Global.System.Web.UI.WebControls.ListItem
Line 538:
Line 539: #End ExternalSource
Line 540:
Line 541:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",83)
Line 542: __ctrl.Value = "November"
Line 543:
Line 544: #End ExternalSource
Line 545:
Line 546:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",83)
Line 547: __ctrl.Text = "November"
Line 548:
Line 549: #End ExternalSource
Line 550: Return __ctrl
Line 551: End Function
Line 552:
Line 553: Private Function __BuildControl__control14() As
Global.System.Web.UI.WebControls.ListItem
Line 554: Dim __ctrl As Global.System.Web.UI.WebControls.ListItem
Line 555:
Line 556:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",84)
Line 557: __ctrl = New Global.System.Web.UI.WebControls.ListItem
Line 558:
Line 559: #End ExternalSource
Line 560:
Line 561:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",84)
Line 562: __ctrl.Value = "December"
Line 563:
Line 564: #End ExternalSource
Line 565:
Line 566:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",84)
Line 567: __ctrl.Text = "December"
Line 568:
Line 569: #End ExternalSource
Line 570: Return __ctrl
Line 571: End Function
Line 572:
Line 573: Private Sub __BuildControl__control2(ByVal __ctrl As
System.Web.UI.WebControls.ListItemCollection)
Line 574: Dim __ctrl1 As Global.System.Web.UI.WebControls.ListItem
Line 575:
Line 576:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",72)
Line 577: __ctrl1 = Me.__BuildControl__control3
Line 578:
Line 579: #End ExternalSource
Line 580:
Line 581:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",72)
Line 582: __ctrl.Add(__ctrl1)
Line 583:
Line 584: #End ExternalSource
Line 585: Dim __ctrl2 As Global.System.Web.UI.WebControls.ListItem
Line 586:
Line 587:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",72)
Line 588: __ctrl2 = Me.__BuildControl__control4
Line 589:
Line 590: #End ExternalSource
Line 591:
Line 592:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",72)
Line 593: __ctrl.Add(__ctrl2)
Line 594:
Line 595: #End ExternalSource
Line 596: Dim __ctrl3 As Global.System.Web.UI.WebControls.ListItem
Line 597:
Line 598:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",72)
Line 599: __ctrl3 = Me.__BuildControl__control5
Line 600:
Line 601: #End ExternalSource
Line 602:
Line 603:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",72)
Line 604: __ctrl.Add(__ctrl3)
Line 605:
Line 606: #End ExternalSource
Line 607: Dim __ctrl4 As Global.System.Web.UI.WebControls.ListItem
Line 608:
Line 609:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",72)
Line 610: __ctrl4 = Me.__BuildControl__control6
Line 611:
Line 612: #End ExternalSource
Line 613:
Line 614:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",72)
Line 615: __ctrl.Add(__ctrl4)
Line 616:
Line 617: #End ExternalSource
Line 618: Dim __ctrl5 As Global.System.Web.UI.WebControls.ListItem
Line 619:
Line 620:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",72)
Line 621: __ctrl5 = Me.__BuildControl__control7
Line 622:
Line 623: #End ExternalSource
Line 624:
Line 625:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",72)
Line 626: __ctrl.Add(__ctrl5)
Line 627:
Line 628: #End ExternalSource
Line 629: Dim __ctrl6 As Global.System.Web.UI.WebControls.ListItem
Line 630:
Line 631:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",72)
Line 632: __ctrl6 = Me.__BuildControl__control8
Line 633:
Line 634: #End ExternalSource
Line 635:
Line 636:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",72)
Line 637: __ctrl.Add(__ctrl6)
Line 638:
Line 639: #End ExternalSource
Line 640: Dim __ctrl7 As Global.System.Web.UI.WebControls.ListItem
Line 641:
Line 642:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",72)
Line 643: __ctrl7 = Me.__BuildControl__control9
Line 644:
Line 645: #End ExternalSource
Line 646:
Line 647:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",72)
Line 648: __ctrl.Add(__ctrl7)
Line 649:
Line 650: #End ExternalSource
Line 651: Dim __ctrl8 As Global.System.Web.UI.WebControls.ListItem
Line 652:
Line 653:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",72)
Line 654: __ctrl8 = Me.__BuildControl__control10
Line 655:
Line 656: #End ExternalSource
Line 657:
Line 658:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",72)
Line 659: __ctrl.Add(__ctrl8)
Line 660:
Line 661: #End ExternalSource
Line 662: Dim __ctrl9 As Global.System.Web.UI.WebControls.ListItem
Line 663:
Line 664:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",72)
Line 665: __ctrl9 = Me.__BuildControl__control11
Line 666:
Line 667: #End ExternalSource
Line 668:
Line 669:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",72)
Line 670: __ctrl.Add(__ctrl9)
Line 671:
Line 672: #End ExternalSource
Line 673: Dim __ctrl10 As
Global.System.Web.UI.WebControls.ListItem
Line 674:
Line 675:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",72)
Line 676: __ctrl10 = Me.__BuildControl__control12
Line 677:
Line 678: #End ExternalSource
Line 679:
Line 680:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",72)
Line 681: __ctrl.Add(__ctrl10)
Line 682:
Line 683: #End ExternalSource
Line 684: Dim __ctrl11 As
Global.System.Web.UI.WebControls.ListItem
Line 685:
Line 686:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",72)
Line 687: __ctrl11 = Me.__BuildControl__control13
Line 688:
Line 689: #End ExternalSource
Line 690:
Line 691:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",72)
Line 692: __ctrl.Add(__ctrl11)
Line 693:
Line 694: #End ExternalSource
Line 695: Dim __ctrl12 As
Global.System.Web.UI.WebControls.ListItem
Line 696:
Line 697:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",72)
Line 698: __ctrl12 = Me.__BuildControl__control14
Line 699:
Line 700: #End ExternalSource
Line 701:
Line 702:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",72)
Line 703: __ctrl.Add(__ctrl12)
Line 704:
Line 705: #End ExternalSource
Line 706: End Sub
Line 707:
Line 708: Private Function __BuildControlDDLMonth() As
Global.System.Web.UI.WebControls.DropDownList
Line 709: Dim __ctrl As
Global.System.Web.UI.WebControls.DropDownList
Line 710:
Line 711:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",72)
Line 712: __ctrl = New
Global.System.Web.UI.WebControls.DropDownList
Line 713:
Line 714: #End ExternalSource
Line 715: Me.DDLMonth = __ctrl
Line 716: __ctrl.ApplyStyleSheetSkin(Me)
Line 717:
Line 718:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",72)
Line 719: __ctrl.ID = "DDLMonth"
Line 720:
Line 721: #End ExternalSource
Line 722:
Line 723:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",72)
Line 724: __ctrl.Width = New System.Web.UI.WebControls.Unit(101,
System.Web.UI.WebControls.UnitType.Pixel)
Line 725:
Line 726: #End ExternalSource
Line 727:
Line 728:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",72)
Line 729: Me.__BuildControl__control2(__ctrl.Items)
Line 730:
Line 731: #End ExternalSource
Line 732: Return __ctrl
Line 733: End Function
Line 734:
Line 735: Private Function __BuildControlbtnGo() As
Global.System.Web.UI.WebControls.Button
Line 736: Dim __ctrl As Global.System.Web.UI.WebControls.Button
Line 737:
Line 738:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",88)
Line 739: __ctrl = New Global.System.Web.UI.WebControls.Button
Line 740:
Line 741: #End ExternalSource
Line 742: Me.btnGo = __ctrl
Line 743: __ctrl.ApplyStyleSheetSkin(Me)
Line 744:
Line 745:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",88)
Line 746: __ctrl.ID = "btnGo"
Line 747:
Line 748: #End ExternalSource
Line 749:
Line 750:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",88)
Line 751: __ctrl.Font.Names = New String() {"Verdana",
"Arial"}
Line 752:
Line 753: #End ExternalSource
Line 754:
Line 755:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",88)
Line 756: __ctrl.Font.Size = New
System.Web.UI.WebControls.FontUnit(New System.Web.UI.WebControls.Unit(7.5,
System.Web.UI.WebControls.UnitType.Point))
Line 757:
Line 758: #End ExternalSource
Line 759:
Line 760:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",88)
Line 761: __ctrl.Height = New System.Web.UI.WebControls.Unit(24,
System.Web.UI.WebControls.UnitType.Pixel)
Line 762:
Line 763: #End ExternalSource
Line 764:
Line 765:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",88)
Line 766: __ctrl.Width = New System.Web.UI.WebControls.Unit(110,
System.Web.UI.WebControls.UnitType.Pixel)
Line 767:
Line 768: #End ExternalSource
Line 769:
Line 770:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",88)
Line 771: __ctrl.Text = "Go To This Period"
Line 772:
Line 773: #End ExternalSource
Line 774: Return __ctrl
Line 775: End Function
Line 776:
Line 777: Private Function __BuildControlMyCalendarControl1() As
Global.CalendarControl.MyCalendarControl
Line 778: Dim __ctrl As Global.CalendarControl.MyCalendarControl
Line 779:
Line 780:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",104)
Line 781: __ctrl = New Global.CalendarControl.MyCalendarControl
Line 782:
Line 783: #End ExternalSource
Line 784: Me.MyCalendarControl1 = __ctrl
Line 785: __ctrl.ApplyStyleSheetSkin(Me)
Line 786:
Line 787:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",104)
Line 788: __ctrl.ID = "MyCalendarControl1"
Line 789:
Line 790: #End ExternalSource
Line 791:
Line 792:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",104)
Line 793: __ctrl.Width = New System.Web.UI.WebControls.Unit(100,
System.Web.UI.WebControls.UnitType.Percentage)
Line 794:
Line 795: #End ExternalSource
Line 796:
Line 797:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",104)
Line 798: __ctrl.Height = New System.Web.UI.WebControls.Unit(332,
System.Web.UI.WebControls.UnitType.Pixel)
Line 799:
Line 800: #End ExternalSource
Line 801: Return __ctrl
Line 802: End Function
Line 803:
Line 804: Private Function __BuildControlpnl_cal() As
Global.System.Web.UI.WebControls.Panel
Line 805: Dim __ctrl As Global.System.Web.UI.WebControls.Panel
Line 806:
Line 807:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",101)
Line 808: __ctrl = New Global.System.Web.UI.WebControls.Panel
Line 809:
Line 810: #End ExternalSource
Line 811: Me.pnl_cal = __ctrl
Line 812: __ctrl.ApplyStyleSheetSkin(Me)
Line 813:
Line 814:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",101)
Line 815: __ctrl.ID = "pnl_cal"
Line 816:
Line 817: #End ExternalSource
Line 818:
Line 819:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",101)
Line 820: __ctrl.Height = New System.Web.UI.WebControls.Unit(100,
System.Web.UI.WebControls.UnitType.Percentage)
Line 821:
Line 822: #End ExternalSource
Line 823:
Line 824:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",101)
Line 825: __ctrl.Width = New System.Web.UI.WebControls.Unit(100,
System.Web.UI.WebControls.UnitType.Percentage)
Line 826:
Line 827: #End ExternalSource
Line 828:
Line 829:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",101)
Line 830: __ctrl.Visible = true
Line 831:
Line 832: #End ExternalSource
Line 833: Dim __parser As System.Web.UI.IParserAccessor =
CType(__ctrl,System.Web.UI.IParserAccessor)
Line 834:
Line 835:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",101)
Line 836: __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl("<FONT style=""FONT-SIZE:
9pt"" face=""verdana""><B>Click
"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasi
c.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualB
asic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.Visua
lBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.Vis
ualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.V
isualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft
.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microso
ft.VisualBasic.ChrW(9)&"on the course "& _
Line 837: "or date to view its detail
</B></FONT>"&Global.Microsoft.VisualBasic.ChrW(13)&Glob
al.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&G
lobal.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&
;Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&a
mp;Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)
&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(
9)&Global.Microsoft.VisualBasic.ChrW(9)&"<BR>"&Globa
l.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&G
lobal.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&
;Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&a
mp;Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)
&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(
9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.Chr
W(9)))
Line 838:
Line 839: #End ExternalSource
Line 840: Dim __ctrl1 As Global.CalendarControl.MyCalendarControl
Line 841:
Line 842:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",101)
Line 843: __ctrl1 = Me.__BuildControlMyCalendarControl1
Line 844:
Line 845: #End ExternalSource
Line 846:
Line 847:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",101)
Line 848: __parser.AddParsedSubObject(__ctrl1)
Line 849:
Line 850: #End ExternalSource
Line 851:
Line 852:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",101)
Line 853: __parser.AddParsedSubObject(New
System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(
13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.C
hrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic
.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBas
ic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualB
asic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.Visua
lBasic.ChrW(9)))
Line 854:
Line 855: #End ExternalSource
Line 856: Return __ctrl
Line 857: End Function
Line 858:
Line 859: Private Sub __BuildControl__control15(ByVal __ctrl As
System.Web.UI.WebControls.TableItemStyle)
Line 860:
Line 861:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",131)
Line 862: __ctrl.Font.Size =
System.Web.UI.WebControls.FontUnit.XXSmall
Line 863:
Line 864: #End ExternalSource
Line 865:
Line 866:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",131)
Line 867: __ctrl.Font.Names = New String() {"Verdana"}
Line 868:
Line 869: #End ExternalSource
Line 870:
Line 871:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",131)
Line 872: __ctrl.BorderStyle =
System.Web.UI.WebControls.BorderStyle.Solid
Line 873:
Line 874: #End ExternalSource
Line 875:
Line 876:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",131)
Line 877: __ctrl.BackColor = System.Drawing.Color.WhiteSmoke
Line 878:
Line 879: #End ExternalSource
Line 880: End Sub
Line 881:
Line 882: Private Sub __BuildControl__control16(ByVal __ctrl As
System.Web.UI.WebControls.TableItemStyle)
Line 883:
Line 884:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",131)
Line 885: __ctrl.Font.Size =
System.Web.UI.WebControls.FontUnit.XXSmall
Line 886:
Line 887: #End ExternalSource
Line 888:
Line 889:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",131)
Line 890: __ctrl.Font.Names = New String() {"Verdana"}
Line 891:
Line 892: #End ExternalSource
Line 893:
Line 894:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",131)
Line 895: __ctrl.ForeColor = System.Drawing.Color.White
Line 896:
Line 897: #End ExternalSource
Line 898:
Line 899:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",131)
Line 900: __ctrl.BackColor = System.Drawing.Color.Navy
Line 901:
Line 902: #End ExternalSource
Line 903: End Sub
Line 904:
Line 905: Private Sub __BuildControl__control19(ByVal __ctrl As
System.Web.UI.WebControls.TableItemStyle)
Line 906:
Line 907:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",135)
Line 908: __ctrl.Font.Size =
System.Web.UI.WebControls.FontUnit.XSmall
Line 909:
Line 910: #End ExternalSource
Line 911:
Line 912:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",135)
Line 913: __ctrl.ForeColor = System.Drawing.Color.SteelBlue
Line 914:
Line 915: #End ExternalSource
Line 916:
Line 917:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",135)
Line 918: __ctrl.BackColor =
System.Drawing.SystemColors.InactiveBorder
Line 919:
Line 920: #End ExternalSource
Line 921: End Sub
Line 922:
Line 923: Private Function __BuildControl__control18() As
Global.System.Web.UI.WebControls.ButtonColumn
Line 924: Dim __ctrl As
Global.System.Web.UI.WebControls.ButtonColumn
Line 925:
Line 926:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",135)
Line 927: __ctrl = New
Global.System.Web.UI.WebControls.ButtonColumn
Line 928:
Line 929: #End ExternalSource
Line 930:
Line 931:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",135)
Line 932: __ctrl.Text = "+"
Line 933:
Line 934: #End ExternalSource
Line 935:
Line 936:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",135)
Line 937: __ctrl.HeaderText = "View"
Line 938:
Line 939: #End ExternalSource
Line 940:
Line 941:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",135)
Line 942: __ctrl.CommandName = "ViewCustomerID"
Line 943:
Line 944: #End ExternalSource
Line 945:
Line 946:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",135)
Line 947: __ctrl.FooterStyle.CssClass = "btcol"
Line 948:
Line 949: #End ExternalSource
Line 950:
Line 951:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",135)
Line 952: Me.__BuildControl__control19(__ctrl.ItemStyle)
Line 953:
Line 954: #End ExternalSource
Line 955: Return __ctrl
Line 956: End Function
Line 957:
Line 958: Private Function __BuildControl__control20() As
Global.System.Web.UI.WebControls.BoundColumn
Line 959: Dim __ctrl As
Global.System.Web.UI.WebControls.BoundColumn
Line 960:
Line 961:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",138)
Line 962: __ctrl = New
Global.System.Web.UI.WebControls.BoundColumn
Line 963:
Line 964: #End ExternalSource
Line 965:
Line 966:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",138)
Line 967: __ctrl.DataField = "CoursePlannedDate"
Line 968:
Line 969: #End ExternalSource
Line 970:
Line 971:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",138)
Line 972: __ctrl.DataFormatString = "{0:m}"
Line 973:
Line 974: #End ExternalSource
Line 975:
Line 976:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",138)
Line 977: __ctrl.HeaderText = "Date"
Line 978:
Line 979: #End ExternalSource
Line 980: Return __ctrl
Line 981: End Function
Line 982:
Line 983: Private Function __BuildControl__control21() As
Global.System.Web.UI.WebControls.BoundColumn
Line 984: Dim __ctrl As
Global.System.Web.UI.WebControls.BoundColumn
Line 985:
Line 986:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",139)
Line 987: __ctrl = New
Global.System.Web.UI.WebControls.BoundColumn
Line 988:
Line 989: #End ExternalSource
Line 990:
Line 991:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",139)
Line 992: __ctrl.DataField = "Course Name"
Line 993:
Line 994: #End ExternalSource
Line 995:
Line 996:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",139)
Line 997: __ctrl.HeaderText = "Course Name"
Line 998:
Line 999: #End ExternalSource
Line 1000: Return __ctrl
Line 1001: End Function
Line 1002:
Line 1003: Private Function __BuildControl__control22() As
Global.System.Web.UI.WebControls.BoundColumn
Line 1004: Dim __ctrl As
Global.System.Web.UI.WebControls.BoundColumn
Line 1005:
Line 1006:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",140)
Line 1007: __ctrl = New
Global.System.Web.UI.WebControls.BoundColumn
Line 1008:
Line 1009: #End ExternalSource
Line 1010:
Line 1011:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",140)
Line 1012: __ctrl.DataField = "Participants"
Line 1013:
Line 1014: #End ExternalSource
Line 1015:
Line 1016:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",140)
Line 1017: __ctrl.HeaderText = "Participants"
Line 1018:
Line 1019: #End ExternalSource
Line 1020: Return __ctrl
Line 1021: End Function
Line 1022:
Line 1023: Private Function __BuildControl__control23() As
Global.System.Web.UI.WebControls.BoundColumn
Line 1024: Dim __ctrl As
Global.System.Web.UI.WebControls.BoundColumn
Line 1025:
Line 1026:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",141)
Line 1027: __ctrl = New
Global.System.Web.UI.WebControls.BoundColumn
Line 1028:
Line 1029: #End ExternalSource
Line 1030:
Line 1031:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",141)
Line 1032: __ctrl.DataField = "Course Venue"
Line 1033:
Line 1034: #End ExternalSource
Line 1035:
Line 1036:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",141)
Line 1037: __ctrl.HeaderText = "Course Venue"
Line 1038:
Line 1039: #End ExternalSource
Line 1040: Return __ctrl
Line 1041: End Function
Line 1042:
Line 1043: Private Function __BuildControl__control24() As
Global.System.Web.UI.WebControls.BoundColumn
Line 1044: Dim __ctrl As
Global.System.Web.UI.WebControls.BoundColumn
Line 1045:
Line 1046:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",142)
Line 1047: __ctrl = New
Global.System.Web.UI.WebControls.BoundColumn
Line 1048:
Line 1049: #End ExternalSource
Line 1050:
Line 1051:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",142)
Line 1052: __ctrl.DataField = "CourseStatus"
Line 1053:
Line 1054: #End ExternalSource
Line 1055:
Line 1056:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",142)
Line 1057: __ctrl.HeaderText = "Status"
Line 1058:
Line 1059: #End ExternalSource
Line 1060: Return __ctrl
Line 1061: End Function
Line 1062:
Line 1063: Private Function __BuildControl__control25() As
Global.System.Web.UI.WebControls.BoundColumn
Line 1064: Dim __ctrl As
Global.System.Web.UI.WebControls.BoundColumn
Line 1065:
Line 1066:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",143)
Line 1067: __ctrl = New
Global.System.Web.UI.WebControls.BoundColumn
Line 1068:
Line 1069: #End ExternalSource
Line 1070:
Line 1071:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",143)
Line 1072: __ctrl.DataField = "Organiser"
Line 1073:
Line 1074: #End ExternalSource
Line 1075:
Line 1076:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",143)
Line 1077: __ctrl.HeaderText = "Organiser"
Line 1078:
Line 1079: #End ExternalSource
Line 1080: Return __ctrl
Line 1081: End Function
Line 1082:
Line 1083: Private Function __BuildControl__control26() As
Global.System.Web.UI.WebControls.BoundColumn
Line 1084: Dim __ctrl As
Global.System.Web.UI.WebControls.BoundColumn
Line 1085:
Line 1086:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",144)
Line 1087: __ctrl = New
Global.System.Web.UI.WebControls.BoundColumn
Line 1088:
Line 1089: #End ExternalSource
Line 1090:
Line 1091:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",144)
Line 1092: __ctrl.DataField = "Duration"
Line 1093:
Line 1094: #End ExternalSource
Line 1095:
Line 1096:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",144)
Line 1097: __ctrl.HeaderText = "Duration"
Line 1098:
Line 1099: #End ExternalSource
Line 1100: Return __ctrl
Line 1101: End Function
Line 1102:
Line 1103: Private Sub __BuildControl__control17(ByVal __ctrl As
System.Web.UI.WebControls.DataGridColumnCollection)
Line 1104: Dim __ctrl1 As
Global.System.Web.UI.WebControls.ButtonColumn
Line 1105:
Line 1106:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",131)
Line 1107: __ctrl1 = Me.__BuildControl__control18
Line 1108:
Line 1109: #End ExternalSource
Line 1110:
Line 1111:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",131)
Line 1112: __ctrl.Add(__ctrl1)
Line 1113:
Line 1114: #End ExternalSource
Line 1115: Dim __ctrl2 As
Global.System.Web.UI.WebControls.BoundColumn
Line 1116:
Line 1117:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",131)
Line 1118: __ctrl2 = Me.__BuildControl__control20
Line 1119:
Line 1120: #End ExternalSource
Line 1121:
Line 1122:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",131)
Line 1123: __ctrl.Add(__ctrl2)
Line 1124:
Line 1125: #End ExternalSource
Line 1126: Dim __ctrl3 As
Global.System.Web.UI.WebControls.BoundColumn
Line 1127:
Line 1128:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",131)
Line 1129: __ctrl3 = Me.__BuildControl__control21
Line 1130:
Line 1131: #End ExternalSource
Line 1132:
Line 1133:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",131)
Line 1134: __ctrl.Add(__ctrl3)
Line 1135:
Line 1136: #End ExternalSource
Line 1137: Dim __ctrl4 As
Global.System.Web.UI.WebControls.BoundColumn
Line 1138:
Line 1139:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",131)
Line 1140: __ctrl4 = Me.__BuildControl__control22
Line 1141:
Line 1142: #End ExternalSource
Line 1143:
Line 1144:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",131)
Line 1145: __ctrl.Add(__ctrl4)
Line 1146:
Line 1147: #End ExternalSource
Line 1148: Dim __ctrl5 As
Global.System.Web.UI.WebControls.BoundColumn
Line 1149:
Line 1150:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",131)
Line 1151: __ctrl5 = Me.__BuildControl__control23
Line 1152:
Line 1153: #End ExternalSource
Line 1154:
Line 1155:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",131)
Line 1156: __ctrl.Add(__ctrl5)
Line 1157:
Line 1158: #End ExternalSource
Line 1159: Dim __ctrl6 As
Global.System.Web.UI.WebControls.BoundColumn
Line 1160:
Line 1161:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",131)
Line 1162: __ctrl6 = Me.__BuildControl__control24
Line 1163:
Line 1164: #End ExternalSource
Line 1165:
Line 1166:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",131)
Line 1167: __ctrl.Add(__ctrl6)
Line 1168:
Line 1169: #End ExternalSource
Line 1170: Dim __ctrl7 As
Global.System.Web.UI.WebControls.BoundColumn
Line 1171:
Line 1172:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",131)
Line 1173: __ctrl7 = Me.__BuildControl__control25
Line 1174:
Line 1175: #End ExternalSource
Line 1176:
Line 1177:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",131)
Line 1178: __ctrl.Add(__ctrl7)
Line 1179:
Line 1180: #End ExternalSource
Line 1181: Dim __ctrl8 As
Global.System.Web.UI.WebControls.BoundColumn
Line 1182:
Line 1183:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",131)
Line 1184: __ctrl8 = Me.__BuildControl__control26
Line 1185:
Line 1186: #End ExternalSource
Line 1187:
Line 1188:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",131)
Line 1189: __ctrl.Add(__ctrl8)
Line 1190:
Line 1191: #End ExternalSource
Line 1192: End Sub
Line 1193:
Line 1194: Private Function __BuildControlDG() As
Global.System.Web.UI.WebControls.DataGrid
Line 1195: Dim __ctrl As Global.System.Web.UI.WebControls.DataGrid
Line 1196:
Line 1197:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",131)
Line 1198: __ctrl = New Global.System.Web.UI.WebControls.DataGrid
Line 1199:
Line 1200: #End ExternalSource
Line 1201: Me.DG = __ctrl
Line 1202: __ctrl.ApplyStyleSheetSkin(Me)
Line 1203:
Line 1204:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",131)
Line 1205: __ctrl.ID = "DG"
Line 1206:
Line 1207: #End ExternalSource
Line 1208:
Line 1209:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",131)
Line 1210: __ctrl.Width = New System.Web.UI.WebControls.Unit(100,
System.Web.UI.WebControls.UnitType.Percentage)
Line 1211:
Line 1212: #End ExternalSource
Line 1213:
Line 1214:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",131)
Line 1215: __ctrl.AutoGenerateColumns = false
Line 1216:
Line 1217: #End ExternalSource
Line 1218:
Line 1219:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",131)
Line 1220: __ctrl.DataKeyField = "Details"
Line 1221:
Line 1222: #End ExternalSource
Line 1223:
Line 1224:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",131)
Line 1225: Me.__BuildControl__control15(__ctrl.ItemStyle)
Line 1226:
Line 1227: #End ExternalSource
Line 1228:
Line 1229:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",131)
Line 1230: Me.__BuildControl__control16(__ctrl.HeaderStyle)
Line 1231:
Line 1232: #End ExternalSource
Line 1233:
Line 1234:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",131)
Line 1235: Me.__BuildControl__control17(__ctrl.Columns)
Line 1236:
Line 1237: #End ExternalSource
Line 1238: Return __ctrl
Line 1239: End Function
Line 1240:
Line 1241: Private Function __BuildControlpnl_list() As
Global.System.Web.UI.WebControls.Panel
Line 1242: Dim __ctrl As Global.System.Web.UI.WebControls.Panel
Line 1243:
Line 1244:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",106)
Line 1245: __ctrl = New Global.System.Web.UI.WebControls.Panel
Line 1246:
Line 1247: #End ExternalSource
Line 1248: Me.pnl_list = __ctrl
Line 1249: __ctrl.ApplyStyleSheetSkin(Me)
Line 1250:
Line 1251:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",106)
Line 1252: __ctrl.ID = "pnl_list"
Line 1253:
Line 1254: #End ExternalSource
Line 1255:
Line 1256:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",106)
Line 1257: __ctrl.Height = New System.Web.UI.WebControls.Unit(237,
System.Web.UI.WebControls.UnitType.Pixel)
Line 1258:
Line 1259: #End ExternalSource
Line 1260:
Line 1261:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",106)
Line 1262: __ctrl.Width = New System.Web.UI.WebControls.Unit(100,
System.Web.UI.WebControls.UnitType.Percentage)
Line 1263:
Line 1264: #End ExternalSource
Line 1265:
Line 1266:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",106)
Line 1267: __ctrl.Visible = false
Line 1268:
Line 1269: #End ExternalSource
Line 1270: Dim __ctrl1 As Global.System.Web.UI.WebControls.DataGrid
Line 1271:
Line 1272:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",106)
Line 1273: __ctrl1 = Me.__BuildControlDG
Line 1274:
Line 1275: #End ExternalSource
Line 1276: Dim __parser As System.Web.UI.IParserAccessor =
CType(__ctrl,System.Web.UI.IParserAccessor)
Line 1277:
Line 1278:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",106)
Line 1279: __parser.AddParsedSubObject(__ctrl1)
Line 1280:
Line 1281: #End ExternalSource
Line 1282: __ctrl.SetRenderMethodDelegate(AddressOf
Me.__Renderpnl_list)
Line 1283: Return __ctrl
Line 1284: End Function
Line 1285:
Line 1286: Private Sub __Renderpnl_list(ByVal __w As
System.Web.UI.HtmlTextWriter, ByVal parameterContainer As
System.Web.UI.Control)
Line 1287:
__w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Micr
osoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.M
icrosoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global
.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Glob
al.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Gl
obal.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&
Global.Microsoft.VisualBasic.ChrW(9)&"<FONT
style=""FONT-SIZE: 9pt""
face=""verdana""><B>Expand the + node to
v"& _
Line 1288: "iew the
"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasi
c.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualB
asic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.Visua
lBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.Vis
ualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.V
isualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft
.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microso
ft.VisualBasic.ChrW(9)&"participant of the
course</B></FONT>"&Global.Microsoft.VisualBasic.ChrW(13)&am
p;Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)
&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(
9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.Chr
W(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.C
hrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic
.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"<BR>"&
;Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)
&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(
9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.Chr
W(9)& _
Line 1289:
""&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.Visua
lBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.Vis
ualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.V
isualBasic.ChrW(9)&"<BR>"&Global.Microsoft.VisualBasic.C
hrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBas
ic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualB
asic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.Visua
lBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.Vis
ualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.V
isualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9))
Line 1290:
Line 1291:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",111)
Line 1292:
Line 1293: If Request.QueryString("mode") =
"search" And Request.QueryString("criteria") <>
"" Then
Line 1294: Response.Write("<font face=verdana size=2
color=blue><B>Search Results for
Parameter(s) <font color='#ff0000'>"
& Request.QueryString("criteria") &
"</font></b></font>")
Line 1295: Else
Line 1296:
Line 1297: Dim mthName() As String = {"January",
"Feburary", "March", "April", "May",
"June", "July", "August", "September",
"October", "November", "December"}
Line 1298: Dim mth As Byte =
Cint(Request.QueryString("Month"))
Line 1299: Dim yr As Integer =
Cint(Request.QueryString("Year"))
Line 1300:
Line 1301: If mth = 0 Then
Line 1302: mth = Now.Month
Line 1303: End If
Line 1304:
Line 1305: If yr = 0 Then
Line 1306: yr = Now.Year
Line 1307: End If
Line 1308:
Line 1309: Response.Write("<font face=verdana size=2
color=blue><B>" & mthName(mth-1) & " " & yr
& "</b></font>")
Line 1310: End If
Line 1311:
Line 1312:
Line 1313: #End ExternalSource
Line 1314: parameterContainer.Controls(0).RenderControl(__w)
Line 1315:
__w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Micr
osoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.M
icrosoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global
.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Glob
al.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Gl
obal.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9))
Line 1316: End Sub
Line 1317:
Line 1318: Private Sub __BuildControl__control27(ByVal __ctrl As
System.Web.UI.WebControls.TableItemStyle)
Line 1319:
Line 1320:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",203)
Line 1321: __ctrl.BackColor = System.Drawing.Color.Cornsilk
Line 1322:
Line 1323: #End ExternalSource
Line 1324: End Sub
Line 1325:
Line 1326: Private Sub __BuildControl__control28(ByVal __ctrl As
System.Web.UI.WebControls.TableItemStyle)
Line 1327:
Line 1328:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",203)
Line 1329: __ctrl.Font.Size =
System.Web.UI.WebControls.FontUnit.XXSmall
Line 1330:
Line 1331: #End ExternalSource
Line 1332:
Line 1333:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",203)
Line 1334: __ctrl.Font.Names = New String() {"Verdana"}
Line 1335:
Line 1336: #End ExternalSource
Line 1337:
Line 1338:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",203)
Line 1339: __ctrl.BackColor = System.Drawing.Color.WhiteSmoke
Line 1340:
Line 1341: #End ExternalSource
Line 1342: End Sub
Line 1343:
Line 1344: Private Sub __BuildControl__control29(ByVal __ctrl As
System.Web.UI.WebControls.TableItemStyle)
Line 1345:
Line 1346:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",203)
Line 1347: __ctrl.Font.Names = New String() {"Wingdings
3"}
Line 1348:
Line 1349: #End ExternalSource
Line 1350: End Sub
Line 1351:
Line 1352: Private Sub __BuildControl__control30(ByVal __ctrl As
System.Web.UI.WebControls.TableItemStyle)
Line 1353:
Line 1354:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",203)
Line 1355: __ctrl.Font.Size =
System.Web.UI.WebControls.FontUnit.XXSmall
Line 1356:
Line 1357: #End ExternalSource
Line 1358:
Line 1359:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",203)
Line 1360: __ctrl.Font.Names = New String() {"Verdana"}
Line 1361:
Line 1362: #End ExternalSource
Line 1363:
Line 1364:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",203)
Line 1365: __ctrl.Font.Bold = true
Line 1366:
Line 1367: #End ExternalSource
Line 1368:
Line 1369:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",203)
Line 1370: __ctrl.ForeColor = System.Drawing.Color.Black
Line 1371:
Line 1372: #End ExternalSource
Line 1373: End Sub
Line 1374:
Line 1375: Private Sub __BuildControl__control31(ByVal __ctrl As
System.Web.UI.WebControls.TableItemStyle)
Line 1376:
Line 1377:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",203)
Line 1378: __ctrl.Font.Size =
System.Web.UI.WebControls.FontUnit.XXSmall
Line 1379:
Line 1380: #End ExternalSource
Line 1381:
Line 1382:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",203)
Line 1383: __ctrl.Font.Names = New String() {"Verdana"}
Line 1384:
Line 1385: #End ExternalSource
Line 1386:
Line 1387:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",203)
Line 1388: __ctrl.ForeColor = System.Drawing.Color.Cornsilk
Line 1389:
Line 1390: #End ExternalSource
Line 1391: End Sub
Line 1392:
Line 1393: Private Sub __BuildControl__control32(ByVal __ctrl As
System.Web.UI.WebControls.TableItemStyle)
Line 1394:
Line 1395:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",203)
Line 1396: __ctrl.Font.Size =
System.Web.UI.WebControls.FontUnit.XXSmall
Line 1397:
Line 1398: #End ExternalSource
Line 1399:
Line 1400:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",203)
Line 1401: __ctrl.Font.Names = New String() {"Verdana"}
Line 1402:
Line 1403: #End ExternalSource
Line 1404:
Line 1405:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",203)
Line 1406: __ctrl.Font.Bold = true
Line 1407:
Line 1408: #End ExternalSource
Line 1409:
Line 1410:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",203)
Line 1411: __ctrl.ForeColor = System.Drawing.Color.White
Line 1412:
Line 1413: #End ExternalSource
Line 1414: End Sub
Line 1415:
Line 1416: Private Function __BuildControlCal1() As
Global.System.Web.UI.WebControls.Calendar
Line 1417: Dim __ctrl As Global.System.Web.UI.WebControls.Calendar
Line 1418:
Line 1419:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",203)
Line 1420: __ctrl = New Global.System.Web.UI.WebControls.Calendar
Line 1421:
Line 1422: #End ExternalSource
Line 1423: Me.Cal1 = __ctrl
Line 1424: __ctrl.ApplyStyleSheetSkin(Me)
Line 1425:
Line 1426:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",203)
Line 1427: __ctrl.ID = "Cal1"
Line 1428:
Line 1429: #End ExternalSource
Line 1430:
Line 1431:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",203)
Line 1432: __ctrl.Width = New System.Web.UI.WebControls.Unit(10,
System.Web.UI.WebControls.UnitType.Pixel)
Line 1433:
Line 1434: #End ExternalSource
Line 1435:
Line 1436:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",203)
Line 1437: __ctrl.Height = New System.Web.UI.WebControls.Unit(45,
System.Web.UI.WebControls.UnitType.Pixel)
Line 1438:
Line 1439: #End ExternalSource
Line 1440:
Line 1441:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",203)
Line 1442: __ctrl.Font.Names = New String() {"Verdana"}
Line 1443:
Line 1444: #End ExternalSource
Line 1445:
Line 1446:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",203)
Line 1447: __ctrl.Font.Size =
System.Web.UI.WebControls.FontUnit.XXSmall
Line 1448:
Line 1449: #End ExternalSource
Line 1450:
Line 1451:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",203)
Line 1452: __ctrl.Font.Bold = true
Line 1453:
Line 1454: #End ExternalSource
Line 1455:
Line 1456:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",203)
Line 1457: Me.__BuildControl__control27(__ctrl.TodayDayStyle)
Line 1458:
Line 1459: #End ExternalSource
Line 1460:
Line 1461:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",203)
Line 1462: Me.__BuildControl__control28(__ctrl.DayStyle)
Line 1463:
Line 1464: #End ExternalSource
Line 1465:
Line 1466:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",203)
Line 1467: Me.__BuildControl__control29(__ctrl.NextPrevStyle)
Line 1468:
Line 1469: #End ExternalSource
Line 1470:
Line 1471:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",203)
Line 1472: Me.__BuildControl__control30(__ctrl.DayHeaderStyle)
Line 1473:
Line 1474: #End ExternalSource
Line 1475:
Line 1476:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",203)
Line 1477: Me.__BuildControl__control31(__ctrl.SelectedDayStyle)
Line 1478:
Line 1479: #End ExternalSource
Line 1480:
Line 1481:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",203)
Line 1482: Me.__BuildControl__control32(__ctrl.TitleStyle)
Line 1483:
Line 1484: #End ExternalSource
Line 1485: Return __ctrl
Line 1486: End Function
Line 1487:
Line 1488: Private Function __BuildControlDDLYear1() As
Global.System.Web.UI.WebControls.DropDownList
Line 1489: Dim __ctrl As
Global.System.Web.UI.WebControls.DropDownList
Line 1490:
Line 1491:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",219)
Line 1492: __ctrl = New
Global.System.Web.UI.WebControls.DropDownList
Line 1493:
Line 1494: #End ExternalSource
Line 1495: Me.DDLYear1 = __ctrl
Line 1496: __ctrl.ApplyStyleSheetSkin(Me)
Line 1497:
Line 1498:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",219)
Line 1499: __ctrl.ID = "DDLYear1"
Line 1500:
Line 1501: #End ExternalSource
Line 1502:
Line 1503:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",219)
Line 1504: __ctrl.Width = New System.Web.UI.WebControls.Unit(70,
System.Web.UI.WebControls.UnitType.Pixel)
Line 1505:
Line 1506: #End ExternalSource
Line 1507:
Line 1508:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",219)
Line 1509: __ctrl.Height = New System.Web.UI.WebControls.Unit(19,
System.Web.UI.WebControls.UnitType.Pixel)
Line 1510:
Line 1511: #End ExternalSource
Line 1512: Return __ctrl
Line 1513: End Function
Line 1514:
Line 1515: Private Function __BuildControl__control34() As
Global.System.Web.UI.WebControls.ListItem
Line 1516: Dim __ctrl As Global.System.Web.UI.WebControls.ListItem
Line 1517:
Line 1518:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",222)
Line 1519: __ctrl = New Global.System.Web.UI.WebControls.ListItem
Line 1520:
Line 1521: #End ExternalSource
Line 1522:
Line 1523:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",222)
Line 1524: __ctrl.Value = "January"
Line 1525:
Line 1526: #End ExternalSource
Line 1527:
Line 1528:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",222)
Line 1529: __ctrl.Text = "January"
Line 1530:
Line 1531: #End ExternalSource
Line 1532: Return __ctrl
Line 1533: End Function
Line 1534:
Line 1535: Private Function __BuildControl__control35() As
Global.System.Web.UI.WebControls.ListItem
Line 1536: Dim __ctrl As Global.System.Web.UI.WebControls.ListItem
Line 1537:
Line 1538:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",223)
Line 1539: __ctrl = New Global.System.Web.UI.WebControls.ListItem
Line 1540:
Line 1541: #End ExternalSource
Line 1542:
Line 1543:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",223)
Line 1544: __ctrl.Value = "February"
Line 1545:
Line 1546: #End ExternalSource
Line 1547:
Line 1548:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",223)
Line 1549: __ctrl.Text = "February"
Line 1550:
Line 1551: #End ExternalSource
Line 1552: Return __ctrl
Line 1553: End Function
Line 1554:
Line 1555: Private Function __BuildControl__control36() As
Global.System.Web.UI.WebControls.ListItem
Line 1556: Dim __ctrl As Global.System.Web.UI.WebControls.ListItem
Line 1557:
Line 1558:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",224)
Line 1559: __ctrl = New Global.System.Web.UI.WebControls.ListItem
Line 1560:
Line 1561: #End ExternalSource
Line 1562:
Line 1563:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",224)
Line 1564: __ctrl.Value = "March"
Line 1565:
Line 1566: #End ExternalSource
Line 1567:
Line 1568:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",224)
Line 1569: __ctrl.Text = "March"
Line 1570:
Line 1571: #End ExternalSource
Line 1572: Return __ctrl
Line 1573: End Function
Line 1574:
Line 1575: Private Function __BuildControl__control37() As
Global.System.Web.UI.WebControls.ListItem
Line 1576: Dim __ctrl As Global.System.Web.UI.WebControls.ListItem
Line 1577:
Line 1578:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",225)
Line 1579: __ctrl = New Global.System.Web.UI.WebControls.ListItem
Line 1580:
Line 1581: #End ExternalSource
Line 1582:
Line 1583:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",225)
Line 1584: __ctrl.Value = "April"
Line 1585:
Line 1586: #End ExternalSource
Line 1587:
Line 1588:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",225)
Line 1589: __ctrl.Text = "April"
Line 1590:
Line 1591: #End ExternalSource
Line 1592: Return __ctrl
Line 1593: End Function
Line 1594:
Line 1595: Private Function __BuildControl__control38() As
Global.System.Web.UI.WebControls.ListItem
Line 1596: Dim __ctrl As Global.System.Web.UI.WebControls.ListItem
Line 1597:
Line 1598:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",226)
Line 1599: __ctrl = New Global.System.Web.UI.WebControls.ListItem
Line 1600:
Line 1601: #End ExternalSource
Line 1602:
Line 1603:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",226)
Line 1604: __ctrl.Value = "May"
Line 1605:
Line 1606: #End ExternalSource
Line 1607:
Line 1608:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",226)
Line 1609: __ctrl.Text = "May"
Line 1610:
Line 1611: #End ExternalSource
Line 1612: Return __ctrl
Line 1613: End Function
Line 1614:
Line 1615: Private Function __BuildControl__control39() As
Global.System.Web.UI.WebControls.ListItem
Line 1616: Dim __ctrl As Global.System.Web.UI.WebControls.ListItem
Line 1617:
Line 1618:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",227)
Line 1619: __ctrl = New Global.System.Web.UI.WebControls.ListItem
Line 1620:
Line 1621: #End ExternalSource
Line 1622:
Line 1623:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",227)
Line 1624: __ctrl.Value = "June"
Line 1625:
Line 1626: #End ExternalSource
Line 1627:
Line 1628:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",227)
Line 1629: __ctrl.Text = "June"
Line 1630:
Line 1631: #End ExternalSource
Line 1632: Return __ctrl
Line 1633: End Function
Line 1634:
Line 1635: Private Function __BuildControl__control40() As
Global.System.Web.UI.WebControls.ListItem
Line 1636: Dim __ctrl As Global.System.Web.UI.WebControls.ListItem
Line 1637:
Line 1638:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",228)
Line 1639: __ctrl = New Global.System.Web.UI.WebControls.ListItem
Line 1640:
Line 1641: #End ExternalSource
Line 1642:
Line 1643:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",228)
Line 1644: __ctrl.Value = "July"
Line 1645:
Line 1646: #End ExternalSource
Line 1647:
Line 1648:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",228)
Line 1649: __ctrl.Text = "July"
Line 1650:
Line 1651: #End ExternalSource
Line 1652: Return __ctrl
Line 1653: End Function
Line 1654:
Line 1655: Private Function __BuildControl__control41() As
Global.System.Web.UI.WebControls.ListItem
Line 1656: Dim __ctrl As Global.System.Web.UI.WebControls.ListItem
Line 1657:
Line 1658:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",229)
Line 1659: __ctrl = New Global.System.Web.UI.WebControls.ListItem
Line 1660:
Line 1661: #End ExternalSource
Line 1662:
Line 1663:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",229)
Line 1664: __ctrl.Value = "August"
Line 1665:
Line 1666: #End ExternalSource
Line 1667:
Line 1668:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",229)
Line 1669: __ctrl.Text = "August"
Line 1670:
Line 1671: #End ExternalSource
Line 1672: Return __ctrl
Line 1673: End Function
Line 1674:
Line 1675: Private Function __BuildControl__control42() As
Global.System.Web.UI.WebControls.ListItem
Line 1676: Dim __ctrl As Global.System.Web.UI.WebControls.ListItem
Line 1677:
Line 1678:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",230)
Line 1679: __ctrl = New Global.System.Web.UI.WebControls.ListItem
Line 1680:
Line 1681: #End ExternalSource
Line 1682:
Line 1683:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",230)
Line 1684: __ctrl.Value = "September"
Line 1685:
Line 1686: #End ExternalSource
Line 1687:
Line 1688:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",230)
Line 1689: __ctrl.Text = "September"
Line 1690:
Line 1691: #End ExternalSource
Line 1692: Return __ctrl
Line 1693: End Function
Line 1694:
Line 1695: Private Function __BuildControl__control43() As
Global.System.Web.UI.WebControls.ListItem
Line 1696: Dim __ctrl As Global.System.Web.UI.WebControls.ListItem
Line 1697:
Line 1698:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",231)
Line 1699: __ctrl = New Global.System.Web.UI.WebControls.ListItem
Line 1700:
Line 1701: #End ExternalSource
Line 1702:
Line 1703:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",231)
Line 1704: __ctrl.Value = "October"
Line 1705:
Line 1706: #End ExternalSource
Line 1707:
Line 1708:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",231)
Line 1709: __ctrl.Text = "October"
Line 1710:
Line 1711: #End ExternalSource
Line 1712: Return __ctrl
Line 1713: End Function
Line 1714:
Line 1715: Private Function __BuildControl__control44() As
Global.System.Web.UI.WebControls.ListItem
Line 1716: Dim __ctrl As Global.System.Web.UI.WebControls.ListItem
Line 1717:
Line 1718:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",232)
Line 1719: __ctrl = New Global.System.Web.UI.WebControls.ListItem
Line 1720:
Line 1721: #End ExternalSource
Line 1722:
Line 1723:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",232)
Line 1724: __ctrl.Value = "November"
Line 1725:
Line 1726: #End ExternalSource
Line 1727:
Line 1728:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",232)
Line 1729: __ctrl.Text = "November"
Line 1730:
Line 1731: #End ExternalSource
Line 1732: Return __ctrl
Line 1733: End Function
Line 1734:
Line 1735: Private Function __BuildControl__control45() As
Global.System.Web.UI.WebControls.ListItem
Line 1736: Dim __ctrl As Global.System.Web.UI.WebControls.ListItem
Line 1737:
Line 1738:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",233)
Line 1739: __ctrl = New Global.System.Web.UI.WebControls.ListItem
Line 1740:
Line 1741: #End ExternalSource
Line 1742:
Line 1743:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",233)
Line 1744: __ctrl.Value = "December"
Line 1745:
Line 1746: #End ExternalSource
Line 1747:
Line 1748:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",233)
Line 1749: __ctrl.Text = "December"
Line 1750:
Line 1751: #End ExternalSource
Line 1752: Return __ctrl
Line 1753: End Function
Line 1754:
Line 1755: Private Sub __BuildControl__control33(ByVal __ctrl As
System.Web.UI.WebControls.ListItemCollection)
Line 1756: Dim __ctrl1 As Global.System.Web.UI.WebControls.ListItem
Line 1757:
Line 1758:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",221)
Line 1759: __ctrl1 = Me.__BuildControl__control34
Line 1760:
Line 1761: #End ExternalSource
Line 1762:
Line 1763:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",221)
Line 1764: __ctrl.Add(__ctrl1)
Line 1765:
Line 1766: #End ExternalSource
Line 1767: Dim __ctrl2 As Global.System.Web.UI.WebControls.ListItem
Line 1768:
Line 1769:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",221)
Line 1770: __ctrl2 = Me.__BuildControl__control35
Line 1771:
Line 1772: #End ExternalSource
Line 1773:
Line 1774:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",221)
Line 1775: __ctrl.Add(__ctrl2)
Line 1776:
Line 1777: #End ExternalSource
Line 1778: Dim __ctrl3 As Global.System.Web.UI.WebControls.ListItem
Line 1779:
Line 1780:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",221)
Line 1781: __ctrl3 = Me.__BuildControl__control36
Line 1782:
Line 1783: #End ExternalSource
Line 1784:
Line 1785:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",221)
Line 1786: __ctrl.Add(__ctrl3)
Line 1787:
Line 1788: #End ExternalSource
Line 1789: Dim __ctrl4 As Global.System.Web.UI.WebControls.ListItem
Line 1790:
Line 1791:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",221)
Line 1792: __ctrl4 = Me.__BuildControl__control37
Line 1793:
Line 1794: #End ExternalSource
Line 1795:
Line 1796:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",221)
Line 1797: __ctrl.Add(__ctrl4)
Line 1798:
Line 1799: #End ExternalSource
Line 1800: Dim __ctrl5 As Global.System.Web.UI.WebControls.ListItem
Line 1801:
Line 1802:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",221)
Line 1803: __ctrl5 = Me.__BuildControl__control38
Line 1804:
Line 1805: #End ExternalSource
Line 1806:
Line 1807:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",221)
Line 1808: __ctrl.Add(__ctrl5)
Line 1809:
Line 1810: #End ExternalSource
Line 1811: Dim __ctrl6 As Global.System.Web.UI.WebControls.ListItem
Line 1812:
Line 1813:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",221)
Line 1814: __ctrl6 = Me.__BuildControl__control39
Line 1815:
Line 1816: #End ExternalSource
Line 1817:
Line 1818:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",221)
Line 1819: __ctrl.Add(__ctrl6)
Line 1820:
Line 1821: #End ExternalSource
Line 1822: Dim __ctrl7 As Global.System.Web.UI.WebControls.ListItem
Line 1823:
Line 1824:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",221)
Line 1825: __ctrl7 = Me.__BuildControl__control40
Line 1826:
Line 1827: #End ExternalSource
Line 1828:
Line 1829:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",221)
Line 1830: __ctrl.Add(__ctrl7)
Line 1831:
Line 1832: #End ExternalSource
Line 1833: Dim __ctrl8 As Global.System.Web.UI.WebControls.ListItem
Line 1834:
Line 1835:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",221)
Line 1836: __ctrl8 = Me.__BuildControl__control41
Line 1837:
Line 1838: #End ExternalSource
Line 1839:
Line 1840:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",221)
Line 1841: __ctrl.Add(__ctrl8)
Line 1842:
Line 1843: #End ExternalSource
Line 1844: Dim __ctrl9 As Global.System.Web.UI.WebControls.ListItem
Line 1845:
Line 1846:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",221)
Line 1847: __ctrl9 = Me.__BuildControl__control42
Line 1848:
Line 1849: #End ExternalSource
Line 1850:
Line 1851:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",221)
Line 1852: __ctrl.Add(__ctrl9)
Line 1853:
Line 1854: #End ExternalSource
Line 1855: Dim __ctrl10 As
Global.System.Web.UI.WebControls.ListItem
Line 1856:
Line 1857:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",221)
Line 1858: __ctrl10 = Me.__BuildControl__control43
Line 1859:
Line 1860: #End ExternalSource
Line 1861:
Line 1862:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",221)
Line 1863: __ctrl.Add(__ctrl10)
Line 1864:
Line 1865: #End ExternalSource
Line 1866: Dim __ctrl11 As
Global.System.Web.UI.WebControls.ListItem
Line 1867:
Line 1868:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",221)
Line 1869: __ctrl11 = Me.__BuildControl__control44
Line 1870:
Line 1871: #End ExternalSource
Line 1872:
Line 1873:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",221)
Line 1874: __ctrl.Add(__ctrl11)
Line 1875:
Line 1876: #End ExternalSource
Line 1877: Dim __ctrl12 As
Global.System.Web.UI.WebControls.ListItem
Line 1878:
Line 1879:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",221)
Line 1880: __ctrl12 = Me.__BuildControl__control45
Line 1881:
Line 1882: #End ExternalSource
Line 1883:
Line 1884:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",221)
Line 1885: __ctrl.Add(__ctrl12)
Line 1886:
Line 1887: #End ExternalSource
Line 1888: End Sub
Line 1889:
Line 1890: Private Function __BuildControlDDLMonth1() As
Global.System.Web.UI.WebControls.DropDownList
Line 1891: Dim __ctrl As
Global.System.Web.UI.WebControls.DropDownList
Line 1892:
Line 1893:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",221)
Line 1894: __ctrl = New
Global.System.Web.UI.WebControls.DropDownList
Line 1895:
Line 1896: #End ExternalSource
Line 1897: Me.DDLMonth1 = __ctrl
Line 1898: __ctrl.ApplyStyleSheetSkin(Me)
Line 1899:
Line 1900:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",221)
Line 1901: __ctrl.ID = "DDLMonth1"
Line 1902:
Line 1903: #End ExternalSource
Line 1904:
Line 1905:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",221)
Line 1906: __ctrl.Width = New System.Web.UI.WebControls.Unit(101,
System.Web.UI.WebControls.UnitType.Pixel)
Line 1907:
Line 1908: #End ExternalSource
Line 1909:
Line 1910:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",221)
Line 1911: Me.__BuildControl__control33(__ctrl.Items)
Line 1912:
Line 1913: #End ExternalSource
Line 1914: Return __ctrl
Line 1915: End Function
Line 1916:
Line 1917: Private Function __BuildControlbtnGo1() As
Global.System.Web.UI.WebControls.Button
Line 1918: Dim __ctrl As Global.System.Web.UI.WebControls.Button
Line 1919:
Line 1920:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",241)
Line 1921: __ctrl = New Global.System.Web.UI.WebControls.Button
Line 1922:
Line 1923: #End ExternalSource
Line 1924: Me.btnGo1 = __ctrl
Line 1925: __ctrl.ApplyStyleSheetSkin(Me)
Line 1926:
Line 1927:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",241)
Line 1928: __ctrl.ID = "btnGo1"
Line 1929:
Line 1930: #End ExternalSource
Line 1931:
Line 1932:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",241)
Line 1933: __ctrl.Width = New System.Web.UI.WebControls.Unit(153,
System.Web.UI.WebControls.UnitType.Pixel)
Line 1934:
Line 1935: #End ExternalSource
Line 1936:
Line 1937:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",241)
Line 1938: __ctrl.Height = New System.Web.UI.WebControls.Unit(22,
System.Web.UI.WebControls.UnitType.Pixel)
Line 1939:
Line 1940: #End ExternalSource
Line 1941:
Line 1942:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",241)
Line 1943: __ctrl.Text = "Go To This Period"
Line 1944:
Line 1945: #End ExternalSource
Line 1946: Return __ctrl
Line 1947: End Function
Line 1948:
Line 1949: Private Function __BuildControlimgUpcomingEvents() As
Global.System.Web.UI.WebControls.Image
Line 1950: Dim __ctrl As Global.System.Web.UI.WebControls.Image
Line 1951:
Line 1952:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",248)
Line 1953: __ctrl = New Global.System.Web.UI.WebControls.Image
Line 1954:
Line 1955: #End ExternalSource
Line 1956: Me.imgUpcomingEvents = __ctrl
Line 1957: __ctrl.ApplyStyleSheetSkin(Me)
Line 1958:
Line 1959:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",248)
Line 1960: __ctrl.ID = "imgUpcomingEvents"
Line 1961:
Line 1962: #End ExternalSource
Line 1963:
Line 1964:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",248)
Line 1965: __ctrl.ImageUrl = "images/upcomingEvents.jpg"
Line 1966:
Line 1967: #End ExternalSource
Line 1968: Return __ctrl
Line 1969: End Function
Line 1970:
Line 1971: Private Function __BuildControllblUpComingEvents() As
Global.System.Web.UI.WebControls.Label
Line 1972: Dim __ctrl As Global.System.Web.UI.WebControls.Label
Line 1973:
Line 1974:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",255)
Line 1975: __ctrl = New Global.System.Web.UI.WebControls.Label
Line 1976:
Line 1977: #End ExternalSource
Line 1978: Me.lblUpComingEvents = __ctrl
Line 1979: __ctrl.ApplyStyleSheetSkin(Me)
Line 1980:
Line 1981:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",255)
Line 1982: __ctrl.ID = "lblUpComingEvents"
Line 1983:
Line 1984: #End ExternalSource
Line 1985:
Line 1986:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",255)
Line 1987: __ctrl.Font.Size = New
System.Web.UI.WebControls.FontUnit(New System.Web.UI.WebControls.Unit(8,
System.Web.UI.WebControls.UnitType.Point))
Line 1988:
Line 1989: #End ExternalSource
Line 1990:
Line 1991:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",255)
Line 1992: __ctrl.Font.Bold = true
Line 1993:
Line 1994: #End ExternalSource
Line 1995:
Line 1996:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",255)
Line 1997: __ctrl.Text = "There are no Up Coming Events at this
Time"
Line 1998:
Line 1999: #End ExternalSource
Line 2000:
Line 2001:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",255)
Line 2002: __ctrl.Width = New System.Web.UI.WebControls.Unit(150,
System.Web.UI.WebControls.UnitType.Pixel)
Line 2003:
Line 2004: #End ExternalSource
Line 2005:
Line 2006:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",255)
Line 2007: __ctrl.Font.Name = "Verdena"
Line 2008:
Line 2009: #End ExternalSource
Line 2010: Return __ctrl
Line 2011: End Function
Line 2012:
Line 2013: Private Sub __BuildControl__control46(ByVal __ctrl As
System.Web.UI.WebControls.TableItemStyle)
Line 2014:
Line 2015:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",260)
Line 2016: __ctrl.BackColor = System.Drawing.Color.Cornsilk
Line 2017:
Line 2018: #End ExternalSource
Line 2019: End Sub
Line 2020:
Line 2021: Private Sub __BuildControl__control47(ByVal __ctrl As
System.Web.UI.WebControls.TableItemStyle)
Line 2022:
Line 2023:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",260)
Line 2024: __ctrl.Font.Size =
System.Web.UI.WebControls.FontUnit.XXSmall
Line 2025:
Line 2026: #End ExternalSource
Line 2027:
Line 2028:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",260)
Line 2029: __ctrl.Font.Names = New String() {"Verdana"}
Line 2030:
Line 2031: #End ExternalSource
Line 2032:
Line 2033:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",260)
Line 2034: __ctrl.BackColor = System.Drawing.Color.WhiteSmoke
Line 2035:
Line 2036: #End ExternalSource
Line 2037: End Sub
Line 2038:
Line 2039: Private Sub __BuildControl__control48(ByVal __ctrl As
System.Web.UI.WebControls.TableItemStyle)
Line 2040:
Line 2041:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",260)
Line 2042: __ctrl.Font.Names = New String() {"Wingdings
3"}
Line 2043:
Line 2044: #End ExternalSource
Line 2045: End Sub
Line 2046:
Line 2047: Private Sub __BuildControl__control49(ByVal __ctrl As
System.Web.UI.WebControls.TableItemStyle)
Line 2048:
Line 2049:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",260)
Line 2050: __ctrl.Font.Size =
System.Web.UI.WebControls.FontUnit.XXSmall
Line 2051:
Line 2052: #End ExternalSource
Line 2053:
Line 2054:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",260)
Line 2055: __ctrl.Font.Names = New String() {"Verdana"}
Line 2056:
Line 2057: #End ExternalSource
Line 2058:
Line 2059:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",260)
Line 2060: __ctrl.Font.Bold = true
Line 2061:
Line 2062: #End ExternalSource
Line 2063:
Line 2064:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",260)
Line 2065: __ctrl.ForeColor = System.Drawing.Color.Black
Line 2066:
Line 2067: #End ExternalSource
Line 2068: End Sub
Line 2069:
Line 2070: Private Sub __BuildControl__control50(ByVal __ctrl As
System.Web.UI.WebControls.TableItemStyle)
Line 2071:
Line 2072:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",260)
Line 2073: __ctrl.Font.Size =
System.Web.UI.WebControls.FontUnit.XXSmall
Line 2074:
Line 2075: #End ExternalSource
Line 2076:
Line 2077:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",260)
Line 2078: __ctrl.Font.Names = New String() {"Verdana"}
Line 2079:
Line 2080: #End ExternalSource
Line 2081:
Line 2082:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",260)
Line 2083: __ctrl.ForeColor = System.Drawing.Color.Cornsilk
Line 2084:
Line 2085: #End ExternalSource
Line 2086: End Sub
Line 2087:
Line 2088: Private Sub __BuildControl__control51(ByVal __ctrl As
System.Web.UI.WebControls.TableItemStyle)
Line 2089:
Line 2090:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",260)
Line 2091: __ctrl.Font.Size =
System.Web.UI.WebControls.FontUnit.XXSmall
Line 2092:
Line 2093: #End ExternalSource
Line 2094:
Line 2095:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",260)
Line 2096: __ctrl.Font.Names = New String() {"Verdana"}
Line 2097:
Line 2098: #End ExternalSource
Line 2099:
Line 2100:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",260)
Line 2101: __ctrl.Font.Bold = true
Line 2102:
Line 2103: #End ExternalSource
Line 2104:
Line 2105:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",260)
Line 2106: __ctrl.ForeColor = System.Drawing.Color.White
Line 2107:
Line 2108: #End ExternalSource
Line 2109: End Sub
Line 2110:
Line 2111: Private Function __BuildControlCal() As
Global.System.Web.UI.WebControls.Calendar
Line 2112: Dim __ctrl As Global.System.Web.UI.WebControls.Calendar
Line 2113:
Line 2114:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",260)
Line 2115: __ctrl = New Global.System.Web.UI.WebControls.Calendar
Line 2116:
Line 2117: #End ExternalSource
Line 2118: Me.Cal = __ctrl
Line 2119: __ctrl.ApplyStyleSheetSkin(Me)
Line 2120:
Line 2121:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",260)
Line 2122: __ctrl.ID = "Cal"
Line 2123:
Line 2124: #End ExternalSource
Line 2125:
Line 2126:
#ExternalSource("D:\app-data\Intranet\HRTraining\mycal.aspx",260)
Line 2127: __ctrl.Width = N |