请各位高手帮帮忙，看看我的程序应该怎么改，谢谢! Dim xls As Object Dim wbk As Object Dim wst As Object Dim iCount As Integer Dim i As Integer Dim j As Integer Dim arr() As String Set xls = CreateObject("excel.application") Set wbk = xls.Workbooks.Open("f:\Test Model\商品导入格式.xls") Set wst = wbk.ActiveSheet ActiveC...

假设我知道足够多的此系统用户名和它对应的密码的话,可否在之基础上写出此系统的注册机?（当然前提是此些用户名和密码都是软件生成的非用户人为生成）

我创建了以下格式的XML文件，现想将"date","division","formname","inputprogress","marking","allsheetcount"中的数据显示在VB里所对应的TextBox1～TextBox6，(不使用ADO)，我编写了一个函数用来读取内容。 第一次运行成功但第二次运行的时候提示 对象变量或WITH 块为定义，请高手给指点一二，高分相送 <?xml version="1.0" encoding="GB2312"?> <Project> <condition> <date>2001-1-8&l...

我想问一下怎样判断数据库中的字段为空值，我用rs("fieldname").value=Null判断不成功。还请各位帮帮忙，多谢了!

各位高手：SQL SERVER 的image类型的字段如何存取？

用于拨号后传输文件，自动应答，有简单纠错能力。 如果需要请留下email

动态获取com口数据 串口编程 能提供资料者定给分

在98下用VB编程，怎样知道能否在2000下运行？ 98和2000的变成环境有什么异同？为什么有的软件只能在98运行而在2000却不行？ 怎样确保该软件在98和2000下都能运行？

如何获得窗体标题栏的句柄

动态获取com口数据 串口编程

大虾提供点资料

那位朋友有VB的多维数组，根据某一维任意排序的子程序?

我有如下代码，来实现我的combobox，其中style=2 Do While Not (Adodc1.Recordset.EOF Or Adodc1.Recordset.BOF) cboHeadship.AddItem Adodc1.Recordset("Headship") Adodc1.Recordset.MoveNext Loop 我现在想其中随便一项在combobox是被选择的，怎么办？

调用文本（Excel)

来csdn已经很久了， 可是真真开始参与这里的回答是在一个多星期前开始（自己水平太低）。 我记得以前的时候，我很喜欢看别人结束的帖子，因为那里面有很多人热心的帮助、新奇的想法。一天化上一两个小时看看可以说真的是受益匪浅。在感觉学习到技术的同时，也很佩服那些真真的高手，他们的回答不是从别的地方贴过来的，完完全全是自己的话。为什么呢？因为他们不是来蹭分的，也不是来出名的，只是有程序员交流技术的热情。那个时候我真的很喜欢这里。 而现在呢，看看我的变化，我现在也常常会给别人解答，一开始，我总是愿意花很多时间很细致去回答，为什么呢？我觉得只有这样，才能让自己和别人得到真真的提高。可是结果并不是想象...

如何给ListBox添加横向滚动条?

请问我该怎么做，我的分只给前两个回答我问题的人，当然必须是正确的.

谁有PowerBuilder方面的电子图书，与我联系并发到E－MAIL：jaychen1@21cn.com里去，谢谢!

如何设置另一个程序的EDIT的文本内容啊（我有这个EDIT的HWND）!!

1、我要提取硬盘的序列号（源代码） 2、我要简单的打印输出的源代码 3、我要网络监控的源代码 4、我要提取cpu序列号（源代码） 5、我要提取显示器型号（源代码） 6、我要提取显卡型号（源代码） 7、我要提取网卡序列号、型号（源代码） 8、我要提取的东西太多了，你没有的话，给我（源代码） 9、我没钱，如果你要钱，请您保留您的版权 10、如果你有以上的任何一段代码请发送到beijun@etang.com 11、谢谢，如果可以，我可能会给点小费的 12、如果您的源代码有错误，我也要，如果您的源代码有后门，我也要，如果您需要什么，请email联系我，谢谢合作...

