chn/group-meeting-lottery
1
0
Fork 0
mirror of https://github.com/CHN-beta/group-meeting-lottery.git synced 2024-10-22 19:38:43 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

重构，因为新装的vs打不开

Browse Source
This commit is contained in:
陈浩南 2024-10-06 22:23:35 +08:00
parent a69c05b505
commit d3cc1c25fe
12 changed files with 112 additions and 506 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

116
Form1.Designer.vb generated
View File

@ -39,26 +39,24 @@ Partial Class Form1
Button6 = New Button() Button6 = New Button()
CheckBox1 = New CheckBox() CheckBox1 = New CheckBox()
Button7 = New Button() Button7 = New Button()
Button8 = New Button()
Label6 = New Label()
SuspendLayout() SuspendLayout()
' '
' Button1 ' Button1
' '
Button1.Font = New Drawing.Font("Microsoft YaHei UI", 26.25F, Drawing.FontStyle.Regular, Drawing.GraphicsUnit.Point) Button1.Font = New Font("Microsoft YaHei UI", 26.25F)
Button1.Location = New Drawing.Point(256, 252) Button1.Location = New Point(256, 252)
Button1.Name = "Button1" Button1.Name = "Button1"
Button1.Size = New Drawing.Size(170, 72) Button1.Size = New Size(170, 72)
Button1.TabIndex = 0 Button1.TabIndex = 0
Button1.Text = "开始抽奖" Button1.Text = "开始抽奖"
Button1.UseVisualStyleBackColor = True Button1.UseVisualStyleBackColor = True
' '
' Button2 ' Button2
' '
Button2.Font = New Drawing.Font("Microsoft YaHei UI", 26.25F, Drawing.FontStyle.Regular, Drawing.GraphicsUnit.Point) Button2.Font = New Font("Microsoft YaHei UI", 26.25F)
Button2.Location = New Drawing.Point(479, 38) Button2.Location = New Point(479, 38)
Button2.Name = "Button2" Button2.Name = "Button2"
Button2.Size = New Drawing.Size(147, 60) Button2.Size = New Size(147, 60)
Button2.TabIndex = 1 Button2.TabIndex = 1
Button2.Text = "换一个" Button2.Text = "换一个"
Button2.UseVisualStyleBackColor = True Button2.UseVisualStyleBackColor = True
@ -67,51 +65,51 @@ Partial Class Form1
' Label1 ' Label1
' '
Label1.AutoSize = True Label1.AutoSize = True
Label1.Font = New Drawing.Font("Microsoft YaHei UI", 26.25F, Drawing.FontStyle.Regular, Drawing.GraphicsUnit.Point) Label1.Font = New Font("Microsoft YaHei UI", 26.25F)
Label1.Location = New Drawing.Point(51, 45) Label1.Location = New Point(51, 45)
Label1.Name = "Label1" Label1.Name = "Label1"
Label1.Size = New Drawing.Size(160, 46) Label1.Size = New Size(160, 46)
Label1.TabIndex = 2 Label1.TabIndex = 2
Label1.Text = "第一小组" Label1.Text = "第一小组"
' '
' TextBox1 ' TextBox1
' '
TextBox1.BackColor = Drawing.SystemColors.HighlightText TextBox1.BackColor = SystemColors.HighlightText
TextBox1.Font = New Drawing.Font("Microsoft YaHei UI", 26.25F, Drawing.FontStyle.Regular, Drawing.GraphicsUnit.Point) TextBox1.Font = New Font("Microsoft YaHei UI", 26.25F)
TextBox1.Location = New Drawing.Point(217, 42) TextBox1.Location = New Point(217, 42)
TextBox1.Name = "TextBox1" TextBox1.Name = "TextBox1"
TextBox1.ReadOnly = True TextBox1.ReadOnly = True
TextBox1.Size = New Drawing.Size(256, 52) TextBox1.Size = New Size(256, 52)
TextBox1.TabIndex = 3 TextBox1.TabIndex = 3
TextBox1.TextAlign = HorizontalAlignment.Center TextBox1.TextAlign = HorizontalAlignment.Center
' '
' TextBox2 ' TextBox2
' '
TextBox2.BackColor = Drawing.SystemColors.HighlightText TextBox2.BackColor = SystemColors.HighlightText
TextBox2.Font = New Drawing.Font("Microsoft YaHei UI", 26.25F, Drawing.FontStyle.Regular, Drawing.GraphicsUnit.Point) TextBox2.Font = New Font("Microsoft YaHei UI", 26.25F)
TextBox2.Location = New Drawing.Point(217, 108) TextBox2.Location = New Point(217, 108)
TextBox2.Name = "TextBox2" TextBox2.Name = "TextBox2"
TextBox2.ReadOnly = True TextBox2.ReadOnly = True
TextBox2.Size = New Drawing.Size(256, 52) TextBox2.Size = New Size(256, 52)
TextBox2.TabIndex = 6 TextBox2.TabIndex = 6
TextBox2.TextAlign = HorizontalAlignment.Center TextBox2.TextAlign = HorizontalAlignment.Center
' '
' Label2 ' Label2
' '
Label2.AutoSize = True Label2.AutoSize = True
Label2.Font = New Drawing.Font("Microsoft YaHei UI", 26.25F, Drawing.FontStyle.Regular, Drawing.GraphicsUnit.Point) Label2.Font = New Font("Microsoft YaHei UI", 26.25F)
Label2.Location = New Drawing.Point(51, 111) Label2.Location = New Point(51, 111)
Label2.Name = "Label2" Label2.Name = "Label2"
Label2.Size = New Drawing.Size(160, 46) Label2.Size = New Size(160, 46)
Label2.TabIndex = 5 Label2.TabIndex = 5
Label2.Text = "第二小组" Label2.Text = "第二小组"
' '
' Button3 ' Button3
' '
Button3.Font = New Drawing.Font("Microsoft YaHei UI", 26.25F, Drawing.FontStyle.Regular, Drawing.GraphicsUnit.Point) Button3.Font = New Font("Microsoft YaHei UI", 26.25F)
Button3.Location = New Drawing.Point(479, 104) Button3.Location = New Point(479, 104)
Button3.Name = "Button3" Button3.Name = "Button3"
Button3.Size = New Drawing.Size(147, 60) Button3.Size = New Size(147, 60)
Button3.TabIndex = 4 Button3.TabIndex = 4
Button3.Text = "换一个" Button3.Text = "换一个"
Button3.UseVisualStyleBackColor = True Button3.UseVisualStyleBackColor = True
@ -119,31 +117,31 @@ Partial Class Form1
' '
' TextBox3 ' TextBox3
' '
TextBox3.BackColor = Drawing.SystemColors.HighlightText TextBox3.BackColor = SystemColors.HighlightText
TextBox3.Font = New Drawing.Font("Microsoft YaHei UI", 26.25F, Drawing.FontStyle.Regular, Drawing.GraphicsUnit.Point) TextBox3.Font = New Font("Microsoft YaHei UI", 26.25F)
TextBox3.Location = New Drawing.Point(217, 174) TextBox3.Location = New Point(217, 174)
TextBox3.Name = "TextBox3" TextBox3.Name = "TextBox3"
TextBox3.ReadOnly = True TextBox3.ReadOnly = True
TextBox3.Size = New Drawing.Size(256, 52) TextBox3.Size = New Size(256, 52)
TextBox3.TabIndex = 9 TextBox3.TabIndex = 9
TextBox3.TextAlign = HorizontalAlignment.Center TextBox3.TextAlign = HorizontalAlignment.Center
' '
' Label3 ' Label3
' '
Label3.AutoSize = True Label3.AutoSize = True
Label3.Font = New Drawing.Font("Microsoft YaHei UI", 26.25F, Drawing.FontStyle.Regular, Drawing.GraphicsUnit.Point) Label3.Font = New Font("Microsoft YaHei UI", 26.25F)
Label3.Location = New Drawing.Point(51, 177) Label3.Location = New Point(51, 177)
Label3.Name = "Label3" Label3.Name = "Label3"
Label3.Size = New Drawing.Size(160, 46) Label3.Size = New Size(160, 46)
Label3.TabIndex = 8 Label3.TabIndex = 8
Label3.Text = "第三小组" Label3.Text = "第三小组"
' '
' Button4 ' Button4
' '
Button4.Font = New Drawing.Font("Microsoft YaHei UI", 26.25F, Drawing.FontStyle.Regular, Drawing.GraphicsUnit.Point) Button4.Font = New Font("Microsoft YaHei UI", 26.25F)
Button4.Location = New Drawing.Point(479, 170) Button4.Location = New Point(479, 170)
Button4.Name = "Button4" Button4.Name = "Button4"
Button4.Size = New Drawing.Size(147, 60) Button4.Size = New Size(147, 60)
Button4.TabIndex = 7 Button4.TabIndex = 7
Button4.Text = "换一个" Button4.Text = "换一个"
Button4.UseVisualStyleBackColor = True Button4.UseVisualStyleBackColor = True
@ -161,18 +159,18 @@ Partial Class Form1
' Label5 ' Label5
' '
Label5.AutoSize = True Label5.AutoSize = True
Label5.Location = New Drawing.Point(413, 440) Label5.Location = New Point(418, 386)
Label5.Name = "Label5" Label5.Name = "Label5"
Label5.Size = New Drawing.Size(244, 17) Label5.Size = New Size(244, 17)
Label5.TabIndex = 13 Label5.TabIndex = 13
Label5.Text = "code by 陈浩南@第一小组 2023年9月21日" Label5.Text = "code by 陈浩南@第一小组 2024年10月6日"
Label5.TextAlign = Drawing.ContentAlignment.TopRight Label5.TextAlign = ContentAlignment.TopRight
' '
' Button6 ' Button6
' '
Button6.Location = New Drawing.Point(109, 434) Button6.Location = New Point(152, 374)
Button6.Name = "Button6" Button6.Name = "Button6"
Button6.Size = New Drawing.Size(107, 23) Button6.Size = New Size(107, 23)
Button6.TabIndex = 14 Button6.TabIndex = 14
Button6.Text = "导出名单到excel" Button6.Text = "导出名单到excel"
Button6.UseVisualStyleBackColor = True Button6.UseVisualStyleBackColor = True
@ -182,47 +180,27 @@ Partial Class Form1
CheckBox1.AutoSize = True CheckBox1.AutoSize = True
CheckBox1.Checked = True CheckBox1.Checked = True
CheckBox1.CheckState = CheckState.Checked CheckBox1.CheckState = CheckState.Checked
CheckBox1.Location = New Drawing.Point(106, 330) CheckBox1.Location = New Point(106, 330)
CheckBox1.Name = "CheckBox1" CheckBox1.Name = "CheckBox1"
CheckBox1.Size = New Drawing.Size(471, 38) CheckBox1.Size = New Size(471, 38)
CheckBox1.TabIndex = 15 CheckBox1.TabIndex = 15
CheckBox1.Text = "尽量避免重复" & vbCrLf & "（已经抽到过的人将不再被抽到，除非程序被重启或那个小组的人都轮换了一遍。）" & vbCrLf CheckBox1.Text = "尽量避免重复" & vbCrLf & "（已经抽到过的人将不再被抽到，除非程序被重启或那个小组的人都轮换了一遍。）" & vbCrLf
CheckBox1.UseVisualStyleBackColor = True CheckBox1.UseVisualStyleBackColor = True
' '
' Button7 ' Button7
' '
Button7.Location = New Drawing.Point(12, 406) Button7.Location = New Point(17, 374)
Button7.Name = "Button7" Button7.Name = "Button7"
Button7.Size = New Drawing.Size(81, 23) Button7.Size = New Size(131, 23)
Button7.TabIndex = 16 Button7.TabIndex = 16
Button7.Text = "下载最新版" Button7.Text = "下载最新版和源代码"
Button7.UseVisualStyleBackColor = True Button7.UseVisualStyleBackColor = True
' '
' Button8
'
Button8.Location = New Drawing.Point(12, 434)
Button8.Name = "Button8"
Button8.Size = New Drawing.Size(81, 23)
Button8.TabIndex = 17
Button8.Text = "获取源代码"
Button8.UseVisualStyleBackColor = True
'
' Label6
'
Label6.AutoSize = True
Label6.Location = New Drawing.Point(99, 409)
Label6.Name = "Label6"
Label6.Size = New Drawing.Size(181, 17)
Label6.TabIndex = 18
Label6.Text = "或手动访问kkmeeting.chn.moe"
'
' Form1 ' Form1
' '
AutoScaleDimensions = New Drawing.SizeF(7.0F, 17.0F) AutoScaleDimensions = New SizeF(7F, 17F)
AutoScaleMode = AutoScaleMode.Font AutoScaleMode = AutoScaleMode.Font
ClientSize = New Drawing.Size(669, 464) ClientSize = New Size(669, 406)
Controls.Add(Label6)
Controls.Add(Button8)
Controls.Add(Button7) Controls.Add(Button7)
Controls.Add(CheckBox1) Controls.Add(CheckBox1)
Controls.Add(Button6) Controls.Add(Button6)
@ -263,6 +241,4 @@ Partial Class Form1
Friend WithEvents Button6 As Button Friend WithEvents Button6 As Button
Friend WithEvents CheckBox1 As CheckBox Friend WithEvents CheckBox1 As CheckBox
Friend WithEvents Button7 As Button Friend WithEvents Button7 As Button
Friend WithEvents Button8 As Button
Friend WithEvents Label6 As Label
End Class End Class

