Red de conocimiento informático - Conocimiento del nombre de dominio - Buscando urgentemente el código fuente de "ajuste en línea recta" del diseño del curso de VBForm1 Private Sub Command1_Click() 'Mostrar el segundo formulario Form1.HideForm2.ShowForm3.Hidezxnh = MsgBox("Debe ingresar el código fuente seleccionado elemento completamente!") & Chr(10) & Chr(13) & _"¡De lo contrario, el programa producirá un error!") & Chr(10) & Chr(13) & _"¡De lo contrario, el programa producirá un error!") & Chr ( 10) & Chr(13) & _"¡De lo contrario, el programa generará un error!End Sub Private Sub Command2_Click() 'Finalizar programa EndEnd Sub 'Haga que el cuadro de texto del segundo formulario muestre el número de conjuntos de datos de acuerdo con el número de conjuntos de datos dado por el primer formularioPrivate Sub Option1_Click()Form2.Label6.Enabled = FalseForm2.Label7.Enabled = FalseForm2.Label8.Enabled = FalseForm2.Label9.Enabled = FalseForm2.Label10.Enabled = FalseFor n = 6 To 10 Form2.Form2. (n).Enabled = False Form2.Text1(n).BackColor = &H8000000F Form2.Text1(n).BackColor = &H8000000F Página siguienteH8000000FNextEnd Sub Private Sub Option2_Click()Form2.Label6.Enabled=TrueForm2.Label7.Enabled= FalseForm2.Label9 .Enabled=FalseLabel9.Enabled = FalseForm2.Label10.Enabled = FalseForm2.Text1(6).Enabled = TrueForm2.Text1(6).BackColor = &HFFFFFFForm2.Text2(6).BackColor = &HFFFFFFForm2.Text2(6). = TrueForm2.Text2(6).BackColor = &HFFFFFFFor n = 7 a 10 Form2.Text1(n).Enabled = False Form2.Text1(n).BackColor = &H8000000F Form2.Text2(n).Enabled = False Form2.Text2( n).BackColor = &H8000000FNextEnd Sub Private Sub Option3_Click()Form2.Label6.Enabled = TrueForm2.Label7.BackColor