#vb.net #dll #crystal-reports
Вопрос:
Вот мой код, который я унаследовал от функции интерфейса, ufl не показывает, почему я не знаю, пожалуйста, помогите
Imports System.Drawing
Imports System.Runtime.InteropServices
Imports IronBarCode
<ComVisible(True), ClassInterface(ClassInterfaceType.None), GuidAttribute("57F49819-197C-436D-AA46-1624E5706284")>
Public Class QrcodeUfl : Implements IQrcodeUfl
Public Function Qrgenerator(input1 As String, input2 As String, input3 As String, input4 As String, input5 As String) As System.Drawing.Bitmap Implements IQrcodeUfl.Qrgenerator
If input1.Length > 40 Then
End If
Dim Myqrcode = IronBarCode.QRCodeWriter.CreateQrCode("Vat Number: " amp; input1 amp; vbNewLine amp; "Customer Name: " amp; input2 amp; vbNewLine amp; "Time Stamp: " amp; input3 amp; vbNewLine amp; "Invoice Token: " amp; input4 amp; vbNewLine amp; "Tax: " amp; input5, 200, QRCodeWriter.QrErrorCorrectionLevel.Medium)
Dim result = Myqrcode.ToBitmap
Return result
End Function
End Class