nestore网络杂货铺

文章

总目录| 游戏区 | 报关区 | 网赚区 | 网络资源 | 开心一笑 | MOD区 | 硬件吧 | 软件网络 | 好贴转载 | LINUX&UNIX |

[转贴]一个中国“知韩派”眼中的韩国　（作者置顶）

孙子曰：“知己知彼，百战不殆”。

曾几何时，泱泱中华开始了闭关锁国，其后招来了半年屈辱。可喜的是现今的中国是一个相当开放的国家，对外经济文化交流日渐频繁，这自然需要众多人才。

我当年有幸选择了韩国语（当时还叫朝鲜语）专业，之后也就渐渐走上了中韩交流之路。据说美国智囊团中为对华政策谋划的人都是“知华派”，意为对中国有相当了解的人，日本政界也有不少“知华派”，当然了，“知华”不意味着“亲华”，“知华”的他们制定些个政策可说是更加狠毒，招招致命。我学习韩国语四年，其间所学涉及韩国历史政治经济文化等各方面，后来也去韩国留学两年，然后进入了中韩合资企业，也就是说这么多年一直在和韩国人打交道，那我算不算是个“知韩派”呢？我想至少也算是半个了吧。现在中韩关系日益密切，国内韩流日盛，国内媒体对韩国的报道也非常多，当然几乎都是充满赞颂之词，再加上精美的韩国影视歌曲的轮番轰炸，这让大多数不了解韩国的中国人对韩国产生了相当的好感。

但真正的韩国如何呢？与韩流相对，最近网上出现了不少揭露“真实”韩国的文章，可惜有的年代久远，有些又非常极端，充满个人感情，但他们大部分内容在我看来是比较真实的。我本不想挑起与邻国的矛盾，但国内媒体对韩国的过分吹捧和韩国媒体对中国的极端歪曲实在形成了太鲜明的反差，让我有点看不过去，所以这里结合我和所认识的朋友们在韩国的经历来谈谈我眼中的韩国，希望能去伪存真。文章比较长，请耐心看，然后明眼的看官自行判断。

“世上没有永远的朋友，也没有永远的敌人，只有永远的利益”

很多中国人至今仍习惯性的把韩国当作中国前属国，谈到韩国颇有轻蔑之色。更多的中国人认为韩国文化源于中华，中国作为宗主国曾保护过朝鲜，所以就一厢情愿的以为韩国人就理当对中国人友好，对中国人亲善。要正确认识韩国，首先就要彻底抛弃上面这两种观点。1，历史上的殖民附庸体系早已被摧毁，如今的国家都是具有现代意义的民族国家，按照国际法，各国主权平等神圣不可侵犯。如果中国人以一种宗主国对属国的高傲态度对待韩国，那么必然也不会得到对方的尊重。

至于第二点，其实没有任何理由可以表明韩国人应该对中国友好。上溯到箕子朝鲜和卫满朝鲜还有后来的汉四郡，按现在韩国人的说法：中国人是作为所谓“入侵者”统治朝鲜半岛北部的，南部的“韩民族”后来赶跑“侵略者”赢得了独立，而后隋唐时还发生过战争，不然它们的卢武铉总统也不可能今年在会见布什时说出：“中国曾经侵略韩国数百次，这样的刻骨仇恨我们怎么可能忘记？”明朝后的几百年可能存在朝鲜作为属国对宗主国谦卑的友好，（毕竟我们可以保护它），而从甲午战争后，这种谦卑（可以说是被强迫的）的友好也渐渐消失了。

19世纪末朝鲜李朝的统治风雨飘摇，而朝鲜人的民族意识也渐渐崛起，作为中国附属国的地位当然不会让他们觉得满意。举个例子，我在韩国的时候有幸看过它们现在的小学教材，在三年级或者四年级分册中有这么篇文章，讲有个中国使臣来到朝鲜，作威作福，蛮横无理，提出三个问题要人回答，威胁说如果回答不出就要如何如何，后果很严重。当然结局是圆满的，一个朝鲜小孩子回答了问题，中国使臣羞愤的无地自容。小故事而已，但很能体现韩国人是如何看待当年作为属国的历史。把这个用作全国的小学教材，大概韩国小孩从小心灵中就有“中国人蛮横无理”这种先入为主的印象吧，

咱们回到19世纪90年代，一方面，日本经过明治维新实力大增，将朝鲜作为跳板入侵中国是其从上至下的共识（明万历年间丰臣秀吉就干过同样的事），另一方面，朝鲜王朝也希望日本势力进入以平衡清帝国，以图见机行事独立。可惜弱者是不可能玩转两大强国的，为争夺朝鲜控制权，甲午战争爆发，清国失败，朝鲜“独立”，改国号“大韩帝国”。当然这个大韩帝国立刻被一纸“日韩合并条约”划归了日本，其间朝鲜也期望美国从中斡旋，可以预见，美国人可不愿为了它们而得罪日本，所以从此“大韩”就开始了其５０年的殖民地岁月。出乎意料的是，它们并没有表现出如今“切手指”的铁血，也没有如今“抵制日货”的决心，更没有“全国捐金”的壮举，不然可够日本人头疼的了。朝鲜人默默承受了，既没有游击队的反抗，也没有大规模的暴动，据资料称95%的朝鲜人还乖乖的改了日本姓，说起了日本语，二次大战时不少朝鲜人更是加入日本军队在中国作威作福，后来韩国的朴正熙总统当年更是日本士官学校的高材生。从这里我是找不出什么理由证明韩国人对中国人有什么深厚感情，重温这段历史，如今韩国的历史教科书也顶多写：“一个统治者被打跑了，另一个更残暴的统治者又来了。”不要忘了，东学党起义是在朝鲜王朝乞求下，袁世凯带兵血腥镇压的。

50年转眼一挥间，1945年日本败亡，朝鲜终于又迎来了独立。可惜南北在不同势力的支持下不能统一成立政府。50年代朝鲜战争爆发，38线成了天堑沟壑，中国自然在韩国人眼中成了十恶不赦，阻止“大韩民族”统一的罪魁祸首（在此引用韩国人原话）。

韩国政府成立之后，接连颁发排斥华商的禁令，包括“仓库封锁令”、“外币使用规模限制令”等等，这便是华商受难的开始。接着，自由党和朴正熙政权两次进行“货币改革”，偏爱现金的华商更受到致命性打击，很多华商因此变得一贫如洗。1961年，韩国政府颁布“外国人拥有土地禁止法”，1971年制定“外国人土地取得及其管理法”，规定华人一家只能拥有一间房屋、一家商店，连炸酱面售价也受到严格管制的情况下，华商便成了走投无路的一群。70年代初，原本有12万人口的华商锐减到只剩下2万人。唐人街遍布世界各地（包括日本），唯独韩国没有。“炸酱面”“赤匪”“中国奴”等韩语中专门针对中国人的侮辱性名称也出现了，直至现在我在韩国BBS上还经常看到，频率之高让我非常愤怒。最近惊闻韩国庆祝“韩国炸酱面”诞生100周年，鉴于韩国人试图盗取“活字印刷术发明权”，考证出“西施可能是韩国人”，“孔子可能是韩国人”等等劣迹，我挺怕它们有朝一日说炸酱面也是韩国的发明。这就比较讽刺了，因为当年“炸酱面”是它们对中国人的一种侮辱称谓呢。

为了吸引华商投资（这次排外的韩国人好像开窍了），今年韩国争取到了世界华商大会的举办权，而唐人街也紧锣密鼓的开始筹建（可惜是面子工程，不是华人自然聚居形成的，不过聊胜于无）。华商大会黯然失色，李嘉诚等大人物竟然不到场，据分析还是因为当年韩国“排华”影响了整整一代华侨，至今他们对韩国这个“华人不能立足”的可怕之地仍持有负面印象。

最后不要忘了，中韩92年才建交，之前韩国国内进行的是最反共的宣传教育。再建交后当然不能再这样明目张胆了，收敛了一点，但刻意丑化歪曲中国的行为还是没有停止，这点所有去韩国生活过的中国人肯定有相当的感受，好多人因此根本就不看韩国新闻，当然对韩国的印象也非常糟糕了。

说了这么多，叙古论今，一厢情愿的中国人应该可以感到了，韩国人对中国其实不能说具有好感。那么他们对中国是种什么感情呢？很复杂。憎恨？大概有一点，除了少数极端民族主义者比较强烈之外。害怕？这倒是真的，从历史来看，从领土来看，从经济规模看。。。无论从哪方面看，中国这个邻居是有点威胁，特别是现在韩国总想强出头做“东北亚平衡者，东北亚的中心”（在此引用韩国媒体言论），并且利用“高句丽”历史问题希望引起长白山，吉林延边甚至东北的领土归属问题。不过在我看来，对中国的感情最多的还是轻视。

