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

8
Form1.resx
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Microsoft ResX Schema
Version 2.0
@ -18,7 +18,7 @@
<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="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>
@ -48,7 +48,7 @@
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
@ -121,6 +121,6 @@
<value>17, 17</value>
</metadata>
<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>
</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
{
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)}
@ -170,17 +169,9 @@ Public Class Form1
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
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
MsgBox("调用浏览器失败，请手动使用浏览器访问kkmeeting.chn.moe。")
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。")
MsgBox("调用浏览器失败，请手动使用浏览器访问https://blog.chn.moe/docs/stuff/lottery。")
End Try
End Sub

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

@ -1,38 +1,37 @@
'------------------------------------------------------------------------------
' <auto-generated>
' 此代码由工具生成。
' 运行时版本:4.0.30319.42000
' This code was generated by a tool.
' 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>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
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
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
<Global.System.Diagnostics.DebuggerStepThroughAttribute()>
Public Sub New()
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
Me.IsSingleInstance = true
Me.EnableVisualStyles = true
Me.SaveMySettingsOnExit = true
Me.IsSingleInstance = False
Me.EnableVisualStyles = True
Me.SaveMySettingsOnExit = True
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
End Sub
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
<Global.System.Diagnostics.DebuggerStepThroughAttribute()>
Protected Overrides Sub OnCreateMainForm()
Me.MainForm = Global.幸运抽奖.Form1
Me.MainForm = Form1
End Sub
End Class
End Namespace

4
My Project/Application.myapp
View File

@ -1,8 +1,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>
<MainForm>Form1</MainForm>
<SingleInstance>true</SingleInstance>
<SingleInstance>false</SingleInstance>
<ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles>
<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
# Visual Studio Version 17
VisualStudioVersion = 17.1.32210.238
VisualStudioVersion = 17.11.35312.102
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
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
@ -11,15 +11,15 @@ Global
Release|Any CPU = Release|Any CPU
EndGlobalSection
GlobalSection(ProjectConfigurationPlatforms) = postSolution
{9FA8009F-4168-4221-98EF-DEAF6D62D94D}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{9FA8009F-4168-4221-98EF-DEAF6D62D94D}.Debug|Any CPU.Build.0 = Debug|Any CPU
{9FA8009F-4168-4221-98EF-DEAF6D62D94D}.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}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{DF7EE13A-545F-47A8-A6F3-7643B10CFDC4}.Debug|Any CPU.Build.0 = Debug|Any CPU
{DF7EE13A-545F-47A8-A6F3-7643B10CFDC4}.Release|Any CPU.ActiveCfg = Release|Any CPU
{DF7EE13A-545F-47A8-A6F3-7643B10CFDC4}.Release|Any CPU.Build.0 = Release|Any CPU
EndGlobalSection
GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE
EndGlobalSection
GlobalSection(ExtensibilityGlobals) = postSolution
SolutionGuid = {F939207A-147C-4E59-846D-3C8EF03A9186}
SolutionGuid = {7FE65332-BB0D-4511-BCA6-F1359021D80F}
EndGlobalSection
EndGlobal

57
幸运抽奖.vbproj
View File

@ -1,38 +1,42 @@
<Project Sdk="Microsoft.NET.Sdk">
<PropertyGroup>
<_SuppressWinFormsTrimError>true</_SuppressWinFormsTrimError>
</PropertyGroup>
<PropertyGroup>
<OutputType>WinExe</OutputType>
<TargetFramework>net6.0-windows</TargetFramework>
<TargetFramework>net8.0-windows</TargetFramework>
<StartupObject>Sub Main</StartupObject>
<UseWindowsForms>true</UseWindowsForms>
<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>
<ApplicationManifest>My Project\app.manifest</ApplicationManifest>
<ApplicationIcon>index.ico</ApplicationIcon>
<Platforms>AnyCPU;x64</Platforms>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|AnyCPU'">
<NoWarn />
<WarningsAsErrors>41999,42016,42017,42018,42019,42020,42021,42022,42032,42036</WarningsAsErrors>
<PlatformTarget>AnyCPU</PlatformTarget>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|x64'">
<PlatformTarget>AnyCPU</PlatformTarget>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|AnyCPU'">
<NoWarn />
<WarningsAsErrors>41999,42016,42017,42018,42019,42020,42021,42022,42032,42036</WarningsAsErrors>
<PlatformTarget>AnyCPU</PlatformTarget>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|x64'">
<PlatformTarget>AnyCPU</PlatformTarget>
</PropertyGroup>
<ItemGroup>
<Content Include="index.ico" />
</ItemGroup>
<ItemGroup>
<Import Include="OfficeOpenXml" />
<Import Include="System.Data" />
<Import Include="System.Drawing" />
<Import Include="System.Windows.Forms" />
</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>
@ -41,24 +45,6 @@
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
</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>
@ -66,11 +52,6 @@
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
<None Update="My Project\Settings.settings">
<CustomToolNamespace>My</CustomToolNamespace>
<Generator>SettingsSingleFileGenerator</Generator>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
</ItemGroup>
</Project>