jueves, 9 de agosto de 2007

ShortcutKeys / Teclas de Acceso

Las teclas de acceso se utilizan ejecutar de manera rápida, abreviada y cómoda acciones a través del teclado.

Crear Teclas de Acceso Dinámicamente


Arrastrar el control MenuStrip al Form y luego agregar el item Archivo y debajo Abrir.



En el constructor de la clase Form1 usar la propiedad ShortcutKeys del objeto AbrirToolStripMenuItem y agregar la enumeración Keys los valores Control y E. Registrar el evento Click y mostrar en un MsgBox el texto abrir.

Public Class Form1
Public Sub New()
InitializeComponent()
AbrirAToolStripMenuItem.ShortcutKeys = Keys.Control Or Keys.E
End Sub

Private Sub AbrirToolStripMenuItem_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles AbrirToolStripMenuItem.Click
MsgBox("Abrir")
End Sub
End Class


Inicie la depuración y cuando aparezca el Form presione la tecla Ctrl y sin soltar presione la tecla E. Se Abrirá un caja de mensaje con el texto Abrir.

LinkLabel

LinkLabel es un control de etiqueta que tiene función de mostrar hipervínculo, formato y seguimiento. Se utiliza principalmente para conectarse a una página de Internet a través de un navegador web.

WebLink


Si se produce el evento LinkClicked el navegador predeterminado se conectará al blog http://tutorialpdf.blogspot.com
Public Class MainForm
Private Sub linklb_LinkClicked(ByVal sender As System.Object, _
ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) _
Handles linklb.LinkClicked
Process.Start("http://tutorialpdf.blogspot.com")
End Sub
End Class


Enviar un Mail


Realiza la misma operación que la etiqueta HTML <a href="mailto://enviar@mail.com">Enviar Email</a>
Public Class MainForm
Private Sub linklb_LinkClicked(ByVal sender As System.Object, _
ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) _
Handles linklb.LinkClicked
Process.Start("mailto://enviar@mail.com")
End Sub
End Class