韩国人对中国的轻视是由来已久的，前面已经提到，“炸酱面”这个侮辱名称是上世纪三十年代韩国人（或许应该叫日本人才对）称呼华侨的，它们当时虽然是日本帝国的二等公民，但却非常歧视那些背井离乡的华侨。对比中国在抗战期间如何善待朝鲜难民，流亡的“大韩民国临时政府”如何在国民政府的保护下坚持到最后抗战胜利，韩国人的行为实在令人不齿。

后来反共宣传中自然抨击中国的社会制度，70年代末韩国经济腾飞，韩国人终于在“半万年历史”（在此引用韩国历史学家原话）中第一次有了富裕的感觉，而恰巧此时中国的经济状况非常不佳。看着当年的巨人如此萎靡，这给了韩国人一个绝好的增强“民族自信感”的机会。20多年来，韩国新闻媒体总是千方百计揭露中国的贫穷落后野蛮愚昧无知，拿韩国值得骄傲的部分和中国的弱点比较（当然不会拿弱项和中国的强项比较了）。在韩国时常能听到“我们推倒了万里长城”这样煽动性的言语，以至于我在韩国期间为了避免从身边韩国人口中听到这句话，不自觉地总想在任何方面都超越它们，甚至在喝酒上也不愿落后，这样也醉倒过好多次。我曾遇到过这样的事：韩国人如果比较喜欢你，会对你说：“你长得像韩国人”，他们认为这是赞扬你，我总是笑着接受了。但我认识的一位朋友为表示友好，对一个韩国人说,”你长得像中国人“，结果那个韩国人非常不高兴，认为是污辱它。

我为了提高自己的韩国语水平，每天坚持阅读韩国新闻，刚去韩国时每天都抽出点时间看韩语节目。后来我统计了一下，每天都能看到不少关于中国的消息，当然，几乎都是负面的，如果有说中国好的，那八九不离十最后都要表达这样一个意思，“中国如此发展会对韩国造成威胁”。不仅是新闻，一次在娱乐节目中看到过这样的场面：采访一个刚从中国回来的韩国女艺人，主持人问她中国如何，她笑嘻嘻的把中国批判一番，什么脏呀，烂呀，穷呀之类的，在场的观众也非常受用，台上台下笑成一片。对于很多韩国人来说，嘲笑中国是最能增强它们“民族自豪感”的事情了，于是它们乐于找出中国的各种弱点来嘲笑，新闻媒体也非常愿意配合民众的这种心理，想方设法挖出这些东西来供国民消遣。所以我有时很纳闷，它们的记者怎么能找到这么多反映中国贫穷落后的新闻，如果我是个没去过中国的韩国人，那么百分之百我会觉得中国是个可怕的国家，对中国不可能有一点好感。

有了这样的媒体，这样的教育，韩国人对中国的反感和狂妄自大就很容易理解了。有网络文章说在韩国繁华的明洞街头出现过“中国人谢绝”的条幅，这个我相信，因为我曾经见过照片，而且不止一个中国朋友告诉我在韩国商店遭到营业员歧视的事。别说在韩国，就连在青岛，在北京望京，不也发生过韩国人店谢绝接待中国人的情况吗？04年高句丽历史事件闹得最厉害的时候我恰巧在韩国，我看见过韩国人焚烧中国国旗，在中国大使馆前示威，以至当时我有种想立刻逃离韩国的想法。后来在街上也遇到过不少宣传，讲东北甚至山东古代都是“三韩”的领土，我只能置之不理。

“人不可以无耻，无耻之耻，无耻矣”

不少中国人非常崇尚韩国人所谓“尊重儒家传统”这点，认为要像韩国学习。我听到这样的话有点吃惊，后来看到国内媒体用近乎肉麻的言语报道韩国人如何尊重传统，我才恍然大悟，有这样的媒体，难怪有这样被误导的国民。

首先要澄清一点，韩国是一个相当西化的国家，可以说到了全盘西化的境地。举个简单例子，韩语被韩国专家论证为“世界上最简洁，最优秀的语言”，但现在是外来语成灾，餐厅不说餐厅，跟着英文音译为“乐死特朗”，（restaurant）桌子不说桌子，也从了英文说“特意伯尔”(table)，甚至更玄妙的是老婆居然也习惯叫做“歪扑”（wife），悲哉韩国语，悲哉我这个当年认真背诵韩文单词的好学生。现在固有名词都让位给了这种不洋不土的韩式音译，是不是以后干脆直接说英文比较好呢？要知道韩文中70%是汉字词，剩下的30%也被大量西方外来语占据，这种“世界上最简洁，最优秀的语言”是不是就要退出历史舞台了？

至于剩下的所谓“儒家传统”,只是中国媒体的想当然罢了。韩国人是不会承认的，它们很早以前就开始做的就是割断所谓“韩民族”文化和中华文化的联系，也就是，“去汉化”。汉城改“首尔”的闹剧刚刚过去，这不，几个韩国议员又开始张罗把“汉江”改为“韩江”了。在韩国，“中医”被改名成“韩医”，并被作为高丽医学而拼命向世界宣传推广。针灸也被认为是韩国人发明的，我没看过大长今，不知道里面是不是存在歪曲，但朝鲜日报分明是报道了这个“发现”，并找到了个法国人作证，宣称要纠正世界人民的错误认识，把针灸重新还给韩国。“活字印刷术”也被认为是韩国人先发明，这与中国学者发生了争论，韩国专门建立了印刷术博物馆，把中国在“印刷术”方面的功绩完全抹去，只片面夸大宣传自己，并邀请各国客人免费参观，并经常在国际场合进行宣传。我有幸被邀参观过那个博物馆，我只能承认他们在这方面的确做的非常好，“谎言重复一百遍就成了真理”，韩国人用这种方式“虚构”真理非常在行。

国内的媒体还宣扬过说韩国人如何如何重视“端午”，似乎应该把端午拱手相让了。但很抱歉，我在韩国还真感觉不出来。首先我身边的年轻人根本就没人知道端午这个东西，那一天也根本不像国内媒体所说“全国庆祝”，连休假都没有，一切如常。当然有的地方有庆祝活动，但那是拿来作秀的，政府出钱搞的公关活动，为什么要这么劳民伤财？把端午这个东西从中国人手上夺过来成了“大韩民国”的文化遗产，光荣呀，“民族自信感”大增呀，更重要的是，以后可以以此为证据“考证”出韩民族文化对中华的影响。

我在韩国被多次问到：“中国有没有中秋节，中国有没有春节”之类的，不要笑，这其中很多是名牌大学博士，以至于我后来实在厌烦了答他们：“农历是中国人发明的，所有农历节日中国都有。”还有个韩国名校博士一次和我讨论，信誓旦旦的说甲骨文应该是从朝鲜半岛传到中原的，并引用了一些韩国学者的“论据”，遇到这样的事我都懒得争辩了，真希望他在国际学术会上做这个报告，也给西方人看看韩国学者的“风采”。后来我看了篇韩国学者的文章，乖乖，连大禹治水用的“神书”都是朝鲜半岛传过来的，对韩国学者的学术能力我简直找不到语言形容了，惊如天人。要知道韩国直到15世纪才有自己的文字，韩国建国后为了“去汉化”才禁止使用汉字的，它们的学者“参考”的史书几乎都是用汉字写成的中国史书，它们以前还根本没有文字记录的历史呢。

“老吾老，以及人之老；幼吾幼，以及人之幼“

我看过一些国内媒体写的文章，盛赞韩国的人情世故，说韩国人讲礼貌，尊老爱幼等等。等级制度森严，的确，尊老，我承认，但爱幼，只能说那位作者胡说八道了。如果摆出一副前辈的尊严，对着后辈“狗崽子”“龟孙子”骂不离口，再时常赏两个巴掌拍拍后脑勺也叫“爱幼”的话，我倒情愿前辈们不要“爱”我，just leave me alone。我作为一个外国人，在韩其间自然少于受到如此“优待”，不过看着身边的韩国小辈们屡屡被前辈捉弄教训却还要服服帖帖的甘受，真觉得有点同情他们。不过一年后我的同情心也消失了，因为又来了新人，当年的后辈成了前辈。对于新来的后辈们，这帮当年的“受害者”手段可一点也不含糊。

在韩国，前辈说的话必须无条件服从，遇到无理要求也不能公开反驳，不然就成了集体中的异类，受所有人的排挤，生活更加悲惨。表面上韩国人的小团体是非常团结，吃饭，喝酒，活动大家都在一起（因为不能不去,不然又会受排挤），但鉴于前辈和后辈这种完全不平等的上下级关系，后辈是不是真心尊敬前辈，只有鬼知道。据我所知，好多平时看起来相当亲密的前后辈一旦分开，那就是老死不相往来，大概能说明点问题吧。另外我所认识的韩国人似乎还真的没有什么朋友，实在郁闷了就靠着自己前辈的权威“命令”几个后辈出去陪着喝喝酒，也不管对方愿不愿意。想想这种人生也挺失败的，不过韩国人也习惯了吧。

