AllDevSoft

Transparencia de un Form

2009-02-10T21:09:00.001-02:00

Insertar el siguiente Codigo en un Modulo:

Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Nota: Debe estar todo en una sola linea (Usar el Visor de Texto API, que viene con Visual Basic)

Insertar el siguiente Codigo en CommandButton para probar:

Private Sub Command1_Click()
    Dim Resp As Long
    Resp = SetWindowLong(Me.hWnd, -20, &H20&)
    Form1.Refresh
End Sub

Una mejora seria en un modulo:

Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Const WS_EX_TRANSPARENT = &H20&
Public Const GWL_HINSTANCE = (-6)
Public Const GWL_EXSTYLE = (-20)
Public Const GWL_HWNDPARENT = (-8)
Public Const GWL_ID = (-12)
Public Const GWL_STYLE = (-16)
Public Const GWL_USERDATA = (-21)
Public Const GWL_WNDPROC = (-4)

Y en el form_load:

Call SetWindowLong(Form1.hwnd, GWL_EXSTYLE, WS_EX_TRANSPARENT)

Encriptación - Desencriptación

2009-02-10T21:04:00.001-02:00

Para encriptar y desencriptar datos podemos utilizar las siguientes funciones:

Public Shared Function EncryptString(ByVal InputString As String, ByVal SecretKey As String, Optional ByVal CyphMode As CipherMode = CipherMode.ECB) As String
Try
Dim Des As New TripleDESCryptoServiceProvider
'Put the string into a byte array
Dim InputbyteArray() As Byte = Encoding.UTF8.GetBytes(InputString)
'Create the crypto objects, with the key, as passed in
Dim hashMD5 As New MD5CryptoServiceProvider
Des.Key = hashMD5.ComputeHash(ASCIIEncoding.ASCII.GetBytes(SecretKey))
Des.Mode = CyphMode
Dim ms As MemoryStream = New MemoryStream
Dim cs As CryptoStream = New CryptoStream(ms, Des.CreateEncryptor(), _
CryptoStreamMode.Write)
'Write the byte array into the crypto stream
'(It will end up in the memory stream)
cs.Write(InputbyteArray, 0, InputbyteArray.Length)
cs.FlushFinalBlock()
'Get the data back from the memory stream, and into a string
Dim ret As StringBuilder = New StringBuilder
Dim b() As Byte = ms.ToArray
ms.Close()
Dim I As Integer
For I = 0 To UBound(b)
'Format as hex
ret.AppendFormat("{0:X2}", b(I))
Next

Return ret.ToString()
Catch ex As System.Security.Cryptography.CryptographicException
ExceptionManager.Publish(ex)
Return ""
End Try

End Function

Public Shared Function DecryptString(ByVal InputString As String, ByVal SecretKey As String, Optional ByVal CyphMode As CipherMode = CipherMode.ECB) As String
If InputString = String.Empty Then
Return ""
Else
Dim Des As New TripleDESCryptoServiceProvider
'Put the string into a byte array
Dim InputbyteArray(CType(InputString.Length / 2 - 1, Integer)) As Byte '= Encoding.UTF8.GetBytes(InputString)
'Create the crypto objects, with the key, as passed in
Dim hashMD5 As New MD5CryptoServiceProvider

Des.Key = hashMD5.ComputeHash(ASCIIEncoding.ASCII.GetBytes(SecretKey))
Des.Mode = CyphMode
'Put the input string into the byte array

Dim X As Integer

For X = 0 To InputbyteArray.Length - 1
Dim IJ As Int32 = (Convert.ToInt32(InputString.Substring(X * 2, 2), 16))
Dim BT As New ByteConverter
InputbyteArray(X) = New Byte
InputbyteArray(X) = CType(BT.ConvertTo(IJ, GetType(Byte)), Byte)
Next

Dim ms As MemoryStream = New MemoryStream
Dim cs As CryptoStream = New CryptoStream(ms, Des.CreateDecryptor(), _
CryptoStreamMode.Write)

'Flush the data through the crypto stream into the memory stream
cs.Write(InputbyteArray, 0, InputbyteArray.Length)
cs.FlushFinalBlock()

'//Get the decrypted data back from the memory stream
Dim ret As StringBuilder = New StringBuilder
Dim B() As Byte = ms.ToArray

ms.Close()

Dim I As Integer

For I = 0 To UBound(B)
ret.Append(Chr(B(I)))
Next

Return ret.ToString()
End If
End Function

Fuente

Acceso a base de datos de SQL Server CE mediante dispositivos móviles

2009-02-10T21:02:00.001-02:00

Microsoft SQL Server CE es la base de datos compacta para el desarrollo rápido de aplicaciones, tanto en el modo nativo como en .NET Compact Framework, que amplía las capacidades de administración de datos empresariales a los dispositivos.

SQL Server CE es una poderosa herramienta para el fácil desarrollo de aplicaciones móviles que soportan sintaxis del Lenguaje de Consulta Estructurado (SQL) proporcionando de un modelo de desarrollo consistente con SQL Server.
Este esta diseñado para integrarse con el Microsoft .NET Compact Framework por medio del Visual Studio simplificando el desarrollo de aplicaciones con bases de datos en dispositivos inteligentes.
Desarrollo
En este artículo vamos a crear una aplicación completa para dispositivos móviles en C#, la cual hará un acceso a una base de datos de SQL Server CE y la muestre en un DataGrid para consultarla desde nuestro dispositivo.
Primero vamos a crear un nuevo proyecto en C# y va a ser una Aplicación para Smart Device, a esta la llamaremos SQLServerCESample.
Después Visual Studio nos preguntará la plataforma de destino que vamos a utilizar, en este caso le indicaremos que será para PocketPC y será un proyecto para una aplicación Windows, imagen 2.
Dado esto nos aparecerá una forma similar a la de Windows Forms donde vamos a comenzar a hacer nuestro ejemplo, imagen 3.
Vamos a arrastrar a nuestra forma desde la barra de herramientas un DataGrid y un Boton para realizar nuestro ejemplo, imagen 4.

Después de llevado a cabo esto vamos a requerir agregar dos referencias a nuestro proyecto, estas serían:

System.Data
System.Data.Common
System.Data.SqlServerCe

Ya que tenemos nuestras referencias procederemos a programar nuestra APP de la siguiente manera:

Primeramente vamos a crear un método que se encarge de crear una tabla en nuestro SQL Server CE, el código que muestro a continuación trae sus respectivos comentarios:

private void CrearTabla()
{
 //Indicamos el origen de datos
 SqlCeEngine objEg = new SqlCeEngine("Data Source=\\my documents\\MiBD.SDF");
 SqlCeConnection objCon = new SqlCeConnection("Data Source=\\my documents\\MiBD.SDF");

 try
 {
  //Creamos la Base de Datos de SQL Server CE
  objEg.CreateDatabase();
  objEg.Dispose();
  objCon.Open();

  //Creamos la tabla Amigos
  SqlCeCommand objCom = new SqlCeCommand("CREATE TABLE Amigos(ID INT PRIMARY KEY, Nombre NVARCHAR(10))", objCon);
  objCom.ExecuteNonQuery();

  //Le insertamos información a la tabla Amigos
  objCom.CommandText = "INSERT INTO Amigos VALUES(1, 'MARIO')";
  objCom.ExecuteNonQuery();

  objCom.CommandText = "INSERT INTO Amigos VALUES(2, 'LUIS')";
  objCom.ExecuteNonQuery();

  objCom.CommandText = "INSERT INTO Amigos VALUES(3, 'PUYUL')";
  objCom.ExecuteNonQuery();

  objCom.CommandText = "INSERT INTO Amigos VALUES(4, 'CANCALAS')";
  objCom.ExecuteNonQuery();

  objCom.CommandText = "INSERT INTO Amigos VALUES(5, 'ELIGIO')";
  objCom.ExecuteNonQuery();

  objCom.CommandText = "INSERT INTO Amigos VALUES(6, 'COBRA DE OQUIS')";
  objCom.ExecuteNonQuery();

  objCom.CommandText = "INSERT INTO Amigos VALUES(7, 'MAL AMIGO')";
  objCom.ExecuteNonQuery();

  objCom.CommandText = "INSERT INTO Amigos VALUES(8, 'NEGRERO')";
  objCom.ExecuteNonQuery();
 }

 catch (SqlCeException ex)
 {
  Console.WriteLine(ex.Message);
 }

 finally
 {
  objCon.Close();
  objCon.Dispose();
 }
}

Básicamente lo que se hizo fue indicarle al SQL Server CE la ruta de nuestra base de datos, llevar a cabo la conexión, y mediante instrucciones de SQL básicas fuimos creando primeramente la tabla y después los elementos de la misma.

Ya que hemos creado el método que nos va a dar la capacidad de crear dicha tabla, ahora vamos a mostrar los registros que acabamos de crear en nuestro DataGrid, para eso vamos al evento _Click de nuestro botón que agregamos y codificamos lo siguiente:

private void btnCargar_Click(object sender, System.EventArgs e)
{
 //Creamos la tabla
 CrearTabla();

 //Especificamos el origen de datos
 SqlCeConnection oCon = new SqlCeConnection("Data Source=\\my documents\\MiBD.SDF");
 SqlCeDataAdapter oDA = new SqlCeDataAdapter("SELECT * FROM Amigos", oCon);

 DataSet oDS = new DataSet("Amigos");

 try
 {
  //Rellenamos el dataset
  oDA.Fill(oDS);
 }

 catch (SqlCeException ex )
 {
  MessageBox.Show(ex.Message);
 }

 finally
 {
  //Asignamos al datasource del datagrid nuestro dataset
  oDA.Dispose();
  this.dgElements.DataSource = oDS.Tables[0].DefaultView;
 }
}

Lo que se hizo básicamente es crear dicha conexión e hicimos el DataBind de nuestro DataGrid a dicho origen de datos. Si corremos nuestra APP nos aparecerá algo como la imagen 6.

Aquí nos pregunta que elijamos el dispositivo al cual queremos implementar nuestra solución. A lo cual da dos opciones:

Dispositivo Pocket PC. Si ya tenemos una PocketPC física conectada y sincronizada directamente con nuestra PC.

Emulador de PocketPC 2002. Pequeño Software que emula el dispositivo en el cual podemos hacer pruebas como si tuviéramos la PocketPC físicamente.

Escogemos la que mejor sea nuestro caso y damos clic en Implementar.

En dado caso de que no tengamos instalado el Compact .Net Framework, Visual Studio instalará todo lo que se requiera para tal efecto. Esto toma algo de tiempo (2 mins). Ya después terminada la instalación de componentes (si se requieren) y llevada a cabo la implementación en nuestra PocketPC

Fuente

Abrir la calculadora de Windows

2009-02-10T20:56:00.001-02:00

Para abrir la calculadora de Windows desde nuestra aplicación insertar el siguiente codigo en un boton o donde queramos:

Dim Proceso As New Process()
Proceso.StartInfo.FileName = "calc.exe"
Proceso.StartInfo.Arguments = ""
Proceso.Start()

ejecutar un paquete dts desde VB.Net

2009-02-10T20:54:00.001-02:00

Para Ejecutar un paquete DTS desde Visual Basic es una tarea relativamente simple usando el modelo de objetos de DTS. Antes de comenzar a usar el modelo se debe agregar la referencia apropiada al proyecto. Desde el menú del proyecto seleccionar Referencias y elegir "Microsoft DTSPackage Object Library".

Aquí hay un ejemplo muy simple que utiliza seguridad integrada para cargar el paquete MyPackage y después ejecutarlo:

Private Sub SimpleExecutePackage()
  Dim oPKG As New DTS.Package
  oPKG.LoadFromSQLServer "MyServer", , , _
   DTSSQLStgFlag_UseTrustedConnection, , , , "MyPackage"
  oPKG.Execute
  oPKG.UnInitialize
  Set oPKG = Nothing
End Sub

Para evitar problemas con VB y DTS , ejecutarlo como apartment threaded.

Esto puede causar Excepciones de violaciones de acceso. La manera simple de evitar esto es: asegurarse que todos los pasos ejecuten en el hilo principal del paquete. Para hacer esto setear la propiedad ExecuteInMainThread según lo ilustrado abajo:

 ' Set Exec on Main Thread
 For Each oStep In oPKG.Steps
  oStep.ExecuteInMainThread = True
 Next

Fuente

Crear controles en tiempo de ejecución

2009-02-10T20:46:00.001-02:00

usando array de controles (todas las versiones de VB) y creándolos dinámicamente (sólo VB6)

Forma válida para todas las versiones de Visual Basic

'------------------------------------------------------------------------------
' Ejemplo de crear array de controles en tiempo de ejecución        (31/May/01)
'
' ©Guillermo 'guille' Som, 2001
'------------------------------------------------------------------------------
Option Explicit

Private Sub Command1_Click()
    ' Crear un nuevo control Label y un Textbox
    Dim i As Long
    '
    ' Los array de controles son "en el fondo" colecciones de base cero,
    ' el número actual de controles nos dará el índice del siguiente índice
    ' (siempre que se hayan añadido de forma correlativa)
    i = Label1.Count
    ' cargamos el control
    Load Label1(i)
    ' le asignamos la posición, el caption y lo hacemos visible,
    ' ya que por defecto no está visible
    With Label1(i)
        .Top = Label1(i - 1).Top + 390
        .Caption = "Label1(" & i & ")"
        .Visible = True
    End With
    ' idem con los textboxes
    i = Text1.Count
    Load Text1(i)
    With Text1(i)
        .Top = Text1(i - 1).Top + 390
        .Visible = True
    End With
End Sub

Pulsa F5 para ejecutar la aplicación y pulsa en el command1, verás que se añaden dos nuevos controles: una etiqueta y un textbox.

Para eliminar controles creados en tiempo de ejecución, tendrás que usar: Unload Label1(indice), al hacer esto tendrás que tener en cuenta que esos índices "descargados" ya no están en el array de controles...

Veamos ahora la forma de crear controles con el método ADD de la colección controls.

Añade una etiqueta (Label1) y un TextBox (Text1) y asignales el valor CERO a la propiedad Index, (no es que sea necesario hacer esto para crear controles dinámicamente, pero se usa Label1(0) y Text1(0) para posicionar los controles añadidos), añade un botón (Command1) y el siguiente código:

'------------------------------------------------------------------------------
' Ejemplo de creación dinámica de controles en tiempo de ejecución  (31/May/01)
' usando Add de la colección controls, sólo VB6
'
' ©Guillermo 'guille' Som, 2001
'------------------------------------------------------------------------------
Option Explicit

' Para que produzca eventos, haya que declararla con WithEvents
Private WithEvents lblDinamic As Label
Private nlblDinamic As Long
' Un array para contener los TextBoxes dinámicos
' (estos textboxes no producen eventos)
Private txtDinamic() As TextBox
Private ntxtDinamic As Long

Private Sub Command1_Click()
    ' Se pueden añadir cuantas etiquetas queramos,
    ' pero el evento sólo se producirá en la última añadida,
    ' ya que WithEvents no permite crear arrays
    nlblDinamic = nlblDinamic + 1
    Set lblDinamic = Controls.Add("VB.Label", "lblDinamic" & CStr(nlblDinamic))
    With lblDinamic
        .Visible = True
        .Top = nlblDinamic * 390 + Label1(0).Top
        .Left = Label1(0).Left
        .Caption = .Name
        .Height = 255
    End With
    '
    ' Creamos un nuevo TextBox
    ntxtDinamic = ntxtDinamic + 1
    ReDim Preserve txtDinamic(ntxtDinamic)
    Set txtDinamic(ntxtDinamic) = Controls.Add("VB.TextBox", "txtDinamic" & CStr(ntxtDinamic))
    With txtDinamic(ntxtDinamic)
        .Visible = True
        .Top = lblDinamic.Top - 30
        .Left = Text1(0).Left
        .Text = .Name
        .Height = 315
    End With
    
End Sub

Private Sub Form_Load()
    '
    ' Para crear un control (no se pueden crear arrays, creo)
    ' se añade a la colección de controles
    nlblDinamic = 1
    Set lblDinamic = Controls.Add("VB.Label", "lblDinamic")
    With lblDinamic
        .Visible = True
        .Top = Label1(0).Top + 390
        .Left = Label1(0).Left
        .Caption = .Name
        .Height = 255
    End With
    '
    ntxtDinamic = -1
End Sub

Private Sub lblDinamic_Click()
    ' sólo se producirá el evento en la última creada
    lblStatus = "Has pulsado en: " & lblDinamic.Name
End Sub

Como notarás es que hay que usar el "ClassID" del control añadir y un nombre "único" para que cuando queramos podamos eliminarlo de la colección, usando: Controls.Remove "nombre".

Es cuestión de que te leas la ayuda de Visual Basic para otros controles, ya que en algunos de ellos necesitas indicar la "licencia" para poder usarlo.

Fuente: elguille

ejecutar otros programas desde Visual Basic

2009-02-10T20:40:00.001-02:00

