Escrito por carlosfmur1948 en Small Basicy etiquetada con , ,
controls1

Hemos aprendido a usar diferentes objetos en Small Basic, como GraphicsWindow, Shapes, File y Math.
Usando el objeto Controls, puede insertar controles simples como cajas de texto y botones en la ventana de gráficos.
AddTextBox (agregar caja de texto): Agrega una caja de texto a la ventana de gráficos. Debe especificar las coordenadas X e Y de la caja de texto como parámetros.
AddButton (agregar botón):
Agrega un botón a la ventana de gráficos. Debe especificar el título del botón y sus coordenadas X e Y.
GetButtonCaption (obtener título del botón):
Obtiene el título de un botón. Debe especificar el nombre apropiado del botón como parámetro.
SetButtonCaption (establecer título del botón): Cambia el título de un botón. Debes especificar el nombre del botón y el nuevo título como parámetros.
GetTextBoxText (obtener texto de la caja de texto): Obtiene el texto presente en la caja de texto dando el nombre de la caja de texto como parámetro de esta operación.
SetTextBoxText (establecer texto de la caja de texto): Define el texto que aparece en la caja de texto. Debe especificar el nombre de la caja de texto y el texto requerido como parámetros.
Exploremos el objeto Controls con la ayuda de un ejemplo.
  1. GraphicsWindow.Title = “El objeto Controls”
  2. GraphicsWindow.DrawText(50, 100, “Escriba su nombre:”)
  3. nombre = Controls.AddTextBox(200, 100)
  4. GraphicsWindow.DrawText(50, 150, “Escriba su apellido:”)
  5. apellido = Controls.AddTextBox(200, 150)
  6. botónMostrar = Controls.AddButton(“Mostrar mensaje”, 150, 200)
  7. mensaje = Controls.AddMultiLineTextBox(50, 250)
  8. Controls.SetSize(mensaje, 310, 50)
  1. Controls.ButtonClicked = MostrarMensaje
  1. Sub MostrarMensaje
  2. If Controls.GetButtonCaption(botónMostrar) = “Mostrar mensaje” Then
  3. Controls.SetTextBoxText(mensaje,”Hola ” + Controls.GetTextBoxText(nombre) + ” ” + Controls.GetTextBoxText(apellido))
  4. EndIf
  5. EndSub

Deja un comentario