总之韩国的社会关系是非常让人压抑的，刚去韩国时我也试图融入它们的文化，不过后来我放弃了。因为感觉如果我真的逼自己融入了他们这种文化，我会变成一个狭隘自私的人，变成一个不考虑别人感受，用权威等级压迫后辈的人，这对我以后的发展是很有害的，除了韩国人，我还真没有发现哪个外国人喜欢它们那种社会氛围。

“人必先自辱，而后人辱之”

现在很多中国人总爱说韩国人无知，狂妄自大，这其实很大程度上是因为韩国人本身的行为让我们有了这样的印象，是它们自己带来的恶名。而且，这些无知，无礼，狂妄自大的行为如此之多，如此之普遍，已经成为了所有在韩国生活过的中国人所不能回避的了。最有代表性的就是韩国人对中国客人提出的各种千奇百怪的问题，有很多甚至已经很无礼，足以让对方生气了。不过我前面已经介绍过韩国人对中国的感情和他们不考虑别人感受的特点，所以在它们看来，根本不能算是无礼，说不定还会觉得咱们神经过敏呢。

我在一个韩国华人论坛上看到一篇文章，讲的是一些在韩国的中国人常常遇到的问题，当时我觉得很有意思，因为和我遇到过的几乎一模一样，看来大家都差不多。在此摘抄转载一下，我就懒得打字了。。。

A 你父母是干什么的？来韩国的都是中国的有钱人吧！

B 中国有面包么？中国也有方便面吗？中国也有苹果吗？中国也有练歌房(卡拉ok) 么？中国也有台球厅么？中国也过春节呀！中国也有网吧？中国人也用手机吗？

C 这个比较诡异：中国人洗澡么？

为什么会问这个问题呢？因为前几年有一个去过中国的韩国人写了篇文章讲中国人如何不讲究个人卫生，夏天身上散发恶臭，结果被韩国好多网站和报纸都转载了，（我已经说过，韩国媒体是非常喜欢这类文章的，韩国民众也是非常乐意通过这类文章来满足自己“民族自豪感”的），非常出名，大概韩国人对中国人卫生状况不良的印象由此而来。。。

D 针对朝鲜族朋友的，一般会问：“你们是不是都很想来韩国当韩国人呀？你们希不希望从中国独立”之类的问题，

　　说到朝鲜族，感觉韩国人有两个标准，只要是在国际上得了奖或者出了名，那不管是中国朝鲜族还是韩裔美国人，那统统都叫“在外同胞”，要大肆宣传一番；不过要是中国朝鲜族在韩国作奸犯科之类的被抓住了，那媒体首先强调的是那个罪犯是中国人。

E 韩国人在带领人参观的时候很喜欢问："中国也有这么高的建筑吗？""中国也有地铁吗？转述两个好玩的例子（不是我亲身经历，虽然我也遇到过上述两个问题）：

“一次韩国朋友带领我们去汉城市内观光，参观了他们全国最高最自豪的“63大厦"(不太高，就63层)，结果问我们：中国也有这么高的建筑吗？我们平时被他的类似问题已经折磨得受不了了，一哥们就说：没有，韩国的这建筑世界第一高。。。那韩国人听了想了想，说：美国有更高的，我们这个大概只是亚洲第一吧。。。”

“还有一次，韩国友人带我们去汉城的一个市内公园玩，大家都知道韩国国小，能在汉城搞出块还不算小的地方种点花草树木就很不得了了，所以就礼节性的赞扬了一下，结果一韩国人自豪的不行，问我们：北京也有这样的市内公园吗？我们一哥们回答：我们有颐和园，比这个大。。。那家伙听了顿时不说话了，他再孤陋寡闻，颐和园的大名还是知道的，最近中国旅游广告比较多。。。”

原文作者最后一段写的很好：

“看了之后有什么感受，是不是很不爽？其实韩国人的这些表现也提醒了我们，现在中国正在变强大，越来越多的外国人来到中国，其中也不乏那些来自相对落后国家的人们，我们在和这些外国人接触的时候会不会也出现韩国人这种“暴发户“心态呢？为了满足自己的虚荣心而提些弱智的问题，虽然别人当场不说，但对中国整个的印象肯定会受到影响。。。所以大家都应该反思一下，有则改之，不要让别人也觉得我们泱泱大中华的国民和韩国人一样小肚鸡肠，狂妄无知。”

“普天之下，莫非王土”

说到韩国和中国的领土争端，相信不少中国人都要哑然失笑，隔着个海，还有领土争端？正如我在前面已经提到，韩国经过几十年的教育，现在韩国人一致认为，“高句丽”是它们“韩民族”的祖先，“高句丽历史”是韩国历史。04年由于中国的“东北工程”将高句丽史列为中国史一部分曾引发了中韩外交冲突，在媒体的推波助澜下，韩国国内的反华情绪非常高涨。至于真相如何，我这里就不深入讨论了，把工作留给学者，有兴趣的看官可以去查查相关资料。

但那些绑着写有“还我河山”四个鲜红大字布条的韩国人时常会成群结队出现在吉林吉安，延边，或者长白山。我看了朝鲜日报做的调查，居然过半的韩国年轻人赞成“夺回”“满洲（东北）和间岛（吉林延边）”。还是那句话，“谎言重复一百遍就成了真理”，韩国在高句丽问题上已经完成了发动群众的工作，而中国人大概很少有人知道高句丽，说不定还有不少人赞成韩国的观点，却不知道这个争端关系到了东北的归属。

如果高句丽历史争论只是做秀，为将来做准备的话，那么延边和黄海领土争端已经摆在面前。

中国与朝鲜和韩国存在着黄海大陆架的争议。中国主张按自然延伸原则划界（对待日本也是如此，因为我们的大陆架延伸更远），但韩国主张按中间线原则划界。这样，中韩双方便产生了6万平方公里的争议区。具有讽刺意味的是，韩国在黄海上对于中国主张中间线原则，而在东海上对于日本却主张采用自然延伸原则，完全没有原则性，只希望两边都占便宜。1991年5月至8月间，韩国在没有与中国达成协议的情况下，连续在中方黄海水域进行石油钻探活动，遭到强烈抗议。2004年7月，韩国还联合日本，在中国东海中方一侧的大陆架进行石油钻探，也遭到中国的抗议。

此外，中韩两国在东海还有12万平方公里的争议区。中国主张按自然延伸原则与其划界，而韩国则主张按和划分黄海大陆架相同的中间线划分东海大陆架，两线之间便形成了12万平方公里的争议区。1974年1月30日，韩国与日本政府签订东海《共同开发大陆架协定》，开发石油和天然气等。中国政府曾发表声明，指出上述协定是非法的、无效的。

韩国汉城市议会2005年10月24日召开第159次临时会议，制定了所谓的旨在“废除《间岛条约》”的决议案，决议案认为“间岛原是韩国领土”，因中国清朝与日本签约而被“割让”。决议案称，此举从国际法上看“违背当事人的意志”，所以韩国认为中日之间签署的《间岛条约》“根本无效”。又称，国际法认为，即使条约有“不妥之处”，在签定一百年(2009年)之后，通常也被视为有效。因此，决议案认为韩国政府应该为“找回”间岛及时向国际法院提起诉讼。

“间岛”，原名“垦岛”（因大批朝鲜移民越界垦殖而名），系图们江北岸吉林省延边地区和龙县光霁峪前的一处滩地，自古系中国领土。清政府与朝鲜政府曾多次勘定国界，确定该地为中国领土。

后来日本捏造所谓“间岛悬案”，并且恶意歪曲所谓的“间岛”范围，将纵十里、宽一里的滩地，扩大到“海兰河以南、图们江以北，宽约二三百里，长约五六百里之地”，即中国延吉、汪清、和龙、珲春四县地区，妄图一举侵吞这些地方。经过中国官员和学者的多方努力，最终挫败了日本的这一侵略图谋。1909年9月4日中日双方代表在北京签订《中韩界务条款》，即所谓的“间岛协约”。

可以看出，韩国和中国是确实存在领土争端的，但中韩政府目前比较务实，特别是中国现在面临日美的压力，又要和平崛起，所以对以上的争端都做了最低调的处理。韩国政府也不敢造次，所以中韩间至今没有发生什么大的冲突。但韩国媒体向来有煽风点火，制造反华情绪的“光荣传统”，再加上其教育部门的作用，现在几乎所有的韩国人都认为中国“侵占”了它们的领土，其险恶用心不能不察。

最后总结一下“大韩民族”的特性，在我看来，韩民族和日本民族是最相似的，特别是经过５０年日本殖民统治，它们的共同点相当多。

