zhs_sky的个人资料

论汉字五行属性（转载）－－作者：相山好多网友问，汉字真的有五行吗？<?xml:namespace prefix="o" ns="urn:schemas-microsoft-com:office:office"></?xml:namespace> 我说有，按周易哲学的观点，宇宙万物皆有阴阳，有阴阳必然有五行。汉字作为表达万物形象、意义的文字，当然有阴阳五行了。网友又问，如果汉字真有五行，那么汉字的五行属性是怎么认定，怎么划分的呢？这倒是个很实际的理论问题。百度了一下，网上尽然有490多万条信息，可见关心者之众。网上有各种汉字五行属性的查询字表，各种汉字五行查询软件与字典，但因认定汉字五行属性的方法各异，说法自然各异，牛说牛大，蛇说蛇长。同一个汉字，张说五行为木，李说五行为水，不知何真何伪，令人无所适从，。比如“李”字，有的说五行为“火”；有的说五行为金；有的认为李字下部为子水，五行为水；有的认为“李”上木下子，木者木也，子者水也，李字的五行应为水木双五行。这些观点，显然是不懂中国汉字起源与形声结构之故，《说文解字》云：李，“果也。从木子声”。李指李木，李树，李果，它的性质“从木”，属木性，五行为木才是最正确的，下面的“子”是子声，而不是五行的代表。因为汉字的五行是由其部首、偏旁、字义等决定的。再比如“淡”字，网上有一个“砖家”是这样分析的：“淡”字是偏旁五行很强的一个字，一个三点水，两个火，如果用偏旁来界定这个汉字，“淡”字是水字旁，五行为水，但用字意法来界定“淡”字的五行，“淡”字是一个水，两个火，字本身火大于水，而字意却是以水为主，主要作用还是来描述水，淡化，由强变到弱，这就为淡。由此可见“淡”字的主五行为水，次五行为火，因为是水减弱了火产生的淡，因此淡字的五行是有火的，最后界定“淡”字的五行是水火。看见如此解析汉字五行的“砖家”，真能让人笑掉大牙。你说他错吧，他说对了淡的五行为水，你说他对吧，他竟弄出两片火来，还一水两火相抵，弄出个主五行水，次五行火来，把这“谈”字搞的水火不容，你让它如何淡定，如何不笑话。压根就不懂中国汉字的构造来。《说文解字》云：淡，“从水，炎声”。本义是“其水淡而清”（《世说新语·言语》），字意也是冷淡，冷漠，冷清，不热烈，一点儿没有火热的意思。其五行就是水。水是火的天敌，不配两片火，让水灭了，怎么能显出水的厉害来，这就是古人造字的妙境。明白了这个道理，遇到“桂”字，你就不会说它是一木两土，木是主五行，土是次五行这样的笑话了。

起名的内行老师，你们还用五格数理剖析吗？近段时间，由于需要，一直在考虑这个问题，如果按[五格数理剖析]取名，感觉很难得出好名字，要么语义不通，要不与用神不附，在此想听下老师们的看法，先行感谢！！！！

两张图，各位老师可以猜下出了怎么样的人物!!!

这什么世道啊，这不是《去那儿》光天化人下行骗吗？本人在上周买了一张从南宁到杭州的机票，是国航的CA1778航班，本来提示已经出票成功，今天突然冒一短信通知，说航班取消，但取消的原因半字都不提，这是什么概念啊？联系了国航，问其退票事宜，客服的通话中所说简直不是人话，这什么意思啊，退票只退燃油费，机票部份不退，这什么逻辑？又不是说我要退票，你把航班取消了，不倍偿就算了，还想连票款之类的全都给吃掉，这什么世道，什么逻辑啊？有请去那儿的客服回答？还有一个问题，国航让我改签前一天或后一天的，这什么意思，我还能相信你吗？我想说的一句，你们就是给消费者下个套，套进去了就别想出来。

自然水局欣赏图一：图二：发洪水了，但平时的水位也低不了多少。

三合老师请进，帮忙看个大概图上几个地方的结成大概怎么样？

我的家乡美景

WebBrowser屏蔽常见任务栏在系统设置为“在文件夹中显示常见任务栏时”，如下图：VB使用WebBrowser控件浏览系统文件时，同样会把“常见任务栏”显示出来，如下图：如果在系统设置为“在文件夹中显示常见任务栏”，使用WebBrowser浏览系统文件，该如何屏蔽掉常见任务栏，使其变为以下式样：想了很多也查了很多，没找到方法，请各位帮个忙。

