Line 1: #ExternalChecksum("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deVBaCS_web.aspx","{ff1816ec-aa5e-4d10-87f7-6f4963833460}","9A85913C28FDFE21E1060B19AD3908042B1DB6CB")
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_devbacs_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\deVBaCS_web.aspx",91)
Line 49: Protected WithEvents txtVB 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\deVBaCS_web.aspx",117)
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\deVBaCS_web.aspx",118)
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\deVBaCS_web.aspx",123)
Line 67: Protected WithEvents txtCS 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\deVBaCS_web.aspx",134)
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\deVBaCS_web.aspx",5)
Line 85:
Line 86: ' Convertir de Visual Basic a C# usando la dll deVBaCS (21/Jun/07)
Line 87: Protected Sub btnConvertir_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Line 88: Dim conv As New deVBaCS
Line 89:
Line 90: Me.labelInfo.Text = "convirtiendo el código..."
Line 91: Try
Line 92: Me.txtCS.Text = conv.Convertir(Me.txtVB.Text)
Line 93: Me.labelInfo.Text = "Texto convertido de Visual Basic a C#"
Line 94: Catch ex As Exception
Line 95: Me.labelInfo.Text = "Error al convertir el texto... comunicaselo al Guille"
Line 96: Me.txtCS.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/deVBaCS_web.aspx"
Line 108: If (Global.ASP.net_webservices_devbacs_web_aspx.__initialized = false) Then
Line 109: Global.ASP.net_webservices_devbacs_web_aspx.__stringResource = Me.ReadStringResource
Line 110: dependencies = New String(2) {}
Line 111: dependencies(0) = "~/NET/WebServices/deVBaCS_web.aspx"
Line 112: dependencies(1) = "~/elGuilleMain.master"
Line 113: dependencies(2) = "~/Net/net.master"
Line 114: Global.ASP.net_webservices_devbacs_web_aspx.__fileDependencies = Me.GetWrappedFileDependencies(dependencies)
Line 115: Global.ASP.net_webservices_devbacs_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\deVBaCS_web.aspx",21)
Line 143: __parser.AddParsedSubObject(Me.CreateResourceBasedLiteralControl(0, 823, 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\deVBaCS_web.aspx",45)
Line 153: __parser.AddParsedSubObject(Me.CreateResourceBasedLiteralControl(823, 1247, 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\deVBaCS_web.aspx",81)
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 __BuildControltxtVB() 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\deVBaCS_web.aspx",91)
Line 174: __ctrl = New Global.System.Web.UI.WebControls.TextBox()
Line 175:
Line 176: #End ExternalSource
Line 177: Me.txtVB = __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\deVBaCS_web.aspx",91)
Line 182: __ctrl.ID = "txtVB"
Line 183:
Line 184: #End ExternalSource
Line 185:
Line 186: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deVBaCS_web.aspx",91)
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\deVBaCS_web.aspx",91)
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\deVBaCS_web.aspx",91)
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\deVBaCS_web.aspx",91)
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\deVBaCS_web.aspx",91)
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\deVBaCS_web.aspx",91)
Line 212: __ctrl.Text = ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Dim lista As New List(Of String)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"For Each s As String In lista"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" Console.Wr"& _
Line 213: "iteLine(s)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Next"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Dim k As Colega = CType(algo, Colega)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Dim k As Colega = Dir"& _
Line 214: "ectCast(algo, Colega)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Dim j = TryCast(algo, Colega)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Dim n = 10"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Private It"& _
Line 215: "erator Function Iterador() As IEnumerable(Of Integer)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" Yield 100"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" For i ="& _
Line 216: " 1 to 10"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" Yield i"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" Next"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"End Function"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Private Async Function Leer"& _
Line 217: "CodigoAsync() As Task(Of String)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" Dim s = Await LeerContenidoFicheroAsync(sP"& _
Line 218: "ath)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" Return s"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"End Function"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"'(pega el código de Visual Basic .NET que "& _
Line 219: "quieres convertir a C#)"
Line 220:
Line 221: #End ExternalSource
Line 222: Return __ctrl
Line 223: End Function
Line 224:
Line 225: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 226: Private Function __BuildControlbtnConvertir() As Global.System.Web.UI.WebControls.Button
Line 227: Dim __ctrl As Global.System.Web.UI.WebControls.Button
Line 228:
Line 229: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deVBaCS_web.aspx",117)
Line 230: __ctrl = New Global.System.Web.UI.WebControls.Button()
Line 231:
Line 232: #End ExternalSource
Line 233: Me.btnConvertir = __ctrl
Line 234: __ctrl.TemplateControl = Me
Line 235: __ctrl.ApplyStyleSheetSkin(Me)
Line 236:
Line 237: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deVBaCS_web.aspx",117)
Line 238: __ctrl.ID = "btnConvertir"
Line 239:
Line 240: #End ExternalSource
Line 241:
Line 242: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deVBaCS_web.aspx",117)
Line 243: __ctrl.Text = "Convertir"
Line 244:
Line 245: #End ExternalSource
Line 246:
Line 247: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deVBaCS_web.aspx",117)
Line 248: __ctrl.ToolTip = "Convertir de VB a C#"
Line 249:
Line 250: #End ExternalSource
Line 251:
Line 252: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deVBaCS_web.aspx",117)
Line 253: AddHandler __ctrl.Click, AddressOf Me.btnConvertir_Click
Line 254:
Line 255: #End ExternalSource
Line 256: Return __ctrl
Line 257: End Function
Line 258:
Line 259: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 260: Private Function __BuildControllabelInfo() As Global.System.Web.UI.WebControls.Label
Line 261: Dim __ctrl As Global.System.Web.UI.WebControls.Label
Line 262:
Line 263: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deVBaCS_web.aspx",118)
Line 264: __ctrl = New Global.System.Web.UI.WebControls.Label()
Line 265:
Line 266: #End ExternalSource
Line 267: Me.labelInfo = __ctrl
Line 268: __ctrl.TemplateControl = Me
Line 269: __ctrl.ApplyStyleSheetSkin(Me)
Line 270:
Line 271: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deVBaCS_web.aspx",118)
Line 272: __ctrl.ID = "labelInfo"
Line 273:
Line 274: #End ExternalSource
Line 275:
Line 276: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deVBaCS_web.aspx",118)
Line 277: __ctrl.Text = "Pega el código a convertir y pulsa en el botón para convertir de VB a C#"
Line 278:
Line 279: #End ExternalSource
Line 280:
Line 281: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deVBaCS_web.aspx",118)
Line 282: __ctrl.ForeColor = Global.System.Drawing.Color.DarkGreen
Line 283:
Line 284: #End ExternalSource
Line 285: Return __ctrl
Line 286: End Function
Line 287:
Line 288: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 289: Private Function __BuildControltxtCS() As Global.System.Web.UI.WebControls.TextBox
Line 290: Dim __ctrl As Global.System.Web.UI.WebControls.TextBox
Line 291:
Line 292: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deVBaCS_web.aspx",123)
Line 293: __ctrl = New Global.System.Web.UI.WebControls.TextBox()
Line 294:
Line 295: #End ExternalSource
Line 296: Me.txtCS = __ctrl
Line 297: __ctrl.TemplateControl = Me
Line 298: __ctrl.ApplyStyleSheetSkin(Me)
Line 299:
Line 300: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deVBaCS_web.aspx",123)
Line 301: __ctrl.ID = "txtCS"
Line 302:
Line 303: #End ExternalSource
Line 304:
Line 305: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deVBaCS_web.aspx",123)
Line 306: __ctrl.Columns = 84
Line 307:
Line 308: #End ExternalSource
Line 309:
Line 310: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deVBaCS_web.aspx",123)
Line 311: __ctrl.ReadOnly = true
Line 312:
Line 313: #End ExternalSource
Line 314:
Line 315: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deVBaCS_web.aspx",123)
Line 316: __ctrl.Rows = 10
Line 317:
Line 318: #End ExternalSource
Line 319:
Line 320: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deVBaCS_web.aspx",123)
Line 321: __ctrl.TextMode = Global.System.Web.UI.WebControls.TextBoxMode.MultiLine
Line 322:
Line 323: #End ExternalSource
Line 324:
Line 325: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deVBaCS_web.aspx",123)
Line 326: __ctrl.Wrap = false
Line 327:
Line 328: #End ExternalSource
Line 329:
Line 330: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deVBaCS_web.aspx",123)
Line 331: __ctrl.Font.Names = New String() {"Courier New"}
Line 332:
Line 333: #End ExternalSource
Line 334:
Line 335: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deVBaCS_web.aspx",123)
Line 336: __ctrl.Text = "(aquí se mostrará el código convertido)"
Line 337:
Line 338: #End ExternalSource
Line 339: Return __ctrl
Line 340: End Function
Line 341:
Line 342: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 343: Private Function __BuildControllblInfoVersion() As Global.System.Web.UI.WebControls.Label
Line 344: Dim __ctrl As Global.System.Web.UI.WebControls.Label
Line 345:
Line 346: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deVBaCS_web.aspx",134)
Line 347: __ctrl = New Global.System.Web.UI.WebControls.Label()
Line 348:
Line 349: #End ExternalSource
Line 350: Me.lblInfoVersion = __ctrl
Line 351: __ctrl.TemplateControl = Me
Line 352: __ctrl.ApplyStyleSheetSkin(Me)
Line 353:
Line 354: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deVBaCS_web.aspx",134)
Line 355: __ctrl.ID = "lblInfoVersion"
Line 356:
Line 357: #End ExternalSource
Line 358: __ctrl.SetRenderMethodDelegate(AddressOf Me.__RenderlblInfoVersion)
Line 359: Return __ctrl
Line 360: End Function
Line 361:
Line 362: Private Sub __RenderlblInfoVersion(ByVal __w As System.Web.UI.HtmlTextWriter, ByVal parameterContainer As System.Web.UI.Control)
Line 363: __w.Write("Versión de la DLL: v")
Line 364:
Line 365: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deVBaCS_web.aspx",134)
Line 366: __w.Write(deVBaCS.Version)
Line 367:
Line 368:
Line 369: #End ExternalSource
Line 370: End Sub
Line 371:
Line 372: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 373: Private Sub __BuildControlContent2(ByVal __ctrl As System.Web.UI.Control)
Line 374: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 375:
Line 376: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deVBaCS_web.aspx",87)
Line 377: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<div class=""tituloDiv"">Convertir de Visual Basic .NET a C# </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<div cl"& _
Line 378: "ass=""contenidoDiv"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<strong>Código de Visual Basic a convertir:</strong><br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)))
Line 379:
Line 380: #End ExternalSource
Line 381: Dim __ctrl1 As Global.System.Web.UI.WebControls.TextBox
Line 382:
Line 383: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deVBaCS_web.aspx",87)
Line 384: __ctrl1 = Me.__BuildControltxtVB
Line 385:
Line 386: #End ExternalSource
Line 387:
Line 388: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deVBaCS_web.aspx",87)
Line 389: __parser.AddParsedSubObject(__ctrl1)
Line 390:
Line 391: #End ExternalSource
Line 392:
Line 393: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deVBaCS_web.aspx",87)
Line 394: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)))
Line 395:
Line 396: #End ExternalSource
Line 397: Dim __ctrl2 As Global.System.Web.UI.WebControls.Button
Line 398:
Line 399: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deVBaCS_web.aspx",87)
Line 400: __ctrl2 = Me.__BuildControlbtnConvertir
Line 401:
Line 402: #End ExternalSource
Line 403:
Line 404: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deVBaCS_web.aspx",87)
Line 405: __parser.AddParsedSubObject(__ctrl2)
Line 406:
Line 407: #End ExternalSource
Line 408:
Line 409: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deVBaCS_web.aspx",87)
Line 410: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl("<br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)))
Line 411:
Line 412: #End ExternalSource
Line 413: Dim __ctrl3 As Global.System.Web.UI.WebControls.Label
Line 414:
Line 415: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deVBaCS_web.aspx",87)
Line 416: __ctrl3 = Me.__BuildControllabelInfo
Line 417:
Line 418: #End ExternalSource
Line 419:
Line 420: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deVBaCS_web.aspx",87)
Line 421: __parser.AddParsedSubObject(__ctrl3)
Line 422:
Line 423: #End ExternalSource
Line 424:
Line 425: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deVBaCS_web.aspx",87)
Line 426: __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 C# convertido:</strong><br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)))
Line 427:
Line 428: #End ExternalSource
Line 429: Dim __ctrl4 As Global.System.Web.UI.WebControls.TextBox
Line 430:
Line 431: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deVBaCS_web.aspx",87)
Line 432: __ctrl4 = Me.__BuildControltxtCS
Line 433:
Line 434: #End ExternalSource
Line 435:
Line 436: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deVBaCS_web.aspx",87)
Line 437: __parser.AddParsedSubObject(__ctrl4)
Line 438:
Line 439: #End ExternalSource
Line 440:
Line 441: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deVBaCS_web.aspx",87)
Line 442: __parser.AddParsedSubObject(Me.CreateResourceBasedLiteralControl(2070, 300, false))
Line 443:
Line 444: #End ExternalSource
Line 445: Dim __ctrl5 As Global.System.Web.UI.WebControls.Label
Line 446:
Line 447: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deVBaCS_web.aspx",87)
Line 448: __ctrl5 = Me.__BuildControllblInfoVersion
Line 449:
Line 450: #End ExternalSource
Line 451:
Line 452: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deVBaCS_web.aspx",87)
Line 453: __parser.AddParsedSubObject(__ctrl5)
Line 454:
Line 455: #End ExternalSource
Line 456:
Line 457: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deVBaCS_web.aspx",87)
Line 458: __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=""deCSaVB_web.aspx""><strong>c"& _
Line 459: "onvertir de C# a "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"Visual Basic</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)&"</div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)))
Line 460:
Line 461: #End ExternalSource
Line 462: End Sub
Line 463:
Line 464: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 465: Private Sub __BuildControlContent3(ByVal __ctrl As System.Web.UI.Control)
Line 466: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 467:
Line 468: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deVBaCS_web.aspx",142)
Line 469: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)))
Line 470:
Line 471: #End ExternalSource
Line 472: End Sub
Line 473:
Line 474: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 475: Private Sub __BuildControlTree(ByVal __ctrl As net_webservices_devbacs_web_aspx)
Line 476:
Line 477: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deVBaCS_web.aspx",1)
Line 478: __ctrl.MasterPageFile = "../net.master"
Line 479:
Line 480: #End ExternalSource
Line 481:
Line 482: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deVBaCS_web.aspx",1)
Line 483: __ctrl.Title = "Convertir de Visual Basic .NET a C# (página Web)"
Line 484:
Line 485: #End ExternalSource
Line 486:
Line 487: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deVBaCS_web.aspx",1)
Line 488: Me.InitializeCulture
Line 489:
Line 490: #End ExternalSource
Line 491:
Line 492: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deVBaCS_web.aspx",21)
Line 493: Me.AddContentTemplate("head", New System.Web.UI.CompiledTemplateBuilder(AddressOf Me.__BuildControlhead))
Line 494:
Line 495: #End ExternalSource
Line 496:
Line 497: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deVBaCS_web.aspx",45)
Line 498: Me.AddContentTemplate("cphTitulo", New System.Web.UI.CompiledTemplateBuilder(AddressOf Me.__BuildControlContent1))
Line 499:
Line 500: #End ExternalSource
Line 501:
Line 502: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deVBaCS_web.aspx",81)
Line 503: Me.AddContentTemplate("cphAnuncios", New System.Web.UI.CompiledTemplateBuilder(AddressOf Me.__BuildControlContent5))
Line 504:
Line 505: #End ExternalSource
Line 506:
Line 507: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deVBaCS_web.aspx",87)
Line 508: Me.AddContentTemplate("cphBody", New System.Web.UI.CompiledTemplateBuilder(AddressOf Me.__BuildControlContent2))
Line 509:
Line 510: #End ExternalSource
Line 511:
Line 512: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deVBaCS_web.aspx",142)
Line 513: Me.AddContentTemplate("cphZIP", New System.Web.UI.CompiledTemplateBuilder(AddressOf Me.__BuildControlContent3))
Line 514:
Line 515: #End ExternalSource
Line 516: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 517:
Line 518: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deVBaCS_web.aspx",1)
Line 519: __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 520:
Line 521: #End ExternalSource
Line 522:
Line 523: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deVBaCS_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\deVBaCS_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\deVBaCS_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:
Line 538: #ExternalSource("C:\Inetpub\vhosts\40881439.servicio-online.net\elguille.info\NET\WebServices\deVBaCS_web.aspx",1)
Line 539: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)))
Line 540:
Line 541: #End ExternalSource
Line 542: End Sub
Line 543:
Line 544: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 545: Protected Overrides Sub FrameworkInitialize()
Line 546: MyBase.FrameworkInitialize
Line 547: Me.SetStringResourcePointer(Global.ASP.net_webservices_devbacs_web_aspx.__stringResource, 0)
Line 548: Me.__BuildControlTree(Me)
Line 549: Me.AddWrappedFileDependencies(Global.ASP.net_webservices_devbacs_web_aspx.__fileDependencies)
Line 550: Me.ValidateRequestMode = System.Web.UI.ValidateRequestMode.Disabled
Line 551: End Sub
Line 552:
Line 553: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 554: Public Overrides Function GetTypeHashCode() As Integer
Line 555: Return -73443937
Line 556: End Function
Line 557:
Line 558: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 559: Public Overrides Sub ProcessRequest(ByVal context As System.Web.HttpContext)
Line 560: MyBase.ProcessRequest(context)
Line 561: End Sub
Line 562: End Class
Line 563: End Namespace
Line 564:
|