巴顿大师及各位大侠: 请问如何把农历转换成公历.还有公历到底是怎么回事?

我自己作的程序,假设已经给客户安装了,若客户提供了新的需求,如何通过patch的方法加入新的功能?

一个VC写的class，对我的工程很有帮助。我也不想用Vb重来一遍了。效率不高，而且时间不允许。那位gg有过这方面的经验，请帮助我一下。谢谢

怎样在一个枝叶茂盛的treeview中快速定位要找的node?

Private Sub Command3_Click() Dim j As Integer Dim c As Integer Dim n As Integer j = Text6.Text * 450 + Text18.Text * 150 + Text19.Text * 50 c = Text20.Text * 450 + Text21.Text * 150 + Text22.Text * 50 n = Combo7.Text RichTextBox3.Text = n & "年" & Text1.Text & "所获得的奖金为" & j End Sub 我希望在RICHT...

CommDialog.Flags = cdlOFNAllowMultiselect + cdlOFNExplorer + cdlOFNFileMustExist + cdlOFNHideReadOnly CommDialog.ShowOpen 我的代码就是这样了，当选中多个文件的时候就只返回一个路径而没有文件名 还有就是如果是长文件名又是用空格间隔的怎么办？

我现在已经完成了一个软件，但想再给它做一个30天内有效的试用版本上传到网上给用户下载，应该怎么做？ ps:我新来的，这是我的第一个问题，希望能有人回答，或者介绍一些资料给我看看也可以。先行谢过。 //end

请问vb如何跟SQL SERVER连接？在DATA控件中没有SQL SERVER数据库的选择，应该使用什么控件连接，如要写代码，请简单写一下，谢谢了!

我提了个问题，怎么没人回答？如果嫌分少，可再加。 问题见： 请教各位大虾：用VB的打包工具制作的安装程序为什么在某些机器上不能运行？ 我写了个程序，所用机的操作系统为WIN2000，版本号为5.00.2195 service pack 2,安装程序在此机中工作正常。另外有两台机器，操作系统为WIN2000，颁布号为5.00.2195，安装程序在此两台机器上运行后，弹出提示： 由于您的系统中某些系统文件过时了，安装无法继续。如果您希望安装程序立即更新这些文件，请单击“确定”。在继续运行安装程序之前需重新启动windows，单击取消退出安装并不更新系统文件。 单击“确定”，重启后运行安装...

如题，combobox没有mousedown事件，应该如何解决

菜鸟问题!立即给分!

我已出了100分了再出100分，请帮我回答一下这个问题! http://www.Codefund.cn/expert/topic/997/997035.xml?temp=.6192133 http://www.Codefund.cn/expert/topic/996/996392.xml?temp=.386944

1.为什么VB5有打包工具而VB6没有 2.另外有什么好的安装工具,简单简介一下用法,谢谢

我的VB程序原代码可正常运行，可打包安装时其中msado15.dll无法注册，不能成功安装。请问各位大侠，有什么好办法

在frame1中定义了一个text1控件，index属性设置为（0）， 现想在frame2中load text1控件 dim i as integer for i=1 to 5 load text1(i) next 我想在frame2中显示text1（i） 可每次都是在frame1中显示，：（ 有什么办法能指定在frame2中load吗？

我想要做一个软件。要求念一句日语，念一句中文。需要在TTS里面轮回的设置Language ID 吗，用什么函数设置呢？设置成为多少呢？

For i = 1 To 12 Form1.Combo1.AddItem i Next 这样付值后怎么 Private Sub Combo1_Change() 不能触发呢？ 急呀

请问大家这个错误是怎么引起的，怎么解决呀？急急急 Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done.

Private Sub Command1_Click() areturncode = sndPlaySound("c:\winnt\media\chimes.wav", 2) Unload Me End Sub Private Sub Form_Load() areturncode = sndPlaySound("c:\winnt\media\chimes.wav", 9) End Sub 我的这段程序目的就是让声音和弹出的窗体同步关掉，如果时这样该如何做，用了你的不同步的方法 但是不合乎我的需求，请再帮助想一个办法。 用kill能不能杀掉？...

