2004年11月10日
使用C#来绘制汽车里程表
摘要： private void Form3_Paint(object sender, System.Windows.Forms.PaintEventArgs e){Graphics g=this.CreateGraphics();Rectangle rect=this.ClientRectangle;//设置高度和宽int WIDTH=rect.Width/2;int HEIGHT=rect.Height/2;g.SmoothingMode=SmoothingMode.AntiAlias;FontFamily f=new FontFamily("宋体");Font font=ne 阅读全文
posted @ 2004-11-10 16:59 greystar 阅读(485) 评论(0) 推荐(0)
2004年10月23日
无提示关闭窗体
摘要： 我们知道用close()可以无提示关闭一些用open()方法打开的窗口。只要被关的窗口有一个opener，就不会有提示。我们可以用脚本给window.opener赋值（任何值，包括字符串、数值、现有的变量、甚至是null），执行close()时就不会有提示了。以下内容为程序代码:<html><script>functionclosewin(){window.opener='anyone';window.close();}</script><body><divonclick="closewin()"> 阅读全文
posted @ 2004-10-23 15:43 greystar 阅读(141) 评论(0) 推荐(0)
SQL SERVER中对查询结果随机排序
摘要： Randomly Sorting Query Results 查询结果随机排序 Q. How can I randomly sort query results?问：怎样才能对查询结果随机排序？A. To randomly order rows, or to return x number of randomly chosen rows, you can use the RAND function inside the SELECT statement. But the RAND function is resolved only once for the entire query, so e 阅读全文
posted @ 2004-10-23 15:40 greystar 阅读(183) 评论(0) 推荐(0)
如何消除textarea右边的Scrollbar
摘要： 1、<style type="text/css"><!--textarea { overflow: hidden; z-index: y; clip: rect( )}--></style></head><body bgcolor="#FFFFFF" text="#000000"> <textarea name="textfield" rows="3"></textarea></body></h 阅读全文
posted @ 2004-10-23 15:38 greystar 阅读(1370) 评论(0) 推荐(0)
2004年10月21日
网吧在线破解
摘要： → 网吧在线破解我的电脑 网上邻居我的文档 控制面版回收站 进入C盘进入D盘 进入E盘 阅读全文
posted @ 2004-10-21 23:37 greystar 阅读(133) 评论(0) 推荐(0)
VBS设置打印页眉
摘要： <script language="VBScript">dim hkey_root,hkey_path,hkey_keyhkey_root="HKEY_CURRENT_USER"hkey_path="/Software/Microsoft/Internet Explorer/PageSetup"'//设置网页打印的页眉页脚为空function pagesetup_null()on error resume nextSet RegWsh = CreateObject("WScript.Shell" 阅读全文
posted @ 2004-10-21 23:36 greystar 阅读(176) 评论(0) 推荐(0)
CSS中text-overflow的运用
摘要： 在我们编写BS的应用程序中，有时我们想将数据库中的数据以表格方式显示出来，可是里面的数据长度不一致。为了美观，很多的网站以省略号的方式显示内容。我看过很多的网站都是自己先取出相同长度的数据，然后再加省略号。其实在CSS中text-overflow就可以解决这个问题。语法：text-overflow : clip | ellipsis 取值：clip :默认值。不显示省略标记(...)，而是简单的裁切ellipsis :当对象内文本溢出时显示省略标记(...)说明：设置或检索是否使用一个省略标记(...)标示对象内文本的溢出。这个属性仅仅作用于水平内联方向的，普通的西方文本的溢出。内联溢出发 阅读全文
posted @ 2004-10-21 17:06 greystar 阅读(243) 评论(0) 推荐(0)
2004年10月20日
VBA中的一些代码
摘要： 让OFFICE能识别文档中的文字如果要让此程序能运行，要添加EXCEL的引用，只有EXCEL才有此功能Sub SpeakIt() Set x = New Excel.Application x.Speech.Speak (ActiveWindow.Selection) Set x = NothingEnd Sub让PPT能随机出题。Slides 一个代表指定演示文稿中所有幻灯片的 Slides 集合。只读。Sub RandomlyPlay() Dim num As Integer Randomize Dim i As Integer n = ActivePresentation.Slides. 阅读全文
posted @ 2004-10-20 12:54 greystar 阅读(169) 评论(0) 推荐(0)
VB6判断某一个连接是否保存在Cache中下
摘要： PublicFunctionGetCacheEntryInfo(ByValhWndAsLong,ByVallpszUrlAsString)AsBooleanDimdwEntrySizeAsLongDimlpCacheEntryAsINTERNET_CACHE_ENTRY_INFODimdwTempAsLongDimlErrAsLongIf(GetUrlCacheEntryInfo(lpszUrl,ByVal0&,dwEntrySize))=0ThenlErr=Err.LastDllErrorIf(lErr<>ERROR_INSUFFICIENT_BUFFER)Then’UR 阅读全文
posted @ 2004-10-20 12:35 greystar 阅读(235) 评论(0) 推荐(0)
VB6实现网络连通检测
摘要： PrivateSubForm_Load()IfIsConnected=TRUEThenMsgBox(“您已经连通了Internet!”)EndIfIfIsConnected=FALSEThenMsgBox(“您还没有连通Internet!”)EndIfEndSub　OptionExplicit/＊有关的API声明和定义＊/PublicDeclareFunctionRasEnumConnectionsLib“RasApi32.dll”Alias“RasEnumConnectionsA”(lpRasConAsAny,lpcbAsLong,lpcConnectionsAsLong)AsLong　Pu 阅读全文
posted @ 2004-10-20 12:32 greystar 阅读(788) 评论(0) 推荐(0)