浏览模式: 普通 | 列表

鼠标移动检测

[ 2009-01-09 10:31:00 | 作者: 亿旭 ]
'====鼠标移动检测API声明=====================================
Private Type PointAPI
X As Long
Y As Long
End Type
Dim MousePos As PointAPI
Private Declare Function GetCursorPos Lib "user32" (lpPoint As PointAPI) As Long
Dim NewX As Long
Dim NewY As Long
'=============================================================
Private Sub Timer3_Timer() '检测鼠标位置 时间控件
GetCursorPos MousePos
...

阅读全文…

包容与纵容在佛学的解释

[ 2009-01-08 10:31:00 | 作者: 亿旭 ]
  曾经有人请示证严上人:“她屡次犯错,我们要原谅她几次?”上人回答:“就像父母原谅自己的孩子,你们会原谅自己的孩子几次?”也有人请示上人:“什么是包容?长期的包容会不会变成纵容?”上人回答:“包到包不下去,忍到忍不住了,就是最大的包容。”起初听到上人如此开示时,仍感一知半解,心中依然困惑。心想,每一个人的容忍度与包容量皆不同,标准在哪里?什么程度才是忍不下去?什么极限才是包不下去?什么情况会变成纵容?疑惑在脑中盘旋,也一直用心思惟,希望转疑成悟,让茅塞顿开。

  也有人向证严上人倾诉:“我出钱出力,别人不愿做的工作我都耐烦耐怨地拿起来做,这样,还有人批评我、误解我,实在令人不甘心。”上人回答:“你好不容易任劳任怨在付出,这已经做到‘忍下去’的功夫,但还要继续做到‘吞下去’,最后还要把它‘消化掉’,如此才是真正忍的功夫’。”并说:“只是很会忍还不够,如果没有吞下去再消化掉,则忍到极限爆发...

阅读全文…
Option Strict On
Public Class CH5_DemoForm011
'1.设置NotifyIcon组件中的图标的快捷菜单:
'打开WINDOOWS FORM窗体,从“toolbox”中将NotifyIcon组件拖放到窗体上,此控件会显示在组件夹当中,
'选中NotifyIcon组件,在“属性”窗口中进得设定:将(Name)属性更改成ntfSystemInfo,单击Icon属性选
'取Icon图标,将Text属性设定为“系统信息”,将Visible属性设定成True,将BalloonTipIcon属性设定成Info
'图标,BalloonTipIcon属性用来决定汽球提示上的图示,将BalloonTipText属性设定成所要显示在汽球上的文字,
'将BalloonTipTetle属性设定所要显示的汽球提示标题。
...

阅读全文…

人永远不会知足

[ 2009-01-02 10:31:00 | 作者: 亿旭 ]
终日奔波只为饥,方才一饱便思食
衣食两般皆具中,又想骄容美貌妻
取得美妻生下子,恨无回地少根基
买到田地多广阔,出入无船少马骑
槽头扣了驴和马,叹无官职被人欺
县丞主簿还嫌小,双要朝中挂紫衣
做了皇帝求仙术,更想登天跨鹤飞
若要世人心里足,除是南柯一梦西

取消快捷方式图标上的箭头

[ 2008-12-31 10:31:00 | 作者: 亿旭 ]
当你安装一些软件后,通常Windows XP桌面上会被放置一些快捷方式图标,可以让方便地启动应用程序。

只是这些应用程序的快捷方式图标上出现的黑色箭头,非常影响桌面美观。如果你想将黑色箭头去除,只

需进行如下操作:

打开注册表编辑器,进入HKEY_CLASSES_ROOT\Lnkfile子键分支,在此子键分支中查找到键值名

IsShortcut,其类型为REG_SZ,将此值删除,就能去除快捷方式图标上的箭头。注销当前用户并重新启

动计算机后设置就生效。[结束]

Word中运用Document对象

[ 2008-12-27 10:31:00 | 作者: 亿旭 ]
运用Document对象

