27.6.06

Formateo de Datos

Muchas veces nos es muy útil, formatear los datos que estamos utilizando en una aplicación para que se puedan observar de una u otra forma, aquí les dejo algunos ejemplos
 
Format Currency
 

FormatCurrency(12345.6789)

$12,345.68

FormatCurrency(12345.6789, 4)

$12,345.6789

FormatCurrency(12345.6789,,,,False)

$12345.68

FormatCurrency(-12345.6789)

($12,345.68)

FormatCurrency(-12345.6789,,,False)

-$12,345.68

FormatCurrency(.6789)

$0.68

FormatCurrency(.6789,,False)

$.68

FormatCurrency(-.6789,,False,False)

-$.68

 
Format Number
 

FormatNumber(12345.6789)

12,345.68

FormatNumber(12345.6789,5)

12,345.67890

FormatNumber(12345.6789,,,,False)

12345.68

FormatNumber(-12345.6789)

-12,345.68

FormatNumber(-12345.6789,,,True)

(12,345.68)

FormatNumber(.6789)

0.68

FormatNumber(.6789,,False)

.68

FormatNumber(-.6789,4)

-0.6789

Format DateTime

FormatDateTime(Now)

6/27/2006 8:31:51 PM

FormatDateTime(Today)

6/27/2006

FormatDateTime(TimeOfDay)

8:31:51 PM

FormatDateTime(Now,DateFormat.LongDate)

Tuesday, June 27, 2006

FormatDateTime(Today,DateFormat.LongDate)

Tuesday, June 27, 2006

FormatDateTime(Now,DateFormat.ShortDate)

6/27/2006

FormatDateTime(Today,DateFormat.ShortDate)

6/27/2006

FormatDateTime(Now,DateFormat.LongTime)

8:31:51 PM

FormatDateTime(TimeOfDay,DateFormat.LongTime)

8:31:51 PM

FormatDateTime(Now,DateFormat.ShortTime)

20:31

FormatDateTime(TimeOfDay,DateFormat.ShortTime)

20:31

 

ASP Net - File Exist

Muchos de Ustedes vienen programando desde ASP y algunas cosas entre ASP y ASP Net son muy parecidas, como por ejemplo, preguntar si un archivo existe, aca.... un ejemplo

ASP 3.0
Dim FileSystemObject
'
Set FileSystemObject = Server.CreateObject("Scripting.FileSystemObject")

If (FileSystemObject.FileExists("c:\myfile.txt")) Then
msgbox("True")
Else
msgbox("False")
End If
'

Set FileSystemObject = Nothing

ASP Net
Imports System.IO

If File.Exists("C:\myfile.txt") then

messagebox.show("True")
Else
messagebox.show("False")
End If

20.6.06

Relax - Darth Vader

La gente de Burger King, nos regala un simple juego en pantalla donde Darth Vader en 20 preguntas nos contesta lo que estamos pensando.

Pruebenlo

http://sithsense.com/flash.htm

Windows Vista - Gadgets

En Windows Vista y en XP (con sus respectipos CTP) se puede hacer uso de la Windows Sidebar del OS.Vamos a crear un gadget simple para poder agregarlo y ver su funcionalidad.

Primeramente se crea una carpeta con el nombre tdn.gadget (.gadget es para que la sidebar lo tome como tal) adentro agregamos dos imágenes representativas, logo.png e icon.png, preferiblemente de 48 x 48
Dentro de tnd.gadget, creamos otra carpeta llamada en-US donde colocaremos la funcionalidad del gadgetArmamos una pagina html llamada por ende tnd.html con el siguiente código:

<html>
<head>
<title>Hola, mundo!</title>
<style>
body{ width:130; height:50; }
</style>
</head>
<body>
<span id="gadgetContent" style=" ">Hola, mundo!</span>
</body>
</html>

y un manifiesto llamado gadget.xml, con el siguiente formato:
<?xml version="1.0" encoding="utf-8" ?>
<gadget>
<name>Hola Mundo</name>
<namespace>
<!--_locComment_text="{Locked}"-->
microsoft.windows</namespace>
<version>
<!--_locComment_text="{Locked}"-->1.0.0.0</version>
<author name="tdn">
<info url="http://www.techdotnet.com.ar/" />
<logo src="logo.png" />
</author>
<copyright><!--_locComment_text="{Locked}"-->© 2006</copyright> <description>Saludo Cordial</description>
<icons>
<icon height="48" width="48" src="icon.png" />
</icons>
<hosts>
<host name="sidebar">
<base type="html" apiVersion="1.0.0" src="tdn.html" />
<permissions><!--_locComment_text="{Locked}"-->full</permissions> <platform minPlatformVersion ="0.3"/>
</host>
</hosts>
</gadget>

Una vez armado todo esto, copiamos la carpeta tnd.gadget en la siguiente ruta C:\Program Files\Windows Sidebar\Gadgets\

Si abrimos la colección de gadgets, veremos nuestro nuevo control, lo único que debemos hacer es arrastarlo hasta la Windows Sidebar o simplemente realizar un click derecho y agregar

13.6.06

Office System - Smart Tags y Task Pane

Le paso un código muy sencillo para que , en un documento Word (2003/2007) podamos generar un smart tag (reconocedor de palabras) y una de las acciones de este sea la insercion de un dato en un label de un task pane.

Debemos generar un proyecto de tipo Office, agregarle en las referencias de Microsoft Smart Tag 2.0

No se olviden de cambiar el modificador del Label a Publico !

Imports Microsoft.Office.Tools.Word

Public Class ThisDocument
Dim APC As New ActionsPaneControl1

Private Sub ThisDocument_Startup(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Startup
Dim ST As New SmartTag("
http://localhost/SmartTag#SmartTag2ActionsPane", "SmartTag2ActionsPane")
ST.Terms.Add("Hello")
Dim AddtoActionsPaneAction As New Action("Add text to Actions Pane")
ST.Actions = New Action() {AddtoActionsPaneAction}
AddHandler AddtoActionsPaneAction.Click, AddressOf AddtoActionsPaneAction_Click
Me.VstoSmartTags.Add(ST)
Me.ActionsPane.Controls.Add(APC)
End Sub
'
'
Public Sub AddtoActionsPaneAction_Click(ByVal sender As Object, ByVal e As ActionEventArgs)
APC.Label1.Text = e.Text
End Sub
End Class