trucos [Cod-Fun] para iniciadores en V.B.6.0 (J.E.N.P.) pxndx2828.hi5.com

[✖ JuЯy ✖]

Hola, saludos a todos..
pz con lo poco que se, quiero dar un pequeño aporte,
con algunos codes en V.B.6.0 para los que se incian es este desarrollador de aplicaciones.!!

_______________________________________________________________________________________________________

hacer que el titulo de la ventana cambie a otro y viceversa.

le pones el nombre que quieras al form en la propiedad [Caption]
(ejemplo: caption="Nuevo")

despues agregas un [Timer1] en tu Formulario, en la propiedad [Interval] del mismo le pones (por ejemplo: (Interval=1000) )
despues le das un doble click, y le pones:

Código (vb) [Seleccionar] Expandir

Private Sub Timer1_Timer()

If me.caption="Nuevo" then
me.caption="Proyecto"
else
me.caption="Nuevo"
End If

End Sub

________________________________________________________________________________________________________

hacer que un text solo acepte numeros.

agragas  un text y en el evento [KeyPress] le pones:

Código (vb) [Seleccionar] Expandir

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
       Case Asc("0") To Asc("9")
       Case vbKeyBack, vbKeyReturn, vbKeySpace 'esto es opcional para que acepte las teclas (borrar,b_de_espacio)
  Case Else
       KeyAscii = "0"
       MsgBox "solo se aceptan numeros.!!"
End Select
End Sub

__________________________________________________________________________________________________________

hacer que un text solo acepte letras.

agragas  un text y en el evento [KeyPress] le pones:

Código (vb) [Seleccionar] Expandir

Select Case KeyAscii
       Case Asc("a") To Asc("z")
       Case Asc("A") To Asc("Z")
       Case Asc("ñ"), Asc("Ñ")
              Case vbKeyBack, vbKeyReturn, vbKeySpace 'esto es opcional para que acepte las teclas (borrar,b_de_espacio)
  Case Else
       KeyAscii = "0"
       MsgBox " solo se aceptan letras"
End Select

____________________________________________________________________________________________________________

hacer un formulario Elipse..


para que se vea mucho mejor no escribas nada en la propiedad Caption del form1
y en la propiedad ControlBox del form1 pones =false
creas un nuevo proyecto y le agregas un módulo (Click derecho en el Form1 ---> Agregar --> módulo)
luego haces:
en el módulo agregas en las declaraciones generales esto:

Código (vb) [Seleccionar] Expandir

Option Explicit

