变量的问题

Question

我定义了一个undo的变量
运行中有这一个语句Undo = Undo + 1但是undo却变成了2,如果我在这个语句前面或者后面加一个msgbox undo它就没事了,执行语句后undo=1

Answer 1

是啊,打开窗体的时候给undo赋值为0啊,而且如果在undo=undo+1
前放一个msgbox undo的话,undo 的值也为0啊.

Answer 2

Private Sub MnuJc_Click()
If ShpSelect.Width = 15 And ShpSelect.Height = 15 Then
    Exit SubEnd If
Call Cutpic(PicHelp, PicOld, ShpSelect)
Toolbar1.Buttons(3).Enabled = True
With ShpSelect
        Picsettle.Cls
        PicOld.Cls
        PicZoomS.Picture = Nothing
        Picsettle.Width = .Width: Picsettle.Height = .Height
        PicOld.Width = .Width: PicOld.Height = .Height
        PicZoomS.Width = .Width: PicZoomS.Height = .Height
        Picsettle.PaintPicture PicHelp.image, 0, 0, .Width, .Height, 0, 0, .Width, .Height
        PicZoomS.PaintPicture PicHelp.image, 0, 0, .Width, .Height, 0, 0, .Width, .Height
        PicOld.PaintPicture PicHelp.image, 0, 0, .Width, .Height, 0, 0, .Width, .Height
        .Visible = False
End With
   
    Undo = Undo + 1
     MsgBox Undo
    Load PicUndo(Undo)
    MnuUndo.Enabled = True
    Toolbar1.Buttons(9).Enabled = True
    PicUndo(Undo).Picture = Picsettle.image
    Call CenterPic
   End Sub
就在这一段里面呢！
大侠们快点啊。

Answer 3

undo在什么地方定义的是不是全局变量呀

Answer 4

dim undo as booleanundo=not undo不就行了。