Algunos Tips de Visual Basic
 
  Inicio | Visual Basic | Autorun | Crear Ayudas |

  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