lopezatienza.com

Basta con copiar este código en nuestra página web, y así deshabilitaremos las opciones de seleccion de texto:

<script language="JavaScript">
 function disableselect(e)
{
return false
}
function reEnable()
{
return true
}
//if IE4+
document.onselectstart=new Function ("return false")
//if NS6
if (window.sidebar)
{
document.onmousedown=disableselect
document.onclick=reEnable
}
</script>

Autor: Antonio Lopez Atienza

Para subir a un archivo a nuestro servidor, primeramente deberemos importar la librería System.IO a nuestra página:

using System.IO;

Deberemos añadir un componente FileInput, en mi caso se llamará File1 que el nombre que se le da de manera predeterminada. He añadido también la opción de subirlo a una carpeta determinada, y si no existe, la creo:

string Path = HttpContext.Current.Server.MapPath("");
if (!System.IO.Directory.Exists(Path + @"\Nombre_Carpeta"))
{
System.IO.Directory.CreateDirectory(Path + @"\ Nombre_Carpeta");
}
string Archivo = string.Empty;
Archivo = File1.PostedFile.FileName;
Archivo = System.IO.Path.GetFileName(Archivo);
File1.PostedFile.SaveAs(Path + @"\Nombre_Carpeta\" + Archivo);

Autor: Antonio Lopez Atienza

Nos creamos una variable Path, que contendrá la ruta del Servidor donde se esté ejecutando nuestra aplicación.

string Path = HttpContext.Current.Server.MapPath("");

Preguntamos si existe el directorio, y si no es así, lo creamos.

if (!System.IO.Directory.Exists(Path + @"\Nombre_Directorio"))
{
System.IO.Directory.CreateDirectory(Path + @"\ Nombre_Directorio ");
}

Autor: Antonio Lopez Atienza

Saber la ip del Cliente que visita nuestra página es muy fácil, sólo nos hace falta introducir la siguiente línea:

<span class="tip_des">Dim ipCliente As String = Request.UserHostAddress</span>

Ahora tendremos en nuestra variable ipCliente almacenada la dirección del cliente.

Autor: Antonio Lopez Atienza

Para comparar dos fechas podemos utilizar el método DateDiff de la clase Date. Éste método nos devuelve un valor numérico con el resultado de la diferencia:

Dim fechaAProbar As Date
Dim diferencia as integer
<span class="tip_des">fechaAProbar </span><span class="tip_des">= Format("dd/MM/yyyy", "26/01/2009")
</span><span class="tip_des">diferencia </span><span class="tip_des">= DateDiff(("d"), </span><span class="tip_des">fechaAProbar </span><span class="tip_des"></span><span class="tip_des">, Date.Now)</span>

Autor: Antonio Lopez Atienza

Para cerrar una variable Session deberemos introducir las siguientes líneas:

Session.Abandon()
FormsAuthentication.SignOut()

Autor: Antonio Lopez Atienza

Microsoft ha puesto a disposición de todos los programadores de 101 Ejemplos de Programación en C#.

Estas descargas incluyen una compilación de ejemplos C# que demuestran varios aspectos importantes del lenguaje como: sintaxis, acceso a datos, Windows Forms, desarrollo web, servicios web, XML, seguridad, Framework, sistemas de archivos, entrada y salida de datos, interoperabilidad y migración, COM+, ADO.NET, y tópicos avanzados incluyendo gráficos con GDI+, remoting, serialización, MSMQ, y servicios Windows.

Sistemas operativos: TabletPC, Windows 2000, Windows 2000 Service Pack 2, Windows 2000 Service Pack 3, Windows 2000 Service Pack 4, Windows 98, Windows 98 Second Edition, Windows ME, Windows NT, Windows Server 2003, Windows XP, Windows XP Media Center Edition

Aplicaciones para clientes con Visual Studio .NET 2003

Nota: Algunos ejemplos requieren acceso a la base de datos Northwind en SQL Server o Microsoft Data Engine.

Descarga de archivo

http://download.microsoft.com/download/6/4/7/6474467e-b2b7-40ea-a478-1d3296e78adf/CSharp.msi (tamaño 6.578MB)

Más información en

http://www.microsoft.com/downloads/details.aspx?FamilyID=08e3d5f8-033d-420b-a3b1-3074505c03f3&DisplayLang=en

Autor: Antonio Lopez Atienza

Un ejemplo de como saber cuánto ocupa un directorio.

Tomado de esta web.

Sub Form_Load()

        Dim FileName As String

        Dim FileSize As Currency

        Dim Directory As String

        Directory = "c:\windows\"

        FileName = Dir$(Directory & "*.*")

        FileSize = 0

        Do While FileName <> ""

            FileSize = FileSize + FileLen(Directory & FileName)

            FileName = Dir$()

        Loop

        Text1.Text = "Este directorio ocupa la cantidad de bytes = " + Str$(FileSize)

    End Sub

Autor: Antonio Lopez Atienza

Un ejemplo de como comprobar si el programa esta en ejecucion.

Tomado de esta web.

Crear un nuevo proyecto e insertar el siguiente código:

    Private Sub Form_Load()

        If App.PrevInstance Then

            Msg = App.EXEName & ".EXE" & " ya está en ejecución"

            MsgBox(Msg, 16, "Aplicación.")

            End

        End If

    End Sub

Autor: Antonio Lopez Atienza

Un ejemplo de como leer y escribir un archivo .Ini.

Tomado de esta web.

Declaraciones generales en un módulo:

Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA"_

(ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As_

String ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As_

String) As Long

Declare Function WritePrivateProfileString Lib "kernel32" Alias_

"WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As_

Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

  Read more »