页面载入中....
Hi,Dear Friends,Welcome!
 
:: Calendar ::
 
页面载入中....
 
:: Bulletin ::
 
页面载入中....
 
:: User Login ::
 
页面载入中....
 
:: Categories ::
 
页面载入中....
:: Recent Entries ::
 
页面载入中....
:: Comments ::
 
页面载入中....
:: Messages ::
 
页面载入中....
:: Information ::
 
页面载入中....
:: Links ::
 


 
 
2007-6-6 13:40:00
Windows消息全接触

表A-1 Windows消息分布

消息范围
说 明

0 ~ WM_USER – 1
系统消息

WM_USER ~ 0x7FFF
自定义窗口类整数消息

WM_APP ~ 0xBFFF
应用程序自定义消息

0xC000 ~ 0xFFFF
应用程序字符串消息

> 0xFFFF
为以后系统应用保留


表A-2 常用Windows消息

消息名称

说 明

WM_NULL
0x0000
空消息,此消息将被接收窗口忽略

WM_CREATE
0x0001
应用程序创建一个窗口

WM_DESTROY
0x0002
一个窗口被销毁

WM_MOVE
0x0003
移动一个窗口

WM_SIZE
0x0005
改变一个窗口的大小

WM_ACTIVATE
0x0006
一个窗口被激活或失去激活状态

WM_SETFOCUS
0x0007
获得焦点后

WM_KILLFOCUS
0x0008
失去焦点

WM_ENABLE<
……
 
 
2007-4-28 13:33:00
如何获得投影坐标、参考坐标、投影方式

ArcMap中,View——〉Data Frame Properties——〉Coordinate System:
有一系列的坐标及投影方式,可以通过以下方式获得
Public Sub getSpatialReference()
    Dim pDoc As IMxDocument
    Dim pMap As IMap
   
    Set pDoc = ThisDocument
    Set pMap = pDoc.FocusMap
   
    Dim pSpatialReference As ISpatialReference
   
    Set pSpatialReference = pMap.SpatialReference
   
    Dim pProjectedCS As IP
……
 
 
2007-4-28 9:25:00
VB创建文件夹

Private Sub Command1_Click()
       Dim strPath as String
       strPath = "C:\Windows|desktop\mydir"
       MkDir strPath
End Sub
 
 
2007-4-28 9:16:00
VB判断文件是否存在

方法一:
1. 工程——〉引用:microsoft scripting runtime
2.  ' 引用filesystemobject对象
      Dim fs as new filesystemobject
     ' 利用filesystemobject对象的fileexists方法判断文件是否存在
      if  fs.fileExists("C:*.gif") then
            MsgBox "文件存在"
      Else
            MsgBox "文件存在"
 &
……
 
 
2007-4-27 9:55:00
IFeatureClass::FeatureCount注意点

IFeatureClass.FeatureCount(ISpatialFilter):计算FeatureCount的时候,如果ISpatialFilter::Geometry过于复杂,此方法运算会使程序崩溃(比如:把道路网做缓冲合并成一个Geometry,查询程序崩溃)。
可以采取另外的一个方法:
IFeatureCursor = IFeatureClass.Search(ISpatialFilte*,**lse),然后遍历IFeatureCursor,获得其个数。
 
 
2007-4-27 9:47:00
IQueryFilter用法详解 

IQueryFilter::SubFields 限制了查询的字段,缺省值为"*"
IQueryFilter::WhereClause 则必须在SubFields限制的字段内进行查询。如果SubFields为"*",则可以是任意字段。

Getting a reference:
Dim pQueryFilter As IQueryFilter
Set pQueryFilter = New QueryFilter 

Setting the SubFields and WhereClause:

pQueryFilter.SubFields =   "STATE_NAME,POPULATION" 
pQueryFilter.WhereClause = "STATE_NAME = 'California'" 

Using a query filter to search a feature class:


……
 
 
2006-9-28 11:15:00
加非猫语录精选

钞票不是万能的, 有时还需要信用卡

每个人都应该热爱动物, 因为它们很好吃
 
 要节约用水, 尽量和女友一起洗澡

