UC知道vb一段代码看不懂
来源：百度知道 编辑：UC知道 时间：2024/05/29 16:17:22
要实现两张不同图片在同一个图形框内的切换，同时可以启用与禁用图形框的自动适应功能。。代码如下
显示标签：
Name：LblShow Caption：现在显示的是第一张图
图形框控件：
Name：PicShow AutoSize：None
自动适应复选框：
Name：ChkAutoSize
图片切换按钮：
Name：CmdShow Caption：图片二
Dim X As Integer
Dim IWidth As Integer
Dim IHeight As Integer （这些有什么用啊，说是什么固定一个量 后，大小发生变化后可以恢复原样， 这又没有说“X=1或什么”，也没有把X的值赋予给另一个值，有什么用啊）
Private Sub ChkStretch_Click()
If ChkStretch.Value = 1 Then
IWidth = PicShow.Width（IWidth是哪来的啊，上面有提到过，但有什么用呢）
IHeight = PicShow.Height
PicShow.AutoSize = True
Else
PicShow.AutoSize = False
PicShow.Width = IWidth
PicShow.Height = IHeight
End If
End Sub
显示标签：
Name：LblShow Caption：现在显示的是第一张图
图形框控件：
Name：PicShow AutoSize：None
自动适应复选框：
Name：ChkAutoSize
图片切换按钮：
Name：CmdShow Caption：图片二
Dim X As Integer
Dim IWidth As Integer
Dim IHeight As Integer （这些有什么用啊，说是什么固定一个量 后，大小发生变化后可以恢复原样， 这又没有说“X=1或什么”，也没有把X的值赋予给另一个值，有什么用啊）
Private Sub ChkStretch_Click()
If ChkStretch.Value = 1 Then
IWidth = PicShow.Width（IWidth是哪来的啊，上面有提到过，但有什么用呢）
IHeight = PicShow.Height
PicShow.AutoSize = True
Else
PicShow.AutoSize = False
PicShow.Width = IWidth
PicShow.Height = IHeight
End If
End Sub
在Private Sub ChkStretch_Click()之前声明的那三个整型变量是全局变量，除了这个Sub之外，可能在别的Sub中引用过，如果别的Sub中没有引用，完全可以声明成局部的变量。
IWidth = PicShow.Width
这是把PicShow的宽的值赋给IWidth，IWidth这个变量是全局变量，在开头已经声明，用法和一般变量一样，只是要注意在别的Sub中可能引用并改变它的值。