最近我的可用分越来越少。 写完这个贴子就只有8分了。 因此仔细思考了这个分数的问题。 有人说，那就去回答问题啊。 是的，回答问题存在加分的可能性，但是如果人家不给你分，你加的了么？ 现在发现大家的可用分似乎都不是很多，一旦出现个简单问题，立刻有好几位大侠扑上去，又是源代码又是电子邮件，恨不得从网卡中钻出来自己来编程。 :) 问题出在哪里呢？ 关键是大家都不肯给分。或者说没有及时结贴给分的习惯。 既然很少给分，大家的手头都比较紧，花的时候就更仔细了。 能不花就不花，看看搜索先，实在逼急了，就放个20分，50分的。 你想想，如果手头有几万分可用分，能这么节约吗？ 哎，银根紧缩...

http://www.daqchina.net/daqchina/acquire/winacq.zip 我的出现如下错误 实时错误‘48’ 文件未找到：winacq.dll 试着点发送数据按钮会出错吗？ 大家能成功运行吗？？

如题。 用什么数据库驱动都可以。

我使用API函数,删除了系统菜单中的“恢复”“大小”菜单项不管用，在Form_Resize()里面设置又不理想，又什么好方法吗？

请问在DLL中我如何生成一个ActiveX的对象?我要用到Internet Transfer的Inet来实现FTP功能,但用Dim InetFTP=Inet后InetFTP不用象在Form上生成的Inet控件一样使用

我用vb做了一个小程序，现在需要将它改为dll文件，加到另一个程序中， 接口函数格式是怎样的呀？有没有这样的例子。 我参照类的dll样式，写了一个接口函数，可总不成功 还有：在编译成dll文件的时候，需要加一个类模板，这个类模板在dll调用时起什么作用？

curcreatesql = "alter table " & TableName & " add column " curcreatesql = curcreatesql & FieldsName curcreatesql = curcreatesql & " " & Fieldstype cnn.Execute curcreatesql 用如上代码构造sql语句，tablename和fieldsname由其他数据库中读出， 但是他们都有可能是sql的保留字，这样运行到第四句时就出错。 请问如何解决？谢谢。

1. 如何控制webbrowser的显示，如：不显示图片，不播放音乐，等等。 2. 如何得到webbrowser中所有的链接，包括所有的页面，要把框架结构考虑进去。 3. 如何得到一个webbrowser中的显示的某一种图象格式文件的所有链接，注意是网页中显示的，而不是链接，所以和第二个问题不一样哦。 想想吧，哈哈，有什么想法都写下来吧，或者有什么好地方可以找到这方面的资料，可以推荐一下啊。谢谢咯!

1 在VB中，运行程序的速度越来越慢应该可能是哪些方面的原因？怎样才能提高速度？与变量多有关吗？ 2 关闭叉号关闭自己程序的时候，出现了非法操作，每次都是这样。这是怎么一回事？程序是这样的： Private Sub Form_Unload(Cancel As Integer) End End Sub 此时，没有释放任何资源(程序中有同数据库的连接) 3 与数据库的连接，考虑释放吗？我关闭程序的时候没有释放同数据库的连接，这样会出现什么问题？ 4 怎样调用系统调色板并且得到选择的颜色值？ 5 窗体是否可以定义private或者public的属性，这样可以控制是否被子窗口调用，或者...

我的程序在Sub Main()里连三个数据如下代码，直接运行时就出错连不上数据库，我一直找不到办法，刚才我就客户端装上了VB然后F5运行程序还是不行，我就F8单步，能够运行，只是每次在 OPENc处需二秒左右，现在我在每次open后加上Doevents 还是不行。请问怎样解决？ Sub Main() Set Cn = New ADODB.Connection Cn.ConnectionString = "provider=sqloledb;server=cns05;uid=sa;pwd=123;database=tgwe" Cn.Open Doevents Set CNhR = N...

当Form中的TreeView数据过多，一时显示不出来，如果让鼠标变成一个动画 谢谢