求VB代码解释

来源：百度知道 编辑：UC知道 时间：2024/05/27 19:25:31
模块代码：
Private Sub Undo()
'Exit if Undo-menu is disabled
If Not mnuUndo.Enabled Then Exit Sub
If mnuSound.Checked Then PlaySound App.Path & "\Drop.wav"
'Update form caption
m_iMarblesLeft = m_iMarblesLeft + 1
lblMarblesLeft = m_iMarblesLeft
'Update marbles visability and old-moves
imgMarble(m_vOldMoves(1, m_iOldMovesIndex)).Visible = True
imgMarble((m_vOldMoves(1, m_iOldMovesIndex) + _
m_vOldMoves(2, m_iOldMovesIndex)) / 2).Visible = True
'Plave label with marbles left
lblMarblesLeft.Move imgMarble(m_vOldMoves(2, m_iOldMovesIndex)).Left + 7, _ imgMarble(m_vOldMoves(2, m_iOldMovesIndex)).Top + 9
imgMarble(m_vOldMoves(2, m_iOldMovesIndex)).Visible = False
m_iOldMovesIndex = m_iOldMovesIndex - 1
'Disable Undo-menu if there is no more move to undo
If m_iOldMovesI

去找你们老师解决吧

私有次级Undo()
'Exit 如果解开菜单是残疾的
如果不是mnuUndo.Enabled 然后退出潜水艇
如果mnuSound.Checked 然后PlaySound App.Path & "\Drop.wav"
'Update 形式说明
m_iMarblesLeft = m_iMarblesLeft + 1
lblMarblesLeft = m_iMarblesLeft
'Update 大理石visability 和老移动
imgMarble(m_vOldMoves(1, m_iOldMovesIndex)).Visible = 配齐
imgMarble((m_vOldMoves(1, m_iOldMovesIndex) + _
m_vOldMoves(2, m_iOldMovesIndex))/2).Visible = 配齐
'Plave 标签与大理石离开
lblMarblesLeft.Move imgMarble(m_vOldMoves(2, m_iOldMovesIndex)).Left + 7, _ imgMarble(m_vOldMoves(2, m_iOldMovesIndex)).Top + 9
imgMarble(m_vOldMoves(2, m_iOldMovesIndex)).Visible = 假
m_iOldMovesIndex = m_iOldMovesIndex - 1
'Disable 解开菜单如果有不没有其他移动解开
如果m_iOldMovesIndex = 0 然后mnuUndo.Enabled = 假
'Redo 现在是可能的
mnuRedo.Enabled = 配齐
末端潜水艇
私有次级Redo()
……略
末端潜水艇

楼上的太搞笑了。。把VB程序拿到网页上翻译。。我笑。。！