1
Crear un nuevo proyecto de Visual Basic ( VB ), utilizando el "EXE estándar" plantilla disponible al hacer clic en "Archivo" y luego en " Nuevo proyecto" en VB . Haga clic en " Archivo" y luego "Guardar proyecto como. " Guarde el formulario como " ConvertDate " y el proyecto "Fecha Convertir" .
2
doble clic en el control " ListBox " en la caja de herramientas en la parte izquierda de la pantalla para agregarlo al formulario. En la lista de "Propiedades " a la derecha de la pantalla , establezca la propiedad del formulario "Altura " de 2600 y el " Ancho " para 4500. Arrastra la " ListBox " al lado izquierdo del formulario y establezca las propiedades " Anchura" " Altura " y para 1425 y 4725 . Añadir tres " etiquetas " a la forma haciendo doble clic en el gran letra "A" en la caja de herramientas en tres ocasiones. Coloque las etiquetas de modo que " Label3 " es el punto más alto en el formulario. Ponga " Label1 " y " Label2 " en una fila por debajo del ListBox. Ajuste la "Altura " y la propiedad " Ancho " de " Label1 " a 500 y 1800 . Ajuste la "Altura " y "Ancho " de " Label2 " a 800 y 3250 . Borrar los títulos de " Label1 " y " Label2 " en su sección " Propiedades" para que estén en blanco.
3
clic en "Ver" y luego " Código" en el nivel superior Visual Basic menú . Escriba el siguiente código exactamente como aparece .
Opción ExplicitPrivate Sub Form_Load () Label3.Caption = " Seleccione el formato deseado para que aparezca. " Label1.Caption = "Hoy es" & Formato (Ahora, "m /d /yyyy " ) Label2.Visible = TrueList1.AddItem " Full Date " List1.AddItem " abreviado fecha " List1.AddItem " día /mes " List1.AddItem " Mes /Año " List1.AddItem " Mes día, año (Día de la semana ) " List1.AddItem " Fecha abreviado plus Día , Semana y trimestre del año "End Sub
4
Escribe las siguientes líneas de código por debajo de los de la Etapa 3 :
< p> Private Sub List1_Click () Seleccione Case List1.ListIndexCase " 0 " Label2.Caption = Formato (Ahora, " dddd, mmmm dd, yyyy" ) Case " 1 " Label2.Caption = Formato (Ahora, "m /d /yy ") Case " " Label2.Caption = Formato (Ahora, " 2 - d mmmm ") Case " " Label2.Caption = Formato (Ahora, " 3 mmm -yy ") Case " " Label2.Caption 4 = Formato (Ahora, caso " mmm dd , yyyy ( dddd )") Label2.Caption " 5 " = Formato (Ahora, "mm /dd /yy ( \\ d \\ a \\ y = y \\ w \\ e \\ e \\ k = ww \\ q \\ u \\ a \\ r \\ t \\ e \\ r = q ) ") End Sub SelectEnd
5
Press " F5 "para ejecutar el programa. Si no hay problemas , puede hacer clic en "Archivo" y luego " Hacer Convertir Date.exe " para crear una versión ejecutable. Si algo no le parece correcto, a continuación, pulse "F8" para pasar por las líneas de código y aislar donde un error podría haber entrado en las líneas de código. Al examinar las instrucciones de formato en el paso 4 que va a entender cómo se manejan las conversiones de fecha en Visual Basic .