求问，ListBox控件SetParent list1.hWnd,0后出现的问题请吧内的高手帮个忙，大致内容可以这样：创建一个Form窗口，里面放置一个ListBox控件，然后在Load过程中添加以下代码： Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long Private Sub Form_Load() Dim i As Integer For i = 1 To 6 List1.AddItem Str(i) Next i SetParent List1.hWnd, 0 '将list的父窗口设置为桌面窗口 End Sub 然后发现，单击ListBox无法选中其中的Item项，这个是由什么原因造成的？？以上是对于问题的一个模似，请各路高手支下招，想了一周也没有想通。

VSFlexGrid8.0 SaveGrid方法生成的EXCEL文件无法使用JET4.0连接吧里的高手们，VSFlexGrid的Save方法生成的Excel文件为什么再使用JET4.0连接里出现错误:Excel打开再保存为Excel2000文件后，恢复正常的读写，查用户手册里说明是生成Excel97，JET4.0连接Excel97应该没问题的啊,其中SaveGrid的原理是什么，有朋友知道不？

共亨一个无边框窗体做的Metro风格窗体最近一段时间在做一些小工具，看到Metro风格的界面，简约好看，所以就决定使用这种风格做，但是用VB原有的窗体是做不出一点Metro的风格来的（我个人能力有限，如果有错，请不指教下就好了！！！！！），只能够使用无边框窗体做，但做到调整窗体大小这一步后，有一个问题就一直困扰着我，使用SETWINDOWLONG把SYSMENU调出来后，调整窗体大小的代码就没用了查WINDOW的API说明，找不到答案，也查了一些C#做的东西，同样存在这种问题，到现在还是不明白原因，如果有懂得的朋友麻烦指教下，窗体的示图如下：现在还有一个问题，就是怎么限制调整窗体的大小，就由喜欢的朋友自己来写下代码了，如果有朋友发现有BUG，请麻烦提个醒！！！！！！链接地址如下： http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fdl.vmall.com%2Fc0yfhjf2xr&urlrefer=e87c869865fe3035fe285a0817110706

麻烦各位朋友看下这段程序的问题在那里 Option Explicit Private Const WM_NCLBUTTONDOWN = &HA1 Private Const HTLEFT = 10 Private Const HTRIGHT = 11 Private Const HTTOP = 12 Private Const HTBOTTOM = 15 Private Const HTBOTTOMRIGHT = 17 Private Const HTBOTTOMLEFT = 16 Private Const HTTOPLEFT = 13 Private Const HTTOPRIGHT = 14 Private Const WS_EX_LAYERED = &H80000 Private Const GWL_EXSTYLE = (-20) Private Const LWA_ALPHA = &H2 Private Const LWA_COLORKEY = &H1 Private Const GWL_STYLE = (-16) Private Const WS_SYSMENU = &H80000 Private Const WS_MINIMIZEBOX = &H20000 Private Const WS_MAXIMIZEBOX = &H10000 Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Declare Function ReleaseCapture Lib "user32" () As Long Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long Private Form_edge As Integer '临界距离 Private Sub Form_Load() Dim rtn As Long rtn = WS_SYSMENU Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX SetWindowLong hwnd, GWL_STYLE, rtn Form_edge = Me.ScaleX(10, vbPixels, Me.ScaleMode) End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If X + Form_edge >= ScaleWidth And Y + Form_edge >= ScaleHeight Then '右下角 ReleaseCapture SendMessage hwnd, WM_NCLBUTTONDOWN, HTBOTTOMRIGHT, 0 ElseIf Y + Form_edge >= ScaleHeight And X <= Form_edge Then '左下角 ReleaseCapture SendMessage hwnd, WM_NCLBUTTONDOWN, HTBOTTOMLEFT, 0 ElseIf Y <= Form_edge And X <= Form_edge Then '左上角 ReleaseCapture SendMessage hwnd, WM_NCLBUTTONDOWN, HTTOPLEFT, 0 ElseIf Y <= Form_edge And X + Form_edge <= ScaleWidth Then '右上边 ReleaseCapture SendMessage hwnd, WM_NCLBUTTONDOWN, HTTOPRIGHT, 0 ElseIf X + Form_edge >= ScaleWidth And Y <= ScaleHeight Then '右边 ReleaseCapture SendMessage hwnd, WM_NCLBUTTONDOWN, HTRIGHT, 0 ElseIf Y + Form_edge >= ScaleHeight And X <= ScaleWidth Then '下边 ReleaseCapture SendMessage hwnd, WM_NCLBUTTONDOWN, HTBOTTOM, 0 ElseIf X <= Form_edge And Y <= ScaleHeight Then '左边 ReleaseCapture SendMessage hwnd, WM_NCLBUTTONDOWN, HTLEFT, 0 ElseIf Y < 350 Then '上边 ReleaseCapture SendMessage hwnd, WM_NCLBUTTONDOWN, HTTOP, 0 End If End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.Text = Str(Y) If (X + Form_edge + 100 >= ScaleWidth And Y + Form_edge + 100 >= ScaleHeight) Or (Y - 100 <= Form_edge And X - 100 <= Form_edge) Then '鼠标指针在右下\左上角时，改变指针状态 MousePointer = vbSizeNWSE ElseIf Y + Form_edge + 100 >= ScaleHeight And X - 100 <= Form_edge Or Y - 100 <= Form_edge And X + Form_edge + 100 >= ScaleWidth Then '鼠标指针在左下\右上角时，改变指针状态 MousePointer = vbSizeNESW ElseIf X + Form_edge + 100 >= ScaleWidth And Y <= ScaleHeight Or X - 100 <= Form_edge And Y <= ScaleHeight Then '鼠标指针在左、右时，改变指针状态 MousePointer = vbSizeWE ElseIf Y + Form_edge + 100 >= ScaleHeight And X <= ScaleWidth Or Y - 100 <= Form_edge And X <= ScaleWidth Then '鼠标指针在上边下边时，改变指针状态 MousePointer = vbSizeNS Else MousePointer = vbNormal End If End Sub 问题在于，使用SetWindowLong改变属口的属性后，就无法改变窗口的大小了，我翻Window的API解释，但看来看去都得不到解释，所以请朋友们指点指点，代码直接粘贴就可以用，窗体设为无边框窗体。

