Algunos Tips de Visual Basic |
|
Consejos y Trucos de VB | |
Cuando estamos progrmando, Algunas veces nos encontramos con pequeños inconvenientes, aqui pondre
algunas soluciones que encontrado en la red y otras propias Usar las Teclas Funcion Una de las posibilidades que tenemos en Visual Basic es poder programar casi cualquier cosa, y una de estas son las teclas de funcion, para eso usamos el evento KeyDown, y haremos uso de las constantes de VB, asi tenemos que la constante para F1 es vbKeyF1, El listado completo se encuentra en la ayuda de VB, en keycode constants Ejemplo Private Sub Text1_KeyDown(KeyCode As Integer , Shift As Integer) If KeyCode = vbKeyF2 Then 'codigo a Ejecutar Cuando se presiona F2 End If Verificar Si un archivo o directorio existe Si tratamos de borrar un archivo que no existe nos dara un error en tiempo de ejecucion, para evitar esto primero podemos determinar si existe o no el archivo. Codigo Public Function existe_file(ruta) Dim existe As Integer On Error GoTo noexiste GetAttr (ruta) existe_file = True Exit Function noexiste: existe_file = False End Function Donde ruta corresponde al path del archivo o directorio, para los archivos se debe incluir el nombre completo y la extension. Hacer que podamos cambiar entre los controles con Enter Para que cuando presionemos <ENTER> pasemos al control que sigue con unas pocas lineas de programacion,primero debemos poner la propiedad KeyPreview del formulario en que se desee este efecto a True y luego programamos el evento KeyPress del formulario asi: Private Sub Form_KeyPress(KeyAscii As Integer ) Call salta(KeyAscii) End Sub La funcion salta llamada desde el formulario tiene este codigo: Public Sub salta(tecla) If tecla = 13 Then tecla = 0 SendKeys "{TAB}" End If End Sub Hacer que el texto de un TextBox quede selecionado Cuando entramos a un control TextBox y este tiene informacion, el cursor se situa al inicio del mismo, para hacer que este quede seleccionado podemos programar el evento GotFocus del TextBox asi: Private Sub Text1_GotFocus() Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End Sub El inconveniente con este metodo es que tenemos que programar cada control, para solucionar esto podemos crear un procedimiento y lo llamamos desde el evento GotFocus del control asi: Private Sub Text1_GotFocus() selecciona Text1 End Sub y el procedimiento quedaria asi: Public Sub selecciona(micontrol As Control) micontrol.SelStart = 0 micontrol.SelLength = Len(micontrol.Text) End Sub |