Red de conocimiento informático - Problemas con los teléfonos móviles - ¿Cómo realiza el programa VB los siguientes pasos?

¿Cómo realiza el programa VB los siguientes pasos?

Tres configuraciones de barra de desplazamiento: min: 0; max: 255; cambio pequeño: 5; cambio: £20

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

Población

Esta es la edición

Para la primera, use comando1.top = comando1.top+15 para moverlo hacia arriba .