VB上機练习题(五)-2.docVIP

VB上机练习题（五）(设计性)-2 实验1：添加“关于……”对话框。 创建一个工程，移除普通的Form窗体，添加一个“‘关于’对话框”（About Dialog）窗体，不用输入任何程序代码，然后运行这个程序，仔细观察体会程序中的各种信息。 实验2： 创建一个工程，移除普通的Form窗体，添加一个“登录对话框”（Login Dialog）窗体，不用输入任何代码，然后运行这个程序，这是一个验证密码的程序，默认的密码是“Password”，试一试修改这个密码。 实验3： 创建一个工程，移除普通的Form窗体，添加一个“展示屏幕”（Splash Dialog）窗体，不用输入任何代码，然后运行这个程序，观察效果。可以参考高教教材例4.19的内容。 实验4： 创建一个工程，移除普通的Form窗体，添加一个“日积月累”（Tip of the Day）窗体，不用输入任何代码，然后运行这个程序，观察效果。 实验5： 实现全屏幕图形界面。 提示：将窗体的边框设置为无边框，将窗体的显示模式设置为极大化来实现。 即设置属性： BorderStyle=None WindowState=Maximized 实验6： 设计一个程序，每次单击窗体时可以更换一幅背景图片，同时调节背景图像大小适应窗体的大小，双击窗体退出程序。 提示：更换背景图片可以用通用对话框来实现；调节背景图像大小用窗体的PaintPicture方法。窗体尺寸变化时背景图片也相应变化。 参考代码如下： Private Sub Form_Paint() 在窗体上绘制图像 Me.PaintPicture Me.Picture, 0, 0, Me.ScaleWidth, Me.ScaleHeight End Sub Private Sub Form_Resize() Form_Paint End Sub 实验7： 对于一个比较小的图像，在窗体或是图像控件中显示时，如何实现图像的平铺？ 提示：用图片框控件Picture1存放用于窗体背景平铺的图像源。设置Picture.Visible=False 参考代码如下： Private Sub Form_Paint() Dim PicW_Sng As Single Dim PicH_Sng As Single Dim x As Single Dim y As Single 获取图像的尺寸 PicW_Sng = Picture1.ScaleWidth PicH_Sng = Picture1.ScaleHeight 绘制平铺图像 y = 0 Do While y ScaleHeight x = 0 Do While x ScaleWidth PaintPicture Picture1.Picture, x, y x = x + PicW_Sng Loop y = y + PicH_Sng Loop End Sub Private Sub Form_Resize() Form_Paint End Sub 实验8： 如何制作闪烁的窗体标题栏？ 提示：调用Windows的API函数FlashWindow可以实现标题栏闪烁，通过给定不同的参数值决定窗体标题栏是否闪烁。FlashWindow函数声明如下(可以通过API文字浏览器获得)： Declare Function FlashWindow Lib user32 Alias FlashWindow (ByVal hwnd As Long, ByVal bInvert As Long) As Long 其中hwnd指定要闪烁显示的窗体的句柄；bInvert确定是否切换窗体标题，bInvert=True(非零)表示切换窗口标题，bInvert=False则返回初始状态。函数返回一个Long型数值，表征窗体所处状态，如果返回非零值则窗体处于活动状态。 程序举例：使用两个命令按钮（Flash_Btn 和NoFlash_Btn）控制窗体标题栏是否闪烁，使用计时器（Timer1）的时间间隔控制窗体的闪烁频率。 参考代码： 窗体的通用/声明部分 Private Declare Function FlashWindow Lib user32 (ByVal hwnd As Long, ByVal bInvert As Long) As Long Private Sub Form_Load() Timer1.Interval = 200 设定计时器