当用户在Word中打开或创建一个文件的同时,也创建了一个Document对象。用户可以使用Document对象或Documents集合的属性或方法来打开、创建、保存、激活或者关闭文件。

返回Document对象

用户可以使用语法Documents (index)来返回作为一个Document对象的任何打开的文档,在这里index是该文档的名字或索引号。在以下的示例中,变量myDoc包含一个Document对象,该对象代表名为“Report.doc”的打开的文档。

Set myDoc = Documents ("Report.doc")

索引号代表了文档在Documents集合中的位置。在以下的示例中,变量myDoc包含了一个Document对象,该对象代表Documents集合中的第一个文档。

Set myDoc = Documents(1)
...

阅读全文…

.Net中常用的SQL方法总结

[ 2008-12-26 10:31:00 | 作者: 亿旭 ]
ASCII(str)
返回字符串str的最左面字符的ASCII代码值。如果str是空字符串,返回0。如果str是NULL,返回NULL。

ORD(str)
如果字符串str最左面字符是一个多字节字符,通过以格式((first byte ASCII code)*256+(second byte ASCII code))[*256+third byte ASCII code...]返回字符的ASCII代码值来返回多字节字符代码。如果最左面的字符不是一个多字节字符。返回与ASCII()函数返回的相同值。

CONV(N,from_base,to_base)
在不同的数字基之间变换数字。返回数字N的字符串数字,从from_base基变换为to_base基,如果任何参数是NULL,返回NULL。参数N解释为一个整数,但是可以指定为一个整数或一个字符串。最小基是2且最大的基是36。如果to...

阅读全文…

连接Excel并读取的方法

[ 2008-12-25 10:31:00 | 作者: 亿旭 ]
连接Excel并读取的代码如下:
<%
Dim Conn,Driver,DBPath,Rs
'' 建立Connection对象
Set Conn = Server.CreateObject("ADODB.Connection")
Driver = "Driver={Microsoft Excel Driver (*.xls)};DBQ=" & Server.MapPath("book.xls")
''调用Open 方法打开数据库
Conn.Open Driver
''DSN连接方式
''Conn.Open "Dsn=book"
''注意 表名一定要以下边这种格试 "[表名$]" 书写
Sql="Select * From [Sheet1$]"
Set Rs=Conn.Execute(Sql)
IF Rs.Eof And Rs.Bof Then
...

阅读全文…

用vbs更改windows系统服务启动类型

[ 2008-12-24 10:31:00 | 作者: 亿旭 ]
把下面的代码存为***.vbs即可使用
 strComputer = “.”
 Set objWMIService = GetObject(”winmgmts:\\” & strComputer & “\root\cimv2″)

 Set colServiceList = objWMIService.ExecQuery _
 (”Select * from Win32_Service where Name = ‘TermService’”)

 For Each objService in colServiceList
 If objService.State = “Running” Then
 objService.StopService()
 Wscript.Sleep 5000
...

阅读全文…

推荐内容 VB操作Excel文件常用命令总结

[ 2008-12-23 10:31:00 | 作者: 亿旭 ]
一、声明变量
Dim a as integer '声明a为整型变量
Dim a '声明a为变体变量
Dim a as string '声明a为字符串变量
Dim a as currency ,b as currency ,c as currency '声明a,b,c为货币变量

声明变量可以是:Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal(当前不支持)、Date、String(只限变长字符串)、String * length(定长字符串)、Object、Variant、用户定义类型或对象类型。

二、声明常数
ConstConst My = 456 '常数的默认状态是 Private。
Public Const MyString = "HELP" ' 声明 Public 常数。
...

阅读全文…

推荐内容 亿旭常用语句总结

[ 2008-12-22 10:31:00 | 作者: 亿旭 ]
================1、常用类=================
强制声明变量:Option Explicit

时间延迟: doevents

换行符:chr(10)+chr(13) , vbCrlf