1，国土狭窄，自然资源贫乏，严重依赖国外市场。日本好歹有30万平方公里的土地，韩国只有不到10万。经济都是外向型，原料基本靠进口，日本历史上强盛时走上了武力扩张之路。

2，单一民族，排他性非常强，狭隘民族主义盛行。日本右翼分子让中国人愤怒，但韩国更

加狭隘极端的民族主义却时常让我冒冷汗，真庆幸它们至今仍然分裂，没有强大的实力。

3，为了“民族自豪感”，不惜篡改历史。记得有文章说日本人考古作假，让人鄙视。不过后来见了韩国人的“考古”，我倒觉得至少日本人还想着去做假证据，韩国人甚至把这一步都省了，还把成果出来大肆宣传。我不知道日本是不是也搞“去汉化”，但韩国搞得也太离谱了一点。

4，没有继承到儒家的真髓，形成了自己独特的文化。儒家强调“仁”，这很难和日本帝国主义联系到一起。而韩国的那种社会风气和韩国人的诸多品行也难和“仁”和“礼”联系到一起。所以说它们皮毛和架子是继承了，而且比我们做的还要“儒家”，但真正理解了吗？我看未必。

５，韩日战后经济发展模式基本一致，当然是韩国照搬日本经验和体制。所以韩国精英们对日本是相当推崇的，几乎达到了言必称日本的地步。至于国内大肆宣扬的“反日”，抱歉，我在韩国还真没感觉出来，身边的韩国人全套日本电器，倒是咱们几个“穷苦”中国人买了比较廉价的韩国产品支援了他们的三星LG。韩国国产车确实满街跑，日本车很少，不过去江南的富人区看看那里lexus也不少，原因很简单，贸易保护嘛，价高老百姓买不起。这里说句题外话，国内的车市，现在奇瑞吉利几个越卖越好，真高兴，这才是咱们的中国企业，不要贸易保护，和合资，外资企业硬碰硬，这样成长起来才有竞争力，我看好中国汽车。

其实关于韩国的点点滴滴还多的很，比如韩国料理，韩剧等等，以后有时间再慢慢写，我这个“知韩派”也发挥点余热，独乐乐不如众乐乐，和大家分享一下，关于韩国，你知我知大家知，岂不快哉？

附：推荐一个韩国新闻网站
http://chinese.chosun.com
国内可能需要用代理服务器上，这是韩国最大的新闻媒体朝鲜日报的中文版，上面的文章也就反映了韩国的主流思想，去搜一下 “中国”“泡菜”“高句丽”等关键字，你会对韩国民众有个全新的认识。

- 作者： nestore 2005年11月25日, 星期五 16:32　回复（1） |　引用（0）加入博采

大陆网络游戏最新消息　（作者置顶）

- 作者： nestore 2005年11月18日, 星期五 18:06　回复（0） |　引用（0）加入博采

[转帖]文件解压缩

对于刚刚接触Linux的人来说，一定会给Linux下一大堆各式各样的文件名给搞晕。别个不说，单单就压缩文件为例，我们知道在Windows下最常见的压缩文件就只有两种，一是,zip，另一个是.rar。可是Linux就不同了，它有.gz、.tar.gz、tgz、bz2、.Z、.tar等众多的压缩文件名，此外windows下的.zip和.rar也可以在Linux下使用，不过在Linux使用.zip和.rar的人就太少了。本文就来对这些常见的压缩文件进行一番小结，希望你下次遇到这些文件时不至于被搞晕icon_smile.gif

　　在具体总结各类压缩文件之前呢，首先要弄清两个概念：打包和压缩。打包是指将一大堆文件或目录什么的变成一个总的文件，压缩则是将一个大的文件通过一些压缩算法变成一个小文件。为什么要区分这两个概念呢？其实这源于Linux中的很多压缩程序只能针对一个文件进行压缩，这样当你想要压缩一大堆文件时，你就得先借助另它的工具将这一大堆文件先打成一个包，然后再就原来的压缩程序进行压缩。

　　Linux下最常用的打包程序就是tar了，使用tar程序打出来的包我们常称为tar包，tar包文件的命令通常都是以.tar结尾的。生成tar包后，就可以用其它的程序来进行压缩了，所以首先就来讲讲tar命令的基本用法：

　　tar命令的选项有很多(用man tar可以查看到)，但常用的就那么几个选项，下面来举例说明一下：

　　# tar -cf all.tar *.jpg
　　这条命令是将所有.jpg的文件打成一个名为all.tar的包。-c是表示产生新的包，-f指定包的文件名。

　　# tar -rf all.tar *.gif
　　这条命令是将所有.gif的文件增加到all.tar的包里面去。-r是表示增加文件的意思。
# tar -uf all.tar logo.gif
　　这条命令是更新原来tar包all.tar中logo.gif文件，-u是表示更新文件的意思。

　　# tar -tf all.tar
　　这条命令是列出all.tar包中所有文件，-t是列出文件的意思

　　# tar -xf all.tar
　　这条命令是解出all.tar包中所有文件，-x是解开的意思

　　以上就是tar的最基本的用法。为了方便用户在打包解包的同时可以压缩或解压文件，tar提供了一种特殊的功能。这就是tar可以在打包或解包的同时调用其它的压缩程序，比如调用gzip、bzip2等。

　　1) tar调用gzip

　　gzip是GNU组织开发的一个压缩程序，.gz结尾的文件就是gzip压缩的结果。与gzip相对的解压程序是gunzip。tar中使用-z这个参数来调用gzip。下面来举例说明一下：

　　# tar -czf all.tar.gz *.jpg
　　这条命令是将所有.jpg的文件打成一个tar包，并且将其用gzip压缩，生成一个gzip压缩过的包，包名为all.tar.gz

　　# tar -xzf all.tar.gz
　　这条命令是将上面产生的包解开。

　　2) tar调用bzip2

　　bzip2是一个压缩能力更强的压缩程序，.bz2结尾的文件就是bzip2压缩的结果。与bzip2相对的解压程序是bunzip2。tar中使用-j这个参数来调用gzip。下面来举例说明一下：

　　# tar -cjf all.tar.bz2 *.jpg
　　这条命令是将所有.jpg的文件打成一个tar包，并且将其用bzip2压缩，生成一个bzip2压缩过的包，包名为all.tar.bz2

　　# tar -xjf all.tar.bz2
　　这条命令是将上面产生的包解开。
3)tar调用compress

　　compress也是一个压缩程序，但是好象使用compress的人不如gzip和bzip2的人多。.Z结尾的文件就是bzip2压缩的结果。与 compress相对的解压程序是uncompress。tar中使用-Z这个参数来调用compress。下面来举例说明一下：

　　# tar -cZf all.tar.Z *.jpg
　　这条命令是将所有.jpg的文件打成一个tar包，并且将其用compress压缩，生成一个uncompress压缩过的包，包名为all.tar.Z

　　# tar -xZf all.tar.Z
　　这条命令是将上面产生的包解开

　　有了上面的知识，你应该可以解开多种压缩文件了，下面对于tar系列的压缩文件作一个小结：

　　1)对于.tar结尾的文件

　　tar -xf all.tar

　　2)对于.gz结尾的文件

　　gzip -d all.gz
　　gunzip all.gz

　　3)对于.tgz或.tar.gz结尾的文件

　　tar -xzf all.tar.gz
　　tar -xzf all.tgz

　　4)对于.bz2结尾的文件

　　bzip2 -d all.bz2
　　bunzip2 all.bz2

　　5)对于tar.bz2结尾的文件

　　tar -xjf all.tar.bz2

　　6)对于.Z结尾的文件

　　uncompress all.Z

　　7)对于.tar.Z结尾的文件

　　tar -xZf all.tar.z

　　另外对于Window下的常见压缩文件.zip和.rar，Linux也有相应的方法来解压它们：

　　1)对于.zip

　　linux下提供了zip和unzip程序，zip是压缩程序，unzip是解压程序。它们的参数选项很多，这里只做简单介绍，依旧举例说明一下其用法：

　　# zip all.zip *.jpg
　　这条命令是将所有.jpg的文件压缩成一个zip包
# unzip all.zip
　　这条命令是将all.zip中的所有文件解压出来

　　2)对于.rar

　　要在linux下处理.rar文件，需要安装RAR for Linux，可以从网上下载，但要记住，RAR for Linux
不是免费的；可从http://www.rarsoft.com/download.htm下载RAR for Linux 3.2.0，然后安装：

　　# tar -xzpvf rarlinux-3.2.0.tar.gz
　　# cd rar
　　# make

　　这样就安装好了，安装后就有了rar和unrar这两个程序，rar是压缩程序，unrar是解压程序。它们的参数选项很多，这里只做简单介绍，依旧举例说明一下其用法：

　　# rar a all *.jpg
　　这条命令是将所有.jpg的文件压缩成一个rar包，名为all.rar，该程序会将.rar 扩展名将自动附加到包名后。

