<?xml version="1.0" encoding="utf-8" ?><rss version="2.0"><channel><title><![CDATA[zoomwe的专栏]]></title><description><![CDATA[]]></description><link>https://blog.youkuaiyun.com/zoomwe</link><language>zh-cn</language><generator>https://blog.youkuaiyun.com/</generator><copyright><![CDATA[Copyright &copy; zoomwe]]></copyright><item><title><![CDATA[怎样在程序中为Access表创建一个自动编号字段？]]></title><link>https://blog.youkuaiyun.com/zoomwe/article/details/4215008</link><guid>https://blog.youkuaiyun.com/zoomwe/article/details/4215008</guid><author>zoomwe</author><pubDate>Mon, 25 May 2009 18:17:00 +0800</pubDate><description><![CDATA[Dim strDB As String    Dim strTbl As String    Dim tmpWS As Workspace    Dim dbs As Database    Dim tdf As TableDef    Dim fldtmp As Field    strDB = App.Path & "/" & Text1.Text & ".mdb"]]></description><category></category></item><item><title><![CDATA[得到mouse坐标，只要几行代码]]></title><link>https://blog.youkuaiyun.com/zoomwe/article/details/2752754</link><guid>https://blog.youkuaiyun.com/zoomwe/article/details/2752754</guid><author>zoomwe</author><pubDate>Fri, 01 Aug 2008 12:09:00 +0800</pubDate><description><![CDATA[控件：窗体上加两个label  ( label1 和 label2 )  ，再加一个timer1               增加一个模块窗体代码：Dim z As POINTAPI  声明变量 Private Sub Form_Load()Timer1.Interval = 1    设置时钟为1毫秒 End SubPrivate Sub Timer1_T]]></description><category></category></item><item><title><![CDATA[VB把access数据库里的表导出成EXCEL表]]></title><link>https://blog.youkuaiyun.com/zoomwe/article/details/2752618</link><guid>https://blog.youkuaiyun.com/zoomwe/article/details/2752618</guid><author>zoomwe</author><pubDate>Fri, 01 Aug 2008 11:52:00 +0800</pubDate><description><![CDATA[新建一个窗体，窗体上就放一个Command1按钮操作：点一下Command1就导出完成了，在网上找了很久，结果在美国的一个代码论坛上找到的，国内难道都没有人这样写过吗？注意点：在D盘下要存在一个数据库名为data.mdb  ，这个数据库里要包含一个叫pop的表，至于表里边什么内容，就随便填一点就可以了。 下面是代码了： Private Sub Command1_Cl]]></description><category></category></item><item><title><![CDATA[计时器 的代码]]></title><link>https://blog.youkuaiyun.com/zoomwe/article/details/2667767</link><guid>https://blog.youkuaiyun.com/zoomwe/article/details/2667767</guid><author>zoomwe</author><pubDate>Thu, 17 Jul 2008 17:48:00 +0800</pubDate><description><![CDATA[‘计时器  ,窗体上加一个timer ，一个label Private Sub Timer1_Timer()  ‘timer1 的interval 设为10Static ii = i + 1Label1.Caption = Format(i / 3600 & ":" & (i Mod 3600) / 60 & ":" & i Mod 60, "hh:mm:ss")End Sub]]></description><category></category></item><item><title><![CDATA[插入替换删除文本文件中的某一行]]></title><link>https://blog.youkuaiyun.com/zoomwe/article/details/2653269</link><guid>https://blog.youkuaiyun.com/zoomwe/article/details/2653269</guid><author>zoomwe</author><pubDate>Tue, 15 Jul 2008 12:15:00 +0800</pubDate><description><![CDATA[&apos;在网上找了关于这方面的资料,发现跟本用不起来 &apos;后来我拷下来,一个一个调试,终于达到预想的效果 &apos;立此存照 2008-7-15       Jason  Private Sub Form_Load()Dim strtemp As StringOpen App.Path & "/18XX.txt" For Input As #1 Do Un]]></description><category></category></item></channel></rss>