'获得当前程序路径:app.path ,CurDir

操作Excel文件,不显示提示Application.DisplayAlerts = False

复制文件:
FileCopy Text1, App.Path & "\转换结果\" & Combo1.Text & "\" & strfile
If Dir("C:\Folder",vbDirectory)="" Then Msgbox "目录不存在"

更新工作表:
lable.Reflesh
lable.Parent.Reflesh
Application.DoEvents
...

阅读全文…

记录命令 - SET-使用范例

[ 2008-12-21 10:31:00 | 作者: 亿旭 ]
@echo off
cls
title 本程序密码是:eexu.net日期:%date% &color 1f
:mima
cls
set mima=
set /p mima=请输入密码:
if '%mima%'=='eexu.net' goto huanying
goto exit
:start
set biaoto=
:biaoti
cls
set /p biaoti=请输入标题:
echo 您输入的标题是:%biaoti%
echo.
set xuanze=
echo 您是否想保存Y/N
echo y 保存文件到当前文件夹
echo n 退出本程序
set /p xuanze=请选择:
if '%xuanze%'=='y' goto yes
if '%xuanze%'=='n' goto no
:yes
echo 标题=%biaoti%>%biaoti%.txt
...

阅读全文…

推荐内容 WindowsXP的内存简单优化

[ 2008-12-20 10:31:00 | 作者: 亿旭 ]
2009年了,2G的内存才100多块啊,因为内存大了更,WinXP的最低配置要求是:128M,所有XP有些默认设置非常保守,我们可修改一下,提升一下性能,方法如下:

每一步:
在注册表找到以下内容:

HKEK_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\SessionManager\Memory Management

中的:禁用内存页面调度: DisablePagingExecutive 值改为“1”

提升系统缓存: LargeSystemCache 值改为“1”

