欢迎来到天天文库
浏览记录
ID:46241282
大小:536.67 KB
页数:31页
时间:2019-11-22
《数据库应用实训指导书》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库。
1、《数据库应用实训》实训指导书一、实训目的对已学过VisualBasic程序设计语言、数据库等课程的计算机专业学生进行训练,以便能够系统学习VisualBasic语言与数据库技术、能够综合运用所学的SQLServer2000数据库技术阅读和独立开发具有一定实际价值的丿应用系统;加深对数据库技术的理解以及对以前所学技术的灵活应用。二、具体内容及指导实训指导Windows通用控件(分4次)包括:ImageList、ToolBar>StatusBar>ProgressBar^UpDown、MSFlexGrid和ListView。使用方法:首先必须将通用控件
2、添加到工具箱中,然后才能进行使用。通用控件的添加方法:a)在工貝箱上单击右键,选择“部件”,打开“部件”窗体。b)在该窗体的"属性"页上,选择"MicrosoftWindowsCommonControls6.0”选项。1ImageList控件作用:用于存储多幅图片,单独使用没冇任何意义,必须与其他控件联合使用,他是不可见的。1.1设置ImageList的图像在设计时,可以用“ImageList控件属性”対话框的“图像”选项卡來添加或删除图片。也可通过“通用”选项卡来规定图像的大小,但必须在添加图片Z前。说明:a)关键字和索引一样可用來存取图片,标记
3、可用來标志图片的附加说明。b)关键字必须唯一。c)每插入一幅图片,系统会自动対其编号,编号从1开始。d)可一次性插入多张图片。(注意需从后往前插)1.2读取ImageList的图像ImageList控件由若干个Listimage对象构成,若要访问第二个图形对象,其关键字为“Pic”,可使用语句ImageList1.Listlmages(2)(或ImageList1.ListImages(4、mageList1.Listimages⑵.Picture或ImageListI.ListImagesCTic^^).Picture1.3动态加载图像1.加入格式:ImageList名丄istlmages.Add索引,关键字,图像例如:ImageListl.Listimages.Add2,"cc",LoadPicture(**c:windowssh.gif*)在第二个位置上导入一幅图片,原来图片的索引值(除第一个外)依次加一。注意:a)索引值可省略,省略后,默认将图像装到最后面。b)关键字可省略,省略后,无法通过关键字读取相应的图像。c)图像必5、须是Picture对彖,即只能通过以下语句导入:ImageList1.Listimages.Add1,,Picture1.PictureImageList1.Listimages.Add,^cc5',Image1.PictureImageListl.Listimages.Add,,LoadPictureC6、eList控件的例程效果图如下:程序代码如下:DimnumlAsInteger——定义一个全局变量用來存放当前图片的索引PrivateSubCommandl_Click()Ifnuml=1Thennuml=1Elsenuml=numl-1EndIfPicture1.Picture=ImageListI.Listlmages(num1).PictureEndSub——若是第一幅图片,则仍然显示该图片,否则显示前一幅图片PrivateSubCommand2_Click()Ifnuml>=ImageListl.Listimages.CountThennu7、ml=ImageListl.Listimages.CountElsenuml=numl+1EndIfPicture1.Picture=ImageList1.Listlmages(num1).PictureEndSub——若是授后一幅图片,则仍然显示该图片,否则显示后一幅图片PrivateSubCommand3_Click()ImageList1.Listimages.RemovenumlIfnum1=1Thennuml=1Elsenuml=numl-1EndIfPicture1.Picture=ImageList1.Listlmages(num1)8、.PictureEndSub——删除当前图片,同时显示当前图片的前一幅图片PrivateSubCommand4_Click
4、mageList1.Listimages⑵.Picture或ImageListI.ListImagesCTic^^).Picture1.3动态加载图像1.加入格式:ImageList名丄istlmages.Add索引,关键字,图像例如:ImageListl.Listimages.Add2,"cc",LoadPicture(**c:windowssh.gif*)在第二个位置上导入一幅图片,原来图片的索引值(除第一个外)依次加一。注意:a)索引值可省略,省略后,默认将图像装到最后面。b)关键字可省略,省略后,无法通过关键字读取相应的图像。c)图像必
5、须是Picture对彖,即只能通过以下语句导入:ImageList1.Listimages.Add1,,Picture1.PictureImageList1.Listimages.Add,^cc5',Image1.PictureImageListl.Listimages.Add,,LoadPictureC6、eList控件的例程效果图如下:程序代码如下:DimnumlAsInteger——定义一个全局变量用來存放当前图片的索引PrivateSubCommandl_Click()Ifnuml=1Thennuml=1Elsenuml=numl-1EndIfPicture1.Picture=ImageListI.Listlmages(num1).PictureEndSub——若是第一幅图片,则仍然显示该图片,否则显示前一幅图片PrivateSubCommand2_Click()Ifnuml>=ImageListl.Listimages.CountThennu7、ml=ImageListl.Listimages.CountElsenuml=numl+1EndIfPicture1.Picture=ImageList1.Listlmages(num1).PictureEndSub——若是授后一幅图片,则仍然显示该图片,否则显示后一幅图片PrivateSubCommand3_Click()ImageList1.Listimages.RemovenumlIfnum1=1Thennuml=1Elsenuml=numl-1EndIfPicture1.Picture=ImageList1.Listlmages(num1)8、.PictureEndSub——删除当前图片,同时显示当前图片的前一幅图片PrivateSubCommand4_Click
6、eList控件的例程效果图如下:程序代码如下:DimnumlAsInteger——定义一个全局变量用來存放当前图片的索引PrivateSubCommandl_Click()Ifnuml=1Thennuml=1Elsenuml=numl-1EndIfPicture1.Picture=ImageListI.Listlmages(num1).PictureEndSub——若是第一幅图片,则仍然显示该图片,否则显示前一幅图片PrivateSubCommand2_Click()Ifnuml>=ImageListl.Listimages.CountThennu
7、ml=ImageListl.Listimages.CountElsenuml=numl+1EndIfPicture1.Picture=ImageList1.Listlmages(num1).PictureEndSub——若是授后一幅图片,则仍然显示该图片,否则显示后一幅图片PrivateSubCommand3_Click()ImageList1.Listimages.RemovenumlIfnum1=1Thennuml=1Elsenuml=numl-1EndIfPicture1.Picture=ImageList1.Listlmages(num1)
8、.PictureEndSub——删除当前图片,同时显示当前图片的前一幅图片PrivateSubCommand4_Click
此文档下载收益归作者所有