当前位置：首页 -> 技术开发 -> 程序开发 -> VB调用IMAGE控件实现图像缩放的一种方法

VB调用IMAGE控件实现图像缩放的一种方法

时间： 2021-07-31 作者：daque

葛岩 vb的功效宏大，运用范畴广。vb是规范的面向东西编制程序谈话可视编制程序，沿用事变启动的编制程序本领。vb含有洪量的vbx(控件)。这是一种对准vb的仍旧编写好的步调，它们在vb中以百般可视的遏制东西的情势展示，比方图形按钮，笔墨编纂框之类，用户按照本人的须要可径直运用，使编制程序就象运用积木搭建衡宇一律大略。　　在多媒介安排中，图像处置是要害步骤。按照窗口界面包车型的士巨细，图像巨细和图形办法下的笔墨的巨细的相映安排，则是一个图形运用软硬件要做到的基础诉求之一。运用vb中的image控件不妨实行图像缩放、相映安排，不妨使软硬件界面更明显、和睦。　　简直编制程序如次：　　 option explicit　　 private mydb as database　　 private myrs as recordset　　 private mystate as byte　　 private sql as string　　 public z (设置 z 为大众变量)　　 private sub a_click()　　 form2.show　　 form3.hide　　 end sub　　 (各别的按钮，触发各别事变)　　 private sub f_click()　　 end　　 end sub　　 private sub b_click()　　 form4.show　　 end sub　　 private sub g_click()　　 z = 1　　 end sub　　 private sub h_click()　　 z = 2　　 end sub　　 private sub im1_click( )　　 dim zh, fan as integer （设置 zh 和fan 为整形变量）　　 if im1.width < pi1.width then　　 hs1.visible = false　　 else　　 hs1.visible = true　　 end if　　 if im1.height < pi1.height then　　 vs1.visible = false　　 else　　 vs1.visible = true　　 end if　　 if z = 1 then （夸大图象按钮被触发的功夫，实行以次步调）　　 im1.width = 1.1 * im1.width　　 im1.height = 1.1 * im1.height　　 for zh = 0 to 13　　 image1(zh).left = -480 + 1.1123 * (image1(zh).left + 480)　　 image1(zh).top = 1.111 * (image1(zh).top)　　 next zh　　 end if　　 if z = 2 then （减少图象按钮被触发的功夫，实行以次步调）　　 im1.width = 0.9 * im1.width　　 im1.height = 0.9 * im1.height　　 for zh = 0 to 13　　 image1(zh).left = -480 + 0.89 * (image1(zh).left + 480)　　 image1(zh).top = 0.89 * (image1(zh).top)　　 next zh　　 end if　　 text1.visible = false　　 hs1.max = im1.width　　 vs1.max = im1.height　　 end sub　　 private sub hs1_change()　　 im1.left = -hs1.value　　 end sub　　 private sub vs1_change()　　 im1.top = -vs1.value　　 end sub　　 private sub im1_mousedown(button as integer, shift as integer, x as single, y as single)　　 if button = vbrightbutton then （鼠标按下后触发其它的弹出式菜单）　　 popupmenu popup　　 end if　　 end sub　　 private sub image1_click(index as integer)　　 dim v as long　　 text1.visible = true　　 v = index　　 set mydb = opendatabase("c:pkuang.mdb")　　 sql = "select tong.源代码,tong.实质 from tong"　　 set myrs = mydb.openrecordset(sql, dbopensnapshot)　　 myrs.move v （按照暂时坐圈点的场所举行安排）　　 text1.text = myrs.fields("实质")　　 end sub　　经过 image控件的运用，不妨简化编制程序中的某些办法，使步调优化、简单。

VB调用IMAGE控件实现图像缩放的一种方法

相关推荐

推荐下载

热门阅览

最新排行