　　# unrar e all.rar
　　这条命令是将all.rar中的所有文件解压出来

　　到此为至，我们已经介绍过linux下的tar、gzip、gunzip、bzip2、bunzip2、compress、 uncompress、 zip、unzip、rar、unrar等程式，你应该已经能够使用它们对.tar、.gz、.tar.gz、.tgz、.bz2、.tar.bz2、. Z、.tar.Z、.zip、.rar这10种压缩文件进行解压了，以后应该不需要为下载了一个软件而不知道如何在Linux下解开而烦恼了。而且以上方法对于Unix也基本有效。

　　本文介绍了linux下的压缩程式tar、gzip、gunzip、bzip2、bunzip2、compress、uncompress、 zip、 unzip、rar、unrar等程式，以及如何使用它们对.tar、.gz、.tar.gz、.tgz、.bz2、.tar.bz2、.Z、. tar.Z、.zip、.rar这10种压缩文件进行操作。

转自linuxsir
贴出：yh6788

仅作个人文摘收藏

- 作者： nestore 2006年02月19日, 星期日 12:56　回复（0） |　引用（0）加入博采

roboform破解文件安装方法

1. 下载入最新的AIRoboForm：
http://www.roboform.com/dist/affs/AiRoboForm-cn8cn.exe

2. 将Crack目录拷贝到AIRoboForm安装目录下：
例如:C:\Program Files\Siber Systems\AI RoboForm

3. 关闭所有浏览器窗口(这一步非常重要! 如关闭不完全,会导致破戒无法安装),
在命令行下运行Crack目录下的 crack.bat
-> Windows 下点击 "开始"
-> 在"运行" 中键入 cmd.exe
-> 在DOS命令行窗口中键入路径+crack.bat 运行破解批命令
例如: cd C:\Program Files\Siber Systems\AI RoboForm\crack\crack.bat

4.重新启动浏览器破解即告完成.
-> 在 IE 浏览器的一个RoboForm 工具栏中, 点击 "RoboForm" 按钮
-> 点击弹出的下拉菜单的倒数第二项 "帮助(H)"
-> 接着在右边弹出的子菜单中,点击倒数第三项 "激活 RoboForm 专业版(V)"
->

- 作者： nestore 2006年02月7日, 星期二 00:06　回复（8） |　引用（0）加入博采

题客调查网

为何Qtick值得信赖

题客调查网为企业提供的是研究报告，而不是会员的个人资料

　　题客调查网的目标是通过互联网收集消费者对消费品或服务的意见和建议，并整理成为报告形式为企业服务，搭建消费者和企业之间沟通的桥梁。

　　题客调查网将部分调研服务收入以积分或奖品的形式赠送给会员，作为对会员劳动的回报。

Qtick服务模式

题客调查网是由专业的市场调查公司建立的

　　题客调查网(QTICK.com)隶属于北京华通现代市场信息咨询有限公司。

　　北京华通现代市场信息咨询有限公司成立于1997年，多年来一直服务于IBM、宝洁、Epson、金佰利、联想、LG、李宁、平安保险、索尼、通用汽车、万科、新浪、香奈儿、杨森、一汽大众等国内外知名企业。

　　本公司全面遵守国际商会/ESOMAR《关于市场和社会研究的国际准则》，会员的个人资料受到严格保护，会员在注册及参与市场研究项目中的个人信息保证仅用于统计分析。

　　我们郑重向您承诺：您的个人信息将受到严格保密，不会泄露给客户或者第三方，除非法律法规要求或者会员本人同意。

点击下面的图片注册:

- 作者： nestore 2006年01月8日, 星期日 22:13　回复（0） |　引用（0）加入博采

受访钱庄

	会员全部为免费加入，无须任何费用
	会员通过回答问题获得相应积分，每次问题的积分根据问题的长度等因素会不一样
	会员获得的积分可直接1：1兑换成现金
	本俱乐部通过各类银行发送现金，EMS发送奖品
	推荐人数累积越多，每次获得的积分也越多
	注册会员须系统真实的个人信息以便办理一卡通以及您能获得您的现金和奖品。每个注册会员我们都需要验证，发现有虚假信息将不予注册
	每次问题的回答都需要认真准确，对每次调查我们都将检验其真实性，对于不真实和敷衍的回答问卷我们将不予承认，并不给予回答的会员以本次调查的相应分数
	我们会向没有获得相应积分的会员通告并解释其为何问卷不被承认
	对于已经第3次回答问卷不被承认的会员，将不再获得受调查的机会，其已有积分将立刻兑换成相应现金，在积分兑换完成后，该会员将不再是本俱乐部会员，不享有会员的其他服务
	本俱乐部对于所有会员的个人资料都将严格保密
	本公司保留对本条款的解释权。对于其中的条款未来将有可能会变动

免费注册

- 作者： nestore 2006年01月6日, 星期五 20:19　回复（0） |　引用（0）加入博采

eDataPower在线调查

社区功能：

1、参与调查：会员参与eDataPower发布的WEB形式的问卷调查 web调查演示我的调查
2、投票广场：会员自主发起投票，参与会员发起的投票，公开投票结果投票规则进入投票广场
3、报告DIY：会员可成为eDataPower的特约撰稿人报告DIY说明报告DIY交流
4、悬赏求助：工作或生活中遇到难题时，使用调查积分向会员求助使用演示进入悬赏求助
5、原创生活：记录原汁原味的生活历程（文章、图像、Flash 、视频、MP3等），附件最大支持5M 进入原创生活

您在参加eDataPower调查的同时，更可以领略社区交流的快乐感觉。为此，我们设定了调查积分。

何为调查积分？参与eDataPower的调查，可以获得调查积分。不要忘了，调查积分是可以兑换现金或礼品的哦。
获取途径：　
1、注册积分： 20点；
2、调查积分：参与调查获得积分。
3、推荐积分：推荐一位好友并且这位好友通过审核，可获得5点。
4、加盟积分：您的网站加盟后，通过您的网站成功注册会员的，1点/位。
5、投票积分：参与一次小投票，可获得0～5点积分。
6、特别加分：对突出贡献的会员，我们将给予特别加分。
7、助人得分：在社区悬赏求助栏目，帮助别的会员解决问题，会得到积分奖励。

调查积分规则

调查积分获得

■ 注册积分：注册成功时可获得eDataPower赠送的20点。
■ 调查积分：参与调查获得积分。积分数与问题数有关，问题数×单个问题积分，单个问题积分一般为 1 点。
■ 推荐积分：推荐一位好友并且这位好友通过审核，可获得 5 点 , 推荐数量不限。参照：推荐说明
■ 加盟积分：您的网站加盟后，通过您的网站成功注册会员的， 1 点 / 位。 参照：网站加盟说明
■ 投票积分：参与一次小投票，可获得 0 ～ 5 点积分。
■ 特别加分：为 eDataPower 的发展做出突出贡献的会员，我们将酌情给于特别加分。
■ 助人得分：在社区悬赏求助栏目，帮助别的会员解决问题，会得到积分奖励。

调查积分扣除

（ 1 ）兑现时，从总积分中减去相应的兑现分；
（ 2 ）发现虚假推荐，或重复注册的，但是却通过审核的，减去已经获得的推荐分，并从会员现有积分总数中扣除积分×（ 5 ％至 10 ％）但不低于 20 点的积分；
（ 3 ）其他非正规渠道获得积分，我们将酌情扣除。

调查积分兑换

累计积分满 500 点以上（包含 500 点）时可兑换图书、礼品、现金(10点=1元人民币)

- 作者： nestore 2005年12月29日, 星期四 11:58　回复（1） |　引用（0）加入博采

免费赠送Solaris 10 x86安装盘（DVD）

Sun 中国技术社区免费为打算安装体验Solaris 10 x86操作系统的网友提供Solaris 10 x86操作系统的DVD安装盘。欢迎感兴趣的朋友报名索取，我们会在收到您的请求后将DVD安装盘通过邮局邮寄给您。

请您在报名的时候一定要确认自己的通讯方式以及其它信息是最新的，否则您有可能收不到我们邮寄给您的DVD光盘。一般来说，在收到您的报名信息之后，我们需要两周的时间来进行处理。

请您在此处报名索取Solaris 10 x86操作系统的DVD安装光盘。

最低系统需求：

x86或者x64处理器，最低120 MHz
256 MB内存，建议使用512 MB或者更多内存
2 GB以上的空闲硬盘空间
DVD驱动器

Sun公司提供了一份Solaris 10 x86兼容硬件列表， Solaris 10 x86支持在兼容硬件列表上的所有硬件设备。但是这并不意味着不在兼容硬件列表上的硬件不能够运行Solaris 10 x86操作系统。如果您的硬件不在兼容硬件列表上，但是您成功的在您的系统上安装了我们提供的Solaris 10 x86操作系统，我们建议您将您的系统的详细配制提交给我们，我们会将这个信息共享到整个Solaris社区。

