<?xml version="1.0" encoding="utf-8" ?><rss version="2.0"><channel><title><![CDATA[思想摇篮]]></title><description><![CDATA[突破常规思维，才能有所收获~]]></description><link>https://blog.youkuaiyun.com/upsuper</link><language>zh-cn</language><generator>https://blog.youkuaiyun.com/</generator><copyright><![CDATA[Copyright &copy; upsuper]]></copyright><item><title><![CDATA[证明：对于一个矩形A，可以找到另一个矩形B的周长和面积都为A的n倍（二）]]></title><link>https://blog.youkuaiyun.com/upsuper/article/details/527761</link><guid>https://blog.youkuaiyun.com/upsuper/article/details/527761</guid><author>upsuper</author><pubDate>Fri, 11 Nov 2005 20:32:00 +0800</pubDate><description><![CDATA[　　本章讨论，当0时什么情况会存在。（由于有可能不存在） 据题意，设B的长和宽为x和y，A的长宽分别为a、b，得方程组：①x + y = n ( a + b ) ②x y = a b n 由①得：③y = a n + b n – x 将③带入②得： x ( a n + b n – x ) = a b n x2 – a n x – b n x + a b n = 0x2 – ( a + b ) n ]]></description><category></category></item><item><title><![CDATA[证明：对于一个矩形A，可以找到另一个矩形B的周长和面积都为A的n倍（一）修正]]></title><link>https://blog.youkuaiyun.com/upsuper/article/details/527734</link><guid>https://blog.youkuaiyun.com/upsuper/article/details/527734</guid><author>upsuper</author><pubDate>Fri, 11 Nov 2005 19:34:00 +0800</pubDate><description><![CDATA[证明1的过程有错，虽然结果还是必然成立，但是还是改一下~ 据题意，设B的长和宽为x和y，A的长宽分别为a、b，得方程组： ①x + y = n ( a + b ) ②x y = a b n 由①得：③y = a n + b n – x 将③带入②得： x ( a n + b n – x ) = a b n ④x2 – a n x – b n x + a b n = 0 设在④中Δ，则可得： [ -]]></description><category></category></item><item><title><![CDATA[VB：读取MP3的Tag（对网上流行版本改进）]]></title><link>https://blog.youkuaiyun.com/upsuper/article/details/527452</link><guid>https://blog.youkuaiyun.com/upsuper/article/details/527452</guid><author>upsuper</author><pubDate>Fri, 11 Nov 2005 12:35:00 +0800</pubDate><description><![CDATA[网上有一段关于VB读取MP3Tag的代码，但不支持中文。这里我对这个代码进行改进。这是我改进后的代码：Public Type Mp3tag        Artist   As String  Artist   存储歌手信息        Album    As String  Album    存储唱片专辑信息        Title    As String  Title    存储标]]></description><category></category></item><item><title><![CDATA[证明：对于一个矩形A，可以找到另一个矩形B的周长和面积都为A的n倍（一）]]></title><link>https://blog.youkuaiyun.com/upsuper/article/details/526902</link><guid>https://blog.youkuaiyun.com/upsuper/article/details/526902</guid><author>upsuper</author><pubDate>Thu, 10 Nov 2005 15:48:00 +0800</pubDate><description><![CDATA[　　本章讨论，当n≥1时是否存在。据题意，设B的长和宽为x和y，A的长宽分别为a、b，得方程组：①x + y = n ( a + b )②x y = a b n由①得：③y = a n + b n – x将③带入②得：x ( a n + b n – x ) = a b n④x2 – a n x – b n x + a b n = 0设在④中Δ，则可得：[ - ( a + b ) n ]2 – 4 ]]></description><category></category></item><item><title><![CDATA[VB：双击顺序]]></title><link>https://blog.youkuaiyun.com/upsuper/article/details/467656</link><guid>https://blog.youkuaiyun.com/upsuper/article/details/467656</guid><author>upsuper</author><pubDate>Mon, 29 Aug 2005 20:09:00 +0800</pubDate><description><![CDATA[　　很多人用VB很久，但一直不明白双击触发事件的情况。经过测试，双击触发事件顺序如下：MouseDownMouseUpClickDblClickMouseUp　　也就是说，在DblClick之前依然会触发Click，但不会触发两次。同时可以看到，MouseDown没有被触发两次，但MouseUp被触发了两次，因此可以说，处理MouseUp来计算鼠标点击次数更精确些。通过环境：Win2000+VB6]]></description><category></category></item><item><title><![CDATA[1秒钟赢牌]]></title><link>https://blog.youkuaiyun.com/upsuper/article/details/452056</link><guid>https://blog.youkuaiyun.com/upsuper/article/details/452056</guid><author>upsuper</author><pubDate>Fri, 12 Aug 2005 09:57:00 +0800</pubDate><description><![CDATA[　　大家可能都玩过Windows自带的纸牌游戏，可能很多人也很喜欢它赢后那个效果，非常漂亮。其实不用玩也能赢，在开局后按Alt+Shift+2即可，看到了吗？漂亮的效果，跟赢时一样！]]></description><category></category></item><item><title><![CDATA[个性印章自己刻！]]></title><link>https://blog.youkuaiyun.com/upsuper/article/details/443653</link><guid>https://blog.youkuaiyun.com/upsuper/article/details/443653</guid><author>upsuper</author><pubDate>Mon, 01 Aug 2005 18:22:00 +0800</pubDate><description><![CDATA[　　很多人可能都希望有一个个性的签名，说不定刻一个印章是不错的选择！其实很简单~　　首相等入可乐8（电信站或网通站）点击最下面右边的个性签名好了，剩下的会了吧~很简单，马上就可以拥自己即的印章了~　　]]></description><category></category></item><item><title><![CDATA[更正：效果：屏幕剥落]]></title><link>https://blog.youkuaiyun.com/upsuper/article/details/436893</link><guid>https://blog.youkuaiyun.com/upsuper/article/details/436893</guid><author>upsuper</author><pubDate>Thu, 28 Jul 2005 10:03:00 +0800</pubDate><description><![CDATA[　　感谢网友Farproc发现了我在《效果：屏幕剥落》中DC资源泄露的问题，现作如下修改：Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long下加上一句：Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hd]]></description><category></category></item><item><title><![CDATA[效果：屏幕剥落]]></title><link>https://blog.youkuaiyun.com/upsuper/article/details/436336</link><guid>https://blog.youkuaiyun.com/upsuper/article/details/436336</guid><author>upsuper</author><pubDate>Wed, 27 Jul 2005 17:05:00 +0800</pubDate><description><![CDATA[　　前几天心血来潮，做了一个屏幕剥落的小效果~拿出来和大家分享，同时也要感谢MySticBoy在API的使用上对我的指导~　　首先按照管理，窗体的AutoRedraw为True，BorderStyle为0，ScaleMode为3，另外就是WindowState设为2。然后添加Timer控件命名为tmr，PictureBox命名为picBack，AutoRedraw为True，AutoSize为Tr]]></description><category></category></item><item><title><![CDATA[小心，StrConv有陷阱！]]></title><link>https://blog.youkuaiyun.com/upsuper/article/details/434444</link><guid>https://blog.youkuaiyun.com/upsuper/article/details/434444</guid><author>upsuper</author><pubDate>Mon, 25 Jul 2005 12:55:00 +0800</pubDate><description><![CDATA[　　近日，笔者在使用StrConv(Strings,vbFromUnicode)时发现，在他后面如果跟一个 & 后面的字符串也会变成莫名其妙的“乱码”。　　我认为，这有可能是由于Strings长度非偶数导致，经过试验，果真如此。因此需要先补位。在这句前面加上：Strings = Strings & IIf(Len(Strings) Mod 2 > 0, Chr(0), "")　　即可！非常简单吧~]]></description><category></category></item><item><title><![CDATA[VB字节型数组使用小小结]]></title><link>https://blog.youkuaiyun.com/upsuper/article/details/429915</link><guid>https://blog.youkuaiyun.com/upsuper/article/details/429915</guid><author>upsuper</author><pubDate>Wed, 20 Jul 2005 16:28:00 +0800</pubDate><description><![CDATA[　　字节类型的数组有许多不同于其他类型数组的特性，他相对于其他的数组有时也更方便，下面是本人对字节型数组的小小结（可能还很浅，所以不敢叫小结）　　首先是它的特性，它可以直接转换为字符串型（String），可以直接赋值，但是不推荐，至少要用CStr来转换，不过效果不是很好，常会出现乱字符，就算没出现一般也和预期不同，这是由于在数组转字符串的过程中VB默认采用ANIS的字符格式，因此需要采用StrCo]]></description><category></category></item><item><title><![CDATA[速度优化：少用Collection]]></title><link>https://blog.youkuaiyun.com/upsuper/article/details/428081</link><guid>https://blog.youkuaiyun.com/upsuper/article/details/428081</guid><author>upsuper</author><pubDate>Mon, 18 Jul 2005 16:56:00 +0800</pubDate><description><![CDATA[　　Collection，也就是VB中的内存集合，非常方便，但是麻烦也很多，如前面我的文章介绍过Collection存在的一些问题。不过他的问题不只如此~　　今天看到一帖，关于VB的&运算符速度慢的问题，有许多高手使用另类方法解决，随之我也想到我的慢的根蜗牛一样的程序（启动一次19s），是不是也存在这样的问题呢？在贴中说，&运算符在增加内容时要不断申请内存地址，因此我怀疑Collection也存在]]></description><category></category></item><item><title><![CDATA[评论：条条框框 不应限制我们的思想]]></title><link>https://blog.youkuaiyun.com/upsuper/article/details/423596</link><guid>https://blog.youkuaiyun.com/upsuper/article/details/423596</guid><author>upsuper</author><pubDate>Wed, 13 Jul 2005 09:36:00 +0800</pubDate><description><![CDATA[　　前几日，就在优快云社区上见到一人大概这么说：我感觉VB的条条框框太多了，好像M$的产品都是这样（VC、MFC也是）。果真如此吗？　　首先，从技术角度出发进行分析：VB本身包含大量函数，适应极其广泛的需求；其次，就算VB做不到的，中外许多牛人也利用API实现了许多看似不可能的事情；同时，还应该看到，VB拥有十分庞大的控件和链接库支持，实现功能繁多，怎么能说有很多条条框框呢？把封装程度提高了，固]]></description><category></category></item><item><title><![CDATA[更正：效果：雨]]></title><link>https://blog.youkuaiyun.com/upsuper/article/details/422271</link><guid>https://blog.youkuaiyun.com/upsuper/article/details/422271</guid><author>upsuper</author><pubDate>Tue, 12 Jul 2005 10:38:00 +0800</pubDate><description><![CDATA[　　在《效果：雨》中最后我说到颜色部分还有BUG，现已修复，作如下修改：　　在Dim lOther As Long下加一行：Dim sOther As String　　将原文中所有.c = CLng("&H" & Hex$(lBlue) & Hex$(lOther) & Hex$(lOther))全部（共两处）替换为：sOther = IIf(Len(Hex$(lOther)) .c = CLng]]></description><category></category></item><item><title><![CDATA[效果：雨]]></title><link>https://blog.youkuaiyun.com/upsuper/article/details/422260</link><guid>https://blog.youkuaiyun.com/upsuper/article/details/422260</guid><author>upsuper</author><pubDate>Tue, 12 Jul 2005 10:23:00 +0800</pubDate><description><![CDATA[　　好久没下雨了，好想雨啊~用VB做了一个下雨的效果，很粗糙，希望能给大家做一点参考~　　窗体背景设为&H800000，Autoredraw设为True，Width为9600，Height为7200，ScaleMode设为像素，在窗体上添加一个Timer控件，命名为tmr，Interval设为100，输入如下代码：Option ExplicitPrivate Type POINT    x1 As]]></description><category></category></item><item><title><![CDATA[效果：文字隐现]]></title><link>https://blog.youkuaiyun.com/upsuper/article/details/421129</link><guid>https://blog.youkuaiyun.com/upsuper/article/details/421129</guid><author>upsuper</author><pubDate>Mon, 11 Jul 2005 18:57:00 +0800</pubDate><description><![CDATA[　　前几天看到一个破解程序下面有一个框框，里面的文字淡入淡出，挺好看，闲来编个和大家分享。　　首先，在窗体上放置Label1标签到适当位置，一个Timer1控件，Interval设为100。输入如下代码：Dim a As CollectionDim b As BooleanDim i As IntegerPrivate Sub Form_Load()    Set a = New Collecti]]></description><category></category></item><item><title><![CDATA[编程也要看单位]]></title><link>https://blog.youkuaiyun.com/upsuper/article/details/421102</link><guid>https://blog.youkuaiyun.com/upsuper/article/details/421102</guid><author>upsuper</author><pubDate>Mon, 11 Jul 2005 18:09:00 +0800</pubDate><description><![CDATA[　　在VB编程中，也有许多单位，这些单位也许没有进行绘图或一些高级操作很少用到，但他们的确很重要。　　下面，我们以Pixel（像素）为基础，看看各单位的转换（通式：像素*常数）：Const PIXEL_TWIP = 15　　还有一个是StdPicture使用的单位，我将它定义为PIC，则有如下常数：Const PIXEL_PIC = 17 / 30 / PIXEL_TWIP　　当然，这些有时会随着]]></description><category></category></item><item><title><![CDATA[Collection：方便隐含问题所在]]></title><link>https://blog.youkuaiyun.com/upsuper/article/details/419112</link><guid>https://blog.youkuaiyun.com/upsuper/article/details/419112</guid><author>upsuper</author><pubDate>Sun, 10 Jul 2005 10:27:00 +0800</pubDate><description><![CDATA[　　很多人可能跟我一样，在程序中使用Collection类做大量数据的存储，因为他十分方便，操作简单。这种被称为集合对象的东西有的时候确实非常令人不解~　　看下面这段代码（其中c为一个Collection对象，rec为一个以打开的Recordset）：c.Add rec("Name")　　发现问题了吗？没有？哦~我开始也没发现，但是当到了另一个事件：a=c(1)　　出错了……回到上面调试~没错~问]]></description><category></category></item><item><title><![CDATA[应用：热键类]]></title><link>https://blog.youkuaiyun.com/upsuper/article/details/417594</link><guid>https://blog.youkuaiyun.com/upsuper/article/details/417594</guid><author>upsuper</author><pubDate>Fri, 08 Jul 2005 18:05:00 +0800</pubDate><description><![CDATA[　　很多人都很想在自己的程序中加入热键，下面我把我写的一个热键类贴出来，大家可以参考参考，以后热键写起来就方便了~clsHotKey{Private Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Lo]]></description><category></category></item><item><title><![CDATA[参与Google Adsense，全面发挥Blog的创收潜力]]></title><link>https://blog.youkuaiyun.com/upsuper/article/details/417563</link><guid>https://blog.youkuaiyun.com/upsuper/article/details/417563</guid><author>upsuper</author><pubDate>Fri, 08 Jul 2005 17:30:00 +0800</pubDate><description><![CDATA[　　在优快云转了一圈（还没转完），发现有许多专栏都已经参与了Google Adsense，我也去申请了~现在骗人的网络赚钱的确很多，不过我想Google总不会为了这来砸自己的大牌吧~　　同时我想很多人也都已经跃跃欲试了，其实很简单，只要进入Google Adsense中文主页就可以开始了（我这可不骗人，确实他的中文主页），然后都是中文了~总不会连中文都看不懂吧（那就选英文咯~），自己去申请吧~很]]></description><category></category></item></channel></rss>