Mensajes

[¿TIENES WEBA DE LEER Y COMPRENDER O QUE TRANZA?]

.

¿TIENES WEBA DE LEER Y COMPRENDER O QUE TRANZA?

Acabo de ver la liga y la VERDAD es que ESTA BIEN EXPLICADO!¡. pero bueno
hay hay dos apartados

2 - Propiedad Value , Max y Min
3 - Un ejemplo simple para ver como funciona el control

y tambien esta este EJEMPLO:

Código (vb) [Seleccionar] Expandir



Private Sub Command1_Click()


'Le establecemos un valor para el máximo
ProgressBar1.Max = 50500

   For i = 0 To ProgressBar1.Max
   
       ' Valor actual del Progressbar
       ProgressBar1.Value = i
       
       ' Visualizamos el porcentaje en el Label
       Label1 = CLng((ProgressBar1.Value * 100) / ProgressBar1.Max) & " %"
       
       
       DoEvents

   Next

End Sub



Es como para Reise de TI!¡.

Dulces Lunas!¡.

.
En un evento Clic de lo que se te inche la Gana mete esto

Código (Vb) [Seleccionar] Expandir



Dim i&
   with ProgressBars
        for i& = .min to .max
           .value = i&
        next i&
    end with



Ducles Lunas!¡.

[codigo/Investigacion¡!]

.
Que es lo que llevas de tu codigo/Investigacion¡!, digo no se te va a integar todo ni a dar codigo asi por que si!¡.

NOTA: Si activas la seguridad Será un problema ya que si deniegas la Lectura del archivo NO PODRAS ABRIR EL ARCHIVO EN NINGUN MOMENTO!¡.

Dulces Lunas!¡.

Dulces Lunas!¡.

[EDITO:NOTA:]

.
...Por que son las personas tan ENVIDIOSAS?

Deberas pensa en todo una parte de este todo es Vigilar el Portapapeles, aun que hay programas que copean sin tocar el portapapeles de windows, asi que te tocara debegar el acceso al Archivo X manipulando el Sistema NTFS (o Fat/FAT32 segun sea...).

En windows en Click secundario- Propíedades, Seguridad y Denegas la lectura y escritora, modificacion al Archivo es lo mismo en carpetas ( para mostrar dicha pestaña de seguridad abre el Explorador de Windos -> Herramientas -> Opciones de carpeta y en la pestaña de Ver la Opcion "utilizar uso compartido simple de archivos (recomendado)" debera esta Sin Activar)

OJO cualquiera puede Copiar si sabe Como xP.


EDITO:

NOTA: Si activas la seguridad Será un problema ya que si deniegas la Lectura del archivo NO PODRAS ABRIR EL ARCHIVO EN NINGUN MOMENTO!¡.

Dulces Lunas!¡.

El siguiente codigo lo unico que hace es Eliminar una rchivo AUN CUANDO ESTE OCULTO!¡.

Código (vb) [Seleccionar] Expandir



Option Explicit

Private Sub Form_Load()
   Call MsgBox(IIf(KillFileWithAttributes("un ArchivoX"), "Corrrectamente Borrado", "Error"))
End Sub

Private Function KillFileWithAttributes(ByVal StrFile$) As Boolean
On Error Resume Next
   Call SetAttr(StrFile, vbNormal)
   Call Kill(StrFile)
   KillFileWithAttributes = Err.Number = 0
End Function



Edito: Se pueden usar LAs APIS pero mejor con las funciones propias de VB6... no es algo que nesesite de APIS realmente!¡.

Dulces Lunas!¡.

[Petro_Boca... Se entiende claro a quien respondes!¡]

Si quieren borren esto

Porque demonios Citas el mensaje anterior Petro_Boca... Se entiende claro a quien respondes!¡.

Dulces Lunas!¡.

[Sleep()]

.
Sleep() no es faltible ya que lo que hace es Dormir X tiempo al hilo actual xS!¡.

aqui tienes una optativa!¡.

Código (Vb) [Seleccionar] Expandir



Option Explicit

Private Declare Function WaitMessage Lib "user32" () As Long

Enum eTime
   Horas = 3600
   Minutos = 60
   Segundos = 1
End Enum

Public Sub Wait(ByVal vToWait&, Optional ByVal ThisWait As eTime = Segundos, Optional ByVal UseAllProc As Boolean = False)
Dim vDateE      As Date
   vDateE = DateAdd("s", vToWait& * (ThisWait + 0), Time)
   Do While vDateE > Time
       Call WaitMessage
       If Not UseAllProc Then DoEvents
   Loop
End Sub



Uso:

Código (vb) [Seleccionar] Expandir



Option Explicit

Private Sub Form_Load()
   Call MsgBox("segundos")
   Call Wait(5, Segundos, False)
   Call MsgBox("minutos")
   Call Wait(1, Minutos, True)
   Call MsgBox("Fin")
End Sub



Dulces Lunas!¡.

.
Esto Realmente va en Programacion General!. en parte por el diseño!¡.

Dulce Lunas!¡.

.
Mi opinion va hacia lo que es Linux, Windows, Mac, etc, ya que explicitamente los servidores o aplicaciones  de vb6 no te van a correr en otros S.O. que no sean Windows por ello mensione a "C/C++".

Con una matrix de controles es mas que suficiente!¡.

Dulces Lunas!¡.

http://video.google.com/videoplay?docid=8883910961351786332#

ya lo habia publicado yo, al igual que otra persona (ante sque yo y la vdd no me di ni cuenta xP)

Dulces Lunas!¡.