1. 打开微信小程序,点击右上角的“我”;
2. 点击“设置”;
3. 点击“游戏”;
4. 点击“游戏进度”;
5. 选择要重置的游戏;
6. 点击“重置”按钮;
7. 确认重置,即可完成游戏进度重置。
excel vba 加一句话表示程序运行进度(cnGzb.CursorLocation = adUseClient)大多数人可能认为软件升级是不会有问题的,事实上,在升级过程中都会对其中共享的一些组件也进行升级,但是其它程序可能不支持升级后的组件从而导致各种问题。
Excel执行VBA时显示进度条。
i为代码的for循环,或者计步器
Application.statusbar=”完成 “&format(i/10000*100,”0.00”)
突然想起以看过一遍关于优化SQL查询的文章,里面对SQL查询优化有一个比较详细的说明,特别比较了在已建立索引的字段上进行查询与未建立索引字段上查询速度的差别,想起一句话,“所有快速查找都是基于排序的”,于是马上修改代码,添加对rsGzb中的工号字段进行排序代码(rsGzb.Sort = "gh ASC"),运行,出错(运行时错误3251:当前提供程序不支持排序或过滤所必须的界面),查看sort属性的帮助,发现里面有一条说明“此属性要求将 CursorLocation 属性设置为 adUseClient。”,于是添加代码(cnGzb.CursorLocation = adUseClient),再运行。1秒内就完成了 *** 作
下面就是程序中的那几句关键代码(第1名和第3句在这儿的作用相同,可以只写一句)
cnGzb.CursorLocation adUseClient
Set rsGzb = New ADODB.Recordset
rsGzb.CursorLocation = adUseClient 'CursorLocation对于关闭的recordset对象可读可写,对于打开的recordset对象只读
rsGzb.Open sSqlCommand, cnGzb, adOpenKeyset, adLockBatchOptimistic
用过软件的朋友都知道 进度条是一个优秀软件的重要组成部分 它的存在能够使用户及时掌握程序的运行进度 确认应用程序正常工作 可是ASP中似乎没有上述标准控件 控制起来也比较麻烦 那么如何实现进度条呢? 以下是本人的一些观点(仅供参考) 我们通常在用ASP处理程序(指的是写文件或 *** 作数据库)的时候 会专门用一个页面(* asp)去处理或控制这些程序 当处理完毕的时候再跳转到显示页面 这时我们就可以通过这些处理页面显示进度条 其方法是根据程序处理的进度依次画一百张同样的图形(如有颜色的矩形) 从而形成进度条 其效果与用其它编程工具所实现的基本相似以下是一些Source 希望能够给各位有个启发 response buffer=true dim lostnum dim shownum delayshow(dstep dmax)过程是用于显示多少img(画多少进度) 其中dmax为表示整个程序需要处理多少(dmax)步才能完成整个处理程序 其中dstep表示当前处理的步骤占整个处理过程中的分量 用数量表示 变量lostnum的存在是由于dmax过大(比如 ) 而dstep过小(比如 )造成的 如果调用delayshow( )势必不可能画一次img 事实上delayshow( )才画一次 表示完成 % 因为 占 的 % sub delayshow(dstep dmax) dim total //显示画面 张img dim dtemp //过渡变量total= dtemp=dstep dstep=dstep+lostnum if (dstep*total)/dmax<then //判断当要处理的东西连 %都没有时 不画img同时用变量lostnum存放未画的处理总数 便于下次调用本过程时在处理 lostnum=lostnum+dtemp else for ccc= to fix((dstep*total)/dmax) //取整数Response Write <img src= ……/images/delay jpg >next Response Flush //将缓存里的东西(图片)显示出来//变量shownum用于存放目前已经画的img shownum=shownum+fix((dstep*total)/dmax) lostnum= end if end sub //由于算法的问题 主要是取余造成不能完全画 次 这时就需要过程showlost()将余下未画的img 通通显示处理 实现进度条的等长sub showlost() for ccc= to ( shownum) Response Write ( <img src= ……/images/delay jpg >) next Response Write <BR>Response Flush end sub最后请注意这里需要用到缓存技术response buffer=true response flush response end这些请参考MSDN帮助 lishixinzhi/Article/program/net/201311/12943
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)