API在VB中的一些应用技巧

2009-04-25 09:50  |  分类:编程代码

  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
   全文阅读 »

整理了下友情链接

2009-04-21 16:57  |  分类:杂文随笔

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

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

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

微软确认Office 2007 SP2本月发布

2009-04-12 14:02  |  分类:资讯新闻

最近大多数人都在关注微软的下一代Office软件(代号Office 14,或定名为Office 2010),不要忘了微软计划发布Office 2007 SP2,之前一些传闻中透露了关于Office 2007 SP2的一些细节,不过此次消息更加确实。

微软TechNet的一篇官方博客中介绍了即将发布的Office 2007 SP2的部分新增功能:

“Office 2007 SP2将在4月份通过Windows Server Update Services发布,SP2拥有很多重要功能,包括:

支持保存为ODF和PDF格式;

提升了Outlook性能,增强了Outlook日历的可靠性;

修复了核心Office应用软件中的图表漏洞;

提供了SP客户端卸载工具;

新增了很多用户对Office Server产品提出的改进;

Office 2007 SP2包括自Office 2007以来的所有补丁。”

据悉,微软同样会在Update和Download Center提供Office 2007 SP2下载。

微软下一代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都快来了~

VB:Format 函数示例

2009-04-11 12:17  |  分类:编程代码

本示例显示用 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”)

全文阅读 »

Visual Basic.net中多线程编程的实现

2009-04-06 19:18  |  分类:编程代码

线程的创建与管理

  用来创建和维护线程的基类是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%的人 卖时间

全文阅读 »

最珍贵的东西是免费的

2009-03-18 16:06  |  分类:情感哲理

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

页码: 上一页 1 2 3 ...8 9 10 11 12 ...23 24 25 下一页