'para combertir un formulario en elipse
Public Declare Function CreateRoundRectRgn Lib "gdi32" _
(ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, _
ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long

'es un complemento para el que crea la elipse
Public Declare Function SetWindowRgn Lib "user32" _
(ByVal hWnd As Long, ByVal hRgn As Long, _
ByVal bRedraw As Boolean) As Long


y en el modulo en si esto:

Código (vb) [Seleccionar] Expandir

Public Sub JuRy_NaVaS()
    'convierte al formulario de rectangular a eliptico
    'es decir que lo convierte a una elipse
    Dim Vconecto As Variant
    Dim JuRy As Long
    JuRy = CreateRoundRectRgn(10, 0, 320, 230, 200, 150)
    Vconecto = SetWindowRgn(form1.hWnd, JuRy, True)
End Sub

'MAS DATOS DE VARIABLES Y DECLARACIONES:
'LaS VaRiAbLeS "Vconecto" y "JuRy" LaS cReA eL pRoGrAmAdOr
'eL pUbLiC SuB "JuRy_NaVaS" TiEnE qUe SeR cReAdO pArA PoDeR
'TrAnSfOrMaR eL fOrMuLaRiO.

'los metodos y propiedades "CreateRoundRectRgn"
'y "SetWindowRgn" SoN rEcOnOsiDaS pOr eL pRoGrAmA.

'lo que esta dentro de la declaracion "Option Explicit"
'es del programa. tienen que ir; para poder transformar
'el formulario en una elipse.


despues lo que te queda por hacer es en el Form1
en el evento [Load] poner:

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
JuRy_NaVaS
' que es el pUblic SuB
Me.BorderStyle = 0
End Sub

_________________________________________________________________________________________________________

Muy pronto sigo completando este pequeño podría decir tutorial..

Salu-D.O.S

[✖ JuЯy ✖]

Borrar un archivo con la tecla [Supr.]

en el Form1. agregas:

un: Dir1
un: File1
un: Drive1

despues en el Form1 pones el sig code..
en declaraciones generales:

Código (vb) [Seleccionar] Expandir


    ' Constantes
   Private Const FOF_ALLOWUNDO = &H40
   Private Const FO_DELETE = &H3
    ' APi SHFileOperation
    Private Declare Function SHFileOperation Lib "shell32.dll" Alias _
                            "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
   
 
   ' Estructura SHFILEOPSTRUCT para el API
   Private Type SHFILEOPSTRUCT
       hwnd As Long
       wFunc As Long
      pFrom As String
      pTo As String
       fFlags As Integer
      fAnyOperationsAborted As Long
       hNameMappings As Long
       lpszProgressTitle As Long
   End Type

en el form1 en si  esto:

Código (vb) [Seleccionar] Expandir

Private Sub File1_KeyDown(KeyCode As Integer, Shift As Integer)
   Dim TSHF As SHFILEOPSTRUCT
       ' Si se presionó la tecla Delete y el File List tiene un VbNullString
       If KeyCode = vbKeyDelete And File1.FileName <> "" Then
 
 
               TSHF.wFunc = FO_DELETE
               TSHF.pFrom = File1.Path & "\" & File1.FileName
               TSHF.fFlags = FOF_ALLOWUNDO
 
 
           On Error Resume Next
 
           'Ejecuta el Api mostrando el cuadro de confirmación _
           de Windows para eliminar el fichero (ventana de confirmacion)
 
           SHFileOperation TSHF
 
 
           If Err.Number > 0 Then
               MsgBox "Error", vbCritical + vbMsgBoxRtlReading, "Error.!!"
           'si no hubo error refresca el control FileListbox
           Else
 
               File1.Refresh
               ' que lo hace aqui.!!
           End If
 
       End If
   End Sub
 
   Private Sub Dir1_Change()
   File1 = Dir1
   End Sub
 
   Private Sub Drive1_Change()
Dir1 = Drive1
   End Sub
 
   Private Sub Form_Load()
   Me.KeyPreview = True
   Me.Caption = " Ejemplo para eliminar archivos con la tecla (Supr.)"
   End Sub


_____________________________________________________________________________________________

Ocultar/Mostrar *.*archivos

Si quieres puedes agregar 2 command Button al form1 de arriba..
para que veas el directorio en el que estas.!!

en un Boton (ejemplo el CommandButton con caption="Ocultar")
pones en el evento click lo sig:

Código (vb) [Seleccionar] Expandir

[code=vb]Shell "attrib +a +s +r +h " & Text1.Text
' esto oculta todos los archivos [*.*], dependiento de donde este tu aplicacion..
File1.Refresh[/code]

y en el otro boton (ejemplo el CommandButton con caption="Mostrar")
pones lo sig:

Código (vb) [Seleccionar] Expandir

Shell "attrib -a -s -r -h " & Text1.Text
' esto muestra de nuevo todos los archivos [*.*], dependiento de donde este tu aplicacion..
File1.Refresh
____________________________________________________________________________________________

Salu-D.O.S.

[✖ JuЯy ✖]

para que tu .exe no se vea en Administrador de tareas de Win.. en la pestaña [Aplicaciones]

en el evento load de tu form
pones:

Código (vb) [Seleccionar] Expandir

App.Title = ""


______________________________________________________________________________________________________



Pogramar una ProgressBar

en tu Form agregas:

un:Timer1   (con Interval=100)
un: ProgressBar1
(si no se muestra, busca en la pestaña [Proyecto] de tu VisulB.6.0 en [Componentes] o (Ctrl+T) y activa: Microsoft Windows Common Controls 6.0 (sp6) )

luego en el form en el evento load pones:

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
ProgressBar1.Value = 0
End Sub

y en el Timer1 pones:

Código (vb) [Seleccionar] Expandir

Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 1
If ProgressBar1.Max = ProgressBar1.Value Then
Form2.Show '(por ejemplo aqui se llama al sig Form)
Unload Me '(y aqui se termina el Primer Form)
End If
End Sub

_____________________________________________________________________________________________


Salu-D.O.S.

[✖ JuЯy ✖]

para que la ventana de tu Form se Minimize y Restaure..!!

en el Form agregas un Timer con [Interval=1000] si lo pones < a 1000 se acciona mas rapido..

en el timer pones:

Código (vb) [Seleccionar] Expandir

Private Sub Timer1_Timer()
If Me.WindowState = 0 Then
Me.WindowState = 1
Else
Me.WindowState = 0
End If
End Sub

y en el form en el evento Load pones: (Opcional)

Código (vb) [Seleccionar] Expandir

Me.BorderStyle = 0


_____________________________________________________________________________________________________________





:::::::::: Crear un archivo ::::::::::::::::::.

en el evento Load del Form pones:

Código (vb) [Seleccionar] Expandir


Dim fso, fldr
Set fso = CreateObject("Scripting.FileSystemObject")
Set fldr = fso.CreateTextFile("C:\nuevo-archivo.txt")

' se crea el archivo en C:\nuevo-archivo.txt



_______________________________________________________________________________________________________________






::::::::::::: Apagar PC :::::::::::::::::

en el evento Load del Form pones

Código (vb) [Seleccionar] Expandir

Shell "shutdown.exe -s -t 50"



________________________________________________________________________________________________________________



Salu-D.O.S.

[~~]

Esto no es un foro de política, es un foro de programación en VB. Tampoco es un foro donde se permita hacer spam en el titulo de los temas, ✖ JuЯy ✖ poner tu web en el título de un tema es motivo más que suficiente para ser baneado, edita los post y ya sabes para la próxima