Dragon
  非凡社群营销服务平台专注于社群管理,社群裂变,多群同步直播,企业微信SCRM系统。欢迎合作咨询;客服微信11112751

企业微信建群宝 _ 利用 QRmaker 制作二维码 _ 微信二维码

2021-03-18 11:00 54 微信机器人

非凡管家旗下:微信机器人,微信助手,社群营销,营销大师,企业微信大管家,小鹿活码,非凡建群宝,非凡群直播,非凡一折购商城,SAAS 非凡营销商城等微信社群营销服务平台,为你的微信营销私欲流量保驾护航。非凡微信社群营销服务平台 www.haqsl.com

我们提供【社群管理裂变】【自动建群】【多群转播】【活码系统】【小程序开发】【公众号开发】【各类商城 SAAS】一站式服务,各类功能提供免费体验,满意付款,如您还有其他疑问请您添加企鹅/微信 1003312430 方便咨询哦。
非凡社群助手------微信活码系统演示(客户活码二维码累计扫描量一千万+)
活码系统介绍:
二维码图案不变,内容可随时变更, 极大提高营销效果,基于活码技术,二维码图案更简单,扫码更加容易宣传海报、二维码印刷、商品.群.软文。
让二维码图案更简单,扫码更加容易宣传。

,

行使 QRmaker 制作二维码

2014-01-25
 
    条形码的应用越来越普及,只是现在的应用中照样以一维居多,好比现在超市收银台都是刷一维码的。由于一维码自己的编码机制所限,一维码所能示意的信息也是有限的,稀奇是信息多了以后,很难识别。因此二维码应用而生,凭证差其余编码形式,可以保留差异量的信息,但总体来说,二维码比一维码能够存储的信息量大多了。而且最主要的是二维码还具有纠错功效,也就是说即便二维码因意外有部门损坏,仍然有读出数据的可能。     最近由于要用到二维码,网上搜了一下,有个体小软件能够实现二维码的天生,但由于是 EXE 花样,无法修改,以是不适用。然后就是想到一些二维码控件,搜到不少,但基本上都是收费的,而且也不知道效果怎样。     终于找到一个 QRmaker 控件,使用也很简朴,可以用于 VB 平台,固然 VBA 用也就没问题了。    
一、VB 中挪用 QRmaker     先“新建”一个“尺度 EXE”工程,在控件工具箱中要添加 QRmaker 控件,然后在 Form 上划分添加一个 Textbox 控件(我这里取的名称为 txtInputData)和一个 QRmaker 控件。其中 Textbox 控件的属性可凭证自己的喜欢举行设置,QRmaker 控件的 AutoRedraw 属性建议设置为“1-ArOn”,固然也可以在代码中直接控制。     双击窗体,进入代码编辑界面,划分完成以下代码。 Private Sub Form_Load()

        txtInputData.Text = "请单击此处,输入要天生二维码的文本"

End Sub

Private Sub txtInputData_Click()

        txtInputData.Text = ""

End Sub

Private Sub txtInputData_Change()

        QRmaker1.InputData = txtInputData.Text

End Sub     若是没有设置 QRmaker 的 AutoRedraw 属性,则 txtInputData_Change 事宜中还需要添加“QRmaker1.Refresh”代码行,总的代码如下图所示。
企业微信建群宝 _ 利用 QRmaker 制作二维码 _ 微信二维码     最后天生 EXE,可以输入文字,可以看到已经可以天生二维码了,由于使用了 txtInputData_Change()事宜,以是在文本框中输入的文字,下方的二维码会实时的展现。    
企业微信建群宝 _ 利用 QRmaker 制作二维码 _ 微信二维码     至此 VB 中挪用 QRmaker 天生二维码已经没什么问题了,其他细节部门可凭证现真相形举行修改。    
二、VBA 中挪用 QRmaker     由于 VBA 的窗体环境和 VB 中的差不多,以是在 VBA 窗体中挪用 QRmaker 就不再形貌,这里主要说明一下若何在表格中引用 QRmaker。     第一步:单击 Office 按钮,在 Excel 选项中开启“开发工具”项,从而让“开发工具”选项卡显示出来。     第二步,插入→其他控件,选择 QRmaker。
企业微信建群宝 _ 利用 QRmaker 制作二维码 _ 微信二维码     然后就是在合适的地方绘出 QRmaker 控件,这时会自动进入“设计模式”,单击“属性”可以睁开控件的“属性”栏,可凭证需要设置相关属性,和 VB 中的操作相同。     接下来与 VB 中纷歧样的地方就是若何在 VBA 代码中引用 QRmaker 控件了,这点和 VB 中有点小区别。     添加“模块”,添加“历程”,输入代码。 Public Sub QRCodeTest()

        '界说 QRString 变量,存储要天生二维码的字符串

        Dim QRString As String

        '给 QRString 赋值,凭证现真相形赋值

        QRString = Sheet1.Range("E14") & Sheet1.Range("F14") & ";" & Sheet1.Range("E15") & Sheet1.Range("F15") & ";" & Sheet1.Range("E16") & Sheet1.Range("F16") & "_" & Sheet1.Range("G16") & "_" & Sheet1.Range("F17") & "_" & Sheet1.Range("G17")

        Sheet1.Select

        '设置 QRmaker 的 AutoRedraw 属性为 ArOn

        Sheet1.QRmaker1.AutoRedraw = ArOn

        '将字符勾转达给 QRmaker 控件

        Sheet1.QRmaker1.InputData = QRString

        '刷新 QRmaker 的内容,若是 AutoRedraw 属性为 On,则无需此句

        'Sheet1.QRmaker1.Refresh

End Sub

    然后就可以在 Excel 表格中天生二维码了,凭证现真相形,在填写相关数据后,执行上面的语句就可以了,其他的事情该咋的就咋的吧。
企业微信建群宝 _ 利用 QRmaker 制作二维码 _ 微信二维码     附上 QRmaker 控件的下载。     另:这里由于是行使 QRmaker 控件来天生二维码,以是并没有手艺含量。而就二维码自己,包罗的知识点照样相当多的,现在还没去领会过编辑手艺层面的内容。期待有达人们能够放出类似控件的源代码,从而让更多的人领会并掌握二维码的知识。     PS:现在的二维码真是无处不在,前段时间移动赠予给我的影戏票都是以二维码的形式发送的。现在火车票上也加上二维码了,且现在许多手机都支持二维码识别了。一个新的读码时代即将到来。

本文出自 “” 博客,请务必保留此出处

创意 3D 二维码制作教程

3d 二维码,二维码(Qrcode)作为近几年来移动设备上超流行的一种编码方式,已经渗透入我们生活的方方面面,无论你是购个物,吃个饭,甚至是买个菜都可以看见二维码的身影。其中,最常见的无外乎那种黑白马赛克二维码,但随着二维码的演变,现在多种多样的创意二维码如雨后春笋般出…

「点点赞赏,手留余香」

还没有人赞赏,快来当第一个赞赏的人吧!

非凡微信机器人助手给非凡微信机器人助手打赏
×
予人玫瑰,手有余香
  • 2
  • 5
  • 10
  • 20
  • 50
2
支付

本文来自投稿,不代表微信机器人立场,版权归原作者所有,欢迎分享本文,转载请保留出处!

2021-03-18

2021-03-18

×
Tips:非凡社群营销服务平台专注于社群管理,社群裂变,多群同步直播,企业微信SCRM系统。欢迎合作咨询;客服微信11112751