Windows Presentation Foundation



Primeros pasos en Silverlight

He aquí los primeros pasos para comenzar a usar Silverlight , la nueva herramienta de Microsoft orientada al diseño web.

Silverlight 1.0
Runtime:
Microsoft Silverlight 1.0 :
Herramientas:
Microsoft Visual Studio 2005. Instalando el SDK siguiente se añaden nuevas plantillas de proyectos para Silverlight.
SDK:
Microsoft Silverlight 1.0 Software Development Kit. Contiene Dcumentación, ejemplos y los templates para el Visual Studio 2005.

Silverlight 1.1
Runtime:
Microsoft Silverlight 1.1 Alpha
Herramientas:

Todas las versiones del Visual Studio 2008 soportan el XAML y el Silverlight 1.1
SDK:
Microsoft Silverlight 1.1 Software Development Kit Alpha September Refresh.

Subiendo imágenes en ASP.NET

Aquí les paso el código de una clase que hice para subir imagenes a un servidor en formato jpg,jpeg y gif:


Imports Microsoft.VisualBasic
Public Class Upload
#Region "Variables de Clase"
Dim extensiones() As String = {"jpg", "jpeg", "gif"}
Dim tamaño As Double
Const size As Integer = 50
Public control As System.Web.UI.WebControls.FileUpload
Public user As String
Public ubicacion As String = "UplImages\"
Public extension As String
Public cuenta As String
#End Region
#Region "Metodos de Clase"
Function upload(ByVal server) As Boolean
Dim vlext As String = MyClass.obtenerExtension(control.PostedFile.FileName)
tamaño = control.PostedFile.InputStream.Length / 1000
Dim GuardarImagenEn As String
GuardarImagenEn = ubicacion & user & "." & vlext
If verificarExtension(vlext) = True And tamaño <= size Then
Try
Dim subirImagen As System.Drawing.Image
subirImagen = System.Drawing.Image.FromStream(control.PostedFile.InputStream)
subirImagen.Save(server.MapPath(GuardarImagenEn))
Catch ex As Exception
MsgBox("Error: " & ex.Message)
End Try
End If
End Function
Function verificarExtension(ByVal ext As String) As Boolean
Try
Dim n As Integer = MyClass.extensiones.Length - 1
Dim i As Integer
For i = 0 To n - 1
If MyClass.extensiones(i) = ext Then
Return True
End If
Next
Return False
Catch ex As Exception
End Try
End Function
Function obtenerExtension(ByVal controlText As String)
Dim ext As String
Dim parts() As String
parts = controlText.Split(".")
ext = parts(parts.Length - 1)
MyClass.extension = ext
Return ext
End Function
#End Region
End Class