Xqlab’s Blog

　　API函数在VB中得到了充分的运用，同时也让无数VB爱好者沉溺于其中。以下是俺最近收集的一些API函数在VB中应用的实例，现在分享出来，希望大伙有用。不过老实说，在VB中的API感觉不是很好~
　　
　　1、如何让窗体总在最前面？
　　
　　*API函数声明
　　Declare Function SetWindowPos Lib “user32″ ( ByVal hwnd As Long, ByVal　 hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
　　注释：常量声明
　　Private Const SWP_NOSIZE = &H1
　　Private Const SWP_NOMOVE = &H2
　　Private Const HWND_TOPMOST = -1
　　Private Const HWND_NOTOPMOST = -2
　　注释： 在某个form里写：
　　SetWindowPos me.hWnd,WND_TOPMOST,0,0,0,0, SWP_NOMOVE 注释：或下面
　　SetWindowPos me.hWnd,WND_TOPMOST,0,0,0,0,　SWP_NOSIZE
　　 全文阅读 »

整理了下友情链接，把一些不能访问或是不再做博客的友链删除了，还有一个网站在没通知我的情况下取消了我的链接，我也把它去掉了，哎，一晃做博也近7个多月了，感叹时间过的好快。

最近致力于VB的研究，实在是很忙，博客也疏于更新，过阵子补上吧~

如果我误删了贵站的友链，赶紧通知我，我会尽快补上。

微软下一代Office办公软件代号为Office 14，之所以在Office 12（Office 2007）后就直接使用Office 14是因为微软认为13不吉利，不过微软一直没有明确指出Office 14的最终官方定名。

近日一封来自微软内部的邮件提供了一张截图，虽然没有显示具体的Build版本号，但是从图中可以看出，其名称已经更改为Office 2010。这一命名也很符合微软对产品的命名习惯，很多操作系统和Office都以年份来命名，比如Windows 95/98、Office 2003/2007。

微软拒绝就此发表评论。

PS:还是2003用的惯，2007还没有接受，2010都快来了~

本示例显示用 Format 函数做格式化输出的不同用法。对于日期分隔号（/），时间分隔号（:），以及 AM/ PM 等文本而言，其真正的显示格式会因计算机上的国际标准不同而有所差异。在开发阶段，日期与时间是以短日期的格式，配合代码的国际标准来显示的。而在运行时，短日期则是根据系统的国际标准而定，而系统的国际标准和代码的国际标准可能并不相同。本示例中是假设国际标准为 English/United States。

MyTime 及 MyDate 在开发环境下，使用系统的短日期设置显示出来的。

Dim MyTime, MyDate, MyStr
MyTime = #17:04:23#
MyDate = #January 27, 1993#

‘ 以系统设置的长时间格式返回当前系统时间。
MyStr = Format(Time, “Long Time”)

‘ 以系统设置的长日期格式返回当前系统日期。
MyStr = Format(Date, “Long Date”)

全文阅读 »

线程的创建与管理

　　用来创建和维护线程的基类是System.Threading.Thread类。它能够创建并控制线程，设置其优先级并获取其状态。它拥有Start, Stop, Resume, Abort, Suspend和Join (wait for)等方法操纵线程，还可以通过如Sleep, IsAlive,IsBackground, Priority, ApartmentState和ThreadState等方法查询和设置线程状态。最直接的创建线程的方法是创建一个新的线程类实例，并使用AddressOf语句为要运行的线程传递任务。

以下代码将名为myTask的子过程作为单独的线程运行：

Dim Thread1 As New System.Threading.Thread(AddressOf myTask)
Thread1.Start

　　类似的，使用Thread类的Sleep方法可以阻滞当前线程，使用Suspend方法可以挂起线程，使用Resume可以重新启动挂起的线程，使用Abort方法可以停止一个线程，使用Join方法可以使当前线程等待其它线程运行结束。

  全文阅读 »

一、 20%的人 是富人 80%的人是穷人

二、 20%的人 掌握世上80%的财富 80%的人 掌握世上20%的财富

三、 20%的人 用脖子以上来挣钱 80%的人 用脖子以下赚钱

四、 20%的人 正面思考者 80%的人 负面思考者

五、 20%的人 买时间 80%的人 卖时间

全文阅读 »

忽然发现，在这个世界上，最珍贵的东西是免费的。
      阳光，是免费的。芸芸众生，没有谁能够离开阳光活下去。然而，从小到大，可曾有谁为自己享受的阳光支付过一分钱？
     空气，是免费的。一个人只要活着，就需要源源不断的空气。可从古到今，又有谁为这不可缺少的东西买过单？无论贩夫走兵还是明星政要，他们一样自由地呼吸着充盈天地间的空气。
      亲情，是免费的。每一个婴儿来到世上，都受到了父母无微不至的呵护，那是一份深入血脉不求回报的疼爱。可从没有哪一个父母会对孩子说：“你给我钱我才疼你”。父母的这份爱，不因孩子的成年而贬值，更不因父母的衰老而衰弱；只要父母还活着，这份爱就始终如一。
     友情，是免费的。寂寞时默默陪伴你的那个人，摔倒时向你伸出手臂的那个人，伤心时将你揽在怀里的那个人，可曾将他（她）的付出折合成现金，然后要你换钱？
     爱情，是免费的。那份不由自主的倾慕，那份无法停止的思念，那份风雨同舟的深情，那份相濡以沫的挚爱，正是生命最深切的慰籍与最坚实的依靠。而这一切，都是免费的，更是金钱买不来的。
      目标，是免费的。无论是锦衣玉食的王子，还是衣不蔽体的流浪儿，只要愿意，就能为自己的人生确立一个目标。这个目标既可以伟大也可以平凡，既可以辉煌也可以朴素，只要你愿意，你就能拥有。
      还有信念，还有希望，还有意志，还有梦想……..所有这一切，都是免费的，只要你想要，就能得到。还有春风，还有细雨，还有皎洁的月光，还有灿烂的星辉…………世间多少滋润心灵的美好风物，都是免费的啊！
      再不要对着苍天哎声叹气，苍天是公正的，更是慷慨的；苍天早已把最珍贵的一切，免费的馈赠给了每一个人。