SUN中国公司对此次活动拥有变更权利和最终解释权。

- 作者： nestore 2005年12月22日, 星期四 10:52　回复（0） |　引用（0）加入博采

【转】VB技巧四

输入限制确认

    在某些应用程序中，我们需要限制在文本框或其它一些控件中只能输入数字或一些特定的字符，现在我们可以通过下面的一个函数来实现此功能：
Function ValiText(KeyIn As Integer, ValidateString As String, Editable As Boolean) As Integer
Dim ValidateList As String
Dim KeyOut As Integer
If Editable = True Then
ValidateList = UCase(ValidateString) & Chr(8)
Else
ValidateList = UCase(ValidateString)
End If
If InStr(1, ValidateList, UCase(Chr(KeyIn)), 1) > 0 Then
KeyOut = KeyIn
Else
KeyOut = 0
Beep
End If
ValiText = KeyOut
End Function
    在工程中加入此函数后，你就可以使用它了。方法：在需要限制输入的控件的 KeyPress 加入以下代码：
        KeyAscii=ValiText(Keyascii, "0123456789/-",True)
    现在你就可以过虑掉你不希望的字符了。在此例中，我们只接受第二个参数提供的字符，即："0123456789/-"
    而此函数的第三个参数就决定了能否使用 [Backspace] 键。最后值得一提的是此函数对大小写是不敏感的。

如何让TextBox的输入具备overwrite(覆盖)的功能？

我们在 TextBox 中所输入的字符，一律会被 TextBox 是视为在光标处插入 (insert)新的字符，如果想以输入的字符 overwrite(盖掉 ) 输入光标所在位置的字符，可以在 TextBox 的 KeyPress 物件程序中撰写以下程序：
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <> vbKeyBack And KeyAscii <> vbKeyReturn Then
Text1.SelLength = 1
' 将 Text1 输入光标位置的字符变成「被选取的字符」
Text1.SelText = Chr(KeyAscii)
' 「被选取的字符」取代成为「输入的字符」
KeyAscii = 0
' 将此一字符吞掉，不再传给 TextBox
End If
End Sub

如何计算 TextBox 之中的行数

多行的 TextBox 是以 vbCr+vbLf 两个字符来断行的，因此检查这两个字符的出现次数就可以知道 TextBox 的行数，但如果 TextBox 之中的资料很多，检查行数的执行效能就低了一点。
为了提升执行效能，可直接调用 Windows API，首先在 Form 的 (一般 ) 声明以下的常数及 API：
Const EM_GETLINECOUNT = &HBA
Private Declare Function SendMessageBynum Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
而调用的方法如下：
ret = SendMessageBynum(Text1.hwnd, EM_GETLINECOUNT, 0, 0&)
则传回值 ret 即等于 TextBox 的行数。

如何在输入光标进入TextBox时，将整个TextBox的内容变成反白？

利用 GetFocus 事件 (发生于输入游标进入 TextBox 时 )、 SelStart 属性 (表示被选取区的起始位置 )、及 SelLength 属性 (表示被选取区的长度 )，程序如下：
Private Sub Text1_GotFocus()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub

在含有卷动轴的 TextBox 中，如何以程序控制 TextBox 的卷动？
传送 EM_LINESCROLL 信息给 TextBox 控制文件，方法是调用 SendMessage API 函数，细节如下：
1. API 的声明：
Const EM_LINESCROLL = &HB6
Private Declare Function SendMessageBynum Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
注：如果以上的声明放在「一般模块」底下，应在 Const 之前加上 Public 保留字，并且将 Declare 之前的 Private 保留字去掉。
2. 调用范例：
ret = SendMessageBynum(Text1.hwnd, EM_LINESCROLL, 0, 1 ) ' 下卷一行
ret = SendMessageBynum(Text1.hwnd, EM_LINESCROLL, 0, -1 ) ' 上卷一行
ret = SendMessageBynum(Text1.hwnd, EM_LINESCROLL, 1, 0) ' 右卷一列
ret = SendMessageBynum(Text1.hwnd, EM_LINESCROLL, -1, 0) ' 左卷一列
ret = SendMessageBynum(Text1.hwnd, EM_LINESCROLL, 1, 1 ) ' 下卷一行且右卷一列
注：以上的 Text1 为 TextBox 的名称。

利用 timeGetTime 更精准地计算时间差。

我想每 0.005 秒做某一件工作，所以撰写了以下程序：
Dim tm1 As Single
Do
    tm1 = Timer
    While Timer - tm1 <0.005 ' 等于 0.005 秒
        DoEvents
    Wend
    ...做某一件工作
Loop
但实际上，在 While 循环里面， Timer 函数几乎每次都得到相同的时间，只有大约隔了 0.05秒才会得到不同的时间，也就是说 Timer 的准确性只有 0.05 秒，但我希望进行的工作却是每 0.005 秒一次，该怎么办呢？

可以改用 Windows API 的 timeGetTime 函数，此一函数会传回 Windows 开机以来所经过的时间，时间单位是 1/1000 秒，举例来说，开机经过 2 分钟，则传回值等于 2*60*1000， timeGetTime 的优点是时间可以精确到 1/1000 秒，所以可以用来解决上述的问题，细节如下：
1. API 的声明：
Private Declare Function timeGetTime Lib "winmm.dll" Alias "timeGetTime" () As Long
注：如果以上的声明放在「一般模块」底下，应将 Declare 之前的 Private 保留字去掉。
2. 程序范例：
Dim tm1 As Long
Do
    tm1 = timeGetTime
    While timeGetTime - tm1 <5 ' 等于 5/1000="0.005" 秒
        DoEvents
    Wend
    ...做某一件工作
Loop

快速读取 TextBox 第 N 行的资料

TextBox 是以 vbCr+vbLf 为分行符号，如果我们要逐一读取 TextBox 每一行，无非是寻找 vbCr+vbLf 的所在位置，然后取出每一行的字串，不过这个方法真的不快，而且如果我们要读取第 N 行资料，还是要从第 1、2、┅N-1 行逐一读起，实在麻烦。
还好 Windows API 提供有读取 TextBox 第 N 行的功能，细节如下：
1. API 的声明：
Const EM_GETLINE = &HC4
Const EM_LINELENGTH = &HC1
Const EM_LINEINDEX = &HBB
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 Sub RtlMoveMemory Lib "KERNEL32" (lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long)
注：如果以上的声明放在「一般模块」底下，应在 Const 之前加上 Public 保留字，并且将 Private 保留字去掉。
2. 程序范例：
Sub TB_GetLine(ByVal hWnd As Long, ByVal whichLine As Long, Line As String)
    Dim length As Long, bArr() As Byte, bArr2() As Byte, lc As Long
    lc = SendMessage(hWnd, EM_LINEINDEX, whichLine, ByVal 0&)
    length = SendMessage(hWnd, EM_LINELENGTH, lc, ByVal 0&)
    If length > 0 Then
        ReDim bArr(length + 1) As Byte, bArr2(length - 1) As Byte
        Call RtlMoveMemory(bArr(0), length, 2)
        Call SendMessage(hWnd, EM_GETLINE, whichLine, bArr(0))
        Call RtlMoveMemory(bArr2(0), bArr(0), length)
        Line = StrConv(bArr2, vbUnicode)
    Else
        Line = ""
    End If
End Sub
' 假设要读取 Text1 第 5 行的资料
Dim S As String
Call TB_GetLine( Text1.hWnd, 5, S )
' 传回值 S 即等于到 5 行的资料
注：TextBox 的行次是从 0 起算。

在 ListBox 之中，如何检测鼠标所在位置的选项？

我们可以利用 ListIndex 属性得知 ListBox 的选项，但是当鼠标移到某一个选项上面(但还没有选取)，如何得知此一选项呢？方法是对 ListBox 送出 LB_ITEMFROMPOINT 信息，细节如下：
1. API 的声明：
Const LB_ITEMFROMPOINT = &H1A9
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
注：如果以上的声明放在「一般模块」底下，应在 Const 之前加上 Public 保留字，并且将 Private 保留字去掉。
2. 调用例：(在表单上布置一个 TextBox 及一个 ListBox，然后利用 MouseMove 事件程序来检测鼠标所在位置的选项)
Private Sub List1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim pos As Long, idx As Long
    pos = X / Screen.TwipsPerPixelX + Y / Screen.TwipsPerPixelY * 65536
    idx = SendMessage(List1.hwnd, LB_ITEMFROMPOINT, 0, ByVal pos)
    ' idx 即等于鼠标所在位置的选项
    If Idx <65536 Then Text1.Text="List1.List(idx)<Br"> End Sub

在 RichTextBox 之中，如何将被选取的内容(包含文字及图片) 复制到剪贴簿？

