Red de conocimiento informático - Problemas con los teléfonos móviles - Problema de curva spline en vb

Problema de curva spline en vb

VB no puede hacerlo sin referencias. Esto depende de la versión de VB. Si es 6.0, debe conectarse en línea para descargar el archivo de la biblioteca GDIPLUS o declarar la API GDI usted mismo. En el caso de VB.NET, VB viene con GDI, pero puedes descargar la biblioteca GDIPLUS para usarlo. Si no sabes dónde descargarlo, está en mi área de descargas y puedes pedírmelo. Estoy usando VB6.0. Después de descargar gdiplus, haga referencia a esta biblioteca en VB. Seleccione "Todos los archivos" para ver esta biblioteca: TOKEN privado como objeto GDI

Gráficos privados como tabla de trabajo

Sub privado. InitGDIPlus()

'Inicializar GDI

Atenuar uInput como GdiplusStartupInput

uInput.GdiplusVersion = 1

Si GdiplusStartup(TOKEN, uInput) lt; gt; Ok, entonces

'Error de inicialización

MsgBox "Error al inicializar GDI. El programa está a punto de cerrarse". , vbCritical, "InitError"

End

End If

GdipCreateFromHDC Me.hDC, Graphics 'Crear mesa de trabajo

GdipSetSmoothingMode Graphics,' SmoothingModeAntiAlias ​​​​'Establecer suavizado

End SubPrivate Sub TerminateGDIPlus()

GdipDeleteGraphics Graphics 'Libera la memoria ocupada por los gráficos

GdiplusShutdownTOKEN 'Cerrar GDI

End SubPrivate Sub Form_Load()

InitGDIPlus 'InitializeEnd SubPrivate Sub Command1_Click() Atenuar ruta siempre

Atenuar m(3) As POINTF 'Aquí están las coordenadas , puedes cambiarlos libremente

m(0).x = 0

m(0).y = 0

m(1).x = 10

m(1).y = 100

m(2).x = 20

m(2).y = 3

m (3).x = 500

m(3).y = 100

Pluma tenue mientras

GdipCreatePen1 amp HFF000000, 2 , UnitPixel, pen 'Crear un pincel para dibujar splines

GdipCreatePath FillModeAlternate, path 'Crear trazados

GdipAddPathBeziers path, m(0), 4 'Crear splines'Count significa coordenadas El número de puntos solo puede pasar el primer elemento de la matriz, no la matriz.

GdipDrawPath Gráficos, pluma, ruta 'Dibujar spline

GdipDeletePen pluma 'Eliminar pluma

GdipDeletePath ruta 'Eliminar splineEndPrivate Sub Form_Unload( Cancelar como entero)

TerminateGDIPlus 'Eliminar GDI

End Sub