要用心去爱你的邻居, 不过不要让她的老公知道

每个成功男人的背后, 都有一个女人.  每个不成功男人的背后, 都有两个

再快乐的单身汉迟早也会结婚, 幸福不是永久的嘛


……
 
 
2006-9-21 11:16:00
(转载)从别人那儿看到,很有感触,转过来

~ 想不起是和他如何开始的。是他坐在对面时一个无心眼神。还是我酒醉后的一声无奈叹息。我是一个不相信一见钟情的人,但并不是说我不会因为一个细节就爱上什么人。 或许他只是无意,又或许只是一时兴起,而于我,却进入了万劫不复之地。
如果,他不来招惹我,我或许还只是一人独自幻想。最多对师傅说说少女怀春总是湿之类的淫词。即无勇气表白,也无魄力行动。只是,他招惹我了。于是,我只能缴械,他兵不血刃,我无招架之功,亦无还手之力。或许连他自己都没有预计到会变成今天的局面。他的一时心血来潮,难以自制,换来的却是我每晚的泪眼婆娑。  ~
 
~爱情说到底,有的时候,只是一个人的一厢情愿。一厢情愿地爱上什么人。一厢情愿地感觉自己被爱。一厢情愿地认为两个人可以一直走下去。 

其实,不是的。不要以为,你爱他多少,他就会爱你多少。你爱他是你的事,他爱不爱你,则是他的事。你爱上他,你就给了他伤害你的权利,结果是喜是悲,都是自找的,怪不得别人。
……
 
 
2006-9-18 14:21:00
26句话让你的人际关系更上一层楼!

讨人喜欢的26个原则,让你的人际关系更上一层楼!

1.长相不令人讨厌,如果长得不好,就让自己有才气;如果才气也没有,那就总是微笑。     

2.气质是关键。如果时尚学不好,宁愿纯朴。      

3.与人握手时,可多握一会儿。真诚是宝。      

4.不必什么都用“我”做主语。      

5.不要向朋友借钱。      

6.不要“逼”客人看你的家庭相册。      

7.与人打“的”时,请抢先坐在司机旁。      

8.坚持在背后说别人好话,别担心这好话传不到当事人耳朵里。      

9.有人在你面前说某人坏话时,你只微笑。      

10.自己开小车,不要特地停下来和一个骑自行车的同事打招呼。人家会以为你在炫耀。      

11.同事生病时,去探望他。很自然地坐在他病床上,回家再认真洗手。      

12.不要把过去的事全让人知道。      

13.尊重不喜欢你的人。      

14.对事不对人;或对事无情,对人要有情;或做人第一,做事其次。      


……
 
 
2006-9-14 16:28:00
<克里斯>观后感

一直都比较排斥印度电影,因为之前有看过几部,都不怎么好看^-^

郑琪说这部电影很好看,正好无聊,看就看呗^-^

一看,就被吸引了,真的是超级好看~~

画面很美……

洁白的雪山、葱绿的草地、乱石穿空的小溪,阳光一样的男孩,迷人的微笑,继承了父亲的超能力,且青出于蓝而胜于蓝。

克里斯20岁时,生命中闯入了一个巴比娃娃,曼妙的身姿,美艳绝伦的面庞。

这是一个浪漫的邂逅,故事从此开始了——

巴比娃娃的从天而降,克里斯尘封多年的心被打开,他迷上了巴比娃娃^-^

巴比娃娃回到了新加坡,故事没有从此结束,相反有了新的发展~

克里斯的爱+巴比娃娃爱的谎言,克里斯来到了新加坡~

在这儿~

克里斯的超能力得到了淋漓尽致的发挥~

他看一眼卖艺的刀枪棍法,即刻就能模拟的惟妙惟肖~

他火中救人,如探囊取物~

他攀岩走壁,越楼过海,徒步追踪阴谋家的飞机却同时抵达~

他的速度比子弹还快,最终擒拿住邪恶的科学家,救回了自己的父亲~

爱的谎言最终成了真爱,克里斯也抱得美人归!~

 


……
 
 
首页 上一页 下一页 尾页 页次:1/18页  10篇日志/页 转到:
Powered by Oblog.