如果不是写程序，那么就是按下键盘 Ctrl+C。
当使用者按下 Ctrl+C 时， RichTextBox 会对自己送出 WM_COPY 的信息，而接着 RichTextBox 的窗口程序收到此一信息时，便会将被选取的内容(包含文字及图片)复制到剪贴簿&127;。
所以如果想要将 RichTextBox 中被选取的内容复制到剪贴簿，只要对 RichTextBox 送出 WM_COPY 信息即可，以下是程序撰写上的细节:
1. API 函数的声明式:
Const WM_PASTE = &H302
Const WM_CUT = &H300
Const WM_COPY = &H301
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
注：如果以上的声明放在「一般模块」底下，应在 Const 之前加上 Public 保留字，并且将 Private 保留字去掉。
2. 调用例:
SendMessage RichTextBox1.hWnd, WM_COPY, 0, ByVal 0&

制作渐变的窗口背景色
吴斌

　　在许多Windows软件的安装程序中，时常可以看到以某种颜色由浅至深的渐变为背景的窗口。使用VB制作这类窗口的方法有不少，而通过调用API函数绘制渐变的窗口背景色，似乎是一种既简单又节省资源的方法。
　　首先，在module文件中加入下列声明语句：
　　Declare Function CreateSolidBrush Lib"GDI"(ByVal crColor As Long) As Integer
　　Declare Function FillRect Lib"USER"(ByVal hDC As Integer，lpRect As RECT，ByVal hBrush As Integer)As Integer
　　Declare Function DeleteObject Lib"GDI"(ByVal hObject As Integer)As Integer
　　Type RECT
　　left As Integer
　　 top As Integer
　　 right As Integer
　　 bottom As Integer
　　EndType
　　然后，在窗口的Paint事件中加入下列代码：
　　Private Sub Form_Paint()
　　Dim Color As Integer
　　Dim hBrush As Integer
　　Dim OldMode As Integer
　　Dim RetVal As Integer
　　Dim StepSize As Integer
　　Dim X As Integer
　　Dim FillArea As RECT
　　OldMode%=Me.ScaleMode
　　Me.ScaleMode=3
　　StepSize%=1+Me.ScaleHeight/80
　　Color%=255
　　FillArea.left=0
　　FillArea.right=Me.ScaleWidth
　　FillArea.top=0
　　FillArea.bottom=StepSize%
　　For X%=1 To 80
　　hBrush%=CreateSolidBrush (RGB(0,0,Color%))
　　RetVal%=FillRect(Me.hDC,FillArea,hBrush%)
　　 RetVal%=DeleteObject(hBrush%)
　　Color%=Color%-4
　　If Color% <0 Then Color%="0<Br"> 　　 FillArea.top=FillArea.bottom
　　FillArea.bottom=FillArea.bottom+StepSize%
　　Next
　　Me.ScaleMode=OldMode%
　　EndSub
　　按F5运行，就会出现一个以从上至下、由浅至深的渐变蓝色为背景的窗口。对上述代码稍加改动，便可制作出各种颜色和水平方向的渐变背景。

如何在VB和Delphi中快速实现立体化窗口显示

    在VB和Delphi中，我们可以很方便地创建具有立体化观感的窗口，这也是近两年来，Win3.X中较为流行的显示方式。许多专业化的软件都采用了这种立体化的窗口和相应的控件，达到了赏心悦目的效果。下面我们来谈谈如何在目前最流行的两种Win编程语言中实现这样的效果。
    其实，无论是VB还是Delphi，要实现这种效果都较为容易，在编程中，并不需要调用外部的DLL，在程序运行时，会自动调用CTL3dV2.dll。
    我们先来看看如何在VB中实现：
    1.新建一个窗口。
    2.在窗口form的属性列表中有一项Auto3D属性，缺省值为false，将其设置为true。它是控制VB中是否显示立体窗口的重要属性。
    3.在form的属性列表中还有一项BorderStyle属性，这是控制窗口的边框显示类型，将其设置为3－Fixed Double。
    4.现在可以运行这个程序了，你将会看到立体窗口出现。
    将Auto3D属性设置为true，还有一个很好的副作用，那就是在这个窗口上的Text、Frame、CheckBox、OptionButton和ListBox都自动具有了立体效果。
    在Delphi中实现似乎显得更加容易和直观：
    1.新建一个窗口。
    2.在窗口form的属性列表中有一项BorderStyle属性，它的缺省值为bsSizeable，表示边界可以任意调整，将其重新设置为bsDialog。
    3.运行程序，你会发现立体窗口出现了。(看来，Delphi中将这种立体化窗口称为“对话窗口”，确实如此，比如在Word中，对话窗口都是这种立体化的显示，而主窗口仍然是一般的风格。)
    与VB中的Auto3D类似，在Delphi中有一个属性为Ctl3D，将其设置为true，将使所有在这个窗口上的控件具有立体观感，并且这种变化是立刻反映的，而不象VB中在运行时才能看到。
    在Delphi的窗口form中，你还可以通过设置FormStyle属性为fsStayOntop来轻而易举的实现“永远浮在其他窗口”上的效果。著名的“译林”Win版本就是用Delphi写的，它其中就有一个“永远在最上面”的功能，就是这样实现的。

用Visual Basic设计更好的用户界面

    有时在一个窗口中出现较多的控制件时，如果能向导式地建议用户下一步该做什么，不失为上策。
    在Visual Basic的程序设计中，我们可以使用语句：Object.SetFaocus使我们希望的控件得到输入焦点，举个例子：在Form1中我们加入一个按钮Command1和一个文本输入Text1，双击按钮控件，然后键入如下代码：
        Text1.SetFocus
    再按F5运行程序，您就会看到一单击按钮，文本框会立即取得输入焦点。另外，我们还可以使用语句：Sendkeys "{TAB}"使下一个控件获得焦点，但我们需要在设计时确定各控件的Index值。(在Properties窗口中)让控件自己感知自己的工作已完成，而主动将焦点让出，会使用户觉得应用程序很聪明，也减少了用户出错的机会。
    可是当焦点切换的两个控件相隔有一定距离时，上述的方法有时也不足以引起用户的注意，那么一种好的解决方法是将鼠标箭头也移到控件上。可惜，VB并不支持鼠标移动，那我们就求助API函数，API函数SetCursorPos可让我们如愿。
    下面是子程序MoveCursorOn，它可让鼠标移动到指定控件上方。
    下列代码请放在declarations段中：
　
Type PoinTAPI
x As Integer
y As Integer
End Type
Declare Sub SetCursorPos Lib "User"(Byval x As Integer,Byval y As Integer)
Declare Sub ClientToScreen Lib "User"(Byval hwnd As Integer,IpPoint As PointAPI)
Declare Function GetParent Lib "User"(Byval hwnd As Integer)As Integer
    然后建立一个新的子程序(ALT＋N→N→键入子程序名MoveCursorOn)，下面是子程序的代码：
Sub MoveCursorOn(source As Control)
Dim Pt As PoinTAPI
Dim hparent As Integer
p.x=(Source.Left＋Source.Width/2)/Screen.Twipsperpixel)
p.y=(Source.Top＋Source.Height/2)/Screen.Twipsperpixel)
hparent=GetParent(source.hwnd)
ClientToScreen hparent pt
SetCursorPos pt.x pt.y
End Sub
    使用该子程序很容易，例如我们想把鼠标移动到按钮Command1上，就可使用语句
Move Cursor On Command1
    您会看到鼠标箭头已经指着按钮Command1。
    需要说明的是，千万不要滥用该子程序。让鼠标自己满屏乱飞，我们的用户会感到失去对应用程序的控制，这是违反我们的初衷的。
    在有数个输入框的窗口中(这在数据库应用程序中是很典型的)，当用户完成第一个输入框的输入后，总爱习惯性的加一个回车，希望输入焦点落到下一个输入框中(DOS中大多数应用程序是如此)，可往往事与愿违，这一回车却触发了拥有Default特性的按钮，结果不是关闭了当前窗口就是又蹦出另一窗口。用户睁大眼睛看着屏幕，“咦？！我到底做了什么？”这是Windows新用户经常遇到的事情。
    解决它其实很容易，只需在输入框的KeyPress事件中加入如下代码：
IF KeyASCII=13 Then
KeyASCII=0
Sendkeys "{TAB}"
END IF
    这样，当用户在这个输入框中键入Enter时，就象键入TAB键时，焦点被移到下一控件上。但需注意，这种方法不适用于多行的TextBox，即TextBox的MultiLine特性设为True时，因为这时的回车键是起换行的作用。

利用VB三维面板控件设计流动条

    VB提供了一个三维面板控件，利用这个控件可设计图形效果的立体界面，从而使应用程序的截面显得更生动、美观，该控件还可以设置各种形式的背景，然后在背景上显示各种形式的字符，令人感兴趣的是，使用三维面板控件，还可设计我们经常在安装程序中看到的表示安装进度的流动条，并可显示进程的流动条，并可显示进程百分比，改变流动条的颜色等。
　
