Excel VBA活动抽奖小程序】的更多相关文章

在活动中,我们常会有抽奖,抽奖箱准备繁琐,现在多采用线上抽奖方式,下面用Excel VBA写了一个简单的抽奖小程序 简单测试效果如下,可实现: 多次抽奖,且每次抽奖都不重复 抽奖界面滚动人员信息,点击抽奖按钮锁定中奖人员 中奖人员信息在右侧公示区域展示,最新中奖人员展示在最上方 设置了一部分误点.误操作提示,以及抽奖完成提示等 做了一个抽奖简单演示,演示GIF如下: 实现代码如下,按需自取,转载请备注出处: '申明Flag.d.e三个模块变量,跨进程引用,实现滚动和抽奖数据传递 Dim Flag…
用jquery实现抽奖小程序 这些日子,到处都可以看到关于微信小程序的新闻或报到,在博客园中写关于微信小程序的也不少.但是今天我要说的不是微信小程序,而是用简单的jquery写的一个好玩的抽奖小程序.最后介绍了后面关于抽奖小程序的一些后面更新的方向和Math.random的一些小知识.(最终结果保存在:http://runjs.cn/detail/rq3bbhto,点击可查看效果) 下面先看一个简单的抽奖小程序的例子: html: <div class="g-lottery-box&quo…
原文:VSTO学习笔记(七)基于WPF的Excel分析.转换小程序 近期因为工作的需要,要批量处理Excel文件,于是写了一个小程序,来提升工作效率. 小程序的功能是对Excel进行一些分析.验证,然后进行转换. 概述 小程序主界面如下: 首先选择一个日期和类别,从命名上对待分析的Excel文件进行过滤.点击[浏览]选择待分析的Excel文件所在的目录, 程序中会获取所有子目录.然后点击[执行分析]就会按照左边CheckBox中的选择进行分析,分析结果显示在每一行中间.[修改配置]可以对分析规则…
使用 pyinstaller 打包工具常用参数指南 pyinstaller -F demo.py 参数 含义 -F 指定打包后只生成一个exe格式的文件 -D –onedir 创建一个目录,包含exe文件,但会依赖很多文件(默认选项) -c –console, –nowindowed 使用控制台,无界面(默认选项) -w –windowed, –noconsole 使用窗口,无控制台 -p 添加搜索路径,让其找到对应的库. -i 改变生成程序的icon图标 pyinstaller -F -w -…
js写的网页抽奖小程序,先上截图 源码地址:https://github.com/xiachaoxulu/raffle…
效果图: 主要代码: Form1.cs using System; using System.Drawing; using System.IO; using System.Runtime.InteropServices; using System.Windows.Forms; namespace WindowsFormsApp2 { public partial class Form1 : Form { static string path = "抽奖.txt"; string[] c…
package com.test; import java.awt.Color; import java.awt.Font; import java.awt.event.ActionEvent; import java.awt.event.ActionListener; import java.util.Random; import javax.swing.JButton; import javax.swing.JFrame; import javax.swing.JLabel; import…
#region 第一部分界面设计 ; Button button = new Button(); Image[] images = new Image[N]; PictureBox[] pictures = new PictureBox[N]; , , , , -, -, , }; , , , , , , -, - }; private void Form1_Load(object sender, EventArgs e) { InitialImage(); InitialSurface();/…
哈希表的使用 Hashtable hashtable = new Hashtable(); hashtable.ContainsValue(tmp);//判断哈希表中有没有tmp hashtable.add(tmp,tmp);//加入哈希表 DataSet的使用 SqlDataAdapter sda = new SqlDataAdapter(sqlCount, myconn); DataSet ds = new DataSet(); sda.Fill(ds); 获取ds里的值 ds.Tables…
张三科技有限公司有300名员工,开年会抽奖,奖项如下一等奖3名 : 泰国五日游二等奖6名 :iphone手机三等奖30名 :避孕套一盒规则:1.一共抽3次,第一次抽3等奖,第二次抽2等奖,第三次压轴抽1等奖2.每个员工限中奖一次 import random count3 = while count3 < : num3 = []#存储中奖 n3 = []#编号 put3 = input("请输入go进行第一次抽奖:").strip() if put3 == "go&quo…