Proximamente....

Validar Solo Numeros en Textbox Visual Basic 6

Para que solo se puedan escribir numeros en un cuadro de texto (de forma similar a lo visto anteriormente para visual 2005) en Visual 6 se debe escribir la siguiente linea en el evento Keypress de un Textbox

Private Sub txttexto_KeyPress(KeyAscii As Integer)
If (KeyAscii <> 57) And KeyAscii <> 8 Then KeyAscii = 0
End Sub

Abrir un archivo en Visual Basic 2005

La siguiente linea nos sirve para abrir cualquier tipo de archivo

System.Diagnostics.Process.Start("c:\Archivo.PDF")

En este caso nos abre el archivo.pdf en acrobat, pero puede abrir cualquier tipo de archivo en su programa predeterminado

Validar solo Numeros en un Textbox

Este pequeño trozo de codigo que pongo a continuacion puede ser de mucha utilidad, ya que sirve para validar un Textbox y solo se puedan escribir en el Numeros. Para esto se tiene que poner este codigo en el evento Keypress del Textbox.

If Asc(e.KeyChar) >= 48 And Asc(e.KeyChar) >= 58 Then
e.Handled = True
Else
e.Handled = False
End If

Factorial de un numero Visual Basic

Este trozo de codigo nos da el factorial de un numero y nos sirve para cualquier version de Visual Basic o de algun otro lenguaje con estructura similar.

Sub Factorial ()

a = Int(txtscreen.Text)
'a se pasa entero porque los factoriales no pueden contener decimales
b = 1

If a = 0 Then
b = 0
Else
If a = 1 Then
b = 1
Else
For i = 1 To a
b = b * i
Next
End If
End If

txtfactorial.text = b
End Sub

Trigonometria en Grados en lugar de Radianes para Visual Basic 2005

Las funciones de Trigonometria (sen, cos, tan, sec, etc..) ocupadas en Visual Basic 2005 de la Sytem.Math nos dan el resultado en Radianes para convertirlos a Grados hacemos lo siguiente :

gradoradian = (Math.PI * grado) / 180
gradonormal = Math.Cos(gradoradian)

Remplazando el Marh.cos por cualquiera de las otras funciones de la clase System.Math obtenemos lo que se desea

Segundero en un Label para Visual Basic 2005

Evento de un timer (Timer1) que inicia un segundero en una etiqueta (tiempo) con una variable tipo Date (segundero)

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Dim segundero As Date

segundero = segundero.AddSeconds(1)
tiempo.Text = segundero

End Sub

El timer tiene las propiedades:

• Enable = True (Para que inicie cuando se ejecute el programa)
  
• Intervall = 1000 (Para que haga la accion cada 1 segundo)
  

Limpiar todos los cuadros de texto en Visual Basic 2005

Esta instruccion limpia todos los cuadros de texto que se encuentren en el formulario

Dim x As Control
For Each x In Me.Controls
If TypeOf x Is TextBox Then x.Text = ""
Next

Random en Visual Basic 2005

El codigo para crear un numero aleatorio es el siguiente:

' Se inicializa la semilla con el Randomize.
Randomize()
' La siguiente linea devuelve un numero entero entre el a y el b.
Dim value As Integer = CInt(Int((a * Rnd()) + b))

Ejemplo:

' Lo siguiente devolveria un valor entero entre 1 y 16.
Randomize()
Dim value As Integer = CInt(Int((1 * Rnd()) + 16))

Primer Post de mi Primer Blog

Este es Trozos de Codigo un blog donde tratare de hacer una bibliotecas de diversas funciones de los diferentes lenguajes que empieze a manejar, para en un futuro cuando necesite alguna de estas no pierda mi tiempo buscando por todo el internet.

Espero sea util no solo para mi, sino para aquel que lo descubra y que no quede en uno de los tantos proyectos fallidos que suelo iniciar jeje.