A pesar de que nuestra aplicación sea "autosuficiente", puede que en alguna ocasión necesitemos usar utilidades externas, por ejemplo mostrar un fichero de texto en el bloc de notas. Cuando se nos de esa ocasión, podemos usar la función SHELL del Visual Basic.
Esta función, que también se puede usar como instrucción, recibe en el primer parámetro el programa y los parámetros que queremos ejecutar, en el segundo parámetro le indicaremos el estilo de la ventana.

Hay que resaltar que esta función se ejecuta de forma asíncrona, es decir que no espera a que el programa ejecutado finalice, y por tanto sigue ejecutando lo que haya en la siguiente línea. Si quieres esperar a que el programa ejecutado finalice, tendrás que echar mano del API de Windows, si quieres ver cómo hacerlo, pásate por la sección de trucos de mis páginas o busca este título: Tip 191: Shelling to Other Applications en la Knowledge Base de Microsoft.

Vamos a ver un ejemplo para llamar al bloc de notas y que nos muestre el contenido del fichero Autoexec.bat, una vez que se ha llamado al programa, nos mostrará un mensaje; fíjate que este mensaje se mostrará aunque el bloc de notas aún no se haya cargado... en este ejemplo, el fichero no es tan grande como para que tarde, pero si fuese otro programa que tardase algo más en cargarse, se mostraría el mensaje antes de que el programa esté funcionando... Si no ves el mensaje, minimiza el bloc de notas y podrás verlo.

Dim strFic As String
Dim strParam As String

strFic = "Notepad.exe"
strParam = "C:\Autoexec.bat"

Shell strFic & " " & strParam, vbNormalFocus

MsgBox "Se está ejecutando el Notepad"

Si el programa a ejecutar no existiera, se produciría un error interceptable, por tanto, para prevenir estos casos, podríamos añadir unas líneas más al ejemplo:

Dim strFic As String
Dim strParam As String

' Esto es para el caso de que el programa a ejecutar no exista
On Local Error Resume Next

' Espero que no tengas un programa que se llame así... 8-)
strFic = "NoExiste.exe"
strParam = "Dará_Error"

Shell strFic & " " & strParam, vbNormalFocus

' Si se produce un error, lo comprobamos aquí
If Err Then
    MsgBox "Se ha producido el siguiente error:" & vbCrLf & _
           Err.Number & ", " & Err.Description & vbCrLf & _
           "al intentar ejecutar:" & vbCrLf & _
           strFic & " " & strParam
Else
    MsgBox "Se está ejecutando: " & strFic & " " & strParam
End If

' Nos aseguramos que el valor del error sea cero
Err = 0

Para probar el código de ejemplo, crea un nuevo proyecto, añade un botón (Command1) y pega el código en el evento Click; aunque también puedes ponerlo en el evento Form_Load, no es recomendable que te acostumbres a hacer las cosas en ese evento, ya que puede ralentizar la carga del formulario.

Fuente: elguille

Drag & drop entre ListView y ListBox

2009-02-10T20:36:00.001-02:00

Todo el proceso de esta prueba o ejemplo, consiste en lo siguiente:
Se llena el ListView con elementos (los nombres de los ficheros de un directorio en concreto),
se permite seleccionar un elemento del ListView y arrastrarlo al ListBox, en ese caso, se muestra el texto (el contenido de la propiedad Text del elemento del ListView, es decir, del ListViewItem soltado),
también se pueden seleccionar varios elementos del ListView y arrastrarlos hasta el ListBox, en ese caso, lo que se muestra es el texto de todos y cada uno de los elementos soltados.
Además de estas opciones de arrastrar y soltar entre un control ListView y otro ListBox, se permite igualmente que se arrastren y suelten ficheros... si miras el código de ejemplo lo tendrás más claro.

