por gomezpla » Dom Ene 04, 2009 10:22 am
eishshh gracias por esos consejos jejeje al final me puse y retome lo que habia dejado ace 6 años VB XD
Dim P
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_NORMAL = 1
Private Sub Command1_Click()
Dim X
X = ShellExecute(Me.hwnd, "Open", Text1.Text, &O0, &O0, SW_NORMAL)
Timer1.Enabled = True
Command1.Enabled = False
Text1.Locked = True
Text2.Locked = True
End Sub
Private Sub Form_Load()
P = 0
End Sub
Private Sub Timer1_Timer()
If Text2.Text > 0 Then
If Label1.Caption = 0 Then
Dim X
X = ShellExecute(Me.hwnd, "Open", Text1.Text, &O0, &O0, SW_NORMAL)
Label1.Caption = "3780"
Text2.Text = Text2.Text - 1
Else:
Label1.Caption = Label1.Caption - 1
End If
Else:
Timer1.Enabled = False
Command1.Enabled = True
Text1.Locked = False
Text2.Locked = False
End If
End Sub
Gracias a todos jajjajja el que tuvo retuvo
Firma is coming