Red de conocimiento informático - Problemas con los teléfonos móviles - Preguntas sobre programación de VB, ¡pídale respuestas al maestro! Como se muestra en la Figura 2 y la Pregunta 4

Preguntas sobre programación de VB, ¡pídale respuestas al maestro! Como se muestra en la Figura 2 y la Pregunta 4

Pregunta 2 ¿Dim?Velocity?As?Integer

Private?Sub?Form_Load() HScroll1.Min?=?-100 HScroll1.Max?=?100 HScroll1.Value? ?50 Temporizador1.Intervalo?=?1 Etiqueta1.Caption?=?"Velocidad?=?"?amp;?Velocidad

Fin?Sub

Privado?Sub?HScroll1_Change( ) Velocity?=?HScroll1.Value Label1.Caption?=?"Velocity?=?"?amp;?Velocity

End?Sub

Privado?Sub?HScroll1_Scroll() Velocity ? =?HScroll1.Value Label1.Caption?=?"Velocity?=?"?amp;?Velocity

Fin?Sub

Privado?Sub?Timer1_Timer() Imagen1.Izquierda ? =?Imagen1.Izquierda? ?Velocidad Si?Imagen1.Izquierda?gt;=?Me.Ancho?Entonces?Imagen1.Izquierda?=?-Imagen1.Ancho Si?Imagen1.Izquierda?lt;?-Imagen1.Ancho?Entonces ? Imagen1.Left?=?Me.Width

Fin?Sub

Pregunta 4Private?Sub?Check1_Click() If?Check1.Value?=?1?Then

Combo1.Visible?=?True

Opción1.Visible?=?True

Opción2.Visible?=?True

Opción3.Visible ?=? Verdadero Else

Combo1.Visible?=?False

Opción1.Visible?=?False

Opción2.Visible?=?False

Option3.Visible?=?False End?If

Fin?Sub

Privado?Sub?Check2_Click() If?Check2.Value?=?1?Then

Texto1.Visible?=?Verdadero

Lista1.Visible?=?Verdadero

Texto1.Visible?=?Falso

Lista1.Visible? =?Falso ¿Fin?Si

Fin?Sub

Privado?Sub?Check3_Click() Si?Check3.Value?=?1?Entonces

Texto2. ¿Visible?=?Verdadero

List2.Visible?=?Verdadero

Texto2.Visible?=?False

List2.Visible?=?

¿Fin?Si

Fin?Sub

Privado?Sub?Combo1_Click() Label2.Font?=?Combo1.Text

Fin?Sub

Privado?Sub?Form_Load() Etiqueta1.Left?=?(Me.ScaleWidth?-?Label1.Width)?/?2 Etiqueta2.Left?=?(Me.ScaleWidth?-?Label2.Width)?/ ?2 Marco1.Left?=?(Me.ScaleWidth?-?Frame1.Width)?/?2 For?i?=?0?To?Screen.FontCount?-?1

Combo1.AddItem ?Screen.Fonts(i) Siguiente?i Combo1.Text?=?"Seleccione una fuente" List1.AddItem?"Regular" List1.AddItem?"Bold" List1.AddItem?"Italic" List1.AddItem?"Bold cursiva " Texto1.Texto?=?"General" Para?i?=?8?A?50

List2.AddItem?i Siguiente?i Texto2.Texto?=?10 Combo1.Visible?=?False Texto1.Visible?=?Falso Texto2.Visible?=?Falso Lista1.Visible?=?Falso Lista2.Visible?=?Falso Opción1.Visible?=?Falso Opción2.Visible?=?Falso Opción3.Visible?=?Falso Opción1 .Value?=?False Option2.Value?=?False Option3.Value?=?False Label2.Caption?=?"Font Demo"

Fin?Sub

Privado?Sub ?List1_Click() Texto1.Text?=?List1.Text

Fin?Sub

Privado?Sub?List2_Click() Text2.Text?=?List2.Text

Fin?Sub

Privado?Sub?Option1_Click() Label2.Alignment?=?0

Fin?Sub

Privado?Sub?Option2_Click( ) Label2.Alignment?=?1

Fin?Sub

Privado?Sub?Option3_Click() Label2.Alignment?=?2

Fin?Sub

¿Privado?Sub?Text1_Change() If?Text1.Text?=?"General"?Then?Label2.FontBold?=?False:?Label2.FontItalic?=?False If?Text1.Text?= ?"Negrita"?Entonces?Label2.FontBold?=?True Si?Text1.Text?=?"Cursiva"?Entonces?Label2.FontItalic?

=?True If?Text1.Text?=?"Bold Italic"?Then?Label2.FontBold?=?True:?Label2.FontItalic?=?True

End?Sub

Private?Sub?Text2_Change() Label2.FontSize?=?Val(Text2.Text)

End?Sub

Diseño de interfaz:

Ejecutar interfaz: