投票系统-文档 - 图文(3)

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

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库投票系统-文档 - 图文(3)在线全文阅读。