关于拖动改变无边框窗体与窗体右键菜单问题大家好，近来我做了一个无边框的窗体，遇到了一件难解的事情，在此向各位朋友求解了，如下所述：使用VB6的无边框窗体时，是不可以调整大小与调用右键系统菜单的（就是在任务栏右击弹出来的那个菜单），不过可以通过修改WINDOWS的API来实现这两个功能，但是问题出现了，如果你使右键系统菜单有效时，所写的拖动改变窗体大小的方法就没用了，同样，如果你拖动改变的窗体大小的方法有效，那右键菜单就无效，代码过长，就不贴上来了；不知道有没有朋友遇到过这事情，有没有解决的方法，请各位赐教了。窗体的式样如下图：

关于字符串排序问题各位师友，你们好，近日我编写了一个序列生成器，是用于生成一系列字符串的，像产品的SN，MAC等等，但在调试的时候发现，所生成的序列不能按照意愿去排列，由于VB基础较差，所以把代码等信息贴上来，请各位师友帮忙看下，序列生成代码如下： For count = 1 To Val(Text_create_count.Text) cnn.Execute (" insert into sn(序列1,序列2,序列3,序列4,序列5,序列6) values('" & sn1 & "','" & sn2 & "','" & sn3 & "','" & sn4 & "','" & sn5 & "','" & sn6 & "')") If Trim(Text_inc_1.Text) <> "" Then sn1 = add_operation(sn1, Text_inc_1.Text, Option_dec_1.Value) End If If Trim(Text_inc_2.Text) <> "" Then sn2 = add_operation(sn2, Text_inc_2.Text, Option_dec_2.Value) End If If Trim(Text_inc_3.Text) <> "" Then sn3 = add_operation(sn3, Text_inc_3.Text, Option_dec_3.Value) End If If Trim(Text_inc_4.Text) <> "" Then sn4 = add_operation(sn4, Text_inc_4.Text, Option_dec_4.Value) End If If Trim(Text_inc_5.Text) <> "" Then sn5 = add_operation(sn5, Text_inc_5.Text, Option_dec_5.Value) End If If Trim(Text_inc_6.Text) <> "" Then sn6 = add_operation(sn6, Text_inc_6.Text, Option_dec_6.Value) End If Next count add_operation为一增量运算函数；意原排列应当如下图：但开启序列6后，排序变成了以下式样：我试过，增加一列空列“序列7”就可以解决此问题，但怕在日常使用中会出现使用问题，不敢用此方法解决，请各位帮忙看下有什么解决方法，在此先谢过！