8
Form1.resx
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<root> <root>
<!-- <!--
Microsoft ResX Schema Microsoft ResX Schema
Version 2.0 Version 2.0
@ -18,7 +18,7 @@
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader> <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, 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="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="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64"> <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value> <value>[base64 mime encoded serialized .NET Framework object]</value>
</data> </data>
@ -48,7 +48,7 @@
value : The object must be serialized with value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding. : and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64 mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
@ -121,6 +121,6 @@
<value>17, 17</value> <value>17, 17</value>
</metadata> </metadata>
<metadata name="Timer2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="Timer2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>109, 17</value> <value>112, 17</value>
</metadata> </metadata>
</root> </root>

43
Form1.vb
View File

@ -1,29 +1,28 @@
Imports Accessibility Public Class Form1
Public Class Form1
Private Students_ As New List(Of List(Of String)) From Private Students_ As New List(Of List(Of String)) From
{ {
New List(Of String) From New List(Of String) From
{ {
"付星瑞", "余路成", "刘志强", "刘才育", "刘祥炜", "厉亚凯", "吴莉莉", "姚隽祺", "娄亚筱", "张恩铭", "万文杰", "余路成", "刘志强", "刘才育", "包洋", "厉亚凯", "叶玲榕", "吴莉莉", "周鑫", "唐甜",
"张林珏", "张梦琦", "徐溢聪", "朱玲俐", "李冠錡", "李鹏岗", "杨仕铌", "杨卯伟", "杨攀", "杨玲芳", "姚隽祺", "娄亚筱", "张恩铭", "张林珏", "张梦琦", "彭佳璇", "徐溢聪", "朱玲俐", "李冠錡", "李昊天",
"杨谦益", "杨鑫雨", "林桢坤", "林科闯", "江莹", "沈鹏", "洪家闽", "王瑶", "王豪", "王轶蒙", "杨仕铌", "杨卯伟", "杨攀", "杨玲芳", "杨鑫雨", "林桢坤", "林科闯", "梁纤璐", "江莹", "洪家闽",
"胡泽楷", "莫梦月", "许腾飞", "谈奇灵", "谢琳洋", "赵政仰", "邱鸿伟", "郭欣宜", "闫金健", "陈心路", "王梦童", "王瑶", "王轶蒙", "王鹏", "胡泽楷", "苏杨", "莫梦月", "蒋黎", "许腾飞", "谈奇灵",
"陈柏逸", "陈浩南", "陈芳琦", "项磊磊", "马雯", "高郁捷", "黄敏", "黄泽龙", "黄研培" "谢琳洋", "郑嘉钰", "郑杰", "郭欣宜", "闫金健", "陆玉鑫", "陈心路", "陈拓林", "陈浩南", "陈芳琦",
"项磊磊", "马雯", "高郁捷", "黄嘉芃", "黄敏", "黄泽龙", "黄研培", "龚树想"
}, },
New List(Of String) From New List(Of String) From
{ {
"吐尔洪江·吾拉木", "向阳", "周亮", "封辉", "张润涵", "杜颖", "杨仁琪", "林梓淇", "林高翔", "梁雁彤", "刘辉强", "吐尔洪江·吾拉木", "宿一曼", "封辉", "张思晴", "张润涵", "杜颖", "杨仁琪", "林梓淇", "林高翔",
"楼伟涛", "汤昊", "王小丹", "翁小蒙", "莫仕弟", "萨娜", "邓铁龙", "陈子涵", "陈豪飞", "马修益", "梁雁彤", "王小丹", "翁小蒙", "莫仕弟", "萨娜", "邓铁龙", "陈子涵", "陈豪飞", "马修益", "鲁浩伟"
"鲁浩伟"
}, },
New List(Of String) From New List(Of String) From
{ {
"任思豪", "刘世林", "刘敏", "刘源", "危永平", "叶晓芳", "叶颖", "吴世明", "吴维", "周博语", "任思豪", "刘世林", "刘启霖", "刘敏", "刘文博", "刘源", "刘金华", "危永平", "叶晓芳", "叶颖",
"周江鹏", "周鑫", "姚文龙", "宋欣格", "常青", "廖桂敏", "张为智", "张宗南", "张文琴", "张晨昊", "吴世明", "周博语", "周江鹏", "姚文龙", "宋欣格", "常青", "廖桂敏", "张为智", "张姝卿", "张宗南",
"张爱忠", "张耀宗", "张腾", "张裕祥", "曲善直", "曹宇", "曹硕", "李文翔", "李洪树", "李锦安", "张文琴", "张晨昊", "张灵辉", "张耀宗", "张艺腾", "张裕祥", "曹宇", "曹硕", "曾国清", "李彦君",
"柳梦宇", "王颖萌", "程可扬", "程安琪", "程舒仪", "莫炳杰", "蒋中升", "蓝进肾", "赖麒鸿", "郑一帆", "李文翔", "李欣如", "李洪树", "杨镇泽", "林旺康", "柳梦宇", "王必成", "王曼", "王颖萌", "程可扬",
"陈子龙", "陈铭禹", "陈阳", "马梦薇", "高扬钧", "黄健", "黄家新", "黄昱祺", "黄金理", "龚彬" "程安琪", "程舒仪", "莫炳杰", "蒋中升", "蓝进肾", "詹永萍", "赖麒鸿", "赵志国", "郑一帆", "郭叁育",
"陈垚", "陈子龙", "陈玮健", "陈紫怡", "陈阳", "马梦薇", "高扬钧", "黄健", "黄金理", "龚彬"
} }
} }
Private StudentsUsed_ As New List(Of List(Of String)) From {New List(Of String), New List(Of String), New List(Of String)} Private StudentsUsed_ As New List(Of List(Of String)) From {New List(Of String), New List(Of String), New List(Of String)}
@ -170,17 +169,9 @@ Public Class Form1
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
Try Try
Process.Start(New ProcessStartInfo("https://kkmeeting.chn.moe") With {.UseShellExecute = True}) Process.Start(New ProcessStartInfo("https://blog.chn.moe/docs/stuff/lottery") With {.UseShellExecute = True})
Catch ex As Exception Catch ex As Exception
MsgBox("调用浏览器失败，请手动使用浏览器访问kkmeeting.chn.moe。") MsgBox("调用浏览器失败，请手动使用浏览器访问https://blog.chn.moe/docs/stuff/lottery。")
End Try
End Sub
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
Try
Process.Start(New ProcessStartInfo("https://github.com/CHN-beta/group-meeting-lottery") With {.UseShellExecute = True})
Catch ex As Exception
MsgBox("调用浏览器失败，请手动使用浏览器访问kkmeeting.chn.moe。")
End Try End Try
End Sub End Sub

