-
目录下文件名获取并判断 循环执行代码【基础】VBcodeIfCheck6.Value=1Then'想在此处增加一个获取DBPath目录下面指定文件名的代码,文件名获取后传递给DBFile,该文件可能有多个,'最少有一个,指定类型文件名的格式是:数字1+db+数字2+.txt,其中数字1用来判断,由前面变量给予,数字2没有意义,'且为个位数。有几个文件,就循环几遍。例如前面变量传递给数字1的值是101,目录下有101dbdogout 时间:12-18 + 阅读全文
-
运用ASP,怎样添加记录到数据库我建立了一"biao.mdb"数据库,想通过asp来添加新纪录,代码如下<%dimconn,rs,sqlsetconn=server.CreateObject("adodb.connection")conn.open"provider=Microsoft.Jet.OLEDB.4.0;datasource="&server.MapPath("biao.mdb")selitcherry 时间:12-18 + 阅读全文
-
excel中怎么屏蔽windows窗口的颜色!!!????windows窗口颜色设置为红色,excel中的单元格颜色都设置为灰色,我想在打开excel的时候,红色不会覆盖灰色。目的:不管windows串口颜色怎么变化,我excel一致保持灰色。求大神指点oyxccyj 时间:12-19 + 阅读全文
-
vb6 问题,新装的VB6企业版,调试程序,工具条没有图标问题描述: 设置了image控件,加入了图片,绑定到一工具条,在开发环境可以显示图标,但在运行环境,工具条的困图标则不见。编译后的也是没有图标。ezwyj 时间:12-19 + 阅读全文
-
如何弹出一个提示框,并自动关闭程序结构是这样的:PrivateSubCommand10_Click(){ 过程1}由于过程1执行需要一些时间,所有我想点击按钮后,弹出一个提示框,等执行完毕后再把这个提示框自动关闭掉。我本来想在过程1前面插入msgbox("正在计算,请稍候");发现弹出框框,需要点确定才会继续执行过程1部分。而且也不知道怎么关闭这个弹出的窗口好。改怎么弄啊?yilin54 时间:12-19 + 阅读全文
-
Bitblt导致无法用API绘图去掉Bitblt那句代码,就能画出圆,加上却画不出。我已经用GetDC获得了窗体的场景,为什么复制场景后画不出图了,请问这是什么原因?VBcodeOptionExplicitPrivateDeclareFunctionGetDC&Lib"user32"(ByValhwndAsLong)PrivateDeclareFunctionEllipse&Lib"gknightgy 时间:12-18 + 阅读全文
-
vb中msgbox("",vbyesno + vbquestin)中逻辑值为6是咋回事?在vb程序设计简明教程书中p91面的例题6.2中,最后一个j=msgbox("XXX",vbyesno+vbquestin)loopwhilej=6endsubfeng2692 时间:12-18 + 阅读全文