Line 1: #ExternalChecksum("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx","{ff1816ec-aa5e-4d10-87f7-6f4963833460}","332DE4B7D7C8605A00BCDB089D903F2877BAE7D2")
Line 2: '------------------------------------------------------------------------------
Line 3: ' <auto-generated>
Line 4: ' This code was generated by a tool.
Line 5: ' Runtime Version:4.0.30319.42000
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 elGuille.Developer
Line 17: Imports Microsoft.VisualBasic
Line 18: Imports System
Line 19: Imports System.Collections
Line 20: Imports System.Collections.Generic
Line 21: Imports System.Collections.Specialized
Line 22: Imports System.ComponentModel.DataAnnotations
Line 23: Imports System.Configuration
Line 24: Imports System.Linq
Line 25: Imports System.Text
Line 26: Imports System.Text.RegularExpressions
Line 27: Imports System.Web
Line 28: Imports System.Web.Caching
Line 29: Imports System.Web.DynamicData
Line 30: Imports System.Web.Profile
Line 31: Imports System.Web.Security
Line 32: Imports System.Web.SessionState
Line 33: Imports System.Web.UI
Line 34: Imports System.Web.UI.HtmlControls
Line 35: Imports System.Web.UI.WebControls
Line 36: Imports System.Web.UI.WebControls.Expressions
Line 37: Imports System.Web.UI.WebControls.WebParts
Line 38: Imports System.Xml.Linq
Line 39:
Line 40: Namespace ASP
Line 41:
Line 42: <System.Runtime.CompilerServices.CompilerGlobalScopeAttribute()> _
Line 43: Public Class net_webservices_decsavb_web_aspx
Line 44: Inherits Global.System.Web.UI.Page
Line 45: Implements System.Web.SessionState.IRequiresSessionState, System.Web.IHttpHandler
Line 46:
Line 47:
Line 48: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",85)
Line 49: Protected WithEvents txtCS As Global.System.Web.UI.WebControls.TextBox
Line 50:
Line 51: #End ExternalSource
Line 52:
Line 53:
Line 54: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",110)
Line 55: Protected WithEvents btnConvertir As Global.System.Web.UI.WebControls.Button
Line 56:
Line 57: #End ExternalSource
Line 58:
Line 59:
Line 60: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",111)
Line 61: Protected WithEvents labelInfo As Global.System.Web.UI.WebControls.Label
Line 62:
Line 63: #End ExternalSource
Line 64:
Line 65:
Line 66: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",115)
Line 67: Protected WithEvents txtVB As Global.System.Web.UI.WebControls.TextBox
Line 68:
Line 69: #End ExternalSource
Line 70:
Line 71:
Line 72: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",123)
Line 73: Protected WithEvents lblInfoVersion As Global.System.Web.UI.WebControls.Label
Line 74:
Line 75: #End ExternalSource
Line 76:
Line 77: Private Shared __initialized As Boolean
Line 78:
Line 79: Private Shared __stringResource As Object
Line 80:
Line 81: Private Shared __fileDependencies As Object
Line 82:
Line 83:
Line 84: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",4)
Line 85:
Line 86: ' Convertir de C# a Visual Basic usando la dll deCSaVB (14/Jun/07)
Line 87: Protected Sub btnConvertir_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Line 88: Dim conv As New deCSaVB
Line 89:
Line 90: Me.labelInfo.Text = "convirtiendo el código..."
Line 91: Try
Line 92: Me.txtVB.Text = conv.Convertir(Me.txtCS.Text)
Line 93: Me.labelInfo.Text = "Texto convertido de C# a Visual Basic"
Line 94: Catch ex As Exception
Line 95: Me.labelInfo.Text = "Error al convertir el texto... comunicaselo al Guille"
Line 96: Me.txtVB.Text = "ERROR" & vbCrLf & ex.Message
Line 97: End Try
Line 98: End Sub
Line 99:
Line 100: #End ExternalSource
Line 101:
Line 102:
Line 103: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 104: Public Sub New()
Line 105: MyBase.New
Line 106: Dim dependencies() As String
Line 107: CType(Me,Global.System.Web.UI.Page).AppRelativeVirtualPath = "~/NET/WebServices/deCSaVB_web.aspx"
Line 108: If (Global.ASP.net_webservices_decsavb_web_aspx.__initialized = false) Then
Line 109: Global.ASP.net_webservices_decsavb_web_aspx.__stringResource = Me.ReadStringResource
Line 110: dependencies = New String(2) {}
Line 111: dependencies(0) = "~/NET/WebServices/deCSaVB_web.aspx"
Line 112: dependencies(1) = "~/elGuilleMain.master"
Line 113: dependencies(2) = "~/NET/net.master"
Line 114: Global.ASP.net_webservices_decsavb_web_aspx.__fileDependencies = Me.GetWrappedFileDependencies(dependencies)
Line 115: Global.ASP.net_webservices_decsavb_web_aspx.__initialized = true
Line 116: End If
Line 117: Me.Server.ScriptTimeout = 30000000
Line 118: End Sub
Line 119:
Line 120: Protected ReadOnly Property Profile() As System.Web.Profile.DefaultProfile
Line 121: Get
Line 122: Return CType(Me.Context.Profile,System.Web.Profile.DefaultProfile)
Line 123: End Get
Line 124: End Property
Line 125:
Line 126: Protected Overrides ReadOnly Property SupportAutoEvents() As Boolean
Line 127: Get
Line 128: Return false
Line 129: End Get
Line 130: End Property
Line 131:
Line 132: Protected ReadOnly Property ApplicationInstance() As System.Web.HttpApplication
Line 133: Get
Line 134: Return CType(Me.Context.ApplicationInstance,System.Web.HttpApplication)
Line 135: End Get
Line 136: End Property
Line 137:
Line 138: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 139: Private Sub __BuildControlhead(ByVal __ctrl As System.Web.UI.Control)
Line 140: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 141:
Line 142: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",20)
Line 143: __parser.AddParsedSubObject(Me.CreateResourceBasedLiteralControl(0, 689, false))
Line 144:
Line 145: #End ExternalSource
Line 146: End Sub
Line 147:
Line 148: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 149: Private Sub __BuildControlContent1(ByVal __ctrl As System.Web.UI.Control)
Line 150: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 151:
Line 152: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",39)
Line 153: __parser.AddParsedSubObject(Me.CreateResourceBasedLiteralControl(689, 1265, false))
Line 154:
Line 155: #End ExternalSource
Line 156: End Sub
Line 157:
Line 158: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 159: Private Sub __BuildControlContent5(ByVal __ctrl As System.Web.UI.Control)
Line 160: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 161:
Line 162: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",75)
Line 163: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<div class=""colorClaro"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<script language=""javascript"" type=""text/javascript"" "& _
Line 164: "src=""../../elGuille.js""></script>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)))
Line 165:
Line 166: #End ExternalSource
Line 167: End Sub
Line 168:
Line 169: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 170: Private Function __BuildControltxtCS() As Global.System.Web.UI.WebControls.TextBox
Line 171: Dim __ctrl As Global.System.Web.UI.WebControls.TextBox
Line 172:
Line 173: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",85)
Line 174: __ctrl = New Global.System.Web.UI.WebControls.TextBox()
Line 175:
Line 176: #End ExternalSource
Line 177: Me.txtCS = __ctrl
Line 178: __ctrl.TemplateControl = Me
Line 179: __ctrl.ApplyStyleSheetSkin(Me)
Line 180:
Line 181: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",85)
Line 182: __ctrl.ID = "txtCS"
Line 183:
Line 184: #End ExternalSource
Line 185:
Line 186: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",85)
Line 187: __ctrl.Columns = 80
Line 188:
Line 189: #End ExternalSource
Line 190:
Line 191: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",85)
Line 192: __ctrl.Rows = 10
Line 193:
Line 194: #End ExternalSource
Line 195:
Line 196: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",85)
Line 197: __ctrl.TextMode = Global.System.Web.UI.WebControls.TextBoxMode.MultiLine
Line 198:
Line 199: #End ExternalSource
Line 200:
Line 201: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",85)
Line 202: __ctrl.Wrap = false
Line 203:
Line 204: #End ExternalSource
Line 205:
Line 206: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",85)
Line 207: __ctrl.Font.Names = New String() {"Courier New"}
Line 208:
Line 209: #End ExternalSource
Line 210:
Line 211: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",85)
Line 212: __ctrl.Text = ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"public string TextoEtiqueta"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"{"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" get"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" {"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" return this.Label1.Text"& _
Line 213: ";"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" }"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" set"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" {"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" this.Label1.Text = value;"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" }"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"}"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"// Es"& _
Line 214: "to no lo convertiría bien (sin los comentarios)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"// [Description(""Texto de la "& _
Line 215: "etiqueta superior""), Browsable(true)]"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"// public string TextoEtiqueta {"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"// "& _
Line 216: " get{"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"// return this.Label1.Text;"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"// }"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"// "& _
Line 217: "set{"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"// this.Label1.Text = value;"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"// }"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"// } "
Line 218:
Line 219: #End ExternalSource
Line 220: Return __ctrl
Line 221: End Function
Line 222:
Line 223: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 224: Private Function __BuildControlbtnConvertir() As Global.System.Web.UI.WebControls.Button
Line 225: Dim __ctrl As Global.System.Web.UI.WebControls.Button
Line 226:
Line 227: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",110)
Line 228: __ctrl = New Global.System.Web.UI.WebControls.Button()
Line 229:
Line 230: #End ExternalSource
Line 231: Me.btnConvertir = __ctrl
Line 232: __ctrl.TemplateControl = Me
Line 233: __ctrl.ApplyStyleSheetSkin(Me)
Line 234:
Line 235: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",110)
Line 236: __ctrl.ID = "btnConvertir"
Line 237:
Line 238: #End ExternalSource
Line 239:
Line 240: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",110)
Line 241: __ctrl.Text = "Convertir"
Line 242:
Line 243: #End ExternalSource
Line 244:
Line 245: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",110)
Line 246: __ctrl.ToolTip = "Convertir de C# a VB"
Line 247:
Line 248: #End ExternalSource
Line 249:
Line 250: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",110)
Line 251: AddHandler __ctrl.Click, AddressOf Me.btnConvertir_Click
Line 252:
Line 253: #End ExternalSource
Line 254: Return __ctrl
Line 255: End Function
Line 256:
Line 257: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 258: Private Function __BuildControllabelInfo() As Global.System.Web.UI.WebControls.Label
Line 259: Dim __ctrl As Global.System.Web.UI.WebControls.Label
Line 260:
Line 261: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",111)
Line 262: __ctrl = New Global.System.Web.UI.WebControls.Label()
Line 263:
Line 264: #End ExternalSource
Line 265: Me.labelInfo = __ctrl
Line 266: __ctrl.TemplateControl = Me
Line 267: __ctrl.ApplyStyleSheetSkin(Me)
Line 268:
Line 269: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",111)
Line 270: __ctrl.ID = "labelInfo"
Line 271:
Line 272: #End ExternalSource
Line 273:
Line 274: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",111)
Line 275: __ctrl.Text = "Pega el código a convertir y pulsa en el botón para convertir de C# a VB"
Line 276:
Line 277: #End ExternalSource
Line 278:
Line 279: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",111)
Line 280: __ctrl.ForeColor = Global.System.Drawing.Color.DarkGreen
Line 281:
Line 282: #End ExternalSource
Line 283: Return __ctrl
Line 284: End Function
Line 285:
Line 286: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 287: Private Function __BuildControltxtVB() As Global.System.Web.UI.WebControls.TextBox
Line 288: Dim __ctrl As Global.System.Web.UI.WebControls.TextBox
Line 289:
Line 290: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",115)
Line 291: __ctrl = New Global.System.Web.UI.WebControls.TextBox()
Line 292:
Line 293: #End ExternalSource
Line 294: Me.txtVB = __ctrl
Line 295: __ctrl.TemplateControl = Me
Line 296: __ctrl.ApplyStyleSheetSkin(Me)
Line 297:
Line 298: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",115)
Line 299: __ctrl.ID = "txtVB"
Line 300:
Line 301: #End ExternalSource
Line 302:
Line 303: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",115)
Line 304: __ctrl.Columns = 84
Line 305:
Line 306: #End ExternalSource
Line 307:
Line 308: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",115)
Line 309: __ctrl.ReadOnly = true
Line 310:
Line 311: #End ExternalSource
Line 312:
Line 313: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",115)
Line 314: __ctrl.Rows = 10
Line 315:
Line 316: #End ExternalSource
Line 317:
Line 318: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",115)
Line 319: __ctrl.TextMode = Global.System.Web.UI.WebControls.TextBoxMode.MultiLine
Line 320:
Line 321: #End ExternalSource
Line 322:
Line 323: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",115)
Line 324: __ctrl.Wrap = false
Line 325:
Line 326: #End ExternalSource
Line 327:
Line 328: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",115)
Line 329: __ctrl.Font.Names = New String() {"Courier New"}
Line 330:
Line 331: #End ExternalSource
Line 332: Return __ctrl
Line 333: End Function
Line 334:
Line 335: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 336: Private Function __BuildControllblInfoVersion() As Global.System.Web.UI.WebControls.Label
Line 337: Dim __ctrl As Global.System.Web.UI.WebControls.Label
Line 338:
Line 339: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",123)
Line 340: __ctrl = New Global.System.Web.UI.WebControls.Label()
Line 341:
Line 342: #End ExternalSource
Line 343: Me.lblInfoVersion = __ctrl
Line 344: __ctrl.TemplateControl = Me
Line 345: __ctrl.ApplyStyleSheetSkin(Me)
Line 346:
Line 347: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",123)
Line 348: __ctrl.ID = "lblInfoVersion"
Line 349:
Line 350: #End ExternalSource
Line 351: __ctrl.SetRenderMethodDelegate(AddressOf Me.__RenderlblInfoVersion)
Line 352: Return __ctrl
Line 353: End Function
Line 354:
Line 355: Private Sub __RenderlblInfoVersion(ByVal __w As System.Web.UI.HtmlTextWriter, ByVal parameterContainer As System.Web.UI.Control)
Line 356: __w.Write("Versión de la DLL: v")
Line 357:
Line 358: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",123)
Line 359: __w.Write(deCSaVB.Version)
Line 360:
Line 361:
Line 362: #End ExternalSource
Line 363: End Sub
Line 364:
Line 365: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 366: Private Sub __BuildControlContent2(ByVal __ctrl As System.Web.UI.Control)
Line 367: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 368:
Line 369: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",81)
Line 370: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<div class=""tituloDiv"">Convertir de C# a Visual Basic .NET</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<div class=""c"& _
Line 371: "ontenidoDiv"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<strong>Código de C# a convertir:</strong><br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)))
Line 372:
Line 373: #End ExternalSource
Line 374: Dim __ctrl1 As Global.System.Web.UI.WebControls.TextBox
Line 375:
Line 376: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",81)
Line 377: __ctrl1 = Me.__BuildControltxtCS
Line 378:
Line 379: #End ExternalSource
Line 380:
Line 381: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",81)
Line 382: __parser.AddParsedSubObject(__ctrl1)
Line 383:
Line 384: #End ExternalSource
Line 385:
Line 386: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",81)
Line 387: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)))
Line 388:
Line 389: #End ExternalSource
Line 390: Dim __ctrl2 As Global.System.Web.UI.WebControls.Button
Line 391:
Line 392: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",81)
Line 393: __ctrl2 = Me.__BuildControlbtnConvertir
Line 394:
Line 395: #End ExternalSource
Line 396:
Line 397: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",81)
Line 398: __parser.AddParsedSubObject(__ctrl2)
Line 399:
Line 400: #End ExternalSource
Line 401:
Line 402: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",81)
Line 403: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl("<br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)))
Line 404:
Line 405: #End ExternalSource
Line 406: Dim __ctrl3 As Global.System.Web.UI.WebControls.Label
Line 407:
Line 408: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",81)
Line 409: __ctrl3 = Me.__BuildControllabelInfo
Line 410:
Line 411: #End ExternalSource
Line 412:
Line 413: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",81)
Line 414: __parser.AddParsedSubObject(__ctrl3)
Line 415:
Line 416: #End ExternalSource
Line 417:
Line 418: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",81)
Line 419: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl("<br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<strong>Código de Visual Basic convertido:</strong><br />"& _
Line 420: ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)))
Line 421:
Line 422: #End ExternalSource
Line 423: Dim __ctrl4 As Global.System.Web.UI.WebControls.TextBox
Line 424:
Line 425: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",81)
Line 426: __ctrl4 = Me.__BuildControltxtVB
Line 427:
Line 428: #End ExternalSource
Line 429:
Line 430: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",81)
Line 431: __parser.AddParsedSubObject(__ctrl4)
Line 432:
Line 433: #End ExternalSource
Line 434:
Line 435: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",81)
Line 436: __parser.AddParsedSubObject(Me.CreateResourceBasedLiteralControl(1954, 276, false))
Line 437:
Line 438: #End ExternalSource
Line 439: Dim __ctrl5 As Global.System.Web.UI.WebControls.Label
Line 440:
Line 441: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",81)
Line 442: __ctrl5 = Me.__BuildControllblInfoVersion
Line 443:
Line 444: #End ExternalSource
Line 445:
Line 446: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",81)
Line 447: __parser.AddParsedSubObject(__ctrl5)
Line 448:
Line 449: #End ExternalSource
Line 450:
Line 451: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",81)
Line 452: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<hr />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Usa este enlace si quieres <a href=""deVBaCS_web.aspx""><strong>c"& _
Line 453: "onvertir de Visual Basic a C#</strong></a> desde la página Web. <br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _
Line 454: "</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)))
Line 455:
Line 456: #End ExternalSource
Line 457: End Sub
Line 458:
Line 459: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 460: Private Sub __BuildControlContent3(ByVal __ctrl As System.Web.UI.Control)
Line 461: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 462:
Line 463: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",130)
Line 464: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)))
Line 465:
Line 466: #End ExternalSource
Line 467: End Sub
Line 468:
Line 469: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 470: Private Sub __BuildControlTree(ByVal __ctrl As net_webservices_decsavb_web_aspx)
Line 471:
Line 472: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",1)
Line 473: __ctrl.MasterPageFile = "../net.master"
Line 474:
Line 475: #End ExternalSource
Line 476:
Line 477: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",1)
Line 478: __ctrl.Title = "Convertir de C# a Visual Basic (página Web)"
Line 479:
Line 480: #End ExternalSource
Line 481:
Line 482: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",1)
Line 483: Me.InitializeCulture
Line 484:
Line 485: #End ExternalSource
Line 486:
Line 487: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",20)
Line 488: Me.AddContentTemplate("head", New System.Web.UI.CompiledTemplateBuilder(AddressOf Me.__BuildControlhead))
Line 489:
Line 490: #End ExternalSource
Line 491:
Line 492: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",39)
Line 493: Me.AddContentTemplate("cphTitulo", New System.Web.UI.CompiledTemplateBuilder(AddressOf Me.__BuildControlContent1))
Line 494:
Line 495: #End ExternalSource
Line 496:
Line 497: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",75)
Line 498: Me.AddContentTemplate("cphAnuncios", New System.Web.UI.CompiledTemplateBuilder(AddressOf Me.__BuildControlContent5))
Line 499:
Line 500: #End ExternalSource
Line 501:
Line 502: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",81)
Line 503: Me.AddContentTemplate("cphBody", New System.Web.UI.CompiledTemplateBuilder(AddressOf Me.__BuildControlContent2))
Line 504:
Line 505: #End ExternalSource
Line 506:
Line 507: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",130)
Line 508: Me.AddContentTemplate("cphZIP", New System.Web.UI.CompiledTemplateBuilder(AddressOf Me.__BuildControlContent3))
Line 509:
Line 510: #End ExternalSource
Line 511: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 512:
Line 513: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",1)
Line 514: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)))
Line 515:
Line 516: #End ExternalSource
Line 517:
Line 518: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",1)
Line 519: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)))
Line 520:
Line 521: #End ExternalSource
Line 522:
Line 523: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",1)
Line 524: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)))
Line 525:
Line 526: #End ExternalSource
Line 527:
Line 528: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",1)
Line 529: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)))
Line 530:
Line 531: #End ExternalSource
Line 532:
Line 533: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deCSaVB_web.aspx",1)
Line 534: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)))
Line 535:
Line 536: #End ExternalSource
Line 537: End Sub
Line 538:
Line 539: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 540: Protected Overrides Sub FrameworkInitialize()
Line 541: MyBase.FrameworkInitialize
Line 542: Me.SetStringResourcePointer(Global.ASP.net_webservices_decsavb_web_aspx.__stringResource, 0)
Line 543: Me.__BuildControlTree(Me)
Line 544: Me.AddWrappedFileDependencies(Global.ASP.net_webservices_decsavb_web_aspx.__fileDependencies)
Line 545: Me.ValidateRequestMode = System.Web.UI.ValidateRequestMode.Disabled
Line 546: End Sub
Line 547:
Line 548: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 549: Public Overrides Function GetTypeHashCode() As Integer
Line 550: Return -1351982849
Line 551: End Function
Line 552:
Line 553: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 554: Public Overrides Sub ProcessRequest(ByVal context As System.Web.HttpContext)
Line 555: MyBase.ProcessRequest(context)
Line 556: End Sub
Line 557: End Class
Line 558: End Namespace
Line 559:
|