博文
一个日本人对中国向印尼捐款的无情嘲笑 (2005-09-27 13:48:00)
摘要：一个日本人对中国向印尼捐款的无情嘲笑
关于印尼反华暴行某日本人的一段话 日本人越智松人的一段话：
1997年起我在印尼的雅加达工作，目睹了1998年5月份的暴动过程，通过我住的酒店的窗户，能看到当地华人被洗劫的情况。居我们大使馆的人员介绍有几百名华裔女性被当地人强奸、毒打和虐待，男人则被砍掉了脑袋！我坐的汽车也被抢劫者盘问过，问我们是不是华人，当我们用日语回答时，他们挥挥手就把我们放行了。在印尼富有的外侨并不是华裔，而是我们日侨，所以找替罪羊的说法是华人的自我安慰，当地人之所以选择华裔开刀- -因为组织发动袭击的人明白，不会有任何人为这些被害者作主。事实上他们的选择是正确的，至今也不知道谁是最终的主谋，也不会有人再去过问，这一切将成为历史，无论中国的大陆，还是台湾都不敢得罪印尼。当时，只有新加坡竭尽全力的帮助华裔，新加坡樟宜国际机场到处都是从印尼逃亡出来的华人，新航为此加开了一倍班次，来救援被洗劫的印尼华人。长期以来新加坡一直是印尼华人的避难之地，也是华裔心目中的天堂。别说华裔，印尼甚至不允许中国使馆的工作人员乘飞机离开，尽管当时印尼和香港之间的航线还没有取消，中国使馆的全体人员只能登上汽车，长途跋涉从泗水港乘船至新加坡。可笑的是一些华裔还在希望中国驻印尼大使馆为华侨提供适当援助。
我们日本外务省早前就提醒日本侨民及旅游者不要出席大型聚会，不要外出。政府举行了紧急会议，讨论撤出在印尼的13600名日本侨民和大约7000名观光客，日本政府非常担心日侨的安全，防卫厅为撤侨拟定了详细的计划，并且即时展开各种情报搜集及分析工作，确保万无一失。必要时将派出专机和自卫队机，选定五处机场起降，我们自卫队的C-130型运输机在五处机场均能起降。所以我们在印尼的日本人和侨民一点也不紧张，紧张的只有日本政府。
中国也有所表示，因为中国刚刚收回香港，必须至少在表面上作出应对。中国外交部发言人表示，中国已注意到印尼局部地区近日出现了一些Sao乱，对此表示关注，做为印尼的近邻，中国希望印尼能继续保持社会稳定和民族和睦，以利于经济的恢复和发展。中国外交部驻港特派员公署发表声明，表示对在印尼的中国公民包括香港同胞的处境表示关注，中国驻印尼大使馆将全力以赴为 华侨提供领事保护和服务，发言人强调在5月14日一天有1......
异步输入(2005-09-27 13:41:00)
摘要：
可以使用OPEN语句用随机方式打开文本文件，用GET语句将每个字符读入一个BYTE变量，逐个判断BYTE变量的ASCII码值是否为特殊字符，是则连续读入几个字符。参考程序： Dim strFileName As String Dim iFileNum As Integer Dim strData As Byte cmDlg.Filter = "文文本文件（*。TXT）|*.txt|所有文件（*.*）|*.*" cmDlg.ShowOpen strFileName = cmDlg.FileName If Len(strFileName) > 0 Then iFileNum = FreeFile Open strFileName For Random As #iFileNum Len = 1 Do While Not EOF(iFileNum) Get #iFileNum, , strData Debug.Print Chr(strData) Loop End If......
写给想创业的程序员朋友----欢迎发表看法(2005-09-27 13:40:00)
摘要：网络合作的提议方法很好，但有此想法和作法的人网络到处都有，对一个司空见惯的事物谈何创新，谈何成就，失去的只是时间与激情，得到的依旧是无奈和不解。走进去，分析国情，雷厉风行,实干，实干，再实干，创新，创新，再创新!项目+规划+代码+服务=软件生命1. 代码: 中国不缺乏写代码的程序员(但能系统规划、经验丰富者却很少);2. 系统规划=好的程序员(能很好分析客户需求)+管理精英(管理，财务，生产，营销等知识…);3. 服务: 完全是开发者修改Bug,依用户观点来进行升级维护;4. 关键是项目：在中国，有些小企业为节省成本的作法： A. 招聘程序员来开发； B. 包给一些程序员业余开发; 这两种方式的优点是：节省成本，针对本企业需求开发。 缺点是：一旦企业有所变化，那就必须重新写过软件，没有服务，没有升级 注意: 即使有源码，中国的程序员开发起来各有各的不同。 企业各部门的变化是随时随刻的。 没有一成不变的软件。有时为改一个字段甚至重写整个软件。 随时间的推移这两种方法会消失。5. 总结：所以节省成本，提高服务，提高信誉，针对开发才是最有效的方式!6. 如何接到项目： 组建公司，对白手起爱者当然刚开始可以架空。（让人信可，有名则顺） 所有能接到项目的人，都可兼职加入团队，进行论功提成! 程序员可以接受一些高手作为以后开发的兼职(不提成，按开发成果发薪)。 ......
SendMessage函数应用(四)(2005-09-27 13:29:00)
摘要：
SendMessage函数应用(四)
这一期是SendMessage函数巧应用的最后一期了。在这一期中，我将向大家介绍关于RichTextBox(简称RTF)控件的消息和ListView控件的消息控制各一。 在Windows消息中，以EM_开头的消息是专门控制TextBox类控件和RTF类控件的。下面介绍的是如何利用EM_消息实现向RichTextBox中粘贴文本和位图．在EM_消息中，有一个EM_PASTESPECIAL消息可以从剪贴板中获取文本或者位图类数据并拷贝到RTF上。消息调用范例如?br />拢?Private Type repastespecialdwAspect As LongdwParam As LongEnd Type Const WM_USER = &H400Const EM_PASTESPECIAL = WM_USER + 64Const CF_BITMAP = 2Const CF_TEXT = 1Const DVASPECT_CONTENT = 1Const DVASPECT_ICON = 4 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 Sub Command1_Click()Dim re As repastespecialre.dwAspect = DVASPECT_CONTENTIf Clipboard.GetFormat(vbCFText) Then '剪贴板中为文本信息Call SendMessage(RichTextBox1.hwnd, EM_PASTESPECIAL, CF_TEXT, re)ElseIf Clipboard.GetFormat(vbCFBitmap) Then '剪贴板中为位图信息Call SendMessage(RichTextBox1.hwnd, EM_PASTESPECIAL, CF_BITMAP, re)End IfEnd Sub......
SendMessage函数应用(三)(2005-09-27 13:28:00)
摘要：
SendMessage函数应用(三)
在这一期的SendMessage函数应用中，我将向大家介绍如何利用消息函数来扩展树型列?br /> ?TreeView)控件的功能。相信对于树型列表控件大家十分的熟悉，典型的应用就是Windows资源管理器中的目录列表。而在VB中，树型列表控件包含在Microsoft Windows Common Control 6.0（页可能是5.0，视你的VB或者系统版本而定）中。在Windows API中，有一系列的以TVM_ 开头的消息值，这些消息就是扩展树型列表控件所特定的消息值，下面向大家介绍其中的一些应用 1、设置树型列表控件的背景颜色首先做如下的定义：Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _(ByVal hwnd As Long, _ByVal wMsg As Long, _ByVal wParam As Long, _ByVal lParam As Long) As LongConst TV_FIRST = &H1100Const TVM_SETBKCOLOR = TV_FIRST + 29然后再做如下调用：Call SendMessage(TreeView1.hwnd, TVM_SETBKCOLOR, 0, RGB(255, 0, 0))上面的SendMessage调用将TreeView1的背景颜色设置为红色。大家可能注意到了。在上面的Sendmessage函数定义中，我们将lParam定义为 ByVal lParam As Long，而不是象前面的那些范例那样定义为Any或者String类型，关于这个问题，我会在最?br />蟮囊徽轮凶鼋樯堋?2、设置树型列表控件标题行高度利用TVM_SETITEMHEIGHT消息可以设定控件的标题行的高度，该消息的定义及调用方法如下?br />?br>定义：Const TV_FIRST = &H1100Const TVM_SETITEMHEIGHT = TV_FIRST + 27 Private Declare Function SendMessage Lib "user32" Alias "Send......
SendMessage函数应用(二)(2005-09-27 13:27:00)
摘要：
在上一篇文章中我向大家介绍了关于ListBox类控件消息的应用，在这一章我将向大家?br />樯苋绾卫孟⒉倏豑extBox类控件。 1、获得光标所在的行和列一般的比较完善的文本编辑器一般都有在状态栏中显示当前光标所在行和列的功能。利用SendMessage向TextBox控件发送编辑控件类型消息。也可以实现这样的功能。下面首先来看程序，然后再分析。首先在VB中建立一个新工程，并在Form1中加入一个TextBox控件和两个Label控件。将TextBox控件的MultiLine属性设置为True。然后在Form1的代码窗口中加入如下代码： Option Explicit Private Declare Function SendMessage Lib "user32" Alias "SendMessageW" _(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _lParam As Any) As LongPrivate Declare Function SendMessageByRef Lib "user32" Alias "SendMessageA" _(ByVal hwnd As Long, ByVal wMsg As Long, wParam As Long, _lParam As Long) As LongConst EM_LINEFROMCHAR = &HC9Const EM_LINEINDEX = &HBBConst EM_GETLINE = &HC4Const EM_GETSEL = &HB0 Dim iLineX, iLineY As Long Sub GetCurPos(txtA As TextBox)Dim l, l1, l2 As LongDim astr As String * 256l = SendMessage(txtA.hwnd, EM_LINEINDEX, -1, 0)iLineY = SendMessage(txtA.hwnd, EM_LINEFROMCHAR, l, 0)SendMessageByRef txtA.hwnd, EM_GETSEL, l1, l2......
SendMessage函数应用(一)(2005-09-27 13:26:00)
摘要：
SendMessage函数应用(一)
在Windows编程中，向文本框控件、列表控件、按钮控件等是我们最常接触的控件了。?br />窃赩B中这些控件有时无法实现我们的需要。在这时，我们只要简单的利用Windows API函数就可以扩充这些控件的功能了。顾名思义，SendMessage函数就是向窗口（这里的窗口指的是向按钮、列表框、编辑框?br />染哂衕Wnd属性的控件）发送消息的函数，该函数的定义如下:Declare Function SendMessage Lib "user32" Alias "SendMessageA" _(ByVal hwnd As Long, _ByVal wMsg As Long, _ByVal wParam As Long, _lParam As Any) As Long其中hwnd指定接受消息的窗口，参数wMsg指定消息值，参数wParam lParam分别定义传递到窗口的附加参数。而在Windows系统的很多消息中，有一些不仅仅是?br /> 峁┮桓龃翱谙⒛敲醇虻ァＫ强梢钥刂拼翱诘亩骱褪粜浴Ｏ旅嫖医执蜗蛳虼蠹医樯躍endMessage函数在扩充基本控件功能方面的应用。 一、列表（ListBox）控件在Windows中，有一系列的以LB_开头的列表消息，这里介绍的就是利用LB消息控制的ListBox的应用1、使列表中光标移动到不同的列表项上有不同的提示（ToolTip）在列表框控件中有一个ToolTipText属性，该属性决定了当光标在列表框上移动时出现的提?br />疚淖帧５侨绾问沟? 当光标在不同的列表项上移动时的提示文字也不同呢？问题的关键是要知道在光标移动时光标所在的列表项的索引，使 用SendMessage函数发送LB_ITEMFROMPOINT消息就可以获得。下面是程序范例： Option Explicit Const LB_ITEMFROMPOINT = &H1A9 Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _(ByVal hwnd As Long, _ByVal wMsg As Long, _ByVal wParam As ......
如何在VB.NET中创建Windows应用程序之二(2005-09-27 13:21:00)
摘要：
如何在VB.NET中创建Windows应用程序之二
作者：苦丁 发文时间：2005.07.27
缺少控件数组对于VB6开发者来说，在VB.NET中感觉很不方便的一点是缺少了控件数组。有什么办法来实现与控件数组相同的效果呢？从上文的.net中的事件处理机制我们知道，在.net中允许多个对象的事件使用同一个事件处理程序，那么结合一个标准数组就不难实现控件数组的效果了。下面是一个简单的例子。1.创建一个新的VB.NET Windows 应用程序。2.在窗体上放置五个radio button，并在窗体上增加一个label。3.双击一个radio button，会转到它的CheckedChanged事件处理程序，修改 Handles子句以包含其他四个的CheckedChanged事件。
Private Sub RadioButton1_CheckedChanged( _
ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles RadioButton1.CheckedChanged, _
RadioButton2.CheckedChanged, _
RadioButton3.CheckedChanged, _
RadioButton4.CheckedChanged, _
RadioButton5.CheckedChanged
End Sub4.创建一个radio buttons的数组作为一个私有成员变量：Dim radioButtons(4) As RadioButton 5.创建一个整形私有变量：Dim selectedOption As Integer = 0 6.在窗体构造器代码中增加代码以把这些radio button填充到数组中
Public Sub New()
MyBase.New()
'This call is required by the
Windows Form Designer.
InitializeComponent()
'Add any initializ......
如何在VB.NET中创建Windows应用程序之一 (2005-09-27 13:20:00)
摘要：
如何在VB.NET中创建Windows应用程序之一
作者：苦丁 发文时间：2005.07.26
对于一个Visual Basic程序员来说，创建的每一个应用程序都是胖客户端的。Web开发从来不是VB的目的，VB专注于开发具有Windows用户界面的单机或C/S结构应用程序，使得VB语言和其窗体引擎得到紧密的结合。在VB6中没有必要区分语言和创建界面的工具，但是在.NET中却是非常有必要的。在VB.NET中，创建"标准"windows 应用程序的技术是.NET框架的一部分，在任何其它.NET语言中也都可以实现，这是和原先有着巨大改变的。在以下几个部分中，在详细讨论VB.NET中新的窗体技术如何工作。崭新的Windows 窗体模型在.NET中的窗体改变了在VB6中的窗体模型，窗体不再是一个专门的文件。编辑窗体或窗体上的控件的属性会产生与你在代码里设置属性一样的真正的VB.NET代码，下面我们通过一个例子来剖析一下VB.NET的新窗体设计器的特点，并看一下通过可视化的编辑所产生的代码。让我们来看一下窗体Form1的代码，你可以看到这个窗体中的按钮的点击处理程序和一个被称作Windows Form Designer generated code的区域，如下图所示：
在这个区域里，你会看到几个关键的元素：一个窗体的构造器（constructor）（a Sub New()）一个释放（Dispose）程序窗体中所有控件的声明一个名为InitializeComponent的子程序构造器和释放程序与VB6中的Class_Initialize和Class_Terminate事件基本等效。设计器所产生的代码的实质是其他两部分－控件声明的列表和InitializeComponent程序。看一下创建这个简单的例子所产生的代码。如下:
'NOTE: The following procedure
is required by the Windows Form Designer
'It can be modified using
the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents Button1
......
《初入职场“七宗罪”》，(2005-09-27 13:19:00)
摘要：《初入职场“七宗罪”》，转自《计算机应用文摘》，前帖因为是在输入过程中陆续贴上来的，所以各章之间缺乏连贯，使各位猫友看起来很不方便，现在因为输入完毕，特新开一帖，将全文整理后放出。在前帖中，不少猫友都留下了很中肯的回复，让我很是感动。虽然很多猫友仅仅是留了个名，但我还是很感谢他们，因为他们至少让我知道了有人在看我的帖子，我贴出来的这些东西对他们多多少少有些用处。小猫穷，没有扫描仪。所以所有的文字都是我一个字一个字地打出来的。小猫穷，没有mp。所以买不起救生圈，前帖和本帖都是靠着大家的回复才逐渐顶起来的。进来的猫友们，如果你们看过以后，觉得它对你还有点用的话，请帮我丢个救生圈，或者只是顶一下也好。毕竟我们都还不成熟，我们在工作中都会犯这样那样的错误。如果这篇帖子能让大家在工作中少犯些错误，少走些弯路的话，我会觉得我这段时间的辛苦是值得的。谢谢大家！这是七位刚毕业的高校学子初入职场工作失误的真实记录，这是某IT媒体编辑部主任对七位应聘者试用期表现的真实回忆。初入职场“七宗罪”——我们无意夸大职场新人的初次犯错，我们只是想提醒更多刚刚进入职场的学子需要注意的点点滴滴……不要太“聪明”——初入职场“七宗罪”之一聪明是一种宝贵的天赋，可惜有人就是太聪明了。我必须承认，S君给我的第一印象是很好的。当时我在一家IT杂志编辑部工作。S君是众多应聘者中被挑选出来接受面试的少数几人之一。见面不久，我就发现他可以算是个人才，谈话自然流畅，思维相当敏捷。他随身带来了一叠厚厚的稿纸，是他自己创作的小说。他带着几分自豪地告诉我：已经有一家出版社准备修改后出版。面试结束的时候，他追问我是否可以录用，而后我又接到几次S君发来的短信和邮件，询问应聘的结果。看来他确实很重视这个工作机会。于是，两周后，他坐进了公司的办公室。S君过人的聪明才智很快表现出来——可惜大多是小聪明。“游击战”作为IT媒体的编辑，平时工作时间QQ在线，这是很正常的事情。但是S君算是让我开了眼——他上班的时候同时开着三个QQ。一个工作用，一个朋友用，一个闲聊用？或者是一个工作用，一个闲聊用，还有一个扮人妖用？但是S君似乎有充足的时间。每次我从他身边走过，大都能看见他在以极高的工作效率向QQ消息窗口里面输入文字。有一天上班的时候，他忽然大声欢叫起来：“哈哈，真的是！”然后激动地向办公室的人大声叙述他在网上怎么听说某明星的QQ号，然后......