求各位大佬給操作一下 最好有點彩蛋啥的 代碼全一點 謝謝了
uj5u.com熱心網友回復：
有沒有大佬在哇江湖救急uj5u.com熱心網友回復：
江湖起碼也要救可造之才，廢材沒啥好救的，專心逃課玩游戲泡妞去吧。uj5u.com熱心網友回復：
(1)給csdn充錢(2)下載 https://download.csdn.net/download/lina9133/3983238
(3)交差
uj5u.com熱心網友回復：
畫面不是已經挺好的嗎？還要折騰啥勁？uj5u.com熱心網友回復：
寫好了,代碼如下:
Option Explicit
Private Sub cmdEnd_Click()
Unload Me
End Sub
Private Sub cmdSeat_Click(Index As Integer)
If IsButtonChecked(Index) Then
MsgBox "該座位已被選擇過！", vbExclamation
Else
SetButtonChecked Index, True
MsgBox "已成功選擇該座位，從現在開始請勿重復選擇此座位。", vbInformation
End If
End Sub
Private Sub cmdSelect_Click()
If Not IsNumeric(txtRow.Text) Or Not IsNumeric(txtCol.Text) Then
MsgBox "請輸入正確的數字！", vbExclamation
Exit Sub
End If
Dim intIndex As Integer
intIndex = GetIndex(txtRow.Text, txtCol.Text)
If intIndex < cmdSeat.LBound Or intIndex > cmdSeat.UBound Then
MsgBox "錯誤的位置！", vbExclamation
Else
cmdSeat(intIndex).Value = True
End If
End Sub
Private Sub cmdStatics_Click()
Dim strMsg As String
strMsg = "目前已經選擇的位置如下" & vbCrLf & "--------------------" & vbCrLf
Dim i As Integer
For i = cmdSeat.LBound To cmdSeat.UBound
If IsButtonChecked(i) Then
strMsg = strMsg & "第" & GetRow(i) & "行，第" & GetCol(i) & "列" & vbCrLf & "--------------" & vbCrLf
End If
Next
MsgBox strMsg
End Sub
Private Sub Form_Load()
Dim i As Integer
For i = cmdSeat.LBound To cmdSeat.UBound
With cmdSeat(i)
.BackColor = vbWhite
SetButtonChecked i, False
End With
Next
End Sub
Private Function GetIndex(ByVal intRow As Integer, ByVal intCol As Integer) As Integer
GetIndex = (intRow - 1) * 5 + (intCol - 1)
End Function
Private Function GetRow(ByVal intIndex As Integer) As Integer
GetRow = intIndex \ 5 + 1
End Function
Private Function GetCol(ByVal intIndex As Integer) As Integer
GetCol = intIndex Mod 5 + 1
End Function
Private Function IsButtonChecked(ByVal intIndex As Integer) As Boolean
IsButtonChecked = (cmdSeat(intIndex).BackColor = vbRed)
End Function
Private Sub SetButtonChecked(ByVal intIndex As Integer, ByVal blnValue As Boolean)
With cmdSeat(intIndex)
Dim strStatus As String
If blnValue Then
.BackColor = vbRed
strStatus = "(選)"
Else
.BackColor = vbWhite
strStatus = "(空)"
End If
.Caption = GetRow(intIndex) & "排" & GetCol(intIndex) & "列 " & strStatus
End With
End Sub
運行示例:
下載地址:
鏈接：https://pan.baidu.com/s/1B1dPzZzCg4_Hyl18of4bfw
提取碼：b0mk
uj5u.com熱心網友回復：
米老鼠效率非常高，但是真的不建議這樣慣著這幫人。uj5u.com熱心網友回復：
米老鼠是騰訊的工程師么，給個界面就能做一個一模一樣的出來。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/31858.html
標籤：VB基礎類
下一篇：怎么建立選單