35
My Project/Application.Designer.vb generated
View File

@ -1,38 +1,37 @@
'------------------------------------------------------------------------------ '------------------------------------------------------------------------------
' <auto-generated> ' <auto-generated>
' 此代码由工具生成。 ' This code was generated by a tool.
' 运行时版本:4.0.30319.42000 ' Runtime Version:4.0.30319.42000
' '
' 对此文件的更改可能会导致不正确的行为，并且如果 ' Changes to this file may cause incorrect behavior and will be lost if
' 重新生成代码，这些更改将会丢失。 ' the code is regenerated.
' </auto-generated> ' </auto-generated>
'------------------------------------------------------------------------------ '------------------------------------------------------------------------------
Option Strict On Option Strict On
Option Explicit On Option Explicit On
Namespace My Namespace My
'注意:此文件是自动生成的；请勿直接进行修改。若要更改， 'NOTE: This file is auto-generated; do not modify it directly. To make changes,
' 或者如果您在此文件中遇到生成错误，请转至项目设计器 ' or if you encounter build errors in this file, go to the Project Designer
' (转至“项目属性”或在解决方案资源管理器中双击“我的项目”节点)， ' (go to Project Properties or double-click the My Project node in
' 然后在“应用程序”选项卡中进行更改。 ' Solution Explorer), and make changes on the Application tab.
' '
Partial Friend Class MyApplication Partial Friend Class MyApplication
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _ <Global.System.Diagnostics.DebuggerStepThroughAttribute()>
Public Sub New() Public Sub New()
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
Me.IsSingleInstance = true Me.IsSingleInstance = False
Me.EnableVisualStyles = true Me.EnableVisualStyles = True
Me.SaveMySettingsOnExit = true Me.SaveMySettingsOnExit = True
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
End Sub End Sub
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _ <Global.System.Diagnostics.DebuggerStepThroughAttribute()>
Protected Overrides Sub OnCreateMainForm() Protected Overrides Sub OnCreateMainForm()
Me.MainForm = Global.幸运抽奖.Form1 Me.MainForm = Form1
End Sub End Sub
End Class End Class
End Namespace End Namespace

