upsuper-CSDN博客

原创证明：对于一个矩形A，可以找到另一个矩形B的周长和面积都为A的n倍（二）

　　本章讨论，当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

2005-11-11 20:32:00 1462

原创证明：对于一个矩形A，可以找到另一个矩形B的周长和面积都为A的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 设在④中Δ，则可得： [ -

2005-11-11 19:34:00 1157

原创 VB：读取MP3的Tag（对网上流行版本改进）

网上有一段关于VB读取MP3Tag的代码，但不支持中文。这里我对这个代码进行改进。这是我改进后的代码：Public Type Mp3tag Artist As String Artist 存储歌手信息 Album As String Album 存储唱片专辑信息 Title As String Title 存储标

2005-11-11 12:35:00 2349 3

原创证明：对于一个矩形A，可以找到另一个矩形B的周长和面积都为A的n倍（一）

　　本章讨论，当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

2005-11-10 15:48:00 2045

原创 VB：双击顺序

　　很多人用VB很久，但一直不明白双击触发事件的情况。经过测试，双击触发事件顺序如下：MouseDownMouseUpClickDblClickMouseUp　　也就是说，在DblClick之前依然会触发Click，但不会触发两次。同时可以看到，MouseDown没有被触发两次，但MouseUp被触发了两次，因此可以说，处理MouseUp来计算鼠标点击次数更精确些。通过环境：Win2000+VB6

2005-08-29 20:09:00 1392

原创 1秒钟赢牌

　　大家可能都玩过Windows自带的纸牌游戏，可能很多人也很喜欢它赢后那个效果，非常漂亮。其实不用玩也能赢，在开局后按Alt+Shift+2即可，看到了吗？漂亮的效果，跟赢时一样！

2005-08-12 09:57:00 1189

原创个性印章自己刻！

　　很多人可能都希望有一个个性的签名，说不定刻一个印章是不错的选择！其实很简单~　　首相等入可乐8（电信站或网通站）点击最下面右边的个性签名好了，剩下的会了吧~很简单，马上就可以拥自己即的印章了~　　

2005-08-01 18:22:00 1423

原创更正：效果：屏幕剥落

　　感谢网友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

2005-07-28 10:03:00 1132

原创效果：屏幕剥落

　　前几天心血来潮，做了一个屏幕剥落的小效果~拿出来和大家分享，同时也要感谢MySticBoy在API的使用上对我的指导~　　首先按照管理，窗体的AutoRedraw为True，BorderStyle为0，ScaleMode为3，另外就是WindowState设为2。然后添加Timer控件命名为tmr，PictureBox命名为picBack，AutoRedraw为True，AutoSize为Tr

2005-07-27 17:05:00 1286 2

原创小心，StrConv有陷阱！

　　近日，笔者在使用StrConv(Strings,vbFromUnicode)时发现，在他后面如果跟一个 & 后面的字符串也会变成莫名其妙的“乱码”。　　我认为，这有可能是由于Strings长度非偶数导致，经过试验，果真如此。因此需要先补位。在这句前面加上：Strings = Strings & IIf(Len(Strings) Mod 2 > 0, Chr(0), "")　　即可！非常简单吧~

2005-07-25 12:55:00 1250

原创 VB字节型数组使用小小结

　　字节类型的数组有许多不同于其他类型数组的特性，他相对于其他的数组有时也更方便，下面是本人对字节型数组的小小结（可能还很浅，所以不敢叫小结）　　首先是它的特性，它可以直接转换为字符串型（String），可以直接赋值，但是不推荐，至少要用CStr来转换，不过效果不是很好，常会出现乱字符，就算没出现一般也和预期不同，这是由于在数组转字符串的过程中VB默认采用ANIS的字符格式，因此需要采用StrCo

2005-07-20 16:28:00 3327

原创速度优化：少用Collection

　　Collection，也就是VB中的内存集合，非常方便，但是麻烦也很多，如前面我的文章介绍过Collection存在的一些问题。不过他的问题不只如此~　　今天看到一帖，关于VB的&运算符速度慢的问题，有许多高手使用另类方法解决，随之我也想到我的慢的根蜗牛一样的程序（启动一次19s），是不是也存在这样的问题呢？在贴中说，&运算符在增加内容时要不断申请内存地址，因此我怀疑Collection也存在

2005-07-18 16:56:00 1163

原创评论：条条框框不应限制我们的思想

　　前几日，就在CSDN社区上见到一人大概这么说：我感觉VB的条条框框太多了，好像M$的产品都是这样（VC、MFC也是）。果真如此吗？　　首先，从技术角度出发进行分析：VB本身包含大量函数，适应极其广泛的需求；其次，就算VB做不到的，中外许多牛人也利用API实现了许多看似不可能的事情；同时，还应该看到，VB拥有十分庞大的控件和链接库支持，实现功能繁多，怎么能说有很多条条框框呢？把封装程度提高了，固

2005-07-13 09:36:00 2047

原创更正：效果：雨

　　在《效果：雨》中最后我说到颜色部分还有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

2005-07-12 10:38:00 1124

原创效果：雨

　　好久没下雨了，好想雨啊~用VB做了一个下雨的效果，很粗糙，希望能给大家做一点参考~　　窗体背景设为&H800000，Autoredraw设为True，Width为9600，Height为7200，ScaleMode设为像素，在窗体上添加一个Timer控件，命名为tmr，Interval设为100，输入如下代码：Option ExplicitPrivate Type POINT x1 As

2005-07-12 10:23:00 1342 2

原创效果：文字隐现

　　前几天看到一个破解程序下面有一个框框，里面的文字淡入淡出，挺好看，闲来编个和大家分享。　　首先，在窗体上放置Label1标签到适当位置，一个Timer1控件，Interval设为100。输入如下代码：Dim a As CollectionDim b As BooleanDim i As IntegerPrivate Sub Form_Load() Set a = New Collecti

2005-07-11 18:57:00 1053

原创编程也要看单位

　　在VB编程中，也有许多单位，这些单位也许没有进行绘图或一些高级操作很少用到，但他们的确很重要。　　下面，我们以Pixel（像素）为基础，看看各单位的转换（通式：像素*常数）：Const PIXEL_TWIP = 15　　还有一个是StdPicture使用的单位，我将它定义为PIC，则有如下常数：Const PIXEL_PIC = 17 / 30 / PIXEL_TWIP　　当然，这些有时会随着

2005-07-11 18:09:00 1205

原创 Collection：方便隐含问题所在

　　很多人可能跟我一样，在程序中使用Collection类做大量数据的存储，因为他十分方便，操作简单。这种被称为集合对象的东西有的时候确实非常令人不解~　　看下面这段代码（其中c为一个Collection对象，rec为一个以打开的Recordset）：c.Add rec("Name")　　发现问题了吗？没有？哦~我开始也没发现，但是当到了另一个事件：a=c(1)　　出错了……回到上面调试~没错~问

2005-07-10 10:27:00 983

原创应用：热键类

　　很多人都很想在自己的程序中加入热键，下面我把我写的一个热键类贴出来，大家可以参考参考，以后热键写起来就方便了~clsHotKey{Private Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Lo

2005-07-08 18:05:00 949

原创参与Google Adsense，全面发挥Blog的创收潜力

　　在CSDN转了一圈（还没转完），发现有许多专栏都已经参与了Google Adsense，我也去申请了~现在骗人的网络赚钱的确很多，不过我想Google总不会为了这来砸自己的大牌吧~　　同时我想很多人也都已经跃跃欲试了，其实很简单，只要进入Google Adsense中文主页就可以开始了（我这可不骗人，确实他的中文主页），然后都是中文了~总不会连中文都看不懂吧（那就选英文咯~），自己去申请吧~很

2005-07-08 17:30:00 936

原创热而有感

热而有感热时心静自然凉，寒时心平便温暖。天虽不随人愿变，只要心明天随您。

2005-07-08 17:18:00 689

原创小程序：LRC歌词展开

　　LRC大家都知道吧（不知道？就是那个带时间标签的文本歌词格式嘛~），很好用的东东~所以最近很多MP3Player也开始支持它了。笔者手上就有一个联想F520的MP3支持，不过有点小麻烦，这个MP3只支持一行一个时间标签，但是笔者手头上的LRC一行都有好些时间标签，像这样，MP3就会把后面的时间标签全部显示出来（晕~）　　看来只能修改修改了~既然我们没办法修改MP3的固件，那就在LRC上动手脚吧

2005-07-08 13:07:00 2602 2

原创调试不要热键

　　很多人写软件的时候，希望做一些热键方便用户，这样的文章在网上不少见了~不过真正开始写热键的时候，就知道了，调试它是多么可怕~　　当正在调试的程序里面有全局热键时，一但点击停止，马上VB关闭~这个分析起来是由于整个VB的消息全部先通过程序中的处理函数，程序一结束，处理函数没了，VB也活不了了~　　因此，直到热键正常了，就应该及时屏蔽，免得老麻烦鼠标去开VB~　　屏蔽方法非常简单，只要将那句Set

2005-07-07 17:39:00 875

原创 “热键”让我一身冷汗……

　　这次我的新程序中我准备使用热键。这可又是一个挑战了。以前的热键多是特定的功能特定的热键，最多允许修改特定功能的热键。我这个可不同了，我又多个同类窗体，每个窗体还有可能又由用户定义多个热键，这好像以前没什么人试过，也是一种挑战~我就喜欢挑战！　　虽说我喜欢挑战，但这次的挑战的确太大了~网上既然找不到相关文献资料，就自己做呗~　　首先，由于每个同类窗体都要许多热键，因此决定再建一个类，每个窗体绑定

2005-07-07 12:05:00 844

原创有趣的QQ昵称

　　大家一定见过不少有趣的QQ昵称，一定很羡慕吧~　　其实那一点也不难，看看下面吧：第一：排第一　　这个可能很多人都听说过，就是在昵称前面加上一个ASCII码为1的字符。不过这是有局限的，如果对方好友的排列顺序选择的不是“按首字母”那也没用。最好的当然是会员自动排前，看来不花点money是不行啦~再说还要会在前面加上一个方框（有的系统显示为一个小直角），有些不划算~　　当然，这对群还使有效的（不知

2005-07-05 16:59:00 11944 3

原创雨

雨你有一種晶瑩的美麗，你有一種透亮的神秘。你代天使來滋潤大地，是你給世間帶來生機。你是生命的使者，又孕育多少軀體；你帶去死的靈魂，又換回新的生靈。望古今，卻多少無辜性命，屈葬于你的鐵蹄；又多少繁華都市淪爲平地。但若沒有你，就毫無生氣；也就沒有我，寫這詩給你。

2005-07-05 12:50:00 831 1

原创数据库中的NULL错误

我正在编写的新软件采用了数据库，但近日遇到一个问题：有时读取信息时会出现错误，出错段代码如下：str = recMain("Title")错误描述为：实时错误94，无效使用 NULL经分析，由于数据库中相应数据为空，故返回NULL，但String类型不能接受NULL数据，故出错。解决方法：可以使用IIf(IsNull(recMain("Title")),"",recMain("Title"))

2005-07-05 12:25:00 1730

思想摇篮