¿Cómo realiza el programa VB los siguientes pasos?
Texto1-Texto3 se utilizan para mostrar un único color primario de su elección y mostrar el valor en el correspondiente. etiqueta .
Text4 se utiliza para mostrar colores mezclados.
Paso 2: Escribe el siguiente código de programa:
Private Sub VScroll1_Change()
Label1. caption = " Rojo: " Str(vscroll 1. valor)
Texto1. BackColor = RGB(VScroll1. valor, 0, 0)
Texto 4. BackColor = RGB(VScroll1.ValueVScroll2.ValueVScroll3.Value)
Conector final
Sub privado VScroll2_Change()
Etiqueta 2. Caption = "verde:" Str(VScroll2. valor)
Text2. BackColor = RGB(0, VScroll2. Valor, 0)
Texto 4. BackColor = RGB(VScroll1.ValueVScroll2.ValueVScroll3.Value)
Conector final
Sub privado VScroll3_Change()
Etiqueta 3. Título = "azul:" Str(VScroll3. valor)
SMS 3. BackColor = RGB(0, 0, VScroll3. valor)
Texto 4. BackColor = RGB(VScroll1. Valor VScroll2. Valor VScroll3. Valor)
Conector final
Este es el diseño de la interfaz del tóner en sí.
Subform_Load privado()
I. ModoEscala = 3
i. AutoRedraw = Verdadero
si i. ancho <3000 entonces i. ancho = 3000
si i. altura <3000 entonces yo. Altura = 3000
Conector final
Private Sub Init()
Marcar I como un número entero
BaseX = i. tick_width/2
BaseY = i. Altura proporcional/2
r = IIf(BaseX & gt; BaseY, BaseY * 0.8, BaseY * 0.8)
r1 = R * 0.2
r2 = R * 0.1
r3 = R * 0.05
Para i = 0 a 360, paso 6
Si Mod 30 = 0, entonces '
Yo. DrawWidth = 2
Dibujar línea BaseX (R - 3) * Sin(i * PI / 180), BaseY - (R - 3) * Cos(i * PI / 180), BaseX (R - 8 ) * Sin(i * PI / 180), BaseY - (R - 8) * Cos(i * PI / 180), 3
El punto de otra persona
i. Ancho de dibujo = 2
i. PSet(BaseX(R-3)* Sin(I * PI/180), BaseY - (R - 3) * Cos(i * PI / 180))
Terminará si...
Entonces
yo. Ancho de dibujo = 1
i.
Círculo (BaseX, BaseY), R
Conector final
Dibujar un puntero
Reloj de subdibujo especializado()
Establecer segundos Atenuado a entero
Minutos borrosos como entero
Horas borrosas como entero
Segundos = parte de fecha (" s ", hora)
Minutos=parte de fecha("n",hora)
Horas=parte de fecha("h",hora)
Si horas & gt entonces 12
Horas = horas - 12
Terminará si...
I. Ancho de dibujo = 1
i. Círculo(BaseX, BaseY), 4
DrawLine BaseX - r1 * Sin (Sec * PI / 30), BaseY r1 * Cos (Sec * PI / 30), BaseX (R - 10) * Sin ( Segundos * PI / 30), BaseY - (R - 10) * Cos (Sec * PI / 30), 0
Dibujar línea BaseX - r2 * Sin (Minutos * PI / 30), BaseY r2 * Cos(minutos*PI/30), BaseX R*0.8*Sin(minutos*PI/30), BaseY - R*0.8*Cos(minutos*PI/30), 1
Dibuja la línea BaseX - r3 * Sin((horas y minutos / 60) * PI / 6), BaseY r3 * Cos ((horas y minutos / 60) * PI / 6), BaseX R * 0,6 * Sin ((horas y minutos / 60) * PI / 6 ), BaseY - R * 0.6 * Cos((horas y minutos / 60) * PI / 6), 2
Conector final
Función de dibujo de líneas
Línea de subretiro privado (x1 es un número entero, y1 es un número entero, x2 es un número entero, y2 es un número entero, Flag es un número entero)
Static OldSX1 es un número entero, OldSX2 es un número entero, OldSY1 es un número entero, OldSY2 es un número entero
p>Static OldMX1 es un número entero, OldMX2 es un número entero, OldMY1 es un número entero, OldMY2 es un número entero
Static OldHX1 es un número entero, OldHX2 es un número entero, OldHY1 es un número entero, OldHY2 es un número entero
Seleccione indicador de caso
Caso 0
i. Ancho de dibujo = 1
i. Línea (OldSX1, OldSY1)-(OldSX2, OldSY2), Yo. color de fondo
i. Línea (x1, y1)-(x2, y2)
OldSX1 = x1
OldSX2 = x2
OldSY1 = y1
OldSY2 = y2
Caso 1
I. Ancho de dibujo = 2
i. Línea (OldMX1, OldMY1)-(OldMX2, OldMY2), Yo. color de fondo
i. Línea (x1, y1)-(x2, y2)
OldMX1 = x1
OldMX2 = x2
OldMY1 = y1
OldMY2 = y2
Caso 2
I. Ancho de dibujo = 3
i. Línea (OldHX1, OldHY1)-(OldHX2, OldHY2), Yo. color de fondo
i.
Línea (x1, y1)-(x2, y2)
AntiguoHX1 = x1
AntiguoHX2 = x2
AntiguoHY1 = y1
AntiguoHY2 = y2
Otras situaciones
i. Línea (x1, y1)-(x2, y2)
Finalizar selección
Conector final
Subform_Resize privado()
i. Cls
Inicio de llamada
Conector final
Subtemporizador privado 1_Timer()
Registro de llamada
Fin Conector
¡Este es un programa de reloj con muchas funciones!
El primer paso: dibujar la interfaz.
Cree un nuevo proyecto EXE estándar, cambie su propiedad Título a "Super Bloc de notas", haga clic en la propiedad Icono para encontrar un icono adecuado para él. Haga clic en Proyecto - Piezas, busque Microsoft RichText Box 6.0 y Microsoft Common Dialog 6.0 en el cuadro de diálogo de piezas emergente, selecciónelos y haga clic en Aceptar. En este punto, los dos nuevos controles que acabamos de agregar aparecen en la barra de herramientas izquierda. Dibuje el cuadro de texto enriquecido y el cuadro de diálogo de comunicación en el formulario. El tamaño y la posición del cuadro de texto enriquecido se pueden ignorar y lo manejaremos en el código. Por supuesto, debe configurar su propiedad ScrollBar en 2-rtfVertical para que la barra de desplazamiento vertical esté disponible al abrir y editar archivos.
Paso 2: Editar menú.
Presiona Ctrl+E para abrir el editor de menú. Hagamos el siguiente menú:
1 Menú Archivo:
Archivo (primer piso) mnuFile
Nuevo (segundo piso) mnuNuevo
Abierto (segundo piso) mnuOpen.
Guardar (segundo piso) mnuSave
-(segundo piso) mnuFileSep (divisor)
Salir (segundo piso) mnuExit
2 Menú Edición:
Editar (nivel uno) mnuEdit
Copiar (nivel dos) mnuCopy
Cortar (nivel dos) mnuCut
Pegar (segundo nivel) mnuPaste
-(segundo nivel) mnuEditSep (separador)
Seleccionar todo (segundo nivel) mnuSelecAll
tres. Menú de búsqueda:
Buscar (nivel uno) mnuSearch
Buscar (nivel dos) mnuFind
Buscar el siguiente (nivel dos) mnuFindOn
Cuatro. Menú Ayuda:
Ayuda (nivel 1) mnuHelp
Instrucciones de uso (segundo piso)
Acerca de (segundo piso)
(Nota: configure usted mismo las teclas de acceso directo para cada elemento del menú)
Está bien, se agregarán otros elementos del menú según sea necesario en el futuro. Ahora ingresa:
Paso 3: Escribe el código.
Declarar una variable de búsqueda
Atenuar sFind como una cadena
Declarar el tipo de archivo
Atenuar el tipo de archivo, FiType como una cadena
p>
Inicializador
Private subform_Load()
Establece el tamaño cuando se inicia el programa.
Yo. altura = 6000
i. Ancho = 9000
Conector final
Establecer la posición y el tamaño del cuadro de edición
Privado subform_Resize()
" Error "Continuar al siguiente paso" manejo de errores
RichTextBox1. Arriba=20
RichTextBox1. Izquierda = 20°
RichTextBox1. altura = ScaleHeight-40
RichTextBox1.
Ancho = ScaleWidth-40
Conector final
Nuevo archivo
Private Sub mnuNew_Click()
RichTextBox1. Texto = " " 'Borrar el cuadro de texto.
FileName = "Sin nombre"
Yo. Título=Nombre de archivo
Conector final
Abrir archivo
Sub privado mnuOpen _ Click()
CommonDialog1. Filter = "Documento de texto(*.txt)|*.txt|Documento RTF(*.rtf)|*.rtf|Todos los archivos(*.*)|*.*"
CommonDialog1. MostrarOpen
RichTextBox1. Texto = " " 'Borrar el cuadro de texto.
Nombre de archivo = CommonDialog1. Nombre de archivo
RichTextBox1. Cargando archivo nombre de archivo
i. Caption = "Super Notepad:" y nombre de archivo
Conector final
Guardar archivo
Private Sub mnuSave_Click()
CommonDialog1. Filter = "Documento de texto(*.txt)|*.txt|Documento RTF(*.rtf)|*.rtf|Todos los archivos(*.*)|*.*"
CommonDialog1. Mostrar guardar
FileType = CommonDialog1. Título del archivo
fittype = LCase(Right(FileType, 3))
Nombre del archivo = CommonDialog1. Nombre de archivo
Seleccione tipo de caso
Caso "Texto"
RichTextBox1. Guardar archivo nombre de archivo, rtfText
Caso "rtf"
RichTextBox1. Guardar archivo nombre de archivo, rtfRTF
Caso "*.*"
RichTextBox1. Guardar archivo nombre de archivo
Finalizar selección
i. Caption = "Super Bloc de notas:" &;Nombre de archivo
Conector final
Descartar
Sub privado mnuExit_Click()
Fin
Conector final
Copiar
Sub privado mnuCopy_Click()
Portapapeles. Borrar
Portapapeles. Establecer texto RichTextBox1. SelText
Conector final
Cortar
Sub privado mnuCut_Click()
Portapapeles. Borrar
Portapapeles. Establecer texto RichTextBox1. SelText
RichTextBox1. SelText = " "
Conector final
Seleccionar todo
Sub privado mnuSelectAll_Click()
RichTextBox1. SelStart = 0
RichTextBox1. SelLength = Len(cuadro de texto enriquecido 1. Texto)
Conector final
Pegar
Private Sub mnuPaste_Click()
RichTextBox1. SelText = Portapapeles.
GetText
Conector final
Descubrir
Private Sub mnuFind_Click()
SFind = InputBox("Ingrese la palabra que desea buscar :" , "Qué encontrar", SFind).
RichTextBox1. Buscar sBuscar
Conector final
Continuar buscando.
Sub privada mnuFindOn_Click()
RichTextBox1. SelInicio = RichTextBox1. SelIniciar RichTextBox1. SelLength 1
RichTextBox1. Buscar sFind,, Len(RichTextBox1)
Conector final
Instrucciones de uso
Subdirectorio privado_Click()
Redireccionamiento en caso de error Al manejador
cuadro de texto enriquecido 1. loadfile "Readme.txt", rtfttext 'Escriba el archivo readme.txt y guárdelo en la carpeta donde se encuentra el programa.
Yo. Caption = "Super Notepad:" & "Instrucciones de uso"
Conector de exportación
Procesador:
MsgBox "Es posible que el archivo de descripción se haya eliminado, comuníquese con el autor.", vbOKOnly, "Mensaje de error"
Conector final
Acerca de
Private Sub mnuAbout_Click()
MsgBox" super Notepad Ver1.0 Copyright (C) 2001 Native", vbOKOnly, "Acerca de"
Conector final
Configura el menú emergente (es decir, el menú emergente dinámico cuando haces clic derecho). haga clic en el cuadro de edición Menú)
privado Sub cuadro de texto enriquecido 1 _ MouseDown (El botón es un número entero, Mayús es un número entero, X es precisión simple, Y es precisión simple)
Si Botón = 2, luego p>
Población
Esta es la edición
Para la primera, use comando1.top = comando1.top+15 para moverlo hacia arriba .