一．介绍属性
    FloodColor: 确定流动条的颜色，缺省为蓝色。
    FloodPercent: 显示当前过程如流动条进行的百分比，参数改变时显示的百分数和流动条的面积改变，设为一整型值，取值范围是0~100。
    FloodShowpct: 决定是否在三维面板控件上显示百分比，是一个逻辑值。为Ture时显示，为False时不显示。
    FloodType: 表示用户对三维面板控件的使用方式。可取值有6个，如下所示：
0 缺省设置
1 表示流动条方向从左到右
2 表示流动条方向从右到左
3 表示流动条方向从上到下
4 表示流动条方向从下到上
5 表示使用指定的颜色从圆心向外画圆
　
二．流动条设计
    如果在Windows 3.x下，工具箱中不存在三维面板控件，可选择File菜单中的"Add File…" 进行添加，在弹出的对话框中找到Windows\System目录，然后选定Threed.vbx文件即可，如果使用VB 4.0，需在Tools菜单中选择Custom Control命令，选定Sheridan 3d Controls项，按OK按纽，可在工具箱中增加三维面板控件。
    启动VB ，在窗体中画一水平方向的长方形三维面板控件，按F4，在属性窗口中设置其Name为P3d、Bevellnner为2-Raised、FloodType为1、FloodshowPct为True,再在窗体中画一个按纽Command1，双击该按纽，键入下面的代码：
　
Sub Command1_Click()
P3d.floodpercent=0
For N%=1 To 100
If N%>100 Then
Exit sub
End If
P3d.FloodPercent=N%
Next N%
End Sub
    按F5，运行该程序，点击Command按纽，即可看到流动条效果。

利用VB的图片框实现屏幕的滚动

    对于学习使用VB来编程的电脑爱好者来说，可能会遇到这样一个问题：就是如何实现屏幕的滚动，因为当要显示的内容超出了屏幕的大小后，利用VB所提供的垂直滚动条和水平滚动条等控件是不可能直接实现这一特殊显示功能的。那么有没有其它的办法呢?答案是肯定的。我们知道VB的图片框是用来显示图形的，但它还有许多其它用途，比如可以用来创建一些动画图形等。其实对于上面的问题我们也可以利用图片框来巧妙地解决。方法如下：
    首先，单击工具框中的图片框(Picture Box)控件和命令按钮控件，在窗体(Form1)上建立图片框对象Picture1和命令按钮对象Command1，将命令按钮的Caption属性设置为"退出"，Picture1的大小设置为显示区域的大小，再单击工具框中的图片框控件，在Picture1上建立另一个图片框对象Picture2，将它的Left和Top属性设置为0。用文本框，标签框等其它控件或导入一幅图象在Picture2上设定具体的显示内容，当然Picture2的大小一定要先调整到能全部容纳所有要显示的内容，最后单击工具框中的垂直滚动条控件和水平滚动条控件，在窗体(Form1)上分别建立垂直滚动条对象VScroll1和水平滚动条对象HScroll1，并设置好它们的属性。至此在窗体(Form1)上的所有设置工作就完成了，下面是具体的程序代码：
Private Sub VScroll1_Change()
Picture2.Top= -VScroll1.Value
End Sub
Private Sub Hscroll1_Change()
Picture2.Left= -HScroll1.Value
End Sub
Private Sub Command1_Click()
End
End Sub
    运行程序，当按下横、竖滚动条时，就能使显示内容实现左右、上下的滚动。此方法简单易行，有兴趣的朋友不妨试一试。

VB中阴影字体的实现
太原胡建民

    Visual Basic确实是一种很不错的应用程序开发工具。笔者在使用中，也确实感到用VB设计程序，许多方法的实现是那么的简单。有时，仅仅需要几条语句，就可实现一种方法、效果或功能。下面就介绍一下，阴影字体在VB中的实现。程序如下：
Private Sub Form－Click（）
CurrentX＝700
CurrentY＝1000
FontSize＝30
ForeColor＝QBColor（8）
Print”Software Weekly”
CurrentX＝750
CurrentY＝1050
FontSize＝30
ForeColor＝QBColor（12）
Print”Software Weekly”
End Sub
    在属性（properties）窗口中设置：Auto3D为true Font选一种True Type字体。
    该程序是把代码加到Form的Click事件中，通过先打印字体的阴影部分，再打印出字体，以实现阴影字体效果的。试运行该程序，单击窗体后，即呈现出阴影字体Software Weekly。

在VB中制作单独程序封面的两种方法
辽宁铁岭金永涛

    这里所谓的单独封面，是只独立应用程序窗口本身的一个窗口，这个窗口在程序运行时首先弹出屏幕，用于装饰程序本身，或简单的演示一下程序的优越性。这样的封面在很多专业的WINDOWS程序中均存在，在VB中可有两种简单的方法实现这一功能。
第一种方法：多窗体编程方法
    此方法是通常采用的方法，即在程序中创建两个或两个以上的Form窗体，把其中的一个作为专门的程序封面制作场所，具体方法：
    1、创建一个新项目Form1，并在此窗体内安放Command1命令按钮，在Command1-Click()事件中输入结束程序代码“END”。
    2、单击菜单的“Insert"项目，加入一个新窗体Form1。
    3、双击Form1窗体空白处，在Form1-Load()事件中输入如下代码，用于隐藏主窗体Form1，置第二窗体为最大模式，并在运行程序首先显示和二窗体：
Private Sub Form-Load () ’隐藏主窗口
Form1.Visible = 0 ’窗口2最大模式
Form2.WindowState =2 ’显示窗口2
Form2.Show
End Sub
    4、在窗体Form2中定义全程变量：
Dim strr1 As String
Dim i As Integer
    5、在窗体Form2中放入一个时间控件Timer1。
    6、在窗体Form2中的Form-Load ()事件中输入以下代码，用于在窗体2中显示图像，并置时间控件频率：
Private Sub Form-Load ()
Form2.Picture = LoadPicture("c:\windows\setup.bmp")
Timer1.Interval = 10
i =0
End Sub
    7、在时间控件Timer1- Timer1（）事件中进行程序封面的制作工作，演示简单的动画，并控制此动画运行一段时间后自动停止，关闭程序封面，返回程序主窗口；下面的代码实现在一个图片上随机显示字符串，显示30次字符串后自动退出。
Private Sub Timer1-Timer ()
Strr1 = "程序封面演示“
With Form2
.Font.Transparent =True ’透明显示字符
.Font.Size = Rnd *30+10 ’随机变化字号
.Font.Italic =True ’斜体有效
.ForeColor=RGB(Rnd*256,Rnd*256,Rnd*256) ’随机变化前景
.FontName =Screen.Fonts (Rnd*7+14) ’随机变化字体
End With
hh=Form2.TextHehght (strr1) ’取字符串高度
ww= Form2.TextWidth (strr1) ’取字符串宽度
x=Rnd * ( Form2.ScaleWidth-ww) ’随机改变坐标
y=Rnd *( Form2.ScaleHeight-hh)
Form2.Current X=x
Form2.Current Y=y
Form2.Print strr1 ’显示字符
i = i +1 ’计数
If i >30 Then
Unload Me ’关闭封面
Form1.Show ’调入主窗口
Timer1.Enabled =False ’关闭时间控件
End If
End Sub
　
    8、为了能够人为地控制程序封面的停留时间，可在窗体Form2鼠标单击事件中安放退出封面代码：
Private Sub Form-Click ()
Unload Me
Form1.Show
Timer1.Enabled =False ’关闭时间控件
End If
End Sub
    至此工作全部完成，当运行程序时，首先弹出程序封面，封面上显示一幅·BMP图像，之后在此图像上进行随机字符串的显示，字符串的位置、字体、字号、前景色等值都是随机变化的，显示30次后自动关闭封面返回主窗口，演示过程中用鼠标单击窗口也会返回主窗口，在主窗口中按下结束按钮退出程序。具体操作时还有很多其它技巧，比如可以置第二个窗体为主窗体，这样运行时可自动先弹出程序封面，可省略隐藏窗体和调入窗体的过程，另外第二窗体也可以在程序运行时由代码动态生成，这样编程时复杂一些，但有利于程序代码的管理；程序封面的具体制作过程，有许多动态图像控制方法可以使用，只要灵活动用VB的作图方法，再加上一些必要的API函数的配合，会制作出理想的程序封面。
　
第二种方法：隐藏控件方法
    多窗口编程存在着一定的复杂性，需要�

nestore网络杂货铺

关于作者

日历　年月日

快速登录

搜索

快速浏览

最新文章

文章索引

在线留言

友情链接

最新评论

AD

FLASH时钟

本站公告

搜索

我的网盘

LINUX发行版官方主页

访问统计：
文章个数:77
评论个数:101
留言条数:19