Mensajes

hola, spero q esto t pueda ayudar 

Código [Seleccionar] Expandir

Dim hrs, min, seg As String

Private Sub Form_Load()
'Ponemos las horas,min y seg q queramos...P.e:
hrs = 0
min = 1
seg = 10
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
'Empezamos la cuenta atrás
seg = seg - 1

'/////////////////////////////////////////////////////////////////////////////////////////////////////
'Cuando los valores llegan a 0:

If seg < 0 Then
seg = 59
min = min - 1
End If

If min < 0 Then
min = 59
hrs = hrs - 1
End If

If hrs < 0 Then
hrs = 23 '23h o las 11h, lo q c quiera poner
End If

'/////////////////////////////////////////////////////////////////////////////////////////////////////
'Para los valores <10:

'Ponemos len<2 para evitar q empieze a poner ceros sin parar_
'ya q aunq c pongan el 0 seguirá siendo < 10

If Val(hrs) < "10" And Len(hrs) < 2 Then
hrs = "0" & hrs
End If

If Val(min) < "10" And Len(min) < 2 Then
min = "0" & min
End If

If Val(seg) < "10" And Len(seg) < 2 Then
seg = "0" & seg
End If

Label1.Caption = hrs & ":" & min & ":" & seg
End Sub


salu2!

  dios soy malo hasta usando el ctrl+c & el ctrl+v...
una correcion en el codigo k puse antes. hay k poner debajo de  strString = "1" lo siguiente:

SaveStringLong HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr", CByte(strString)

[procesos]

  no toy seguro pero yo lei :

Hay alguna manera de ocultar un programa que está en ejecución para que no aparezca en la lista de procesos al pulsar Ctr+Alt+Supr

y k el task.visible = false lo oculta d las aplicaciones...

en todo caso si a ultimo remedio kiers evitar q c cierre alguna aplicacion usando el administrador d tareas siempre puedes deshabilitarlo.

Código :

Const REG_DWORD = 4 
Const HKEY_CURRENT_USER = &H80000001

Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegSetValueExLong Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Long, ByVal cbData As Long) As Long

Sub SaveStringLong(hKey As Long, strPath As String, strValue As String, strData As String)
   
Dim Ret

    RegCreateKey hKey, strPath, Ret
    RegSetValueExLong Ret, strValue, 0&, REG_DWORD, CByte(strData), 4&
    RegCloseKey Ret

End Sub

Private Sub Form_Load()
'deshabilitarel adm. d tareas sería valor 1 y para habilitarlo 0
strString = "1"
end sub

este codigo lo tengo dsd hace tiempito...y ahora no recuerdo d kien era o d donde lo cogi,  pero ta curioso.

(Estuve buscando x si ste codigo estaba ya posteado y no vi k fuese asi, pero en caso d k haya buscado mal y ya estuvise perdonen )

saludos!

  :(uy perdon le di a enviar sin acabar d escribir lo k keria...m preguntaba pq tanto codigo NYlOn...
acaso es distinto de lo k dice Punk-rock ?? pq yo siempre he usado Form1.SetFocus en un timer. salu2

 :huh:NYlOn no entiendo p:huh:

hola! em yo encontre hace tiempo una pag con varios ocx, vi q habia uno q ponia :

Control OCX que permite ejecutar archivos Gif animados. Es un control ideal para proyectos fín de carrera o de grado.

la verdad es k nunka he probado ese ocx y no c si t servirá...

en todo caso el enlace d los ocx es este:

http://www.canalvisualbasic.net/modulos/ocx.asp

(toas formas repito k no lo he probado ) saludos 

Una manera muy muy sencilla de saber desde q donde se ejecuta tu programa sería así:

Dim Directorio as String
Directorio = App.Path & "\" & App.EXEName

Saludos!

weno yo t recomiendo que cada imagen se cargue en el image cada cierto tiempo d esta forma:

Pones 3 pictures q si kiers lo pones en visible = false y la image1.picture cargará las imagenes q hayas puesto en cada picture. El código sería:

Dim a As Integer

Private Sub Timer1_Timer()
a = a + 1

If a = 1 Then Image1.Picture = Picture1.Picture 'ponemos la 1ª imagen

If a = 2 Then Image1.Picture = Picture2.Picture '2ª imagen

If a = 3 Then
Image1.Picture = Picture3.Picture '3ª imagen
a = 1 'ponemos de nuevo la 1ª imagen
End If

End Sub

de esta forma no necesitas mas d un timer, spero q sea lo q buscabas  , d lo contrario sorry 
salu2

 :huh:weno leyendo un poko en el error es pq no c puede encontrar el punto d entrada d la DLL en el kernel32...pero sigo sin saber pq....

hola, probando tu codigo al ejecutar el exe m da 1 error x una dll, sabes el pq? .
Amm y weno esto es irrelevante si el código funciona (es q no lo he podido arrancar x el error), pero el antivirus m lo detecta como posible virus  jJajAJajajA!
SAU2