求问CAD2008打印消隐问题本来是一张画好的爆炸图，但是我再往上添加零件时，如果再打印，却发现打印消隐失败了，如下图：打印管理设置如下：未添加螺丝零件前的打印预览如下：消隐正常，如果我再往下添加螺丝零件时，打印消隐主失败了，如下图：求大侠解释，我的操作是否有错，出现这问题的原因是什么？

（转载）R7拆解与保养以下是整个保养的工作程序,这是需保养的前叉，为碟刹、V刹两用的版本:油封处有轻微油迹:下面开始拆了,首先用2mm内六角拆掉锁死旋钮:红色的旋钮内侧有14条槽，右边的盖子上对称有2个小弹珠，弹珠下面有弹簧。红色旋钮上紧之后，小钢珠会被弹簧撑在那14道槽的相对应的2道里面，进行锁死操作的时候通常会有的“卡卡”的声音就来自于此。多数的手控锁死阀都是这样的设计。气压侧下端螺栓用10mm套筒，顺时针拆卸:注意阻尼侧下端是内六角拆卸。从这个角度来看是反牙，顺时针是拆卸:这时候可以拔出内管了，内外管之间的油不多:油封内比较干涩，而且没有吸油海绵:油路一侧的上盖是24mm，拆卸的时候注意要用套筒来拆，操作不当就容易损坏。气压侧用的是是20mm套筒:拆开后，如下：

几辆车，关于KHS，大家都不是常见的车进来的朋友不要喷说是做什么广告，这车可只在北美销售，在大陆可买不到。本于个人对车的爱好，发几张上来晒晒而以。 DH/FR/AM用车：XC用车：

看这几张图后，胆寒啊！这几张图从别的论坛上转过来，看起胆寒。里面还说是一个小瓶友弄的。我也喜欢冲山，每次都可以看到那些小瓶友真的是猛，有一次，我都被吓到腿软了。脑子容易发热的瓶友，还是不要冲山吧！同时，建议不要选择过份镂空的碟片，除非你资本够，买灰常有保证的。至少，像六毅之流，我还是不敢用。

各种车架——软尾风（图片全为转载）

<讨论>轮圈调到中线对于没有调圈台的山友，你们如何调轮圈到车架的中线的？先发表下神论，轿车有四轮定位，开车的XX都应该知道，其作用应该也有所了解，同样，山车也会讲两轮定位，前轮与车架的中线一致，后轮与前轮的中线一致，有什么影响，影响大不大，可能对压马党来说不见得太重要，只要不偏太过，但对XC或更高的运动可能影响就比较严重些吧。现在用的通勤车，由于拿过来干过过重的活，轮圈变形很严重，调也不能调得太好，前后轮的中线不一致，很多时候过一些障碍时，前轮没碰到，后轮给菊花做按摩，特别过大街上的减速器时。所以，特地来此发下神论，讨论下对无圈台如何做做到把前后轮调致同一中线上。个人平时调圈时只能大概地调下后轮与车架的中线，前轮与前叉的中线，至于准不准，不知道了。

装车在即，发两张图，没有骚年用的部件下周刹车与牙盘到位，就可以装成了。

求助贴，XE指拔是否会跟M586刹把打架，请知道的提醒下！准备装新车，剩下刹车没有到位，基于变速已买了XE，道听途说XE指拔会跟油刹打加，不知道是否有这么回事，如果到时入了596装不上，可悲剧不一般！请知道的基友道个情！

求助贴，关键字，M596，E5，XE变速 M596与E5对比，建议那个？两个会跟XE指拔打架吗？请资深人士回签。

山地车结构（主要部件拆解）

