摘要:
在软件中帮助文件是非常重要的,它是用户认识软件的窗口.下面给出怎么样在VB中调用帮助文件的代码. 新建一个工程,在窗体上加入控件CommonDialog1,然后在代码窗口添加下面代码(最好放在模块内) Option Explicit '调用帮助文件,参数:IndexIDPublic Sub ShowMeHelp(Optional IndexID As Integer) On Error GoTo Err With CommonDialog1 .HelpFile = App.HelpFile If IndexID = 0 Then .HelpCommand = cdlHelpConten 阅读全文
随笔档案-2004年07月
专业人才薪资谁最高?薪资水平人才需求
2004-07-28 23:00 by 电脑人生, 197 阅读, 收藏,
摘要:
专业人才薪资谁最高?薪资水平人才需求 职称和学历是专业技术人员能力的一种证明,也成为职场中获得高薪及拓展事业的重要砝码。上海市劳动和社会保障局日前完成了一次本市专业技术人员薪资状况调查,结果显示,拥有高级职称及大专以上学历的专业技术人员年平均工资达到了54697元,而无职称人员的平均薪资仅为3万元,相差近2.5万元。 市劳动和社会保障局对本市制造业、建筑业、房地产业、金融业等15个行业的4033户各种经济类型企业、9.5万名职工去年的工资收入进行了调查。数据显示,在专业技术岗位工作的有1.48万人,占15.6%,他们的年平均工资为34920元;平均年龄为38岁,平均工作年限为17年。其... 阅读全文
毕业四年间,一壶漂泊,歌者默然(转帖)
2004-07-28 22:50 by 电脑人生, 263 阅读, 收藏,
摘要:
呵呵,看过这篇文章了,写得十分不错,再贴出来,和大家共享. 不是每块土地都能拥有属于自己的歌者。但在沅水流淌的土地上,沈从文以沅水一般的节奏唱出一种平静的歌声。这歌声是温暖的,然而温暖里面,有一种深深的悲剧感升腾起来,就像是沅水上朦胧的烟雾,透过烟雾可以隐隐看得见歌者的影子,于湘西的烟水迷离中,这影子带着宛转的歌声,没入人群深处。 这是电视散文《歌者默然》的开篇,湘西是幸运的,沈从文始终是作为湘西的歌者而存在的。尽管我的故乡不是湘西,却喜欢沈从文对乡土的态度,因为离开故乡的人深知这其中的酸楚。故乡,有纯净的家园,是我的天堂,离却多年,我还有资格用疲惫和沙哑的嗓音为你歌唱吗? 我曾经那样... 阅读全文
SetCapture的基本应用示例
2004-07-28 09:20 by 电脑人生, 252 阅读, 收藏,
摘要:
怎么样可以捕获到鼠标进入和离开窗体呢? 这里要用到两个Api,即SetCapture和ReleaseCapture. 新建一个工程,将下面代码贴入代码区.按F5运行即可. Option Explicit Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As LongPrivate Declare Function ReleaseCapture Lib "user32" () As Long Private Sub Form_MouseMove(Button As 阅读全文
比尔的房子 ---很搞笑
2004-07-18 23:01 by 电脑人生, 163 阅读, 收藏,
摘要:
比尔新近花高价买了一套全电脑控制住宅,也算跟上时代潮流,赶了回时髦。 虽说那价钱比传统住宅贵了20%,但用比尔的话来说:“值。” 就在比尔没高兴几天的时候,女朋友却跟他拜拜了,比尔伤心欲绝地回家。 一到家门口,电脑住宅自动开门。比尔屁股还没有坐稳,电脑就说:“先生请用餐。” 比尔哪有心情吃饭,没好气地说:“不吃!” 电脑又请示:“先生请上网浏览。” 比尔烦躁地说:“不上网!” 电脑:“先生是否要使用‘休息A计划’?” 比尔:“不用!” 电脑:“那么休息B计划呢?” 比尔终于大怒:“讨厌死了,你还有完没完?给我闭嘴!” 电脑:“是,先生,请问先生让... 阅读全文
VB中使用文本框技巧两则
2004-07-13 11:11 by 电脑人生, 279 阅读, 收藏,
摘要:
VB中的文本框在开发中用得十分频繁,下面是两则小技巧,与大家分享: 1.如何限制文本框只能输入数字键? 代码: Private Sub Text1_KeyPress(KeyAscii As Integer) If Not (IsNumeric(Chr(KeyAscii)) Or KeyAscii = 8) Then KeyAscii = 0 End Sub 2.如何控制文本框中只可以输入字符,禁止输入汉字? Text的IMEMode属性设为 3-Disable 当然,以上办法只是作一般的限制,如果要做到完全的控制,那么还得把文本框的快捷键'Ctrl+V'和鼠标右键的粘贴给"做掉 阅读全文
带着夜色花香的小诗 Very good!
2004-07-12 21:25 by 电脑人生, 198 阅读, 收藏,
摘要:
这首小诗是弟弟去年发给我的,虽然短小,却也意境不浅,我喜欢。 原诗文如下: 雨后的街头 橘黄的灯光下木兰花开啦洁白花想马上摘下但是我不能这样做看不到星星的夜晚有她盛开的样子就已足够 ---作者:长庚 阅读全文
毕业三年 ---精彩!
2004-07-12 21:12 by 电脑人生, 147 阅读, 收藏,
摘要:
今日好友用QQ给我发来他的文章,因为上班,当时没有来得及看,下班后看看,确是写得精彩。原文如下: 不是每块土地都能拥有属于自己的歌者。但在沅水流淌的土地上,沈从文以沅水一般的节奏唱出一种平静的歌声。这歌声是温暖的,然而温暖里面,有一种深深的悲剧感升腾起来,就像是沅水上朦胧的烟雾,透过烟雾可以隐隐看得见歌者的影子,于湘西的烟水迷离中,这影子带着宛转的歌声,没入人群深处。 这是电视散文《歌者默然》的开篇,湘西是幸运的,沈从文始终是作为湘西的歌者而存在的。尽管我的故乡不是湘西,却喜欢沈从文对乡土的态度,因为离开故乡的人深知这其... 阅读全文
在VB中实现向函数传递不定个数参数
2004-07-12 14:02 by 电脑人生, 421 阅读, 收藏,
摘要:
在VB中实现向函数传递不定个数参数其实很容易,下面我写出代码,今天在开发的工程中正好用得上.十分实用.^_^ 新建一个EXE工程,加入一个Listbox1和Command1,代码如下: Option Explicit Public Sub TransferPA(LST As ListBox, ParamArray Items()) Dim i With LST .Clear For Each i In Items .AddItem i Next End WithEnd Sub Private Sub Command1_Click() TransferPA List1, "ListIt 阅读全文
关于 "New.net Startup" 键
2004-07-11 19:39 by 电脑人生, 173 阅读, 收藏,
摘要:
今天下午突然在系统注册表的启动栏发现有个:"New.net Startup",删除之,按F5刷新注册表,哎呀还在呢,是什么东西啊?天外飞仙? 到网上查了下,没有什么结果,应该不是什么高级病毒吧,呵呵,网上有些人对这个键很疑惑.我想诺顿没有报警,应该是"良民"软件来的.哈哈,我太信任诺顿企业版了.看着这个来历不明的键就不爽,得干掉它! 查看New.net Startup的键值,为:"rundll32 C:/PROGRA~1/NEWDOT~1/NEWDOT~2.DLL,NewDotNetStartup -s" 那就进目录:"C: 阅读全文
中国博客文化的未来之路
2004-07-10 15:17 by 电脑人生, 214 阅读, 收藏,
摘要:
博客是IT时代的新名词,最近一段时间,博客成为了网民口中传播率非常高的名词,而博客,也成为一些网站发展的新目标,博客在国外的发展可能是与Google收购Blogger.com开始风行,而在中国,博客的发展现状并不乐观。国外的博客是思想的集中地,而在国内,频频出现在媒体中的却是色情。现状短期内可能无法改变,那么我们就来看看博客的发展前景吧。 移动博客前景难料 随着Google等国外大公司的加入,移动博客(Moblog)很快便风行起来,原因很简单,短信曾经是中国网站救命稻草,中国有数以亿计的手机用户,在高峰时期,中国移动、中国联通的短信业务量日入百万金,如果其中有万分一的用户使用移动博客... 阅读全文
动态建立弹出式菜单技术及其应用示例
2004-07-09 10:11 by 电脑人生, 253 阅读, 收藏,
摘要:
建立一个标准EXE新工程,在窗体上添加一个Listbox和一个Text控件。 然后在窗体中粘贴下面代码:(窗体代码) Option Explicit Private Sub Form_Load() List1.AddItem "使用鼠标右键单击这里"End Sub Private Sub List1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) Dim cMenu As cPopupMenu Dim ret As Long If Button = vbRightButton Th 阅读全文
为什么用Ghost备份后会有两个文件?
2004-07-04 20:53 by 电脑人生, 791 阅读, 收藏,
摘要:
今天用Ghost备份WIN2000后,发现有两个文件,一个是D.GHO,另外一个则是D0000001.GHS。为什么呢?我研究后发现: Ghost镜像文件最大只支持到2G,如果超过了2G的话,大于2G的部分Ghost就把它存储为一个GHS文件。 我的D:盘有3.93G,备份后大于2G,所以多出了文件 D0000001.GHS。 你要是碰到这个问题,就不会丈二和尚摸不着头脑了。^_^ 阅读全文
为光驱右键菜单添加“关闭”功能菜单
2004-07-03 16:43 by 电脑人生, 321 阅读, 收藏,
摘要:
在微软的系统中,光驱的弹出菜单只有“弹出”命令,没有“关闭”命令。这让我们这些“懒惰”的人不爽,下面就和我一起动手解决这个不“爽”的问题。 第一步: 打开记事本,粘贴如下代码,看不懂,不要紧,这只是个脚本而已,无它。 Set Obj=CreateObject("WMPlayer.OCX.7")Set CD=Obj.CDROMCollectionIf CD.Count>=1 then For i=0 to CD.Count-1 CD.Item(i).Eject Next For i=0 to CD.Count-1 CD.Item(i).Eject NextEnd If 阅读全文
锁定光驱在Win2000上的实现
2004-07-03 15:48 by 电脑人生, 169 阅读, 收藏,
摘要:
最近看到很多朋友在讨论如何锁住光驱的问题,但是没有一个结果。 趁着周末闲,写出代码和大家一起分享。 新建一个工程,在窗体上加入两个按钮,粘贴以下程序,看看效果怎么样?^_^ Option ExplicitPrivate Const GENERIC_READ As Long = &H80000000Private Const FILE_SHARE_READ As Long = &H1Private Const FILE_SHARE_WRITE As Long = &H2Private Const OPEN_EXISTING As Long = 3Private Const 阅读全文