JavenXu 发表于 2024-9-3 17:43:00

C1BarCode 设置size 比例显示出错

Dim IS_COL, IS_ROW, IS_TOTAL As Integer
      IS_COL = 1
      IS_ROW = 10
      IS_TOTAL = 10
      Dim IS_Height, IS_Width As Integer
      IS_Width = 80   'Fix(Me.Panel2.Width / IS_COL) - 10    ' 根据panel 宽平均分配
      IS_Height = 80   'Fix((Me.Panel2.Height - 20) / IS_ROW) - 10' 根据panel 高平均分配
      Me.Panel2.Controls.Clear()

For count1 = 0 To IS_ROW - 1
            For count2 = 0 To IS_COL - 1
                Dim pbox As New PictureBox
                Dim IsNo As String = "0" + CStr(count1 + 1)
                pbox.Name = "BC" + IsNo

                Dim aa As New C1.Win.BarCode.C1BarCode
                aa.CodeType = C1.BarCode.CodeType.QRCode
                aa.Text = "1234567890"
                aa.AutoSize = False
                aa.Size = New Size(80, 80)
                pbox.Image = aa.Image

                Me.Panel2.Controls.Add(pbox)
                pbox.Tag = count1 * IS_COL + count2 + 1
                If pbox.Tag > IS_TOTAL Then
                  Exit For
                End If

                Dim IsX, IsY As Integer
                ''从左往右排列
                IsX = (12 + count2 * IS_Width) + (count2 * 10)
                IsY = (count1 * IS_Height) + (count1 * 10)
                pbox.SetBounds(IsX, IsY, IS_Width, IS_Height)

            Next
      Next

二维码显示如下：显示比例不对，正方形的二维码只显示一半。




Richard.Ma 发表于 2024-9-3 18:32:55

请将截图中的winforms项目直接上传上来。我们来协助调查，否则不一定能复现问题

JavenXu 发表于 2024-9-4 10:40:21

Richard.Ma 发表于 2024-9-3 18:32
请将截图中的winforms项目直接上传上来。我们来协助调查，否则不一定能复现问题

上传上限为20M，压缩包为30M，无法上传

Richard.Ma 发表于 2024-9-4 22:08:27

可以通过其他的方式上传，分卷压缩，或者上传到网盘给个分享链接，或者微信群也行
页: [1]
查看完整版本: C1BarCode 设置size 比例显示出错