爆个小自传,再发点福利年终总结写完，再来混了半年的山吧爆个短小自传山吧ID：zhs_sky 真名：不爆了年龄：快与奔三擦边职业：通信类宝马：。。。。。。。。你懂的骑龄：如果不间断的话3年多，断续的话不下于6年骑行目的：骑游，XC 最长的一次行程：非码表党，保守估计不下于400公里（往返杭州—诸暨—东白湖—东白山）下一站目标：杭微古道行，荆州公路行（哎，叹个气，不知道能不能实现了，未来的娘子整天在医院里忙死忙活的，一休假，优先级。。。。。。。。。）爱好：有一个不用说，有一个委屈地说是工作，有一个很轻松地说是音乐说说自己：看本人的职业，不是那种很会玩的人，整天呆在“格子铺”里，写这个画那个，每月最烦的就是10号这天，总想着“I ****，公司倒了还能赚回点遣散费”。上班听到旁边的电话一响，基本上是他妈的那个SB又找上门来听我唠或忽优（其实嘴很笨）。只要一放假，心里是最高兴的，因为与你们一样，都喜欢上铁骡子了，虽走得不快，可是比那蓝博比基尼的天窗还大，观景比坐灰机还看得广阔。从初中开始，就和老表骑着凤凰女式到处乱跑，直到一个亲威的朋友放一辆山寨的15速山马在我家，才知道，自行车亦可以变速，还记得起来，那车被我弄坏了。上高中了，作为80后，压力就是大，一个野鸡般的大学都抢破头，一个年级就XX班，一班里60多人口。如果我猜得不错，在高中旁边卖蜡烛的那家会花了，销量大啊！同样，自行车就放着生锈了（前年回家清理房子里当废铁卖了）。好不容易煎熬结束了，上了梦中的DX，可惜，。。。。。。。。。。。。。，不解释。就这样，自行车生活就断了差不多6年。出来工作了，头一个苦得半死，金X危机，工作不好找，找到一个养活自己的就往里钻（为了证明我非伸手党）。年景稍好，我就跳，工作更换带来了时间，同时，也再次继续了自行车生活，开始买了个500元左右的硬尾山寨山地（SUNRACE18速，高碳钢架，结实得很，不过也得到收废铁大叔的青睐），压马路，爬坡，游玩，一游就过了一年，同样这铁骡子也教会了我很多东西，从补胎，换胎，修花鼓，调变速，再到调轮圈，都是它的功劳。同时，对山马也有了一些认识，去年年头把旧的卖了，又买了一个LAUX的山寨车，车子比以前的好了些，拿去走非常轻的XC，走较远的路（用来走过杭州—德清，一天往返，不知道多少公里）。后来又接着买了个SP18玩着，陪我走完目前最长行程后，卖了（对小折无爱，走完行程后），继续用回我的LAUX直到现在。新车所有的东西都备完，等待明年开春动工装上即可同样，个人也灰常喜欢音乐，但不是很流行的，个人收藏有很多无损音乐（高中时我还收藏磁带，现在知道浪费钱了），曾想烧包买一对书箱加一个斯巴克胆机（没钱去想麦景图之类的），去器材店看了下，还是走了出去，放弃，同时开始自己手动制造，玩了下集成的，又玩分立器件做的（没一个做成功的，都是噪声超大）。到最后，很无奈的问下：“骑行的时间还剩多少？” 分享下自己收藏的一CD《烟花易冷》： http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fkuai.xunlei.com%2Fd%2FIZIDDXAWLCUP&urlrefer=f2118d0cd133993de72486688a69defb 密码为山吧ID。

用XC28TK的山友们，这叉到底多少行程的？今天淘宝一看，我顿时头晕目眩，看他们的介绍，十有八九说是120行程的，一问他们又说是100的，这到底怎么的了？I F！

正式加入微转党 XE今天到货，262连邮入，今年的折腾，从今天开始。用九后拔带8飞轮？还是告别8？有待折腾。冬天到了，感觉手凉了，人也不胜风寒，穷人党，省吃俭用到最后，还剩下什么？除了折腾出合适自己的。相机不在，上不了PP。

早上的钱塘江大堤钱江一桥京杭运河边（不知道隋炀帝那老儿到过这不）不知道名的花远看拱宸桥运河的最南标志-----拱宸桥运河古街车车的背影做苦力的，永运的辛酸（不需要高富们的同情心）抓拍

车坏了，明天修今天雨终于停了，出去溜了，但一路上不爽啊。爬了4公里的坡后，走一段落路左右脚都抽筋，中轴松了，后轴松了，上几个星期修过一次，挡碗已有很明显的损伤，穷光蛋，不换，填高密度的润滑脂后再用，这次应该是钢珠坏了。现在骑起这车来，感觉就出不了力，踩频起来了，速度没起来，后圈我用4CROSS编法，爬坡发起力来，如泥牛入大海，不知道是不是牙盘软了，车架软了还是什么原因了，看来，又要穷折腾了，准备M590牙盘。上次看贴，那哥们用那浩盟的一体不知道怎么样？我看了这盘很久，没有下手，比M590便宜差不多100大洋。