Posts Tagged ‘代码’

SBO 调用模态与非模态窗体 »

SBO显示非模态窗体 "itemEvent" viewWinForm vWForm =new ViewWinForm(); Thread T=new Thread(new ThreadStart(vWForm.view)); t.SetApartmentState(ApartmentState.STA); t.start(); CLASS ViewWinForm { Private bool run; Form oForm; public ViewWinForm() { //构造函数 oForm=new Form(); oForm.FormClosed+=new ormClosedEventHandler(form_FormClosed); }

使用脚本调用系统的关机对话框 »

以前有介绍如何使用命令行调用系统的关机对话框: http://blog.csdn.net/scz123/archive/2005/09/30/492991.aspx 具体方法:开始/运行:rundll32.exe shell32.dll #60 但是,上述方法会存在一问题,XP下无法正常使用该方法进行关机(感谢网友沐烨 发现该问题)。问题原因可能是:正常情况下,关机对话框是有explorer.exe调用,直接使用rundll32调用时无法触发相关命令。 既然使用explorer.exe调用可以,我们可以尝试使用脚本来实现。实现原理: 1. 激活explorer.exe 2. 按ALT+F4 编写VBS脚本如下(将下述内容另存为shutdown.vbs): D

JavaScript 组件之 JQuery(A~Z) 教程 (基于Asp.net运行环境) »

目录 (一).概述 (二).预备条件 (三).代码示例 2.Dom对象和jQuery对象转换示例 3.访问对象内部元素 4.显示/隐藏元素 5.根据条件查询对象元素集合 6.Document.Ready方法示例 7.Html方法示例 8.元素事件注册以及实现示例 9.Filter和no方法使用示例 10.一个很有用的方法:Css方法使用示例 11.滑动显示/隐藏元素 12.操作父元素 13.Toggle方法使用示例 14.Animate方法使用示例 15.改变表格行为(bycalssproperty) 16.操作jQuery属性示例 17.利用Wrap方法动态的修改控件外观 18.动态切换Css样式 19.Prepend-Wrap-Append组合方

使用MQ传输结构体信息 »

忙了一个星期终于搞掂了,心情顺畅,以此志之。 代码如下: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type MQDataInfo = record ID : Integer; Name : PAnsiChar; Value : PAnsiChar; Image : TBitmap; end; PMQDataInfo = ^MQDataInfo; type TForm1 = class(TForm) Memo1: TM

测试服务器到服务器的MQ传输 »

测试服务器到服务器: 要测试安装,必须设置两个工作站,一个作为发送方,另一个作为接收方。 1.设置发送方工作站: 1.1.创建名为“saturn.queue.manager”的缺省队列管理器。 命令为:crtmqm -q saturn.queue.manager 消息显示已创建该队列管理器,并且创建了缺省WebSphere MQ对象。 1.2.启动缺省队列管理器。 命令为:strmqm 队列管理器启动时,将显示信息。 1.3.启动MQSC命令。 命令为:runmqsc MQSC启动时,显示消息“启动WebSphere MQ命令”。MQSC不使用命令提示。 1.4.定义一个本地队列,作为名为Transmit1.queue的传输队列。 命令:define qlocal(

验证本地MQ安装 »

设置:使用以下步骤来安装队列管理器和队列: 1.创建名为venus.queue.manager的缺省队列管理器。 命令:crtmqm -q venus.queue.manager 消息显示已创建该队列管理器,并且创建了缺省WebSphere MQ对象。 2.启动缺省队列管理器。 命令:strmqm 队列管理器启动时,将显示消息。 3.启用MQSC命令。 命令:runmqsc MQSC会话启动时,将显示消息“启动WebSphere MQ命令”。MQSC不使用命令提示。 4.定义名为Orange.Queue的本地队列。 命令:define qlocal(orange.queue) MQSC中的任何小写文本都将自动转换成大写,除非用引号将它们括起来。 这意味着如果用名称O

MQ中简单的消息发送和接收的单元文件MQI.pas »

以下内容是单元文件MQI.pas的正文 MQI.pas是对mqm.dll的Delphi封装接口(版权归原作者) unit MQI; interface const MQOD_STRUC_ID = 'OD '; MQOD_VERSION_1 = 1; MQOD_VERSION_2 = 2; MQOD_VERSION_3 = 3; MQOD_CURRENT_VERSION = 3; MQPMO_STRUC_ID = 'PMO '; MQPMO_VERSION_1

MQ中简单的消息发送和接收 »

对mqm.dll动态链接库的封装接口 通过MQI.pas提供的接口函数我们可以很容易的发送和接收简单的文本信息 因为只是例子,所以命名不标准,注释不规范,好在代码简单,容易读懂 窗体文件不提供了,相信看到代码也应该能猜出来了 整个单元代码文件如下: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, MQI; type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; Button2: TButt

奥运倒计时 »

   var timedate= new Date("August 8,2008");    var times= "中国北京 奥运会";    var now = new Date();    var date = timedate.getTime() - now.getTime();    var time = Math.floor(date / (1000 * 60 * 60 * 24));    if (time >= 0)       document.write("现在距离 "+times+" 还有: "+time +" 天.") 源码如下: <script type="text/javascript">    var timeda

 Page 2 of 2 « 1  2