50 lines
1.2 KiB
VB.net
50 lines
1.2 KiB
VB.net
Imports PluginAPI
|
|
Imports System
|
|
|
|
|
|
Public Class Plugin
|
|
|
|
|
|
Public Function Start(ByVal App As Object, Fnkt As String, Parameters As Object)
|
|
Try
|
|
Select Case UCase(Fnkt)
|
|
Case "FORMULARAKTUALISIEREN"
|
|
Case "PRINTERSETTINGS"
|
|
Try
|
|
Dim f As New frmPrinterSettings(App, Parameters)
|
|
f.ShowDialog()
|
|
f.Dispose()
|
|
f.Dispose()
|
|
f = Nothing
|
|
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
Finalize()
|
|
Case "PRINT_COLOR"
|
|
Dim f As New frmPrinterSettings(App, Parameters)
|
|
f.Set_Printer_To_Color()
|
|
f.Dispose()
|
|
f = Nothing
|
|
Case "PRINT_BW"
|
|
Dim f As New frmPrinterSettings(App, Parameters)
|
|
f.Set_Printer_To_BW()
|
|
f.Dispose()
|
|
f = Nothing
|
|
|
|
Case Else
|
|
|
|
Finalize()
|
|
Exit Function
|
|
End Select
|
|
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
Finalize()
|
|
|
|
End Function
|
|
|
|
|
|
End Class
|