Cómo implementar un timbre rápido cuando el tiempo llega al tiempo establecido en VB.NET. . ¡Esperando en línea! Gracias Dios, por favor ayúdame.
Primero, cree tres botones de comando en form1, a saber, comando1 (abra el archivo preiniciado comando2 (botón para configurar la hora y el tercer botón comando3 (para iniciar)); se usa para mostrar la ruta del nombre del archivo que abrió previamente; un lbltime se usa para mostrar la hora actual y un cuadro de diálogo común, que se encuentra en los componentes del menú del proyecto. Puede agregarlo a la caja de herramientas y comenzar a usarlo. ; En cuanto al cuadro de diálogo, no es necesario que lo cree usted mismo, simplemente agréguelo desde el asistente de la aplicación, su intervalo = 500. En segundo lugar, establezca los atributos de form1 en: startupposition=2-centerscreen y maxbutton=false establezca los atributos de label1 en: alineación=2-center.
La apariencia es aproximadamente como se muestra en la figura: A continuación comenzamos a programar: OptionExplicit DimAlarmTime 'Declarar variables------PrivateSubCommand1_Click() Calldialog 'Llamar a la subrutina de diálogo EndSub----PrivateSubCommand2_Click() AlarmTime= InputBox("Por favor ingrese la hora que desea configurar, por ejemplo (19:12:00)", "Pequeño despertador") IfAlarmTime=""ThenExitSub IfNotIsDate(AlarmTime)Then MsgBox"Lo que ingresó no está en el formato de hora, ¡inténtelo nuevamente! ",,"Incorrecto" Else AlarmTime=CDate(AlarmTime) EndIf 'Determinar si la entrada se puede convertir al formato de hora' La función isdate es determinar si la entrada se puede convertir al formato de fecha EndSub －－－－－－－－ －－－ --- PrivateSubCommand3_Click() Calldeng 'Llamar a la subrutina EndSub ------- PrivateSubForm_Click() frmAbout.Show 'Mostrar acerca del cuadro de diálogo EndSub ------- --- PrivateSubForm_Load() Command3.Enabled =0 AlarmTime="" 'Command3 no está disponible EndSub durante la inicialización ------- PrivateSubForm_Resize() IfWindowState=1Then mintime else caption=" Pequeño despertador" EndIf 'Si la ventana está minimizada, llame al programa mintime EndSub ------- ------- PrivateSubmintime() Caption=Format(Time, "longTime") 'Usa el formato de tiempo largo para mostrar la hora EndSub ------------ PrivateSubTimer1_Timer() IflblTime.Caption<>CStr (Time)Then lblTime.Caption=Time EndIf 'Muestra el cambio de tiempo por segundo IfTime>=AlarmTimeThen Calldeng EndIf 'Juzga si la hora actual excede el tiempo establecido, luego llama a la subrutina deng IfWindowState=1Then IfMinute(CDate(Caption)) <>Minuto(Tiempo)Entonces mintime EndIf EndIf 'Muestra el cambio de tiempo por minuto cuando se minimizaEndSub －－－－－－－－－－－－ Subdialog() CommonDialog1.Flags=cdlCFBoth CommonDialog1.ShowOpen Label1.Caption=CommonDialog1.filename IfLabel1<>“"Then Command3.Enabled=－1 Else ExitSub EndIf 'Abre el El nombre del archivo se le da a la etiqueta1 'Si la etiqueta1 no está vacía, el comando3 puede usar EndSub -－－－－－－－－－－－－－ Subdeng() Dimss ss=Shell(Label1.Caption,1) End 'Comience a especificar el archivo y finalice el pequeño programa de alarma EndSub. Lo último que debe mencionarse en el cuadro de diálogo Acerca de es: app.title en form_load representa su aplicación.
nombre; app.major, minor y revisión son información de la versión de la aplicación; lblDescription.Caption se usa para algunas descripciones del programa. lblDisclaimer.Caption se usa para información o advertencias de derechos de autor, etc. Bien, hasta ahora hemos terminado de escribir un programa VB simple. ¡Espero que puedas diseñar un mejor programa de despertador!