找回密码
 立即注册

QQ登录

只需一步,快速开始

JavenXu

注册会员

1

主题

2

帖子

9

积分

注册会员

积分
9
  • 29

    金币

  • 1

    主题

  • 2

    帖子

最新发帖
JavenXu
注册会员   /  发表于:2024-9-3 17:43  /   查看:477  /  回复:3
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

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




本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x

3 个回复

倒序浏览
Richard.Ma讲师达人认证 悬赏达人认证 SpreadJS 开发认证
超级版主   /  发表于: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讲师达人认证 悬赏达人认证 SpreadJS 开发认证
超级版主   /  发表于:2024-9-4 22:08:27
地板
可以通过其他的方式上传,分卷压缩,或者上传到网盘给个分享链接,或者微信群也行
回复 使用道具 举报
您需要登录后才可以回帖 登录 | 立即注册
返回顶部