4
My Project/Application.myapp
View File

@ -1,8 +1,8 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<MyApplicationData xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"> <MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<MySubMain>true</MySubMain> <MySubMain>true</MySubMain>
<MainForm>Form1</MainForm> <MainForm>Form1</MainForm>
<SingleInstance>true</SingleInstance> <SingleInstance>false</SingleInstance>
<ShutdownMode>0</ShutdownMode> <ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles> <EnableVisualStyles>true</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode> <AuthenticationMode>0</AuthenticationMode>

63
My Project/Resources.Designer.vb generated
View File

@ -1,63 +0,0 @@
'------------------------------------------------------------------------------
' <auto-generated>
' 此代码由工具生成。
' 运行时版本:4.0.30319.42000
'
' 对此文件的更改可能会导致不正确的行为，并且如果
' 重新生成代码，这些更改将会丢失。
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Imports System
Namespace My.Resources
'此类是由 StronglyTypedResourceBuilder
'类通过类似于 ResGen 或 Visual Studio 的工具自动生成的。
'若要添加或移除成员，请编辑 .ResX 文件，然后重新运行 ResGen
'(以 /str 作为命令选项)，或重新生成 VS 项目。
'''<summary>
''' 一个强类型的资源类，用于查找本地化的字符串等。
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "17.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
Friend Module Resources
Private resourceMan As Global.System.Resources.ResourceManager
Private resourceCulture As Global.System.Globalization.CultureInfo
'''<summary>
''' 返回此类使用的缓存的 ResourceManager 实例。
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("幸运抽奖.Resources", GetType(Resources).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
'''<summary>
''' 重写当前线程的 CurrentUICulture 属性，对
''' 使用此强类型资源类的所有资源查找执行重写。
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set
resourceCulture = value
End Set
End Property
End Module
End Namespace

120
My Project/Resources.resx
View File

@ -1,120 +0,0 @@
<?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:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

73
My Project/Settings.Designer.vb generated
View File

@ -1,73 +0,0 @@
'------------------------------------------------------------------------------
' <auto-generated>
' 此代码由工具生成。
' 运行时版本:4.0.30319.42000
'
' 对此文件的更改可能会导致不正确的行为，并且如果
' 重新生成代码，这些更改将会丢失。
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.1.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
#Region "My.Settings 自动保存功能"
#If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then
My.Settings.Save()
End If
End Sub
#End If
#End Region
Public Shared ReadOnly Property [Default]() As MySettings
Get
#If _MyType = "WindowsForms" Then
If Not addedHandler Then
SyncLock addedHandlerLockObject
If Not addedHandler Then
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
addedHandler = True
End If
End SyncLock
End If
#End If
Return defaultInstance
End Get
End Property
End Class
End Namespace
Namespace My
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
Friend Module MySettingsProperty
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
Friend ReadOnly Property Settings() As Global.幸运抽奖.My.MySettings
Get
Return Global.幸运抽奖.My.MySettings.Default
End Get
End Property
End Module
End Namespace

6
My Project/Settings.settings
View File

@ -1,6 +0,0 @@
<?xml version='1.0' encoding='utf-8'?>
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
<Profiles>
<Profile Name="(Default)" />
</Profiles>
</SettingsFile>

79
My Project/app.manifest
View File

@ -1,79 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<assembly manifestVersion="1.0" xmlns="urn:schemas-microsoft-com:asm.v1">
<assemblyIdentity version="1.0.0.0" name="MyApplication.app"/>
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
<security>
<requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
<!-- UAC 清单选项
如果想要更改 Windows 用户帐户控制级别，请使用
以下节点之一替换 requestedExecutionLevel 节点。
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
<requestedExecutionLevel level="requireAdministrator" uiAccess="false" />
<requestedExecutionLevel level="highestAvailable" uiAccess="false" />
指定 requestedExecutionLevel 元素将禁用文件和注册表虚拟化。
如果你的应用程序需要此虚拟化来实现向后兼容性，则移除此
元素。
-->
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
</requestedPrivileges>
</security>
</trustInfo>
<compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1">
<application>
<!-- 设计此应用程序与其一起工作且已针对此应用程序进行测试的
Windows 版本的列表。取消评论适当的元素，
Windows 将自动选择最兼容的环境。 -->
<!-- Windows Vista -->
<!--<supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}" />-->
<!-- Windows 7 -->
<!--<supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}" />-->
<!-- Windows 8 -->
<!--<supportedOS Id="{4a2f28e3-53b9-4441-ba9c-d69d4a4a6e38}" />-->
<!-- Windows 8.1 -->
<!--<supportedOS Id="{1f676c76-80e1-4239-95bb-83d0f6d0da78}" />-->
<!-- Windows 10 -->
<!--<supportedOS Id="{8e0f7a12-bfb3-4fe8-b9a5-48fd50a15a9a}" />-->
</application>
</compatibility>
<!-- 指示该应用程序可感知 DPI 且 Windows 在 DPI 较高时将不会对其进行
自动缩放。Windows Presentation Foundation (WPF)应用程序自动感知 DPI，无需
选择加入。选择加入此设置的 Windows 窗体应用程序(面向 .NET Framework 4.6)还应
在其 app.config 中将 "EnableWindowsFormsHighDpiAutoResizing" 设置设置为 "true"。
将应用程序设为感知长路径。请参阅 https://docs.microsoft.com/windows/win32/fileio/maximum-file-path-limitation -->
<!--
<application xmlns="urn:schemas-microsoft-com:asm.v3">
<windowsSettings>
<dpiAware xmlns="http://schemas.microsoft.com/SMI/2005/WindowsSettings">true</dpiAware>
<longPathAware xmlns="http://schemas.microsoft.com/SMI/2016/WindowsSettings">true</longPathAware>
</windowsSettings>
</application>
-->
<!-- 启用 Windows 公共控件和对话框的主题(Windows XP 和更高版本) -->
<!--
<dependency>
<dependentAssembly>
<assemblyIdentity
type="win32"
name="Microsoft.Windows.Common-Controls"
version="6.0.0.0"
processorArchitecture="*"
publicKeyToken="6595b64144ccf1df"
language="*"
/>
</dependentAssembly>
</dependency>
-->
</assembly>

14
幸运抽奖.sln
View File

@ -1,9 +1,9 @@
 
Microsoft Visual Studio Solution File, Format Version 12.00 Microsoft Visual Studio Solution File, Format Version 12.00
# Visual Studio Version 17 # Visual Studio Version 17
VisualStudioVersion = 17.1.32210.238 VisualStudioVersion = 17.11.35312.102
MinimumVisualStudioVersion = 10.0.40219.1 MinimumVisualStudioVersion = 10.0.40219.1
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "幸运抽奖", "幸运抽奖.vbproj", "{9FA8009F-4168-4221-98EF-DEAF6D62D94D}" Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "幸运抽奖", "幸运抽奖.vbproj", "{DF7EE13A-545F-47A8-A6F3-7643B10CFDC4}"
EndProject EndProject
Global Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution GlobalSection(SolutionConfigurationPlatforms) = preSolution
@ -11,15 +11,15 @@ Global
Release|Any CPU = Release|Any CPU Release|Any CPU = Release|Any CPU
EndGlobalSection EndGlobalSection
GlobalSection(ProjectConfigurationPlatforms) = postSolution GlobalSection(ProjectConfigurationPlatforms) = postSolution
{9FA8009F-4168-4221-98EF-DEAF6D62D94D}.Debug|Any CPU.ActiveCfg = Debug|Any CPU {DF7EE13A-545F-47A8-A6F3-7643B10CFDC4}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{9FA8009F-4168-4221-98EF-DEAF6D62D94D}.Debug|Any CPU.Build.0 = Debug|Any CPU {DF7EE13A-545F-47A8-A6F3-7643B10CFDC4}.Debug|Any CPU.Build.0 = Debug|Any CPU
{9FA8009F-4168-4221-98EF-DEAF6D62D94D}.Release|Any CPU.ActiveCfg = Release|Any CPU {DF7EE13A-545F-47A8-A6F3-7643B10CFDC4}.Release|Any CPU.ActiveCfg = Release|Any CPU
{9FA8009F-4168-4221-98EF-DEAF6D62D94D}.Release|Any CPU.Build.0 = Release|Any CPU {DF7EE13A-545F-47A8-A6F3-7643B10CFDC4}.Release|Any CPU.Build.0 = Release|Any CPU
EndGlobalSection EndGlobalSection
GlobalSection(SolutionProperties) = preSolution GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE HideSolutionNode = FALSE
EndGlobalSection EndGlobalSection
GlobalSection(ExtensibilityGlobals) = postSolution GlobalSection(ExtensibilityGlobals) = postSolution
SolutionGuid = {F939207A-147C-4E59-846D-3C8EF03A9186} SolutionGuid = {7FE65332-BB0D-4511-BCA6-F1359021D80F}
EndGlobalSection EndGlobalSection
EndGlobal EndGlobal

57
幸运抽奖.vbproj
View File

@ -1,38 +1,42 @@
<Project Sdk="Microsoft.NET.Sdk"> <Project Sdk="Microsoft.NET.Sdk">
<PropertyGroup>
<_SuppressWinFormsTrimError>true</_SuppressWinFormsTrimError>
</PropertyGroup>
<PropertyGroup> <PropertyGroup>
<OutputType>WinExe</OutputType> <OutputType>WinExe</OutputType>
<TargetFramework>net6.0-windows</TargetFramework> <TargetFramework>net8.0-windows</TargetFramework>
<StartupObject>Sub Main</StartupObject> <StartupObject>Sub Main</StartupObject>
<UseWindowsForms>true</UseWindowsForms> <UseWindowsForms>true</UseWindowsForms>
<MyType>WindowsForms</MyType> <MyType>WindowsForms</MyType>
<ImportedNamespaces>OfficeOpenXml=False,System.Data=False,System.Drawing=False,System.Windows.Forms=False,Microsoft.VisualBasic=True,System=True,System.Collections=True,System.Collections.Generic=True,System.Diagnostics=True,System.Linq=True,System.Xml.Linq=True,System.Threading.Tasks=True,幸运抽奖=True</ImportedNamespaces>
<OptionStrict>On</OptionStrict> <OptionStrict>On</OptionStrict>
<ApplicationManifest>My Project\app.manifest</ApplicationManifest> <Platforms>AnyCPU;x64</Platforms>
<ApplicationIcon>index.ico</ApplicationIcon>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|AnyCPU'"> <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|AnyCPU'">
<NoWarn /> <PlatformTarget>AnyCPU</PlatformTarget>
<WarningsAsErrors>41999,42016,42017,42018,42019,42020,42021,42022,42032,42036</WarningsAsErrors> </PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|x64'">
<PlatformTarget>AnyCPU</PlatformTarget>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|AnyCPU'"> <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|AnyCPU'">
<NoWarn /> <PlatformTarget>AnyCPU</PlatformTarget>
<WarningsAsErrors>41999,42016,42017,42018,42019,42020,42021,42022,42032,42036</WarningsAsErrors> </PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|x64'">
<PlatformTarget>AnyCPU</PlatformTarget>
</PropertyGroup> </PropertyGroup>
<ItemGroup> <ItemGroup>
<Content Include="index.ico" /> <Import Include="OfficeOpenXml" />
</ItemGroup> <Import Include="System.Data" />
<Import Include="System.Drawing" />
<ItemGroup>
<Import Include="System.Windows.Forms" /> <Import Include="System.Windows.Forms" />
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>
<PackageReference Include="EPPlus" Version="6.0.7" /> <PackageReference Include="DocumentFormat.OpenXml" Version="3.1.0" />
<PackageReference Include="EPPlus" Version="7.4.0" />
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>
@ -41,24 +45,6 @@
<AutoGen>True</AutoGen> <AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon> <DependentUpon>Application.myapp</DependentUpon>
</Compile> </Compile>
<Compile Update="My Project\Resources.Designer.vb">
<DesignTime>True</DesignTime>
<AutoGen>True</AutoGen>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Update="My Project\Settings.Designer.vb">
<DesignTimeSharedInput>True</DesignTimeSharedInput>
<AutoGen>True</AutoGen>
<DependentUpon>Settings.settings</DependentUpon>
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Update="My Project\Resources.resx">
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
</EmbeddedResource>
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>
@ -66,11 +52,6 @@
<Generator>MyApplicationCodeGenerator</Generator> <Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput> <LastGenOutput>Application.Designer.vb</LastGenOutput>
</None> </None>
<None Update="My Project\Settings.settings">
<CustomToolNamespace>My</CustomToolNamespace>
<Generator>SettingsSingleFileGenerator</Generator>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
</ItemGroup> </ItemGroup>
</Project> </Project>