Sub AppStart (Form1 As Form, Args() As String) MainForm = Form1 MainForm.RootPane.LoadLayout("1") 'Load the layout file. MainForm.Show Dim qr As QRGenerator qr.Initialize(ImageView1.Width) BmpQR = qr.Create("B4X QR Generator!!!") logo = xui.LoadBitmapResize(File.DirAssets,"c2.png",250,250,False) ImageView1.SetBitmap(BmpQR) ImageView2.SetBitmap(CreateRoundBitmap(logo,200)) End Sub
I would like to resize the image so that the qrcode will be still readable and place at center.
And is it possible to change the color in the part of the generated qrcode like below?