If Me.Width > initwidth Then
Me.Left = Me.Left + initwidth / 2 Me.Width = Me.Width / 2 End If End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox(\感谢您投上宝贵的一票\) ' count(1) += count(1) Me.Hide() Form3.Show() End Sub
Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
MsgBox(\感谢您投上宝贵的一票\) ' count(2) += count(2) Me.Hide() Form3.Show() End Sub
Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
MsgBox(\感谢您投上宝贵的一票\) ' count(3) += count(3) Me.Hide() Form3.Show() End Sub
Private Sub Button4_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
MsgBox(\感谢您投上宝贵的一票\) ' count(4) += count(4) Me.Hide() Form3.Show() End Sub
Private Sub Button5_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
MsgBox(\感谢您投上宝贵的一票\) ' count(5) += count(5) Me.Hide() Form3.Show() End Sub
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click Me.Hide() 科比信息.Show() End Sub
Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click Me.Hide() 詹姆斯信息.Show() End Sub
Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click Me.Hide() 保罗信息.Show() End Sub
Private Sub PictureBox4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox4.Click Me.Hide() 杜兰特信息.Show() End Sub
Private Sub PictureBox5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox5.Click Me.Hide() 韦德信息.Show() End Sub End Class
4.4 球员信息界面
其中，通过单击球员头像可以查看球员信息：
投完票可以继续投票： 4.5 接续投票
其代码是：
Public Class Form3
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Hide() Form2.Show()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Hide() form4.show() End Sub
Private Sub judge(ByVal pc As Integer) End Sub
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub End Class
接下来可以查看投票结果 4.6 查看投票结果
代码如下：
Imports System.Data.OleDb
Public Class Form4
Dim objconn As OleDb.OleDbConnection
Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim objconn As oleDbConnection
Dim connstring As String = \科比.mdb\ objconn = New OleDbConnection(connstring) Try
objconn.Open()
MessageBox.Show(\已链接,连接正确对话框\) Catch oledbe As OleDbException
MessageBox.Show(oledbe.Message, \连接失败\) End Try
Dim SQLStr As String = \科比\ Dim objCom As New OleDbCommand objCom.Connection = objconn
objCom.CommandType = CommandType.Text objCom.CommandText = SQLStr
Dim objDataAdapter As New OleDbDataAdapter objDataAdapter.SelectCommand = objCom Dim objDs As New DataSet
objDataAdapter.Fill(objDs, \科比\)
Me.DataGridView1.DataSource = objDs.Tables(\科比\)
End Sub
Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As