Partial Class Form1 Inherits System.Windows.Forms.Form 'Form overrides dispose to clean up the component list. Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then components.Dispose() End If Finally MyBase.Dispose(disposing) End Try End Sub 'Required by the Windows Form Designer Private components As System.ComponentModel.IContainer 'NOTE: The following procedure is required by the Windows Form Designer 'It can be modified using the Windows Form Designer. 'Do not modify it using the code editor. Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Me.Button1 = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button() Me.Label1 = New System.Windows.Forms.Label() Me.TextBox1 = New System.Windows.Forms.TextBox() Me.TextBox2 = New System.Windows.Forms.TextBox() Me.Label2 = New System.Windows.Forms.Label() Me.Button3 = New System.Windows.Forms.Button() Me.TextBox3 = New System.Windows.Forms.TextBox() Me.Label3 = New System.Windows.Forms.Label() Me.Button4 = New System.Windows.Forms.Button() Me.TextBox4 = New System.Windows.Forms.TextBox() Me.Label4 = New System.Windows.Forms.Label() Me.Button5 = New System.Windows.Forms.Button() Me.Timer1 = New System.Windows.Forms.Timer(Me.components) Me.Timer2 = New System.Windows.Forms.Timer(Me.components) Me.Label5 = New System.Windows.Forms.Label() Me.Button6 = New System.Windows.Forms.Button() Me.SuspendLayout() ' 'Button1 ' Me.Button1.Font = New System.Drawing.Font("Microsoft YaHei UI", 26.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point) Me.Button1.Location = New System.Drawing.Point(231, 316) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(170, 72) Me.Button1.TabIndex = 0 Me.Button1.Text = "开始抽奖" Me.Button1.UseVisualStyleBackColor = True ' 'Button2 ' Me.Button2.Font = New System.Drawing.Font("Microsoft YaHei UI", 26.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point) Me.Button2.Location = New System.Drawing.Point(421, 38) Me.Button2.Name = "Button2" Me.Button2.Size = New System.Drawing.Size(147, 60) Me.Button2.TabIndex = 1 Me.Button2.Text = "换一个" Me.Button2.UseVisualStyleBackColor = True Me.Button2.Visible = False ' 'Label1 ' Me.Label1.AutoSize = True Me.Label1.Font = New System.Drawing.Font("Microsoft YaHei UI", 26.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point) Me.Label1.Location = New System.Drawing.Point(51, 45) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(160, 46) Me.Label1.TabIndex = 2 Me.Label1.Text = "第一小组" ' 'TextBox1 ' Me.TextBox1.BackColor = System.Drawing.SystemColors.HighlightText Me.TextBox1.Font = New System.Drawing.Font("Microsoft YaHei UI", 26.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point) Me.TextBox1.Location = New System.Drawing.Point(217, 42) Me.TextBox1.Name = "TextBox1" Me.TextBox1.ReadOnly = True Me.TextBox1.Size = New System.Drawing.Size(198, 52) Me.TextBox1.TabIndex = 3 Me.TextBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' 'TextBox2 ' Me.TextBox2.BackColor = System.Drawing.SystemColors.HighlightText Me.TextBox2.Font = New System.Drawing.Font("Microsoft YaHei UI", 26.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point) Me.TextBox2.Location = New System.Drawing.Point(217, 108) Me.TextBox2.Name = "TextBox2" Me.TextBox2.ReadOnly = True Me.TextBox2.Size = New System.Drawing.Size(198, 52) Me.TextBox2.TabIndex = 6 Me.TextBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' 'Label2 ' Me.Label2.AutoSize = True Me.Label2.Font = New System.Drawing.Font("Microsoft YaHei UI", 26.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point) Me.Label2.Location = New System.Drawing.Point(51, 111) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(160, 46) Me.Label2.TabIndex = 5 Me.Label2.Text = "第二小组" ' 'Button3 ' Me.Button3.Font = New System.Drawing.Font("Microsoft YaHei UI", 26.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point) Me.Button3.Location = New System.Drawing.Point(421, 104) Me.Button3.Name = "Button3" Me.Button3.Size = New System.Drawing.Size(147, 60) Me.Button3.TabIndex = 4 Me.Button3.Text = "换一个" Me.Button3.UseVisualStyleBackColor = True Me.Button3.Visible = False ' 'TextBox3 ' Me.TextBox3.BackColor = System.Drawing.SystemColors.HighlightText Me.TextBox3.Font = New System.Drawing.Font("Microsoft YaHei UI", 26.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point) Me.TextBox3.Location = New System.Drawing.Point(217, 174) Me.TextBox3.Name = "TextBox3" Me.TextBox3.ReadOnly = True Me.TextBox3.Size = New System.Drawing.Size(198, 52) Me.TextBox3.TabIndex = 9 Me.TextBox3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' 'Label3 ' Me.Label3.AutoSize = True Me.Label3.Font = New System.Drawing.Font("Microsoft YaHei UI", 26.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point) Me.Label3.Location = New System.Drawing.Point(51, 177) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(160, 46) Me.Label3.TabIndex = 8 Me.Label3.Text = "第三小组" ' 'Button4 ' Me.Button4.Font = New System.Drawing.Font("Microsoft YaHei UI", 26.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point) Me.Button4.Location = New System.Drawing.Point(421, 170) Me.Button4.Name = "Button4" Me.Button4.Size = New System.Drawing.Size(147, 60) Me.Button4.TabIndex = 7 Me.Button4.Text = "换一个" Me.Button4.UseVisualStyleBackColor = True Me.Button4.Visible = False ' 'TextBox4 ' Me.TextBox4.BackColor = System.Drawing.SystemColors.HighlightText Me.TextBox4.Font = New System.Drawing.Font("Microsoft YaHei UI", 26.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point) Me.TextBox4.Location = New System.Drawing.Point(217, 240) Me.TextBox4.Name = "TextBox4" Me.TextBox4.ReadOnly = True Me.TextBox4.Size = New System.Drawing.Size(198, 52) Me.TextBox4.TabIndex = 12 Me.TextBox4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' 'Label4 ' Me.Label4.AutoSize = True Me.Label4.Font = New System.Drawing.Font("Microsoft YaHei UI", 26.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point) Me.Label4.Location = New System.Drawing.Point(51, 243) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(160, 46) Me.Label4.TabIndex = 11 Me.Label4.Text = "第四小组" ' 'Button5 ' Me.Button5.Font = New System.Drawing.Font("Microsoft YaHei UI", 26.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point) Me.Button5.Location = New System.Drawing.Point(421, 236) Me.Button5.Name = "Button5" Me.Button5.Size = New System.Drawing.Size(147, 60) Me.Button5.TabIndex = 10 Me.Button5.Text = "换一个" Me.Button5.UseVisualStyleBackColor = True Me.Button5.Visible = False ' 'Timer1 ' Me.Timer1.Interval = 50 ' 'Timer2 ' Me.Timer2.Enabled = True Me.Timer2.Interval = 500 ' 'Label5 ' Me.Label5.AutoSize = True Me.Label5.Location = New System.Drawing.Point(243, 411) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(385, 68) Me.Label5.TabIndex = 13 Me.Label5.Text = "code by 陈浩南@第一小组" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "最后修改于2022年4月20日,基于2021年10月5日统计的组成员信息" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "如果不是最新版,双击此处或手动访问kkmeetin" & "g.chn.moe下载最新版" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "您也可以访问我的Github获取源代码" Me.Label5.TextAlign = System.Drawing.ContentAlignment.TopRight ' 'Button6 ' Me.Button6.Location = New System.Drawing.Point(12, 447) Me.Button6.Name = "Button6" Me.Button6.Size = New System.Drawing.Size(75, 23) Me.Button6.TabIndex = 14 Me.Button6.Text = "导出数据" Me.Button6.UseVisualStyleBackColor = True ' 'Form1 ' Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 17.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(640, 482) Me.Controls.Add(Me.Button6) Me.Controls.Add(Me.Label5) Me.Controls.Add(Me.TextBox4) Me.Controls.Add(Me.Label4) Me.Controls.Add(Me.Button5) Me.Controls.Add(Me.TextBox3) Me.Controls.Add(Me.Label3) Me.Controls.Add(Me.Button4) Me.Controls.Add(Me.TextBox2) Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.Button3) Me.Controls.Add(Me.TextBox1) Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.Button2) Me.Controls.Add(Me.Button1) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D Me.ImeMode = System.Windows.Forms.ImeMode.Disable Me.MaximizeBox = False Me.Name = "Form1" Me.Text = "KK集团大组会抽奖" Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents Button1 As Button Friend WithEvents Button2 As Button Friend WithEvents Label1 As Label Friend WithEvents TextBox1 As TextBox Friend WithEvents TextBox2 As TextBox Friend WithEvents Label2 As Label Friend WithEvents Button3 As Button Friend WithEvents TextBox3 As TextBox Friend WithEvents Label3 As Label Friend WithEvents Button4 As Button Friend WithEvents TextBox4 As TextBox Friend WithEvents Label4 As Label Friend WithEvents Button5 As Button Friend WithEvents Timer1 As Timer Friend WithEvents Timer2 As Timer Friend WithEvents Label5 As Label Friend WithEvents Button6 As Button End Class