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 p>
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: