摘要：
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 阅读全文
摘要：
我们知道用close()可以无提示关闭一些用open()方法打开的窗口。只要被关的窗口有一个opener，就不会有提示。我们可以用脚本给window.opener赋值（任何值，包括字符串、数值、现有的变量、甚至是null），执行close()时就不会有提示了。以下内容为程序代码:<html><script>functionclosewin(){window.opener='anyone';window.close();}</script><body><divonclick="closewin()"> 阅读全文
摘要：
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 阅读全文
摘要：
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 阅读全文
摘要：
→ 网吧在线破解我的电脑 网上邻居我的文档 控制面版回收站 进入C盘进入D盘 进入E盘 阅读全文
摘要：
<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" 阅读全文
摘要：
在我们编写BS的应用程序中，有时我们想将数据库中的数据以表格方式显示出来，可是里面的数据长度不一致。为了美观，很多的网站以省略号的方式显示内容。我看过很多的网站都是自己先取出相同长度的数据，然后再加省略号。其实在CSS中text-overflow就可以解决这个问题。语法：text-overflow : clip | ellipsis 取值：clip :默认值。不显示省略标记(...)，而是简单的裁切ellipsis :当对象内文本溢出时显示省略标记(...)说明：设置或检索是否使用一个省略标记(...)标示对象内文本的溢出。这个属性仅仅作用于水平内联方向的，普通的西方文本的溢出。内联溢出发 阅读全文
摘要：
让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. 阅读全文
摘要：
PublicFunctionGetCacheEntryInfo(ByValhWndAsLong,ByVallpszUrlAsString)AsBooleanDimdwEntrySizeAsLongDimlpCacheEntryAsINTERNET_CACHE_ENTRY_INFODimdwTempAsLongDimlErrAsLongIf(GetUrlCacheEntryInfo(lpszUrl,ByVal0&,dwEntrySize))=0ThenlErr=Err.LastDllErrorIf(lErr<>ERROR_INSUFFICIENT_BUFFER)Then’UR 阅读全文
摘要：
PrivateSubForm_Load()IfIsConnected=TRUEThenMsgBox(“您已经连通了Internet!”)EndIfIfIsConnected=FALSEThenMsgBox(“您还没有连通Internet!”)EndIfEndSub OptionExplicit/＊有关的API声明和定义＊/PublicDeclareFunctionRasEnumConnectionsLib“RasApi32.dll”Alias“RasEnumConnectionsA”(lpRasConAsAny,lpcbAsLong,lpcConnectionsAsLong)AsLong Pu 阅读全文