chn/group-meeting-lottery
1
0
Fork 0
mirror of https://github.com/CHN-beta/group-meeting-lottery.git synced 2026-01-11 01:19:35 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

上一个忘了改界面上的时间了

Browse Source
This commit is contained in:
陈浩南
2023-09-21 16:41:20 +08:00
parent 39de0e976c
commit b9f29bdefe
2 changed files with 285 additions and 226 deletions
Download Patch File Download Diff File Expand all files Collapse all files

449
Form1.Designer.vb generated
View File

@@ -22,231 +22,230 @@ Partial Class Form1
'Do not modify it using the code editor. 'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> <System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() components = New ComponentModel.Container()
Me.Button1 = New System.Windows.Forms.Button() Button1 = New Button()
Me.Button2 = New System.Windows.Forms.Button() Button2 = New Button()
Me.Label1 = New System.Windows.Forms.Label() Label1 = New Label()
Me.TextBox1 = New System.Windows.Forms.TextBox() TextBox1 = New TextBox()
Me.TextBox2 = New System.Windows.Forms.TextBox() TextBox2 = New TextBox()
Me.Label2 = New System.Windows.Forms.Label() Label2 = New Label()
Me.Button3 = New System.Windows.Forms.Button() Button3 = New Button()
Me.TextBox3 = New System.Windows.Forms.TextBox() TextBox3 = New TextBox()
Me.Label3 = New System.Windows.Forms.Label() Label3 = New Label()
Me.Button4 = New System.Windows.Forms.Button() Button4 = New Button()
Me.Timer1 = New System.Windows.Forms.Timer(Me.components) Timer1 = New Timer(components)
Me.Timer2 = New System.Windows.Forms.Timer(Me.components) Timer2 = New Timer(components)
Me.Label5 = New System.Windows.Forms.Label() Label5 = New Label()
Me.Button6 = New System.Windows.Forms.Button() Button6 = New Button()
Me.CheckBox1 = New System.Windows.Forms.CheckBox() CheckBox1 = New CheckBox()
Me.Button7 = New System.Windows.Forms.Button() Button7 = New Button()
Me.Button8 = New System.Windows.Forms.Button() Button8 = New Button()
Me.Label6 = New System.Windows.Forms.Label() Label6 = New Label()
Me.SuspendLayout SuspendLayout()
' '
'Button1 ' Button1
' '
Me.Button1.Font = New System.Drawing.Font("Microsoft YaHei UI", 26.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point) Button1.Font = New Drawing.Font("Microsoft YaHei UI", 26.25F, Drawing.FontStyle.Regular, Drawing.GraphicsUnit.Point)
Me.Button1.Location = New System.Drawing.Point(231, 249) Button1.Location = New Drawing.Point(231, 249)
Me.Button1.Name = "Button1" Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(170, 72) Button1.Size = New Drawing.Size(170, 72)
Me.Button1.TabIndex = 0 Button1.TabIndex = 0
Me.Button1.Text = "开始抽奖" Button1.Text = "开始抽奖"
Me.Button1.UseVisualStyleBackColor = true Button1.UseVisualStyleBackColor = True
' '
'Button2 ' Button2
' '
Me.Button2.Font = New System.Drawing.Font("Microsoft YaHei UI", 26.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point) Button2.Font = New Drawing.Font("Microsoft YaHei UI", 26.25F, Drawing.FontStyle.Regular, Drawing.GraphicsUnit.Point)
Me.Button2.Location = New System.Drawing.Point(421, 38) Button2.Location = New Drawing.Point(421, 38)
Me.Button2.Name = "Button2" Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(147, 60) Button2.Size = New Drawing.Size(147, 60)
Me.Button2.TabIndex = 1 Button2.TabIndex = 1
Me.Button2.Text = "换一个" Button2.Text = "换一个"
Me.Button2.UseVisualStyleBackColor = true Button2.UseVisualStyleBackColor = True
Me.Button2.Visible = false Button2.Visible = False
' '
'Label1 ' Label1
' '
Me.Label1.AutoSize = true Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft YaHei UI", 26.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point) Label1.Font = New Drawing.Font("Microsoft YaHei UI", 26.25F, Drawing.FontStyle.Regular, Drawing.GraphicsUnit.Point)
Me.Label1.Location = New System.Drawing.Point(51, 45) Label1.Location = New Drawing.Point(51, 45)
Me.Label1.Name = "Label1" Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(160, 46) Label1.Size = New Drawing.Size(160, 46)
Me.Label1.TabIndex = 2 Label1.TabIndex = 2
Me.Label1.Text = "第一小组" Label1.Text = "第一小组"
' '
'TextBox1 ' TextBox1
' '
Me.TextBox1.BackColor = System.Drawing.SystemColors.HighlightText TextBox1.BackColor = Drawing.SystemColors.HighlightText
Me.TextBox1.Font = New System.Drawing.Font("Microsoft YaHei UI", 26.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point) TextBox1.Font = New Drawing.Font("Microsoft YaHei UI", 26.25F, Drawing.FontStyle.Regular, Drawing.GraphicsUnit.Point)
Me.TextBox1.Location = New System.Drawing.Point(217, 42) TextBox1.Location = New Drawing.Point(217, 42)
Me.TextBox1.Name = "TextBox1" TextBox1.Name = "TextBox1"
Me.TextBox1.ReadOnly = true TextBox1.ReadOnly = True
Me.TextBox1.Size = New System.Drawing.Size(198, 52) TextBox1.Size = New Drawing.Size(198, 52)
Me.TextBox1.TabIndex = 3 TextBox1.TabIndex = 3
Me.TextBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center TextBox1.TextAlign = HorizontalAlignment.Center
' '
'TextBox2 ' TextBox2
' '
Me.TextBox2.BackColor = System.Drawing.SystemColors.HighlightText TextBox2.BackColor = Drawing.SystemColors.HighlightText
Me.TextBox2.Font = New System.Drawing.Font("Microsoft YaHei UI", 26.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point) TextBox2.Font = New Drawing.Font("Microsoft YaHei UI", 26.25F, Drawing.FontStyle.Regular, Drawing.GraphicsUnit.Point)
Me.TextBox2.Location = New System.Drawing.Point(217, 108) TextBox2.Location = New Drawing.Point(217, 108)
Me.TextBox2.Name = "TextBox2" TextBox2.Name = "TextBox2"
Me.TextBox2.ReadOnly = true TextBox2.ReadOnly = True
Me.TextBox2.Size = New System.Drawing.Size(198, 52) TextBox2.Size = New Drawing.Size(198, 52)
Me.TextBox2.TabIndex = 6 TextBox2.TabIndex = 6
Me.TextBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center TextBox2.TextAlign = HorizontalAlignment.Center
' '
'Label2 ' Label2
' '
Me.Label2.AutoSize = true Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("Microsoft YaHei UI", 26.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point) Label2.Font = New Drawing.Font("Microsoft YaHei UI", 26.25F, Drawing.FontStyle.Regular, Drawing.GraphicsUnit.Point)
Me.Label2.Location = New System.Drawing.Point(51, 111) Label2.Location = New Drawing.Point(51, 111)
Me.Label2.Name = "Label2" Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(160, 46) Label2.Size = New Drawing.Size(160, 46)
Me.Label2.TabIndex = 5 Label2.TabIndex = 5
Me.Label2.Text = "第二小组" Label2.Text = "第二小组"
' '
'Button3 ' Button3
' '
Me.Button3.Font = New System.Drawing.Font("Microsoft YaHei UI", 26.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point) Button3.Font = New Drawing.Font("Microsoft YaHei UI", 26.25F, Drawing.FontStyle.Regular, Drawing.GraphicsUnit.Point)
Me.Button3.Location = New System.Drawing.Point(421, 104) Button3.Location = New Drawing.Point(421, 104)
Me.Button3.Name = "Button3" Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(147, 60) Button3.Size = New Drawing.Size(147, 60)
Me.Button3.TabIndex = 4 Button3.TabIndex = 4
Me.Button3.Text = "换一个" Button3.Text = "换一个"
Me.Button3.UseVisualStyleBackColor = true Button3.UseVisualStyleBackColor = True
Me.Button3.Visible = false Button3.Visible = False
' '
'TextBox3 ' TextBox3
' '
Me.TextBox3.BackColor = System.Drawing.SystemColors.HighlightText TextBox3.BackColor = Drawing.SystemColors.HighlightText
Me.TextBox3.Font = New System.Drawing.Font("Microsoft YaHei UI", 26.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point) TextBox3.Font = New Drawing.Font("Microsoft YaHei UI", 26.25F, Drawing.FontStyle.Regular, Drawing.GraphicsUnit.Point)
Me.TextBox3.Location = New System.Drawing.Point(217, 174) TextBox3.Location = New Drawing.Point(217, 174)
Me.TextBox3.Name = "TextBox3" TextBox3.Name = "TextBox3"
Me.TextBox3.ReadOnly = true TextBox3.ReadOnly = True
Me.TextBox3.Size = New System.Drawing.Size(198, 52) TextBox3.Size = New Drawing.Size(198, 52)
Me.TextBox3.TabIndex = 9 TextBox3.TabIndex = 9
Me.TextBox3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center TextBox3.TextAlign = HorizontalAlignment.Center
' '
'Label3 ' Label3
' '
Me.Label3.AutoSize = true Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Microsoft YaHei UI", 26.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point) Label3.Font = New Drawing.Font("Microsoft YaHei UI", 26.25F, Drawing.FontStyle.Regular, Drawing.GraphicsUnit.Point)
Me.Label3.Location = New System.Drawing.Point(51, 177) Label3.Location = New Drawing.Point(51, 177)
Me.Label3.Name = "Label3" Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(160, 46) Label3.Size = New Drawing.Size(160, 46)
Me.Label3.TabIndex = 8 Label3.TabIndex = 8
Me.Label3.Text = "第三小组" Label3.Text = "第三小组"
' '
'Button4 ' Button4
' '
Me.Button4.Font = New System.Drawing.Font("Microsoft YaHei UI", 26.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point) Button4.Font = New Drawing.Font("Microsoft YaHei UI", 26.25F, Drawing.FontStyle.Regular, Drawing.GraphicsUnit.Point)
Me.Button4.Location = New System.Drawing.Point(421, 170) Button4.Location = New Drawing.Point(421, 170)
Me.Button4.Name = "Button4" Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(147, 60) Button4.Size = New Drawing.Size(147, 60)
Me.Button4.TabIndex = 7 Button4.TabIndex = 7
Me.Button4.Text = "换一个" Button4.Text = "换一个"
Me.Button4.UseVisualStyleBackColor = true Button4.UseVisualStyleBackColor = True
Me.Button4.Visible = false Button4.Visible = False
' '
'Timer1 ' Timer1
' '
Me.Timer1.Interval = 50 Timer1.Interval = 50
' '
'Timer2 ' Timer2
' '
Me.Timer2.Enabled = true Timer2.Enabled = True
Me.Timer2.Interval = 500 Timer2.Interval = 500
' '
'Label5 ' Label5
' '
Me.Label5.AutoSize = true Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(352, 437) Label5.Location = New Drawing.Point(352, 437)
Me.Label5.Name = "Label5" Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(244, 17) Label5.Size = New Drawing.Size(244, 17)
Me.Label5.TabIndex = 13 Label5.TabIndex = 13
Me.Label5.Text = "code by 陈浩南@第一小组 2022年9月22日" Label5.Text = "code by 陈浩南@第一小组 2023年9月21日"
Me.Label5.TextAlign = System.Drawing.ContentAlignment.TopRight Label5.TextAlign = Drawing.ContentAlignment.TopRight
' '
'Button6 ' Button6
' '
Me.Button6.Location = New System.Drawing.Point(109, 434) Button6.Location = New Drawing.Point(109, 434)
Me.Button6.Name = "Button6" Button6.Name = "Button6"
Me.Button6.Size = New System.Drawing.Size(107, 23) Button6.Size = New Drawing.Size(107, 23)
Me.Button6.TabIndex = 14 Button6.TabIndex = 14
Me.Button6.Text = "导出名单到excel" Button6.Text = "导出名单到excel"
Me.Button6.UseVisualStyleBackColor = true Button6.UseVisualStyleBackColor = True
' '
'CheckBox1 ' CheckBox1
' '
Me.CheckBox1.AutoSize = true CheckBox1.AutoSize = True
Me.CheckBox1.Checked = true CheckBox1.Checked = True
Me.CheckBox1.CheckState = System.Windows.Forms.CheckState.Checked CheckBox1.CheckState = CheckState.Checked
Me.CheckBox1.Location = New System.Drawing.Point(78, 327) CheckBox1.Location = New Drawing.Point(78, 327)
Me.CheckBox1.Name = "CheckBox1" CheckBox1.Name = "CheckBox1"
Me.CheckBox1.Size = New System.Drawing.Size(471, 38) CheckBox1.Size = New Drawing.Size(471, 38)
Me.CheckBox1.TabIndex = 15 CheckBox1.TabIndex = 15
Me.CheckBox1.Text = "尽量避免重复"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"（已经抽到过的人将不再被抽到，除非程序被重启或那个小组的人都轮换了一遍。）"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10) CheckBox1.Text = "尽量避免重复" & vbCrLf & "（已经抽到过的人将不再被抽到，除非程序被重启或那个小组的人都轮换了一遍。）" & vbCrLf
Me.CheckBox1.UseVisualStyleBackColor = true CheckBox1.UseVisualStyleBackColor = True
' '
'Button7 ' Button7
' '
Me.Button7.Location = New System.Drawing.Point(12, 406) Button7.Location = New Drawing.Point(12, 406)
Me.Button7.Name = "Button7" Button7.Name = "Button7"
Me.Button7.Size = New System.Drawing.Size(81, 23) Button7.Size = New Drawing.Size(81, 23)
Me.Button7.TabIndex = 16 Button7.TabIndex = 16
Me.Button7.Text = "下载最新版" Button7.Text = "下载最新版"
Me.Button7.UseVisualStyleBackColor = true Button7.UseVisualStyleBackColor = True
' '
'Button8 ' Button8
' '
Me.Button8.Location = New System.Drawing.Point(12, 434) Button8.Location = New Drawing.Point(12, 434)
Me.Button8.Name = "Button8" Button8.Name = "Button8"
Me.Button8.Size = New System.Drawing.Size(81, 23) Button8.Size = New Drawing.Size(81, 23)
Me.Button8.TabIndex = 17 Button8.TabIndex = 17
Me.Button8.Text = "获取源代码" Button8.Text = "获取源代码"
Me.Button8.UseVisualStyleBackColor = true Button8.UseVisualStyleBackColor = True
' '
'Label6 ' Label6
' '
Me.Label6.AutoSize = true Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(99, 409) Label6.Location = New Drawing.Point(99, 409)
Me.Label6.Name = "Label6" Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(181, 17) Label6.Size = New Drawing.Size(181, 17)
Me.Label6.TabIndex = 18 Label6.TabIndex = 18
Me.Label6.Text = "或手动访问kkmeeting.chn.moe" Label6.Text = "或手动访问kkmeeting.chn.moe"
' '
'Form1 ' Form1
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(7!, 17!) AutoScaleDimensions = New Drawing.SizeF(7F, 17F)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font AutoScaleMode = AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(608, 464) ClientSize = New Drawing.Size(608, 464)
Me.Controls.Add(Me.Label6) Controls.Add(Label6)
Me.Controls.Add(Me.Button8) Controls.Add(Button8)
Me.Controls.Add(Me.Button7) Controls.Add(Button7)
Me.Controls.Add(Me.CheckBox1) Controls.Add(CheckBox1)
Me.Controls.Add(Me.Button6) Controls.Add(Button6)
Me.Controls.Add(Me.Label5) Controls.Add(Label5)
Me.Controls.Add(Me.TextBox3) Controls.Add(TextBox3)
Me.Controls.Add(Me.Label3) Controls.Add(Label3)
Me.Controls.Add(Me.Button4) Controls.Add(Button4)
Me.Controls.Add(Me.TextBox2) Controls.Add(TextBox2)
Me.Controls.Add(Me.Label2) Controls.Add(Label2)
Me.Controls.Add(Me.Button3) Controls.Add(Button3)
Me.Controls.Add(Me.TextBox1) Controls.Add(TextBox1)
Me.Controls.Add(Me.Label1) Controls.Add(Label1)
Me.Controls.Add(Me.Button2) Controls.Add(Button2)
Me.Controls.Add(Me.Button1) Controls.Add(Button1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D FormBorderStyle = FormBorderStyle.Fixed3D
Me.ImeMode = System.Windows.Forms.ImeMode.Disable ImeMode = ImeMode.Disable
Me.MaximizeBox = false MaximizeBox = False
Me.Name = "Form1" Name = "Form1"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen StartPosition = FormStartPosition.CenterScreen
Me.Text = "KK集团大组会抽奖" Text = "KK集团大组会抽奖"
Me.ResumeLayout(false) ResumeLayout(False)
Me.PerformLayout PerformLayout()
End Sub
End Sub
Friend WithEvents Button1 As Button Friend WithEvents Button1 As Button
Friend WithEvents Button2 As Button Friend WithEvents Button2 As Button

62
Form1.resx
View File

@@ -1,4 +1,64 @@
<root> <?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing"">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata"> <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" /> <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true"> <xsd:element name="root" msdata:IsDataSet="true">