纯VBA生成二维码(QRCODE)无任何第三方控件(技术原型版)

gaozengxun · 发表于 2022-9-2 23:19

收藏学习学习

暮牧 · 发表于 2023-3-8 17:54

谢谢楼主分享

ts_2000 · 发表于 2023-8-16 15:13

点赞，真是大神级别，太厉害了！！

香苦咖啡 · 发表于 2023-10-11 12:58

这个厉害

cdw654 · 发表于 2024-5-23 19:17

Private Declare PtrSafe Function WideCharToMultiByte Lib "kernel32" ( _
      ByVal CodePage As Long, _
      ByVal dwFlags As Long, _
      ByVal lpWideCharStr As LongPtr, _
      ByVal cchWideChar As Long, _
      ByVal lpMultiByteStr As LongPtr, _
      ByVal cchMultiByte As Long, _
      ByVal lpDefaultChar As LongPtr, _
      ByVal lpUsedDefaultChar As LongPtr) As Long


64位代码

cdw654 · 发表于 2024-5-23 19:26

InputLen = WideCharToMultiByte(CP_UTF8, 0, StrPtr(InputStr), -1, 0, 0, 0, 0) - 1

更新版本阿哲。。64位可以放弃了

		自动登录	找回密码
密码			免费注册

[原创] 纯VBA生成二维码(QRCODE)无任何第三方控件(技术原型版)