Cree un proyecto de VB que pueda ejecutar para reducir y restaurar el texto en un cuadro de texto. ¿Cómo escribir código de programa?

Mi memoria de vb6.0 no es muy profunda, ahora estoy usando .net, pero el significado es el mismo

Si realmente puedes usar la asignación FontSize para cambiar el tamaño en vb6.0, también debería estar en modo de punto flotante. Único o use la fórmula 30.0/2.0

Sin embargo, todavía tengo que proporcionarle este método (referencia original de MSDN)

Las notas herederas sobrecargan la fuente en la propiedad de clases derivadas, use la propiedad Font de la clase base para ampliar la implementación de la clase base. De lo contrario, debe proporcionar todas las implementaciones. No es necesario anular los descriptores de acceso get y set de una propiedad de fuente; puede anular solo uno de los descriptores de acceso si es necesario.

Esto significa que si desea cambiar la propiedad de fuente de un control, debe especificar una clase base de fuente

Por ejemplo:

Object.Font = Fuente( . .. )

Por supuesto, en 6.0, la mayor parte del código que proporcionaste estará sobrecargado. 0, es probable que el código que proporcionaste sea válido, pero de acuerdo con lo que dijiste acerca de dividir la fuente a la mitad, es posible que aún se puedan mostrar 30 reducidos a la mitad a 15, pero 15 reducidos a la mitad a 7,5 no se mostrarán

Referencias:/library/3essdeyy(VS.80).aspx

(Dirección) requiere todas las dependencias, incluido aspx hasta el final)

' Visual Basic 6.0

'Establece las propiedades de fuente directamente en el control. FontBold = True

' crea un objeto stdFont.

Dim f As New stdFont

' Establece el objeto stdFont en la fuente Arial.

f.Name = "Arial"

' Asigna stdFont a la propiedad de fuente del control. Asigne stdFont a la propiedad de fuente del control.

Set Label1.Font = f

' Aún puedes cambiar las propiedades en tiempo de ejecución.

Label1.FontBold = True

Label1.FontItalic = True

' Aún puedes cambiar las propiedades en tiempo de ejecución.