Para que todo esto sea posible necesitamos lo siguiente (en un proyecto del tipo Windows.Forms):
Un formulario con un control ListView llamado ListView1 y un control ListBox llamado ListBox1 y el código (para VB o C#) que te muestro más abajo.

Las asignaciones necesarias se hacen en ese mismo código, a resaltar es que el control ListBox1 tenga un valor verdadero en la propiedad AllowDrop con idea de que permita que se haga Drag & Drop en ese control.

El código

Para Visual Basic:

'------------------------------------------------------------------------------
' Hacer drag & drop entre dos controles de un formulario            (23/Ene/09)
'
' ©Guillermo 'guille' Som, 2009
'------------------------------------------------------------------------------
Option Strict On
Option Infer On

Imports Microsoft.VisualBasic
Imports System
Imports System.Windows.Forms

Imports System.Text

Public Class Form1

    Private Sub Form1_Load(ByVal sender As Object, _
                           ByVal e As EventArgs) _
                           Handles MyBase.Load
        With ListView1
            .View = View.Details
            .AllowDrop = True
            .Columns.Clear()
            .Columns.Add("Fichero", 300, HorizontalAlignment.Left)
        End With
        ListBox1.AllowDrop = True

        leerDir("E:\tmp")
    End Sub

    Private Sub leerDir(ByVal path As String)
        ListView1.Items.Clear()

        Dim fics() As String = System.IO.Directory.GetFiles(path)
        For Each s As String In fics
            ListView1.Items.Add(s)
        Next
    End Sub

    Private Sub ListBox1_DragDrop(ByVal sender As Object, _
                                  ByVal e As DragEventArgs) _
                                  Handles ListBox1.DragDrop
        ListBox1.Items.Clear()

        If e.Data.GetDataPresent( _
                "System.Windows.Forms.ListView+SelectedListViewItemCollection") Then
            Dim datos = CType(e.Data.GetData(GetType(ListView.SelectedListViewItemCollection)),  _
                              ListView.SelectedListViewItemCollection)
            For Each d As ListViewItem In datos
                ListBox1.Items.Add(d.Text)
            Next

        ElseIf e.Data.GetDataPresent("System.Windows.Forms.ListViewItem") Then
            Dim datos = CType(e.Data.GetData(GetType(ListViewItem)), ListViewItem)
            ListBox1.Items.Add(datos.Text)

        ElseIf e.Data.GetDataPresent("FileDrop") Then
            Dim datos = CType(e.Data.GetData("FileDrop"), String())
            For Each d In datos
                ListBox1.Items.Add(d.ToString)
            Next

        Else
            For Each d In e.Data.GetFormats
                ListBox1.Items.Add(d.ToString)
            Next
        End If

    End Sub

    Private Sub ListBox1_DragEnter(ByVal sender As Object, _
                                   ByVal e As DragEventArgs) _
                                   Handles ListBox1.DragEnter
        'TODO: hacer las comprobaciones de cuándo debe permitirse arrastrar y soltar
        e.Effect = DragDropEffects.Copy
    End Sub

    Private Sub ListView1_ItemDrag(ByVal sender As Object, _
                                   ByVal e As ItemDragEventArgs) _
                                   Handles ListView1.ItemDrag
        ListView1.DoDragDrop(ListView1.SelectedItems, DragDropEffects.Copy)
    End Sub
End Class

Para C#:

//-----------------------------------------------------------------------------
// Hacer drag & drop entre dos controles de un formulario           (23/Ene/09)
//
// ©Guillermo 'guille' Som, 2009
//-----------------------------------------------------------------------------
using System;
using System.Text;
using System.Windows.Forms;

public partial class Form1 : Form
{
    public Form1()
    {
        InitializeComponent();
    }

    private void Form1_Load(object sender, EventArgs e)
    {
        ListView1.View = View.Details;
        ListView1.AllowDrop = true;
        ListView1.Columns.Clear();
        ListView1.Columns.Add("Fichero", 360, HorizontalAlignment.Left);
        ListBox1.AllowDrop = true;

        leerDir(@"E:\tmp");
    }

    private void leerDir(string path)
    {
        ListView1.Items.Clear();

        string[] fics = System.IO.Directory.GetFiles(path);
        foreach (string s in fics)
        {
            ListView1.Items.Add(s);
        }
    }

    private void ListBox1_DragDrop(object sender, DragEventArgs e)
    {
        ListBox1.Items.Clear();

        if (e.Data.GetDataPresent("System.Windows.Forms.ListView+SelectedListViewItemCollection"))
        {
            var datos = ((ListView.SelectedListViewItemCollection)
                            e.Data.GetData(typeof(ListView.SelectedListViewItemCollection)));
            foreach (ListViewItem d in datos)
            {
                ListBox1.Items.Add(d.Text);
            }

        }
        else if (e.Data.GetDataPresent("System.Windows.Forms.ListViewItem"))
        {
            var datos = ((ListViewItem)e.Data.GetData(typeof(ListViewItem)));
            ListBox1.Items.Add(datos.Text);

        }
        else if (e.Data.GetDataPresent("FileDrop"))
        {
            var datos = ((String[])e.Data.GetData("FileDrop"));
            foreach (var d in datos)
            {
                ListBox1.Items.Add(d.ToString());
            }
        }
        else
        {
            foreach (var d in e.Data.GetFormats())
            {
                ListBox1.Items.Add(d.ToString());
            }
        }

    }

    private void ListBox1_DragEnter(object sender, DragEventArgs e)
    {
        //TODO: hacer las comprobaciones de cuándo debe permitirse arrastrar y soltar
        e.Effect = DragDropEffects.Copy;
    }

    private void ListView1_ItemDrag(object sender, ItemDragEventArgs e)
    {
        ListView1.DoDragDrop(ListView1.SelectedItems, DragDropEffects.Copy);
    }
}

Fuente: elguille

MyWex Portfolio con Ajax y Php

2009-02-10T17:28:00.001-02:00

MyWex es un excelente script desarrollado con ajax y php la idea es mostrar de forma elegante el portfolio de desarrollos, también puede ser usado como galería de imágenes, u otros.

El nombre? MyWex (Mis+Web+Ajax) algo extraño pero viene de la idea de programar una Portafolio de web con una librería ajax.

MyWex lee un archivo xml bastante sencillo donde dejas el titulo, la url de la imagen y la url del sitio, este se procesa vía php y crea MyWex, con pequeñas miniaturas que al pasar sobre ellas hace un zoom bastante elegante, y al dar clic entra a la pagina usando la librería ajax shadowbox.

En conclusión es un script bastante liviano y muy útil para adornar nuestro portafolio además de ser muy sencillo actualizarlo.
MyWex es totalmente gratis solo se pide la mención donde se instale.

Datos:
Bd.xml : archivo donde debes ingresar la información de tu portafolio

Descargar | Sitio web de Referencia | Ejemplo de MyWex en Funcionamiento

JavaScript - Posición de una imagen u objeto en la ventana del navegador.

2008-08-11T20:49:00.001-03:00

Este sin duda en un script que servirá como herramienta para cientos de ejemplos JavaScript que requieran saber la posición de un objeto en la ventana del navegador. El mismo nos permite saber la posición izquierda (left) y superior (top) del objeto (capa, layer, imagen, tabla, etc.) con respecto al margen izquierdo/superior de la ventana.

<HTML>  
<HEAD>  
   
<script language="javascript">  
   
this.findLeftObj = function(obj) {  
var curleft = 0;  
if (obj.offsetParent) {  
   while (obj.offsetParent) {  
    curleft += obj.offsetLeft  
    obj = obj.offsetParent;  
    }  
}  
else {  
 if(obj.x) {  
   curleft += obj.x;  
  }  
}  
return(curleft);  
}  
           
this.findTopObj = function(obj) {  
var curtop = 0;  
if (obj.offsetParent) {  
    while (obj.offsetParent) {  
        curtop += obj.offsetTop  
        obj = obj.offsetParent;  
    }  
}  
else {  
  if (obj.y) {  
    curtop += obj.y;  
   }  
}  
return(curtop);  
}  
   
function posicionImagen(imagen) {  
   
    posXImagen = findLeftObj(imagen);  
    posYImagen = findTopObj(imagen);  
       
    alert('La imagen está en la posición:\nLeft(X) ' + posXImagen +   
    '\nTop(Y) ' + posYImagen)  
   
} // Fin de la función posicionImagen()  
   
</script>  
   
</HEAD>  
   
<BODY>  
   
<IMG src="0.jpg" onmouseover="posicionImagen(this)" />  
<IMG src="1.jpg" onmouseover="posicionImagen(this)" />  
<IMG src="2.jpg" onmouseover="posicionImagen(this)" />  
   
<DIV style="background-color:#003399; color:#CCCCCC; width:200px; "   
onmouseover="posicionImagen(this)">  
También podemos saber la posición de una capa o de cualquier objeto cargado en la página.  
</DIV>  
   
</BODY>  
</HTML>

Fuente

Php - Mostrar una imagen desde Campo blob mysql

2008-08-08T06:20:00.001-03:00

Para que el script se muestre como una imagen necesitamos usar la cabecera Content-type y poner el tipo MIME de la imagen que recuperaremos de la tabla, esto es:

php:

Donde image/gif es el el tipo MIME para una imagen GIF.

Desarrollo del Script

Las imágenes han sido guardadas en la tabla y tienen un único identificador representado por el campo idfoto, la imagen original se guarda en el campo foto, la miniatura en el campo thumb y el tipo MIME en el campo mime, como podemos ver en la estructura de la tabla:

sql:

CREATE TABLE `tabla` (
  `idfoto` int(3) NOT NULL AUTO_INCREMENT,
  `nombre` varchar(255) NOT NULL DEFAULT '',
  `foto` blob NOT NULL,
  `thumb` blob NOT NULL,
  `mime` varchar(40) NOT NULL DEFAULT '',
  PRIMARY KEY  (`idfoto`)

) ;

Necesitamos enviar parámetros al script para indicarle el id de la imagen que queremos ver, y también si queremos ver la imagen original o su miniatura, suponiendo que el archivo que contiene al script se llame verblob.php:

html:

Donde el parámetro idfoto indica el id de la imagen, y el parametro tam indica si va a mostrar la imagen original o la miniatura (1 para mostrar la imagen original y 2 para mostrar la miniatura). El script trabaja de la siguiente manera:

php:

// ParÃ¡metros para recuperar la imagen
# Recuperamos el parÃ¡metro GET con el id Ãºnico de la foto que queremos mostrar
$idfoto = (isset($_GET["idfoto"])) ? $_GET["idfoto"] : exit();
# Recuperamos el parÃ¡metro GET para elegir entre la miniatura o la foto real

$tam = (isset($_GET["tam"])) ? $_GET["tam"] : 1;
// Escojemos la foto real o la miniatura segÃºn la variable $tam

switch($tam) {
	case "1":
		$campo = "foto";break;;
	case "2":
		$campo = "thumb";break;;
	default:
		$campo = "foto";break;;

}

Ya sabiendo el id de la imagen que vamos a mostrar, hacemos la consulta a la base de datos:

php:

// Recuperamos la foto de la tabla
$sql = "SELECT $campo, mime
		FROM tabla 
		WHERE idfoto = $idfoto";
# ConexiÃ³n a la base de datos
$link = mysql_connect(DBHOST, DBUSER, DBPASSWORD) or die(mysql_error($link));;
mysql_select_db(DBNAME, $link) or die(mysql_error($link));
$conn = mysql_query($sql, $link) or die(mysql_error($link));

$datos = mysql_fetch_array($conn);
// La imagen
$imagen = $datos[0];
// El mime type de la imagen
$mime = $datos[1];

// Gracias a esta cabecera, podemos ver la imagen 
// que acabamos de recuperar del campo blob
header("Content-Type: $mime");
// Muestra la imagen
echo $imagen;

Conclusiones

Los campos blob no solo nos permiten guardar imágenes, sino una gran variedad de datos, para mostrarlos solo hay que tener en cuenta el tipo MIME del archivo que hemos guardado, y al momento de recuperarlo sólamente utilizamos header con el Content-Type.

Fuente

Javascript - Efecto Scrool en Barra de Estado y Título

2008-08-08T06:06:00.001-03:00

Ejemplo JavaScript para mostrar un mensaje de texto con efecto de Scroll en la Barra de Estado y Título del navegador.

Descripción del ejemplo JavaScript

El Script utiliza una función llamada efectoBarra() la cual es llamada desde el evento onLoad de la etiqueta <BODY>. Al ejecutarse la función del JavaScript se define automáticamente el texto que se va a mostrar en la barra de estado y título del navegador. Esto lo hacemos dándole al objeto status el siguiente valor:

BarraEstado.substring(cuenta,BarraEstado.length)+BarraEstado.substring(0,cuenta)
El primer método substring() muestra el texto definido en la variable BarraEstado desde la posición 0 (primer valor de la variable cuenta) hasta el final de la cadena de texto. El segundo método substring() muestra el texto desde el primer caracter (cero) hasta la posición que devuelva cuenta.

Para la primera ejecución del Script se mostrará el texto tal cual se definió en la variable. La condición if nos permite sumar una unidad al valor actual de cuenta solo si este valor es menor que la cantidad de caracteres que contiene el mensaje de texto a mostrar en ambas barras del navegador. Mientras esta condición sea verdadera se incrementa el valor de esta variable y se ejecuta nuevamente la función del JavaScript al cabo de 200 milisegundos.

La segunda vez que se ejecuta la función, cuenta vale 1 (uno), por lo que se mostrará el texto desde el segundo caracter hasta el final de la cadena, más el texto desde el primer caracter hasta el caracter 1. Esta operación es la que aplica el efecto de Scroll al texto. Cuando la condición devuelve como valor false se ejecuta else. En este caso se vuelve a dar a la variable cuenta el valor 0 (cero). De esta manera se ejecuta nuevamente la función como la primera vez que cargamos la página.

<HTML>  
<HEAD>  
  
<script language="javascript">  
 
/* Definimos el texto a mostrar en la barra de estado y título 
Debemos escribir un espacio antes y después de la cadena */  
var BarraEstado = " Código JavaScript. Barra Estado y Título. "  
  
var cuenta = 0  

function efectoBarra() {  

// Escribe el mensaje con efecto de Scroll en ambas barras del navegador  
document.title = BarraEstado.substring(cuenta,BarraEstado.length)+BarraEstado.substring(0,cuenta);  
window.status = document.title  

/* Se ejecuta si el valor de cuenta es menor que la cantidad de caracteres  
que tiene el mensaje */  
if (cuenta < BarraEstado.length) {  
// Suma 1 unidad a la variable  
cuenta++  
}  
/* Si la condición anterior es falsa se ejecuta 
y cuenta vuelve a valer 0 */  
else {  
cuenta = 0  
}  

// Ejecuta la función del JavaScript cada 200 milisegundos  
setTimeout("efectoBarra()",200);  

} // Fin de la función efectoBarra()  

</script>  

</HEAD>  

<!-- Ejecuta la función a la carga de la página -->  
<BODY onload="efectoBarra()">  

</BODY>  
</HTML>  </pre>

Fuente

Paginar los resultados de una consulta en PHP

2008-08-06T06:00:00.001-03:00

Realizar una consulta a una base de datos MySQL desde PHP y presentarla es sencillo. El problema viene cuando debemos presentar 3000 registros y nos gustaría que el usuario no esperara hasta Nochebuena. En ese caso, se presenta un número menor de registros en la página (diez, viente) y se añaden enlaces para poder acceder a los demás. A esto se le llama paginación.

Mostrar los registros adecuados

Para poder paginar debemos recibir en la página, además de los parámetros que reciba normalmente, uno que indique la página de resultados que deseamos obtener. Por defecto será 1 y lo llamaremos pag. Supongamos que tenemos una página que devuelve el nombre de todos los clientes de una empresa. La llamaremos, en un alarde de originalidad, clientes.php. Sería algo así:

<html> 
<body> 
<?php 
$link = mysql_connect("localhost", "nobody"); 
mysql_select_db("mydb", $link); 
$result = mysql_query("SELECT nombre, apellidos FROM clientes", $link); 
if (mysql_num_rows($result)){ 
  echo "<table border = '1'> \n"; 
  echo "<tr><td>Nombre</td><td>Apellidos</td></tr> \n"; 
  while ($row = @mysql_fetch_array($result)) { 
    echo "<tr><td>".$row["nombre"].
      "</td><td>".$row["email"]."</td></tr> \n"; 
  }
  echo "</table> \n"; 
}
else
  echo "¡ No se ha encontrado ningún registro !";
?> 
</body> 
</html>

Para poder soportar paginación debemos, primero, decidir cuantos registros presentamos por página (por ejemplo, 10) y recibir el número de página que debemos presentar. Hay dos maneras de obtener el número de registros totales y los registros que necesitamos para presentar la página. Nosotros utilizaremos dos consultas. En la primera obtendremos el total de registros de la tabla y, en la segunda, cogeremos sólo los registros que necesitamos haciendo uso de LIMIT. Sustituiremos el código de la consulta por lo siguiente:

if (!isset($pag)) $pag = 1; // Por defecto, pagina 1
$result = mysql_query("SELECT COUNT(*) FROM clientes", $link); 
list($total) = mysql_fetch_row($result);
$tampag = 10;
$reg1 = ($pag-1) * $tampag;
$result = mysql_query("SELECT nombre, apellidos FROM clientes"
  LIMIT $reg1, $tampag", $link);"

Añadir los enlaces a otras páginas

La primera labor que vamos a hacer es crear una función abstracta que reciba el número de registros que en total devuelve la consulta, el tamaño de página, el número de la página actual, y el texto del enlace hasta insertar el número de página. Este último parámetro puede resultar un poco confuso. Pongamos un ejemplo. Si en nuestra página recibimos ese número por el parámetro pag, si quisieramos ver la página 2 escribiríamos:

clientes.php?pag=2

Por lo tanto, como debemos quitar el número de página, nos quedará:

clientes.php?pag=

La función deberá obtener primero el número total de páginas. Luego averiguará si existe una página anterior, escribiendo en enlace que va a esa página previa. Lo siguiente es escribir los enlaces a todas las páginas anteriores a la actual desde la 1. Luego escribe el número de la página actual, resaltado, pero sin enlace. Después escribe los números de las páginas posteriores y, finalmente, el enlace a la página posterior:

/******************************************************/
/* Funcion paginar
 * actual:          Pagina actual
 * total:           Total de registros
 * por_pagina:      Registros por pagina
 * enlace:          Texto del enlace
 * Devuelve un texto que representa la paginacion
 */
function paginar($actual, $total, $por_pagina, $enlace) {
  $total_paginas = ceil($total/$por_pagina);
  $anterior = $actual - 1;
  $posterior = $actual + 1;
  if ($actual>1)
    $texto = "<a href=\"$enlace$anterior\">«</a> ";
  else
    $texto = "<b>«</b> ";
  for ($i=1; $i<$actual; $i++)
    $texto .= "<a href=\"$enlace$i\">$i</a> ";
  $texto .= "<b>$actual</b> ";
  for ($i=$actual+1; $i<=$total_paginas; $i++)
    $texto .= "<a href=\"$enlace$i\">$i</a> ";
  if ($actual<$total_paginas)
    $texto .= "<a href=\"$enlace$posterior\">»</a>";
  else
    $texto .= "<b>»</b>";
  return $texto;
}

Además de incluir la función en nuestro script la tendremos que llamar después de cerrar la tabla:

echo paginar($pag, $total, $tampag, "clientes.php?pag=");

Y con esto ya tenemos un sistema de paginación que podremos utilizar en nuestras páginas.

Fuente

phpCodeGenerator: código para tu BD automático

2008-08-06T05:55:00.001-03:00

phpCodeGenerator es una librería para generar sitios web desde una base de datos. Permite leer la base de datos y generar una web que permita crear, listar, editar, modificar, eliminar y buscar registros.

Funciona con cualquier base de datos compatible con ADODB, como MySQL, Microsoft Access o PostgreSQL. La información que contiene una BD: el esquema de la BD, las tablas, campos y propiedades, es suficiente para poder realizar unas clases que permita crear, editar, actualizar y eliminar registros, una base para que el desarrollador luego pueda realizar su aplicación web más facilmente.

El framework phpCG permite construir aplicaciones PHP orientadas a objetos que sean extensibles, portables y escalables.

PhpCodeGenerator

ASP.Net - Upload de archivos en ASP.NET

2008-08-04T06:04:00.001-03:00

En esta oportunidad explicaremos cómo proceder a la hora de subir (upload) archivos utilizando tecnología ASP.Net. Operación que nos permitirá compartir y mostrar toda clase de información desde nuestro sitio de Internet.

En función de lograr nuestro objetivo utilizaremos el Web Control FileUpload que se implementa para la versión 2.0 de ASP .NET cuyo objetivo consiste en simplificarnos aún más la operación a realizar. Acto seguido, procedemos añadiendo dicho control (una manera de llegar a él es arrastrándolo desde la barra de herramientas) y un botón (button). A estos dos elementos debemos identificarlos con un ID específico.

Entoces, para añadir el control utilizaremos el siguiente código:

<asp:FileUpLoad id="FileUpLoad2" runat="server" />

El paso siguiente consiste en agregar el button mencionado anteriormente del siguiente modo:

<asp:Button id="UploadBtn" Text="Upload File" OnClick="UploadBtn_Click" runat="server" Width="105px" />

Para terminar con la operación y poder subir archivos desde la página al servidor continuamos de esta manera:

protected void UploadBtn_Click(object sender, EventArgs e)
{
if (FileUpLoad1.HasFile) {
FileUpLoad2.SaveAs(@"C: emp" + FileUpLoad2.FileName);
Label1.Text = "File Uploaded: " + FileUpLoad2.FileName ;
}

Ahora bien, puede ocurrir que necesitemos establecer una restricción del tipo de archivos que deseamos subir. Esto también puede realizarse a partir del mismo control mediante ASP .NET agregando lo que se denomina un “validator”

En este ejemplo mostraremos un caso dónde solo permita subir archivos .gif. (Esto queda a criterio de cada programador). Esto se aclarará al costado del browser dónde se indicará el formato que está permitido ingresar.

<asp:RegularExpressionValidator id="FileUpLoadValidator" runat="server" ErrorMessage="Upload Gifs only." ValidationExpression="^(([a-zA-Z]:)|({2}w+)$?)((w[w].*))(.gif|.GIF)$"
ControlToValidate="FileUpload2"></asp:RegularExpressionValidator>

Hemos repasado el procedimiento básico y el funcionamiento del control FileUpload para poder subir archivos con ASP .NET de modo rápido y eficaz. A su vez, recordamos que este control sólo habilita el ingreso de archivos que no superen los 4 MB aproximadamente.

De otro modo, nos indicará que se ha cometido un error y no podrá realizarse con éxito la operación. Por lo tanto habrá que proceder modificando la configuración en función de encontrar una solución a nuestro problema. Por lo tanto habrá que implementar una serie de modificaciones en el web.config.comments dentro de la carpeta de configuración de ASP .NET. Una vez allí, ubicamos dentro del nodo “httpRuntime” cambiamos el valor predeterminado de la propiedad maxRequestLength que es el componente que se encarga del tamaño de los archivos que se suben (recordemos que allí el valor que se indica está en kilobytes).

Una vez realizado esto, se habilitará la suba de archivos del tamaño que se especificó dependiendo de la necesidad de cada uno; la misma se aplicará a todas nuestras aplicaciones.

Fuente

Visual Fox Pro - abrir un documento de Excel con Password

2008-08-04T05:29:00.001-03:00

Este ejemplo demuestra como podemos abrir un documento de Excel con clave de lectura Y de lecto-escritura.

oExcel = CreateObject("Excel.Application")
cArchivo = GetFile("XLS")

cPassLectura = "miclave"
cPassLecturaEscri = "miclave2"

oExcel.Workbooks.Open(cArchivo,,,,cPassLectura, cPassLecturaEscri)
oExcel.Visible = .T.

Fuente

ConText Editor de Código fuente fratuito

2008-08-03T12:28:00.001-03:00

Context es un editor de código fuente similar al conocido Notepad ++ es de uso gratuito, reconoce la sintaxis de los lenguajes: C/C++ Delphi/Pascal Java Java Script Visual Basic Perl/CGI HTML CSS SQL FoxPro 80×86 assembler Python PHP Tcl/Tk XML Fortran Foxpro Me parece interesante contar con otra opción de además de las ya conocidas, otro punto a favor de Context es que viene disponible para varios idiomas incluyendo el español.

Sitio Web
Descarga v0.97.6

Visual Basic - Conectando a un servidor mysql

2008-08-02T13:37:00.001-03:00

MySQL es una de las base de datos mas rápidas y potentes de la actualidad si a esto le agregamos lo rápido que se torna desarrollar bajo Visual Basic sin dudas corremos con grandes ventajas a la hora de crear potentes aplicaciones. No solo para acceder de forma local a nuestra base de datos sino también puede que necesitemos acceder a un servidor MySQL localizado en otra parte del mundo y hasta que este corra bajo Linux.

Como primer paso debemos crear la referencia a RDO (Remote Data Object) desde nuestro Visual Basic, para esto vamos al menú Proyecto > Referencias... y ahí seleccionamos Microsoft Remote Data Object...

Esa va a ser la librería (similar a ADO o DAO) que nos va a dar todos los métodos para poder conectarnos tanto local como de forma remota a un servidor MySQL.

La aplicación de ejemplo que hemos creado conecta al servidor indicado mediante un usuario y contraseña y nos devuelve todas las tablas de la base de datos indicada, veamos un gráfico así queda mas claro...

Al hacer click en el botón conectar se inicia el proceso de conexión al servidor indicado...

Private Sub boton_conectar_Click()
Dim cadena_conexion

'creamos la cadena de conexión leyendo los valores de los textbox
cadena_conexion = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=" & servidor & "; DATABASE=" & base_de_datos & " ;PWD=" & password & "; UID=" & usuario & ";OPTION=3"

Set db = New rdoConnection


'asociamos la cadena de conexión al objeto
db.Connect = cadena_conexion
db.CursorDriver = rdUseServer

'establecemos la conexión
db.EstablishConnection
End Sub

Ese es el código que nos conectara a nuestro servidor MySQL, vemos en negrita los comentarios en el código que nos facilitaran entenderlo. El próximo paso será obtener el listado de todas las tablas de la base de datos abierta....

Dim tabla As rdoTable
Dim hay_tablas As Boolean

hay_tablas = False
cambiar_botones True

'recorremos todas las tablas
For Each tabla In db.rdoTables
'extraemos el nombre de la tabla y lo agregamos en un listbox
tablas.AddItem tabla.Name
hay_tablas = True
Next

If Not hay_tablas Then
MsgBox "La base de datos esta vacia"
boton_desconectar_Click
End If

Hasta aca ya tenemos una lista de todas las tablas que hay en la base de datos, ahora solo nos queda listar el contenido de la tabla seleccionada...

Dim tabla As String
Dim consulta As New rdoQuery
Dim resultados As rdoResultset
Dim contenido_row As String
Dim columna As rdoColumn

contenido.Clear

tabla = tablas.List(tablas.ListIndex)

'le indicamos al objeto consulta que usaremos db como base de datos activa
Set consulta.ActiveConnection = db

'creamos la consulta SQL y la ejecutamos
consulta.SQL = "SELECT * FROM " & tabla & " WHERE 1"
consulta.Execute

'asigamos el resultado de la consulta a nuestro objeto resultados (rdoResultset)
Set resultados = consulta.OpenResultset

'recorremos todos los resultados
While Not resultados.EOF

contenido_row = ""

'cargamos el contenido de cada registro
For Each columna In resultados.rdoColumns
contenido_row = contenido_row & columna.Name & "=" & resultados(columna.Name) & "; "
Next

'agregamos el contenido de cada registro al listbox
contenido.AddItem contenido_row
resultados.MoveNext
Wend

'cerramos y borramos los objetos
resultados.Close
Set resultados = Nothing

Bien hasta aca tenemos todos los aspectos básicos de como conectarnos y trabajar con una base de datos MySQL desde Visual Basic, recordemos que el código aca mostrado forma parte de nuestro ejemplo que podemos descargar desde aquí

Fuente

PHP - Pasar números a letras

2008-08-01T20:14:00.001-03:00

<?php
/*!
  @function num2letras ()
  @abstract Dado un n?mero lo devuelve escrito.
  @param $num number - N?mero a convertir.
  @param $fem bool - Forma femenina (true) o no (false).
  @param $dec bool - Con decimales (true) o no (false).
  @result string - Devuelve el n?mero escrito en letra.

*/
function num2letras($num, $fem = true, $dec = true) {
//if (strlen($num) > 14) die("El n?mero introducido es demasiado grande");
   $matuni[2]  = "dos";
   $matuni[3]  = "tres";
   $matuni[4]  = "cuatro";
   $matuni[5]  = "cinco";
   $matuni[6]  = "seis";
   $matuni[7]  = "siete";
   $matuni[8]  = "ocho";
   $matuni[9]  = "nueve";
   $matuni[10] = "diez";
   $matuni[11] = "once";
   $matuni[12] = "doce";
   $matuni[13] = "trece";
   $matuni[14] = "catorce";
   $matuni[15] = "quince";
   $matuni[16] = "dieciseis";
   $matuni[17] = "diecisiete";
   $matuni[18] = "dieciocho";
   $matuni[19] = "diecinueve";
   $matuni[20] = "veinte";
   $matunisub[2] = "dos";
   $matunisub[3] = "tres";
   $matunisub[4] = "cuatro";
   $matunisub[5] = "quin";
   $matunisub[6] = "seis";
   $matunisub[7] = "sete";
   $matunisub[8] = "ocho";
   $matunisub[9] = "nove";

   $matdec[2] = "veint";
   $matdec[3] = "treinta";
   $matdec[4] = "cuarenta";
   $matdec[5] = "cincuenta";
   $matdec[6] = "sesenta";
   $matdec[7] = "setenta";
   $matdec[8] = "ochenta";
   $matdec[9] = "noventa";
   $matsub[3]  = 'mill';
   $matsub[5]  = 'bill';
   $matsub[7]  = 'mill';
   $matsub[9]  = 'trill';
   $matsub[11] = 'mill';
   $matsub[13] = 'bill';
   $matsub[15] = 'mill';
   $matmil[4]  = 'millones';
   $matmil[6]  = 'billones';
   $matmil[7]  = 'de billones';
   $matmil[8]  = 'millones de billones';
   $matmil[10] = 'trillones';
   $matmil[11] = 'de trillones';
   $matmil[12] = 'millones de trillones';
   $matmil[13] = 'de trillones';
   $matmil[14] = 'billones de trillones';
   $matmil[15] = 'de billones de trillones';
   $matmil[16] = 'millones de billones de trillones';

   $num = trim((string)@$num);
   if ($num[0] == '-') {
      $neg = 'menos ';
      $num = substr($num, 1);
   }else
      $neg = '';
   while ($num[0] == '0') $num = substr($num, 1);
   if ($num[0] < '1' or $num[0] > 9) $num = '0' . $num;
   $zeros = true;
   $punt = false;
   $ent = '';
   $fra = '';
   for ($c = 0; $c < strlen($num); $c++) {
      $n = $num[$c];
      if (! (strpos(".,'''", $n) === false)) {
         if ($punt) break;
         else{
            $punt = true;
            continue;
         }

      }elseif (! (strpos('0123456789', $n) === false)) {
         if ($punt) {
            if ($n != '0') $zeros = false;
            $fra .= $n;
         }else

            $ent .= $n;
      }else

         break;

   }
   $ent = '     ' . $ent;
   if ($dec and $fra and ! $zeros) {
      $fin = ' coma';
      for ($n = 0; $n < strlen($fra); $n++) {
         if (($s = $fra[$n]) == '0')
            $fin .= ' cero';
         elseif ($s == '1')
            $fin .= $fem ? ' una' : ' un';
         else
            $fin .= ' ' . $matuni[$s];
      }
   }else
      $fin = '';
   if ((int)$ent === 0) return 'Cero ' . $fin;
   $tex = '';
   $sub = 0;
   $mils = 0;
   $neutro = false;
   while ( ($num = substr($ent, -3)) != '   ') {
      $ent = substr($ent, 0, -3);
      if (++$sub < 3 and $fem) {
         $matuni[1] = 'una';
         $subcent = 'as';
      }else{
         $matuni[1] = $neutro ? 'un' : 'uno';
         $subcent = 'os';
      }
      $t = '';
      $n2 = substr($num, 1);
      if ($n2 == '00') {
      }elseif ($n2 < 21)
         $t = ' ' . $matuni[(int)$n2];
      elseif ($n2 < 30) {
         $n3 = $num[2];
         if ($n3 != 0) $t = 'i' . $matuni[$n3];
         $n2 = $num[1];
         $t = ' ' . $matdec[$n2] . $t;
      }else{
         $n3 = $num[2];
         if ($n3 != 0) $t = ' y ' . $matuni[$n3];
         $n2 = $num[1];
         $t = ' ' . $matdec[$n2] . $t;
      }
      $n = $num[0];
      if ($n == 1) {
         $t = ' ciento' . $t;
      }elseif ($n == 5){
         $t = ' ' . $matunisub[$n] . 'ient' . $subcent . $t;
      }elseif ($n != 0){
         $t = ' ' . $matunisub[$n] . 'cient' . $subcent . $t;
      }
      if ($sub == 1) {
      }elseif (! isset($matsub[$sub])) {
         if ($num == 1) {
            $t = ' mil';
         }elseif ($num > 1){
            $t .= ' mil';
         }
      }elseif ($num == 1) {
         $t .= ' ' . $matsub[$sub] . '?n';
      }elseif ($num > 1){
         $t .= ' ' . $matsub[$sub] . 'ones';
      }   
      if ($num == '000') $mils ++;
      elseif ($mils != 0) {
         if (isset($matmil[$sub])) $t .= ' ' . $matmil[$sub];
         $mils = 0;
      }
      $neutro = true;
      $tex = $t . $tex;
   }
   $tex = $neg . substr($tex, 1) . $fin;
   return ucfirst($tex);
}

?>

Fuente

Sql Server - 25 - Funciones para el manejo de cadenas

2008-08-01T20:08:00.001-03:00

Microsoft SQL Server tiene algunas funciones para trabajar con cadenas de caracteres. Estas son algunas:

- substring(cadena,inicio,longitud): devuelve una parte de la cadena especificada como primer argumento, empezando desde la posición especificada por el segundo argumento y de tantos caracteres de longitud como indica el tercer argumento. Ejemplo:

select substring('Buenas tardes',8,6);

retorna "tardes".

- str(numero,longitud,cantidaddecimales): convierte números a caracteres; el primer parámetro indica el valor numérico a convertir, el segundo la longitud del resultado (debe ser mayor o igual a la parte entera del número más el signo si lo tuviese) y el tercero, la cantidad de decimales. El segundo y tercer argumento son opcionales y deben ser positivos. String significa cadena en inglés.

Ejemplo: se convierte el valor numérico "123.456" a cadena, especificando 7 de longitud y 3 decimales:

select str(123.456,7,3);

select str(-123.456,7,3);

retorna '-123.46';

Si no se colocan el segundo y tercer argumeno, la longitud predeterminada es 10 y la cantidad de decimales 0 y se redondea a entero. Ejemplo: se convierte el valor numérico "123.456" a cadena:

select str(123.456);

retorna '123';

select str(123.456,3);

retorna '123';

Si el segundo parámetro es menor a la parte entera del número, devuelve asteriscos (*). Ejemplo: select str(123.456,2,3);

retorna "**".

- stuff(cadena1,inicio,cantidad,cadena2): inserta la cadena enviada como cuarto argumento, en la posición indicada en el segundo argumento, reemplazando la cantidad de caracteres indicada por el tercer argumento en la cadena que es primer parámetro. Stuff significa rellenar en inglés. Ejemplo:

select stuff('abcde',3,2,'opqrs');

retorna "abopqrse". Es decir, coloca en la posición 2 la cadena "opqrs" y reemplaza 2 caracteres de la primer cadena.

Los argumentos numéricos deben ser positivos y menor o igual a la longitud de la primera cadena, caso contrario, retorna "null".

Si el tercer argumento es mayor que la primera cadena, se elimina hasta el primer carácter.

- len(cadena): retorna la longitud de la cadena enviada como argumento. "len" viene de length, que significa longitud en inglés. Ejemplo:

select len('Hola');

devuelve 4.

- char(x): retorna un caracter en código ASCII del entero enviado como argumento. Ejemplo:

select char(65);

retorna "A".

- left(cadena,longitud): retorna la cantidad (longitud) de caracteres de la cadena comenzando desde la izquierda, primer caracter. Ejemplo:

select left('buenos dias',8);

retorna "buenos d".

- right(cadena,longitud): retorna la cantidad (longitud) de caracteres de la cadena comenzando desde la derecha, último caracter. Ejemplo:

select right('buenos dias',8);

retorna "nos dias".

-lower(cadena): retornan la cadena con todos los caracteres en minúsculas. lower significa reducir en inglés. Ejemplo:

select lower('HOLA ESTUDIAnte');

retorna "hola estudiante".

-upper(cadena): retornan la cadena con todos los caracteres en mayúsculas. Ejemplo:

select upper('HOLA ESTUDIAnte');

-ltrim(cadena): retorna la cadena con los espacios de la izquierda eliminados. Trim significa recortar. Ejemplo:

select ltrim(' Hola ');

retorna "Hola ".

- rtrim(cadena): retorna la cadena con los espacios de la derecha eliminados. Ejemplo:

select rtrim(' Hola ');

retorna " Hola".

- replace(cadena,cadenareemplazo,cadenareemplazar): retorna la cadena con todas las ocurrencias de la subcadena reemplazo por la subcadena a reemplazar. Ejemplo:

select replace('xxx.sqlserverya.com','x','w');

retorna "www.sqlserverya.com'.

- reverse(cadena): devuelve la cadena invirtiendo el order de los caracteres. Ejemplo:

select reverse('Hola');

retorna "aloH".

- patindex(patron,cadena): devuelve la posición de comienzo (de la primera ocurrencia) del patrón especificado en la cadena enviada como segundo argumento. Si no la encuentra retorna 0. Ejemplos:

select patindex('%Luis%', 'Jorge Luis Borges');

retorna 7.

select patindex('%or%', 'Jorge Luis Borges');

retorna 2.

select patindex('%ar%', 'Jorge Luis Borges');

retorna 0.

- charindex(subcadena,cadena,inicio): devuelve la posición donde comienza la subcadena en la cadena, comenzando la búsqueda desde la posición indicada por "inicio". Si el tercer argumento no se coloca, la búsqueda se inicia desde 0. Si no la encuentra, retorna 0. Ejemplos:

select charindex('or','Jorge Luis Borges',5);

retorna 13.

select charindex('or','Jorge Luis Borges');

retorna 2.

select charindex('or','Jorge Luis Borges',14);

retorna 0.

select charindex('or', 'Jorge Luis Borges');

retorna 0.

- replicate(cadena,cantidad): repite una cadena la cantidad de veces especificada. Ejemplo:

select replicate ('Hola',3);

retorna "HolaHolaHola";

- space(cantidad): retorna una cadena de espacios de longitud indicada por "cantidad", que debe ser un valor positivo. Ejemplo:

select 'Hola'+space(1)+'que tal';

retorna "Hola que tal".

Se pueden emplear estas funciones enviando como argumento el nombre de un campo de tipo caracter.

Fuente

Php - Como generar un Thumbnail en PHP utilizando GD

2008-08-01T06:03:00.001-03:00

Antes que nada avisar que se requieren las librerías GD para poder realizar los thumbnails. Y en función de la versión de GD, podremos usar una u otra función
Primero pegaré el código de una función con la que generaremos directamente un thumbnail de alta calidad.

Código PHP:

function thumbjpeg($imagen,$altura) {
     // Lugar donde se guardarán los thumbnails respecto a la carpeta donde está la imagen "grande".
     $dir_thumb = "thumbs/";
     // Prefijo que se añadirá al nombre del thumbnail. Ejemplo: si la imagen grande fuera "imagen1.jpg",
     // el thumbnail se llamaría "tn_imagen1.jpg"
     $prefijo_thumb = "tn_";

     // Aquí tendremos el nombre de la imagen.
     $nombre=basename($imagen);
     // Aquí la ruta especificada para buscar la imagen.
     $camino=dirname($imagen)."/";

     // Intentamos crear el directorio de thumbnails, si no existiera previamente.
     if (!file_exists($camino.$dir_thumb))
          @mkdir ($camino.$dir_thumb, 0777) or die("No se ha podido crear el directorio ".$camino.$dir_thumb);

     // Aquí comprovamos que la imagen que queremos crear no exista previamente
     if (!file_exists($camino.$dir_thumb.$prefijo_thumb.$nombre)) {
          echo $camino.$dir_thumb.$prefijo_thumb.$nombre." NO existía<br>\\n";
          $img = @imagecreatefromjpeg($camino.$nombre) or die("No se encuentra la imagen $camino$nombre<br>\\n");

          // miramos el tamaño de la imagen original...
          $datos = getimagesize($camino.$nombre) or die("Problemas con $camino$nombre<br>\\n");

          // intentamos escalar la imagen original a la medida que nos interesa
          $ratio = ($datos[1] / $altura);
          $anchura = round($datos[0] / $ratio);

          // esta será la nueva imagen reescalada
          $thumb = imagecreatetruecolor($anchura,$altura);

          // con esta función la reescalamos
          imagecopyresampled ($thumb, $img, 0, 0, 0, 0, $anchura, $altura, $datos[0], $datos[1]);

          // voilà la salvamos con el nombre y en el lugar que nos interesa.
          imagejpeg($thumb,$camino.$dir_thumb.$prefijo_thumb.$nombre);
     }
}

Para llamar a la función sencillamente hacer:

thumbjpeg($imagen, 125);

En este caso, '$imagen', es la imagen que queremos reducir, y '125', es la altura en píxeles que queremos que tenga la imagen reducida, de modo que el ancho quede proporcionado respecto a la imagen original.

Con la instrucción “or die()” se mostrará en pantalla el mensaje entrecomillado solo en el caso de que fallara la primera sentencia de la línea.

NOTAS:

Si en lugar de GD2 disponemos de GD1, no podremos utilizar la función imagecopyresampled() y deberíamos conformarnos con la función imagecopyresized() , que utiliza los mismos parámetros, lo malo es que ésta última da como resultado una imagen de calidad más pobre. A cambio, es mucho más rápida que la anterior.

Así si tenemos GD2, podemos usar la que más nos interese, si queremos CALIDAD y no nos importa el número de ciclos consumidos en el servidor,

imagecopyresampled();

en caso contrario:

imagecopyresized();

Si lo que queremos es crear imágenes "al vuelo", sin guardarlas en ningún archivo (cosa poco recomendable si usamos la función de más calidad), el segundo parámetro de la función imagejpeg() no se debe de poner, quedando la llamada en el scritp que hay más arriba:

Código PHP:

imagejpeg($thumb);

Bueno, démonos cuenta que este script solo sirve para reducir imágenes de tipo JPEG, no de otro, para otros formatos, tan solo habría que cambiar un par de funciones por las correspondientes en los formatos que nos interesen.

Ejemplo:

imagecreatefromjpeg() por imagecreatefrompng() o imagecreatefromwbmp() o etc.

y

imagejpeg() por imagepng() o imagewbmp() o etc.

Fuente

Visual Basic - Obtener Nro. de Serie de el disco

2008-08-01T05:54:00.001-03:00

Para poder detectar cual es el número de serie, deberemos utilizar una llamada a la API (cuando no?)
que se llama GetVolumeInformation... de la siguiente manera:

Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" _
(ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize _
As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags _
As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long

Todo en una sola linea, no lo olviden

y en el form...

NVolSize = 0: NVolNumber = 0: NMaxCompLength = 0
NFileSFlags = 0: NFileSBuffer = 0: NFileSNames = 0
Ruta = UCase(Left(Ruta, 1)) & ":\"
ChDrive Ruta
Nombre = Dir(Ruta, vbVolume)
ret = GetVolumeInformation(Ruta, Nombre, NVolSize, NVolNumber, NMaxCompLength, _
        NFileSFlags, NFileSBuffer, NFileSNames)
If ret = 0 Then Label1.Caption = "Numero de Serie del Volumen : " & Left(Hex(NVolNumber), 4) & "-" & Right(Hex(NVolNumber), 4) & vbCrLf & "Nombre del Volumen : " & Nombre

Fuente

Visual Basic - Formulario Transparente

2008-07-31T20:54:00.001-03:00

Insertar el siguiente Codigo en un Modulo:

Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Nota: Debe estar todo en una sola linea (Usar el Visor de Texto API, que viene con Visual Basic)

Insertar el siguiente Codigo en CommandButton para probar:

Private Sub Command1_Click()
    Dim Resp As Long
    Resp = SetWindowLong(Me.hWnd, -20, &H20&)
    Form1.Refresh
End Sub

En un módulo:

Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Const WS_EX_TRANSPARENT = &H20&
Public Const GWL_HINSTANCE = (-6)
Public Const GWL_EXSTYLE = (-20)
Public Const GWL_HWNDPARENT = (-8)
Public Const GWL_ID = (-12)
Public Const GWL_STYLE = (-16)
Public Const GWL_USERDATA = (-21)
Public Const GWL_WNDPROC = (-4)

y en el Form_Load

Call SetWindowLong(Form1.hwnd, GWL_EXSTYLE, WS_EX_TRANSPARENT)

Visual basic - Ventana con forma eliptica

2008-07-31T20:48:00.001-03:00

Solamente necesitamos declarar en un Modulo lo siguiente:

Public Declare Function SetWindowRgn Lib "user32" Alias "SetWindowRgn" (ByVal hWnd As Long, _
                ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Public Declare Function CreateEllipticRgn Lib "gdi32" Alias "CreateEllipticRgn" (ByVal X1 As Long, _
                ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

En el evento clic de la ventana

Private Sub Form_Click()
       Dim Xs as Long, Ys as Long
        Xs = Me.Width / Screen.TwipsPerPixelX
        Ys = Me.Height / Screen.TwipsPerPixelY
    SetWindowRgn hWnd, CreateEllipticRng(0, 0, Xs, Ys), True
End Sub

Fuente

Visual Fox Pro - Crear PDF con PdfWriter

2008-07-31T20:44:00.001-03:00

SET SAFETY OFF
WAIT WINDOW "Generando el Archivo PDF" TIMEOUT 1
cImpPrinter = "Acrobat PDFWriter"
REPORT FORM prestarepo2.frx NOCONSOLE TO FILE Archipdf.ps
SET PRINTER TO NAME  ( cImpPrinter ) 
 
* NOTA : PARA GENERAR DE FORMA AUTOMATIZADA EL ARCHIVO PDF INCLUIR LO SIGUIENTE EN EL ARCHIVO  "C:\SYSTEM\PDFWRITR.INI"  (UTILIZAR EL BLOC DE NOTAS)       
* Ejemplo.-  PDFFileName = C:\EXAMPLE\EJEMPLO.PDF