Hallo,
Wie kann ich mit „Visual Basic 6.0“ selbst erstellte Grafiken( Kreis,etc…) in einem Ordner speichern im „JPG“ oder „HTML“ oder „PDF“ oder „MPG“ Format.
Beispiel: Grafik am Monitor anschauen
Private Sub cmdZeichnen_Click()
Dim J As Integer, K As Integer
Dim StartX As Single, StartY As Single, LastX As Single, LastY As Single, R As Single, _ Alfa As Single
frmZeichnen.DrawWidth = 3 'Bestimmt die Liniendicke frmZeichnen Ausgabe
Alfa = 3.141592654 / 180
R = 2
For K = 1 To 5
For J = 0 To 360
StartX = 3671 + R * Cos(J * Alfa) * 56.7
StartY = 4420 - R * Sin(J * Alfa) * 56.7
LastX = 3671 + R * Cos((J + 1) * Alfa) * 56.7
LastY = 4420 - R * Sin((J + 1) * Alfa) * 56.7
frmZeichnen.Line (StartX, StartY)-(LastX, LastY), vbRed
Next J
R = R + 10
Next K
End Sub
Beispiel: Grafik zum Drucker senden
Private Sub cmdDrucken_Click()
Dim J As Integer, K As Integer
Dim StartX As Single, StartY As Single, LastX As Single, LastY As Single, R As Single, _ Alfa As Single
Printer.DrawWidth = 10 'Bestimmt die Liniendicke Drückerausgabe
R = 2
For K = 1 To 5
For J = 0 To 360
StartX = 3671 + R * Cos(J * Alfa) * 56.7
StartY = 4420 - R * Sin(J * Alfa) * 56.7
LastX = 3671 + R * Cos((J + 1) * Alfa) * 56.7
LastY = 4420 - R * Sin((J + 1) * Alfa) * 56.7
Printer.Line (StartX, StartY)-(LastX, LastY), vbRed
Next J
R = R + 10
Next K
End Sub
MPG ist IMHO kein Bildformat, für PDF brauchst Du einen Druckertreiber, stellst diesen als Printer ein und gibst das Bild dahin aus, (noch nie gamacht, muß aber gehen) HTML ist ein Script, das Bilder verwaltet, aber nicht enthält und JPG geht, ist aber schwer. Das hebe Dir auf, bis Du mit VB zurecht kommst. Meine Schlosserlehre habe ich auch nicht damit begonnen, ein schrägverzahntes Zahnrad herzustellen, das habe ich in der Gesellenprüfung gemacht.