第二步:
为了保证大内存的合理使用,我们有必要在Windows XP中打开“注册表编辑器”,依次展开键[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services ...

阅读全文…

推荐内容 亿旭学习VB2005时的常用语句

[ 2008-12-20 10:31:00 | 作者: 亿旭 ]
1.通过Button1_Click事件将TextBox1.Text写入注册表 P目录下的OP文件夹中的Sname字段中

SaveSetting("P", "Op", "sname", Trim(TextBox1.Text))

2.读出以上写入注册表的信息

TextBox2.Text = LTrim(RTrim (UCase (GetSetting("P", "Op", "sname"))))

3.VB 中的 Right(P_at, 1) = "\" 语句,在P_OPat未知是否赋值的情况下,VB 2005 中可写为:

Dim P_O = Len(P_at)

TextBox1.Text = Mid(P_at, P_O, 1)

4. VB2005中 TextBox7_KeyPress 项,写法及定义

Dim KeyAscii As Integer
...

阅读全文…

VB操作Excel文件时常用到的宏代码

[ 2008-12-19 10:31:00 | 作者: 亿旭 ]
一、变色剪切
xlSheet.Select
Range(Text11 & i).Select
 With Selection.Interior
 .ColorIndex = 3
 .Pattern = xlSolid
 End With
 If i > Text12 Then
 Rows(i & ":" & i).Select
 Selection.Cut
 Rows(Text12 & ":" & Text12).Select
 Selection.Insert Shift:=xlDown
 End If

二、全部替换
 Columns("A:A").Select
 Selection.Replace
...

阅读全文…
'***********************************************************
'* 功能说明:获得随机的一串字符串
'* 参数说明:strLen 字符串长度
'* 返回说明:String 字符串
'***********************************************************
 Public Function GetRndString(Optional ByVal strLen As Integer = 8) As String
 Dim strReturn As String, strContent As String, intRandNum As Integer
 strContent = "abcdefghijklmn
...

阅读全文…

VBA实用教程指南

[ 2008-12-15 10:31:00 | 作者: 亿旭 ]
一、VBA基础
  1.什么是VBA

  在Office对于一些烦琐、重复的操作,用户可以通过"宏"来实现。"宏"即是由一系列命令和指令组合而成的命令集,其本质是VBA代码组成的程序。VBA是微软在其开发的应用程序中共享的通用自动化语言。

  2.录制/运行宏

  VBA初期开发可通过录制"宏"的操作来获取代码,在Office中几乎所有的操作均可通过录制"宏"来获取代码。这里,我们通过一个简单的"宏"录制实例来学习:在Word中将所有的"电脑"字样替换为"计算机",并插入一张4行2列的表格。

  在Office中录制宏,可单击"工具→宏→录制新宏..."菜单命令实现,单击该命令后将出现"录制宏"对话框

  其中,"宏名"框用于为录制的宏设置名称,可使用默认的"Macro1"。"工具栏"和"键盘"二个按钮分别用于设置宏的触发位置。"将宏保存在"框可设置宏的保...

阅读全文…

PhotoShop的实用技巧162种

[ 2008-12-15 10:31:00 | 作者: 亿旭 ]
Adobe公司的产品PhotoShop从第一版到如今的11.0版本,功能之强大;使用之方便得到了世人的赞同。眼花缭乱的功能让菜鸟们无从入手,总得通过鼠标一个个点击去试用,令到工作效率大大地降低。反观PS的高手们,左手摸着键盘,右手按着鼠标,唰一声就完成了一个作品,简直令人叹为观止。在这里,就把本人精心收集的PS技巧一次奉献给大家,一起来享受那种成功的喜悦吧! 大家一起学习吧

1、快速打开文件
双击Photoshop的背景空白处(默认为灰色显示区域)即可打开选择文件的浏览窗口。

2、随意更换画布颜色
选择油漆桶工具并按住Shift点击画布边缘,即可设置画布底色为当前选择的前景色。如果要还原到默认的颜色,设置前景色为25%灰度(R192,G192,B192)再次按住Shift点击画布边缘。

3、选择工具的快捷键
可以通过按快捷键来快速选择工具箱中的某一工具,各个工具的字母快捷键如下:
...

阅读全文…

Windows中一些无关紧要的服务

[ 2008-12-14 10:31:00 | 作者: 亿旭 ]
关闭方法:运行MSCONFIG,在启动项里把不必要的都去掉

以下是网络上总结和亿旭自已发现的一些无紧要的服务

1)alerter 错误警报
2)automatic updates windows 自动更新
3)background intelligent transfer service 微软说使用空闲的网络带宽传数据
4)clipbook 与远程电脑来共享剪贴板内容,我看还是免了吧
5)Computer browser 说什么要维护网络更新列表
6)DHCP client 我不需要这东西
7)Distributed link tracking client 保持局域网连接更新等信息,偶很少用局域网,这东西占用4M左右内存。
8)Distributed Transaction coordinator 协调xxx,和上面的差不多...

阅读全文…

推荐内容 将负数转换为二进制方法祥解

[ 2008-12-11 10:31:00 | 作者: 亿旭 ]
引子:在我的小圈子里面,大家都认为亿旭是懂编程的人,有一天一个同事问我一个问题,说 -5转成2进制是什么?我一下子就糊涂了,真丢人,于是在网上找了这篇文章和大家一起分享!

先说一下,如何把正数转成二进制吧

比如,假设有一 int 类型的数,值为5,那么,我们知道它在计算机中表示为:

00000000 00000000 00000000 00000101

5转换成二制是101,不过int类型的数占用4字节(32位),所以前面填了一堆0。

现在想知道,-5在计算机中如何表示?

 
在计算机中,负数以其正值的补码形式表达。

什么叫补码呢?这得从原码,反码说起。
 
原码:一个整数,按照绝对值大小转换成的二进制数,称为原码。

比如 00000000 00000000 00000000 00000101 是 5的 原码。

反码:将二进制数按位取反,所得的新二进制数称为原二进制数的反码。...

阅读全文…