Archive for the ‘Visual Basic’ Category

Efecto Degrade en Formulario con VB6

1

Este codigo permite hacer un efecto degradado de 2 colores en el Fondo del formulario.Podes modificar los valores RGB y asi obtener la combinacion de colores deseada.El codigo se escribe en el evento Resize del Formulario para que al redimensionar el formulario el efecto se aplique a todas las areas,ya que si se pone en el evento paint este al redimensionarlo no se aplica,a no ser que se empieze la aplicacion con el formulario totalmente maximizado.

En el Evento Resize del Form pone: 

Private Sub Form_Paint()
Form1.Cls
Form1.AutoRedraw = True
Form1.DrawStyle = 6
Form1.DrawMode = 13
Form1.DrawWidth = 2
Form1.ScaleMode = 3
Form1.ScaleHeight = (256 * 2)
For I = 0 To 255
Form1.Line (0, Y)-(Form1.Width, Y + 2), RGB(0, 250, I), BF
Y = Y + 2
Next I
End Sub

Pasar Texto a Mayusculas y Minusculas con VB6

3

Este codigo simplemente permite escribir un texto en mayusculas o con minusculas con las funciones LCase(minusculas) y UCase(mayusculas).Por ejemplo si declaramos la funcion LCase,lo que se escriba en el textbox saldra siempre en minusculas por mas que tengamos la tecla de mayusculas activada,y lo mismo para la otra funcion pero al revez.Aca un ejemplo de como hacerlo, solo necesitas un textbox(text1) para probarlo.

En el evento Change del textbox pone:

Para Mayusculas: 

Private Sub Text1_Change()
Dim texto As Integer
Text1.text = UCase(Text1.text)
texto = Len(Text1.text)
Text1.SelStart = texto
End Sub

Para Minusculas:

Private Sub Text1_Change()
Dim texto As Integer
Text1.text = LCase(Text1.text)
texto = Len(Text1.text)
Text1.SelStart = texto
End Sub

Capacidad del Disco Rigido con VB6

0

Este codigo permite Saber la capacidad total del disco,el espacio usado y el espacio libre.Usa la api llamada GetDiskFreeSpaceExA.

En el Formulario pone: 

Private Declare Function EspacioLibre Lib "kernel32" Alias "GetDiskFreeSpaceExA" (ByVal lpRootPathName As String, lpFreeBytesAvailableToCaller As Currency, lpTotalNumberOfBytes As Currency, lpTotalNumberOfFreeBytes As Currency) As Long

Private Sub Form_Load()
Dim r As Long, BytesFreeToCalller As Currency, TotalBytes As Currency
Dim TotalFreeBytes As Currency, TotalBytesUsed As Currency
Const RootPathName = "C:\"
Me.AutoRedraw = True
Me.Cls
Me.Print
Call EspacioLibre(RootPathName, BytesFreeToCalller, TotalBytes, TotalFreeBytes)
Me.Print " Espacio Total del Disco:", Format$(TotalBytes * 10000, "###,###,###,##0") & " bytes"
Me.Print " Espacio Libre:", Format$(TotalFreeBytes * 10000, "###,###,###,##0") & " bytes"
Me.Print " Total Espacio Usado :", Format$((TotalBytes - TotalFreeBytes) * 10000, "###,###,###,##0")& " bytes"
End Sub

Post navigation