elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Trabajando con las ramas de git (tercera parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  trucos [Cod-Fun] para iniciadores en V.B.6.0 (J.E.N.P.) pxndx2828.hi5.com		0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: trucos [Cod-Fun] para iniciadores en V.B.6.0 (J.E.N.P.) pxndx2828.hi5.com  (Leído 2,848 veces)
✖ JuЯy ✖

Desconectado Desconectado

Mensajes: 35


No lastimes, lo que no puedes matar


Ver Perfil WWW
trucos [Cod-Fun] para iniciadores en V.B.6.0 (J.E.N.P.) pxndx2828.hi5.com
« en: 31 Octubre 2008, 19:43 pm »
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
  1. Private Sub Timer1_Timer()
  2.  
  3. If me.caption="Nuevo" then
  4. me.caption="Proyecto"
  5. else
  6. me.caption="Nuevo"
  7. End If
  8.  
  9. End Sub

________________________________________________________________________________________________________

hacer que un text solo acepte numeros.

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


Código
  1. Private Sub Text1_KeyPress(KeyAscii As Integer)
  2. Select Case KeyAscii
  3.        Case Asc("0") To Asc("9")
  4.        Case vbKeyBack, vbKeyReturn, vbKeySpace 'esto es opcional para que acepte las teclas (borrar,b_de_espacio)
  5.   Case Else
  6.        KeyAscii = "0"
  7.        MsgBox "solo se aceptan numeros.!!"
  8. End Select
  9. End Sub

__________________________________________________________________________________________________________

hacer que un text solo acepte letras.

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


Código
  1. Select Case KeyAscii
  2.        Case Asc("a") To Asc("z")
  3.        Case Asc("A") To Asc("Z")
  4.        Case Asc("ñ"), Asc("Ñ")
  5.               Case vbKeyBack, vbKeyReturn, vbKeySpace 'esto es opcional para que acepte las teclas (borrar,b_de_espacio)
  6.   Case Else
  7.        KeyAscii = "0"
  8.        MsgBox " solo se aceptan letras"
  9. End Select
  10.  
____________________________________________________________________________________________________________

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
  1. Option Explicit
  2.  
  3. 'para combertir un formulario en elipse
  4. Public Declare Function CreateRoundRectRgn Lib "gdi32" _
  5. (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, _
  6. ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
  7.  
  8. 'es un complemento para el que crea la elipse
  9. Public Declare Function SetWindowRgn Lib "user32" _
  10. (ByVal hWnd As Long, ByVal hRgn As Long, _
  11. ByVal bRedraw As Boolean) As Long


y en el modulo en si esto:


Código
  1. Public Sub JuRy_NaVaS()
  2.     'convierte al formulario de rectangular a eliptico
  3.     'es decir que lo convierte a una elipse
  4.     Dim Vconecto As Variant
  5.     Dim JuRy As Long
  6.     JuRy = CreateRoundRectRgn(10, 0, 320, 230, 200, 150)
  7.     Vconecto = SetWindowRgn(form1.hWnd, JuRy, True)
  8. End Sub
  9.  
  10. 'MAS DATOS DE VARIABLES Y DECLARACIONES:
  11. 'LaS VaRiAbLeS "Vconecto" y "JuRy" LaS cReA eL pRoGrAmAdOr
  12. 'eL pUbLiC SuB "JuRy_NaVaS" TiEnE qUe SeR cReAdO pArA PoDeR
  13. 'TrAnSfOrMaR eL fOrMuLaRiO.
  14.  
  15. 'los metodos y propiedades "CreateRoundRectRgn"
  16. 'y "SetWindowRgn" SoN rEcOnOsiDaS pOr eL pRoGrAmA.
  17.  
  18. 'lo que esta dentro de la declaracion "Option Explicit"
  19. 'es del programa. tienen que ir; para poder transformar
  20. 'el formulario en una elipse.


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


Código
  1. Private Sub Form_Load()
  2. JuRy_NaVaS
  3. ' que es el pUblic SuB
  4. Me.BorderStyle = 0
  5. End Sub

_________________________________________________________________________________________________________

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

Salu-D.O.S
En línea
MsgBox "SaluD.O.S.", vbInformation + vbMsgBoxRtlReading, " JuRy-BøY "
✖ JuЯy ✖

Desconectado Desconectado

Mensajes: 35


No lastimes, lo que no puedes matar


Ver Perfil WWW
Re: trucos [Cod-Fun] para iniciadores en V.B.6.0 (J.E.N.P.) pxndx2828.hi5.com
« Respuesta #1 en: 31 Octubre 2008, 20:08 pm »
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
  1.     ' Constantes
  2.    Private Const FOF_ALLOWUNDO = &H40
  3.    Private Const FO_DELETE = &H3
  4.     ' APi SHFileOperation
  5.     Private Declare Function SHFileOperation Lib "shell32.dll" Alias _
  6.                             "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
  7.  
  8.  
  9.    ' Estructura SHFILEOPSTRUCT para el API
  10.    Private Type SHFILEOPSTRUCT
  11.        hwnd As Long
  12.        wFunc As Long
  13.       pFrom As String
  14.       pTo As String
  15.        fFlags As Integer
  16.       fAnyOperationsAborted As Long
  17.        hNameMappings As Long
  18.        lpszProgressTitle As Long
  19.    End Type

en el form1 en si  esto:

Código
  1. Private Sub File1_KeyDown(KeyCode As Integer, Shift As Integer)
  2.    Dim TSHF As SHFILEOPSTRUCT
  3.        ' Si se presionó la tecla Delete y el File List tiene un VbNullString
  4.        If KeyCode = vbKeyDelete And File1.FileName <> "" Then
  5.  
  6.  
  7.                TSHF.wFunc = FO_DELETE
  8.                TSHF.pFrom = File1.Path & "\" & File1.FileName
  9.                TSHF.fFlags = FOF_ALLOWUNDO
  10.  
  11.  
  12.            On Error Resume Next
  13.  
  14.            'Ejecuta el Api mostrando el cuadro de confirmación _
  15.            de Windows para eliminar el fichero (ventana de confirmacion)
  16.  
  17.            SHFileOperation TSHF
  18.  
  19.  
  20.            If Err.Number > 0 Then
  21.                MsgBox "Error", vbCritical + vbMsgBoxRtlReading, "Error.!!"
  22.            'si no hubo error refresca el control FileListbox
  23.            Else
  24.  
  25.                File1.Refresh
  26.                ' que lo hace aqui.!!
  27.            End If
  28.  
  29.        End If
  30.    End Sub
  31.  
  32.    Private Sub Dir1_Change()
  33.    File1 = Dir1
  34.    End Sub
  35.  
  36.    Private Sub Drive1_Change()
  37.  Dir1 = Drive1
  38.    End Sub
  39.  
  40.    Private Sub Form_Load()
  41.    Me.KeyPreview = True
  42.    Me.Caption = " Ejemplo para eliminar archivos con la tecla (Supr.)"
  43.    End Sub
  44.  

_____________________________________________________________________________________________

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
  1. [code=vb]Shell "attrib +a +s +r +h " & Text1.Text
  2. ' esto oculta todos los archivos [*.*], dependiento de donde este tu aplicacion..
  3. File1.Refresh
[/code]

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

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

Salu-D.O.S.
En línea
MsgBox "SaluD.O.S.", vbInformation + vbMsgBoxRtlReading, " JuRy-BøY "
✖ JuЯy ✖

Desconectado Desconectado

Mensajes: 35


No lastimes, lo que no puedes matar


Ver Perfil WWW
Re: trucos [Cod-Fun] para iniciadores en V.B.6.0 (J.E.N.P.) pxndx2828.hi5.com
« Respuesta #2 en: 31 Octubre 2008, 20:38 pm »
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
  1. 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
  1. Private Sub Form_Load()
  2. ProgressBar1.Value = 0
  3. End Sub

y en el Timer1 pones:

Código
  1. Private Sub Timer1_Timer()
  2. ProgressBar1.Value = ProgressBar1.Value + 1
  3. If ProgressBar1.Max = ProgressBar1.Value Then
  4. Form2.Show '(por ejemplo aqui se llama al sig Form)
  5. Unload Me '(y aqui se termina el Primer Form)
  6. End If
  7. End Sub

_____________________________________________________________________________________________


Salu-D.O.S.
En línea
MsgBox "SaluD.O.S.", vbInformation + vbMsgBoxRtlReading, " JuRy-BøY "
✖ JuЯy ✖

Desconectado Desconectado

Mensajes: 35


No lastimes, lo que no puedes matar


Ver Perfil WWW
Re: trucos [Cod-Fun] para iniciadores en V.B.6.0 (J.E.N.P.) pxndx2828.hi5.com
« Respuesta #3 en: 31 Octubre 2008, 21:01 pm »
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
  1. Private Sub Timer1_Timer()
  2. If Me.WindowState = 0 Then
  3. Me.WindowState = 1
  4. Else
  5. Me.WindowState = 0
  6. End If
  7. End Sub

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

Código
  1. Me.BorderStyle = 0


_____________________________________________________________________________________________________________





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

en el evento Load del Form pones:

Código
  1. Dim fso, fldr
  2. Set fso = CreateObject("Scripting.FileSystemObject")
  3. Set fldr = fso.CreateTextFile("C:\nuevo-archivo.txt")
  4.  
  5. ' se crea el archivo en C:\nuevo-archivo.txt



_______________________________________________________________________________________________________________






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

en el evento Load del Form pones

Código
  1. Shell "shutdown.exe -s -t 50"



________________________________________________________________________________________________________________



Salu-D.O.S.
En línea
MsgBox "SaluD.O.S.", vbInformation + vbMsgBoxRtlReading, " JuRy-BøY "
~~
Ex-Staff
*
Desconectado Desconectado

Mensajes: 2.981


Ver Perfil WWW
SPAM NO GRACIAS
« Respuesta #4 en: 5 Noviembre 2008, 18:12 pm »
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  :P
En línea
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines