本帖最后由 cherrycdh 于 2021-8-6 15:41 编辑
在全民一起vba提高篇二十六回里面,有这样的一个状态,点击切换图片的时候它会自动切换目录下面的照片,
因为视频老师在讲解过程中一笔带过了,所以有点疑问想要咨询,vba的代码如下
[Visual Basic] 纯文本查看 复制代码 Dim x As Integer '设置变量为整数类型
Private Sub CommandButton1_Click()
x = (x + 1) Mod 5 '设置变体随机,因为有5张图,因此设置模运算,然后我们总共有5张图,因此设置的是5的除数,如果x=1,那就是余1
k = "E:\Excel VBA入门及应用\vba提高篇\27、第二十六回的图片\" & Trim(Str(x + 1)) & ".jpg" '这里的X+1是因为,我们的图片是1-5的,如果正好是5的余数那就是0了,跟图片实际不符合,但是如果写模运算是6的话又多了一个0,因此x+1是最合适的
Me.Image1.Picture = LoadPicture(k)
Me.Repaint
End Sub
疑问1:为什么x as integer是加在命令上面的,我尝试过加在命令中,但是最后会发现点击切换按钮的时候不会切换图片
疑问2:me的意思,我网上查了,me写的是:
Me 关键字像是隐含声明的变量。这个关键字适用于类模块中的每个过程。当类有多个实例时,Me 在代码正在执行的地方提供引用具体实例的方法。要把当前执行类实例的有关信息传递到另一个模块的过程,Me 非常有用。例如,假定模块中有以下过程:
Sub ChangeFormColor(FormName As Form) FormName.BackColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256)End Sub可以调用这个过程并使用下列语句将窗体类的当前实例作为参数传递。 ChangeFormColor Me
有没有通俗易懂的回答,说实话,我看不懂 |