【精品】VB上机练习题(五)-2

《【精品】VB上机练习题(五)-2》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、不用输入任何代码,然后运行这个程序，观察效果。VB上机练习题(五)(设计性)-2实验1：添加“关于……”对话框。创建一个工程,移除普通的Form窗体,添加一个“'关于'对话框”(AboutDialog)窗体，不用输入任何程序代码，然后运行这个程序，仔细观察体会程序中的各种信息。实验2：创建一个工程,移除普通的Form窗体，添加一个“登录对话框”(LoginDialog)窗体,不用输入任何代码，然后运行这个程序，这是一个验证密码的程序，默认的密码是"Password”，试一试修改这个密码。实验3：创建一个工程，移除普通的Form窗体,添加一个“展示屏幕

2、”(SplashDialog)窗体,不用输入任何代码，然后运行这个程序，观察效果。可以参考高教教材例4.19的内容。实验4：创建一个工程,移除普通的Form窗体,添加一个“日积月累w(TipoftheDay)窗体,实验5：实现全屏幕图形界面。提示：将窗体的边框设置为无边框，将窗体的显示模式设置为极大化来实现。即设置属性:BorderStyle=NoneWindowState二Maximized实验6：设计一个程序，每次单击窗体时可以更换一幅背景图片，同时调节背景图像大小适应窗体的大小，双击窗体退出程序。提示：更换背景图片可以用通用对话框来实现；调节背

3、景图像大小用窗体的PaintPicture方法。窗体尺寸变化时背景图片也相应变化。参考代码如下：PrivateSubForm_Paint()1在窗体上绘制图像Me.PaintPictureMe.Picture,0,0,Me.ScaleWidth,Me.ScaleHeightEndSubPrivateSubForm_Resize()Form_PaintEndSub实验7：对于一个比较小的图像，在窗体或是图像控件中显示时，如何实现图像的平铺？提示：用图片框控件Picture1存放用于窗体背景平铺的图像源。设置Picture.Visible=False参考

4、代码如下：PrivateSubForm_Paint()DimPicW_SngAsSingleDimPicH_SngAsSingleDimxAsSingleDimyAsSingle'获取图像的尺寸PicW_Sng=Picture1.ScaleWidthPicH_Sng=Picture1.ScaleHeight'绘制平铺图像y=0DoWhiley

5、ivateSubForm_Resize()Form_PaintEndSub实验8：如何制作闪烁的窗体标题栏？提示：调用Windows的API函数FlashWindow可以实现标题栏闪烁，通过给定不同的参数值决定窗体标题栏是否闪烁。FlashWindow函数声明如下(可以通过API文字浏览器获得)：DeclareFunctionFlashWindowLibnuser32"Alias"FlashWindow'*(ByVaihwndAsLong,ByVaiblnvertAsLong)AsLong其中hwnd指定要闪烁显示的窗体的句柄；blnvert确定是否

6、切换窗体标题，bInvert=True(1h零)表示切换窗口标题，bInvert=False则返冋初始状态。函数返冋一个Long型数值，表征窗体所处状态，如果返回非零值则窗体处于活动状态。程序举例：使用两个命令按钮(Flash_Btn和NoFlash_Btn)控制窗体标题栏是否闪烁，使用计时器(Timerl)的时间间隔控制窗体的闪烁频率。参考代码：'窗体的通用/声明部分PrivateDeclareFunctionFlashWindowLib"user32"(ByVaihwndAsLong,ByVaiblnvertAsLong)AsLongPrivat

7、eSubForm_Load()Timerl.Interval=200'设定计时器间隔Timer1.Enabled=False'初始时计时器无效NoFlash_Btn.Enabled=False1"标题栏不闪烁”按钮无效EndSubPrivateSubFlash_Btn_Click()Timerl.Enabled=True'计时器有效NoFlash_Btn.Enabled=True'“标题栏不闪烁”按钮有效Flash_Btn.Enabled=False'"标题栏闪烁"按钮无效EndSubPrivateSubNoFlash_Btn_Click()Time

8、r1.Enabled=FalseFlash_Btn.Enabled=TrueNoFlash_Btn.Enab