<?xml version="1.0" encoding="utf-8" ?><rss version="2.0"><channel><title><![CDATA[yas的专栏]]></title><description><![CDATA[]]></description><link>https://blog.youkuaiyun.com/yas</link><language>zh-cn</language><generator>https://blog.youkuaiyun.com/</generator><copyright><![CDATA[Copyright &copy; yas]]></copyright><item><title><![CDATA[什 [简明汉英词典]]]></title><link>https://blog.youkuaiyun.com/yas/article/details/518485</link><guid>https://blog.youkuaiyun.com/yas/article/details/518485</guid><author>yas</author><pubDate>Fri, 28 Oct 2005 16:16:00 +0800</pubDate><description><![CDATA[　　VB一直以来被认为有以下优缺点：优点是上手快、开发效率高；缺点是能力有限，运行效率低。这正是有些软件把VB做为首选语言，而有些软件肯定不会用VB做的原因。而很多VC，DELPHI的程序员都认为VB里搞开发不自由，它让我们做事变容易的同时，也让我们发挥的余地越来越小。的确，简单和功能强大这两者本身就是一对矛盾。那怕一行代码不写，仅仅起动运行一个空窗体这样简单动作，VB在底下就为我们做了大量复杂的]]></description><category></category></item><item><title><![CDATA[VarPtr、StrPtr和ObjPtr函数的用法]]></title><link>https://blog.youkuaiyun.com/yas/article/details/518475</link><guid>https://blog.youkuaiyun.com/yas/article/details/518475</guid><author>yas</author><pubDate>Fri, 28 Oct 2005 16:06:00 +0800</pubDate><description><![CDATA[发展历史在Basic语言演变成QBasic，然后到Visual Basic之前，VarPtr函数就已经存在了。开始，这个函数存在于VB运行库1.0版中。通过声明可以调用这个函数：Declare Function VarPtr Lib "vbrun100.dll" (Var As Any) As Long数年之后，vbrun100.dll变成了msvbvm50.dll，但该函]]></description><category></category></item><item><title><![CDATA[VB执行VB]]></title><link>https://blog.youkuaiyun.com/yas/article/details/518468</link><guid>https://blog.youkuaiyun.com/yas/article/details/518468</guid><author>yas</author><pubDate>Fri, 28 Oct 2005 15:18:00 +0800</pubDate><description><![CDATA[Public Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As LongPublic Function ExecuteLine(sCode ]]></description><category></category></item><item><title><![CDATA[在listview控件标题上添加图标]]></title><link>https://blog.youkuaiyun.com/yas/article/details/517750</link><guid>https://blog.youkuaiyun.com/yas/article/details/517750</guid><author>yas</author><pubDate>Thu, 27 Oct 2005 13:07:00 +0800</pubDate><description><![CDATA[Private Type LVCOLUMN    mask As Long    fmt As Long    cx As Long    pszText As String    cchTextMax As Long    iSubItem As Long    iImage As Long    iOrder As Long    End TypeDeclare Function SendMe]]></description><category></category></item><item><title><![CDATA[人民币大写金额函数]]></title><link>https://blog.youkuaiyun.com/yas/article/details/510124</link><guid>https://blog.youkuaiyun.com/yas/article/details/510124</guid><author>yas</author><pubDate>Thu, 20 Oct 2005 15:58:00 +0800</pubDate><description><![CDATA[Public Function rmb(num As Double) As String       num = FormatNumber(num, 2)    Dim numList As String    Dim rmbList As String    Dim numLen    Dim numChar    Dim n1, n2 As String    numList = "零壹贰叁]]></description><category></category></item><item><title><![CDATA[Word中实现格式查找]]></title><link>https://blog.youkuaiyun.com/yas/article/details/509416</link><guid>https://blog.youkuaiyun.com/yas/article/details/509416</guid><author>yas</author><pubDate>Wed, 19 Oct 2005 16:17:00 +0800</pubDate><description><![CDATA[ActiveDocument.Content.SelectWith Selection.Find    .ClearFormatting    .Text = "重量"    .Font.NameFarEast = "黑体"    .Forward = TrueEnd WithSelection.Find.ExecuteIf Selection.Find.Found = True Then    ]]></description><category></category></item><item><title><![CDATA[修改文件夹创建时间和修改时间]]></title><link>https://blog.youkuaiyun.com/yas/article/details/509411</link><guid>https://blog.youkuaiyun.com/yas/article/details/509411</guid><author>yas</author><pubDate>Wed, 19 Oct 2005 16:14:00 +0800</pubDate><description><![CDATA[模块Public Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As SECURITY_ATTRIBUT]]></description><category></category></item></channel></rss>