当前位置：首页 -> 技术开发 -> 程序开发 -> 用VB制作活动图标

用VB制作活动图标

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

上海鲍伟强一个美丽的外套不妨为你填补无量的魃力。那么怎样用vb给你的步调加上一个美丽的震动图标呢？领会了创造进程后，给你的步调加上一件美丽的外套所须要的只是是你充分的设想力和活泼的创新意识。此刻先请你运转你的visual basic for win.1，采用file菜单中的project，共存储新窗体为c：＼user＼tubiad.frm，保存新名目文献c：＼user＼tubiao.mak。而后按下表实行tubiao窗体。东西个性树立值窗体 name tubiaocaption 震动图标（或由你设置）icon c：＼user＼youicon.ico（或none）minbutton truemaxbutton truevisible true吩咐按钮 name cmdexitcaption e＆xitvisible true双击e＆xit按钮，给e＆xit按钮附加click事变步调sub cmdexit－click （） ‘中断步调endend sub2、创造一个main（）进程。从file菜单中采用new module，保存新模块为c：＼usser＼tubiao.bas，采用windows菜单中的project，而后用鼠标加亮project 窗口中的viewform按钮，而后从菜单中采用new procedure项。此时visual basic表露new procedure的对话框，采用sub单选钮，在name框中键入main，单击ok键。3，双击project窗口中的tubiao.bas，从proc下拉条中采用main项，输出main（）进程如次：sub main ()dim x,y,i ‘表露tubiao窗体tubiao.showi=0do while doevents()i=i+1x=rnd*tubiao.scalewidthy=rnd*tubiao.scaleheighttubiao.currentx=tubiao.scalewidth/2tubiao.currenty=tubiao.scaleheight/2if i >=15 theni=oend if‘减少tubiao窗体为图标,在属性窗口中看到‘scalewidth=540和scalheight=540if tubiao.scaleheight <541 and tubiao.scalewidth <541 then‘随机地在图标地区内画方块tubiao.line-(x,y),qbcolor(rnd*15),bfend ifloopend sub4，必需树立 main （）为启用窗体。采用option菜单中的project项，visual basic表露project option对话框，采用sub main窗体为启用窗体。5，保存窗体和名目文献。采用菜单项run中start实行。对于夸大窗口是看得见图目标，减少窗口，咱们赶快不妨看到动静中的图标。当pc机不忙于tubiao窗体或其它窗体工作时，main（）中的dowhile和loop之间的代码页被实行。即使创造窗口被减少，登时随机地在图标地区内画方块。那么,咱们此刻试一下窜改语句tubiao.line-(x,y),qbcolor(rnd*15),bf为tubiao.line-(x,y), qbcolor(rnd*15),b或tubiao.line-(x,y), qbcolor(rnd*15)从新实行一次步调，咱们创造功效截然两样。同理，咱们经过窜改main（）步调，运用窗体的scalewidth和scaleheight，对图标地区举行画点、画线、画圆以及画其它图形，不妨使图标动起来。固然，咱们还不妨用其它的图标编纂东西，编纂出几何个图标，用计时器来准时变动步调的图标来到达震动图目标手段，然而这种本领却控制了计划机动静作图的创新意识。

用VB制作活动图标

相关推荐

推荐下载

热门阅览

最新排行