Código de cuenta regresiva VB

Coloque dos comandos (uno se llama cmdDel, el otro se llama cmdAdd) y un temporizador (llamado tmrDJS)

Establezca la propiedad StartUpPosition del formulario en 2 - CenterScreen

Y agregue el siguiente código:

Private Sub cmdAdd_Click()

Dim sName As String, AllNum As Integer, TerminateDate As Date

sName = InputBox(" ¿El nombre de la cuenta atrás? ")

TerminateDate = InputBox("¿Tiempo de caducidad? Por ejemplo, 2009-10-20 3:23:19")

AllNum = GetSetting("Cuenta regresiva", " Lista de cuenta regresiva", "Total de cuenta regresiva", "0")

AllNum = AllNum + 1

SaveSetting "Cuenta regresiva", "Lista de cuenta regresiva", " Total de cuenta regresiva", AllNum

SaveSetting "Cuenta regresiva", "Lista de cuenta regresiva", "Tiempo" & Trim(Str(AllNum)), TerminateDate

SaveSetting "Cuenta regresiva", "Lista de cuenta regresiva ", "Nombre" y Trim (Str(AllNum)), sName

MsgBox "¡Agregado exitosamente!", vbInformation

End Sub

Sub privado cmdDel_Click( )

Dim Qx As Integer

Qx = InputBox("¿Cuántos hay en la lista?")

Dim sDate As String, sName As String, AllNum As Entero, Qu como entero

AllNum = GetSetting("Cuenta regresiva", "Lista de cuenta regresiva", "Total de cuenta regresiva", "0")

Para i = 1 a AllNum

sDate = GetSetting ("Cuenta regresiva", "Lista de cuenta regresiva", "Hora" & Trim(Str(i)), "0")

sName = GetSetting("Cuenta regresiva", "Cuenta regresiva List", "Name" & Trim(Str(i)), "0")

Si sDate <> "0" Entonces

Qu = Qu + 1

Si Qu = Qx Entonces

Si MsgBox("¿Quieres eliminar la cuenta regresiva " & sName & "? ", vbYesNo + vbQuestion) = vbYes Then

Guardar configuración "Cuenta regresiva", "Lista de cuenta regresiva", "Tiempo" y Trim(Str(i)), "0"

Fin si

Salir para

Finalizar si

Finalizar si

Siguiente i

End Sub

Sub privado Form_Load()

Alto = 3570

Ancho = 5550

Caption = "Cuenta atrás"

tmrDJS.Interval = 500

cmdAdd.Left = 4200

cmdAdd.Top = 2520

cmdAdd.Height = 255

cmdAdd.Width = 1215

cmdAdd.Caption = "Agregar cuenta atrás"

cmdDel.Left = 4200

cmdDel.Top = 2760

cmdDel.Height = 255

cmdDel.Width = 1215

cmdDel.Caption = "Eliminar Countdown"

End Sub

Private Sub tmrDJS_Timer()

Cls

Dim DJS como fecha, sDate como cadena, sName como cadena , AllNum como entero, impreso como booleano

Dim Kd como doble

AllNum = GetSetting("Cuenta regresiva", "Lista de cuenta regresiva", "Total de cuenta regresiva", "0")

For i = 1 To AllNum

sDate = GetSetting("Countdown", "Countdown List", "Time" & Trim(Str(i)), "0")

sName = GetSetting("Cuenta regresiva", "Lista de cuenta regresiva", "Nombre" & Trim(Str(i)), "0")

Si sDate <> "0" Entonces

DJS = sDate

Si DJS - Ahora <= 0 Entonces

Imprimir sName " ¡Ya llegó! "

Else

Kd = DJS - Ahora

Imprimir "Distancia"; sName; " También";

Imprimir Int( Kd ); "días";

Kd = Kd - Int(Kd)

Imprimir Int(Kd * 24";

Kd = Kd); - Int(Kd * 24) / 24

Imprimir Int(Kd * 24 * 60); " Minutos";

Kd = Kd - Int(Kd * 24 * 60) / 24 / 60

Print Int(Kd * 24 * 60 * 60 + 0.5 Segundos "

Finalizar si

Impreso = Verdadero

Finalizar si

Si no está impreso, imprima "¡La lista está vacía!"

End Sub

Luego ejecútelo~