填空题
【程序说明】自制一个简单的图片浏览器。要求在窗体上建立一个影像框和两个命令按钮,命令按钮上显示文字“上一张”和“下一张”。
运行时,显示第一张图片,“上一张”按钮不能响应,单击“下一张”按钮显示另一张图片,“上一张”按钮能响应。显示到最后一张图片时,“下一张”按钮不能响应。(假设在C:/Windows目录下有1.bmp、2.bmp、……、8.bmp这样8张图片)
Dim n As Byte
Private Sub Command1_Click 1
If n < 8 Then Command2.Enabled = True
n = n - 1
( )
If n < = 1 Then Command1.Enabled =( ): n = 1
End Sub
Private Sub Command2_Click 2
( )
If n> = 1 Then Command1.Enabled = True
Call pic
If n = 8 Then Command2.Enabled = False
End Sub
Private Sub Form_Load 3
n=1: Command1.Enabled = False: Image1.Picture =( )
End Sub
Sub pic 4
Dim fn As String
fn = "c:/windows/" + Trim(str(n)) + ".bmp"
Image1.Picture= ( )
End Sub
1、
【正确答案】
1、Call pic 、False 、n = n 1 、LoadPicture("c:/windows/1.bmp")、LoadPicture(fn)