|
|||
|
摘要：
VERSION 5.00Begin VB.Form frmMain BorderStyle = 1 'Fixed Single Caption = "Reg Demo" ClientHeight = 6570 ClientLeft = 45 ClientTop = 435 ClientWidth = 7695 LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 6570 ScaleWidth = 7695 StartUpPosition = 2 'CenterScreen Begin VB. 阅读全文
posted @ 2009-10-30 18:28 随风飘零0 阅读(243) 评论(0) 推荐(0)
摘要：
Pythonwin - Python IDE and GUI Framework for Windows.Copyright 1994-2006 Mark HammondPython is Copyright (c) 2000-2008 ActiveState Software Inc.Copyright (c) 2001-2008 Python Software Foundation.All Rights Reserved.Copyright (c) 2000 BeOpen.com.All Rights Reserved.Copyright (c) 1995-2001 Corporation 阅读全文
posted @ 2009-10-23 16:43 随风飘零0 阅读(412) 评论(0) 推荐(0)
摘要：
'添加个picture1和command1Option ExplicitDim lngCenter As LongDim lngMax As LongDim lngPad&Dim PCurrent As POINT, PLast As POINTPrivate Type POINT x As Long y As LongEnd TypePrivate Sub Form_Load() lngCenter = (Picture1.Top + Picture1.Height) / 2 lngMax = Picture1.Height PLast.x = 0 PLast.y = lngCenter D 阅读全文
posted @ 2009-10-22 12:40 随风飘零0 阅读(1745) 评论(0) 推荐(0)
摘要：
Client添加Command1，Text1及一个picturebox（命名为picDDE）代码如下：Option ExplicitPrivate Sub Command1_Click() picDDE.LinkTopic = "app2|yuanyuan" picDDE.LinkMode = 2 picDDE.LinkExecute Text1.TextEnd SubServer添加Text1，设置工程名称为app2，设置窗体的LinkMode属性为1，LinkTopic为yuanyuan代码如下：Option ExplicitPrivate Sub Form_LinkExecute(Cmd 阅读全文
posted @ 2009-10-21 17:19 随风飘零0 阅读(759) 评论(0) 推荐(0)
摘要：
1.此刻打盹，你将做梦；而此刻学习，你将圆梦。 2.我荒废的今日，正是昨日殒身之人祈求的明日。 3.觉得为时已晚的时候，恰恰是最早的时候。 4.勿将今日之事拖到明日。 5.学习时的苦痛是暂时的，未学到的痛苦是终生的。 6.学习这件事，不是缺乏时间，而是缺乏努力。 7.幸福或许不排名次，但成功必排名次。 8.学习并不是人生的全部。但，既然连人生的一部分——学习也无法征服，还能做什么呢？ 9.请享受无法回避的痛苦。 10.只有比别人更早、更勤奋地努力，才能尝到成功的滋味。 11.谁也不能随随便便成功，它来自彻底的自我管理和毅力。 12.时间在流逝。 阅读全文
posted @ 2009-10-13 12:35 随风飘零0 阅读(139) 评论(0) 推荐(0)
摘要：
1.开始与结束时间用“/”来分隔 两个时间段用“,”来分隔 如下 2009-09-30/2009-09-30,2009-10-01/2009-10-01 若我想取得每个时间段的开始时间，怎么匹配啊？答：var s = "2009-09-30/2011-11-11,2009-10-01/2012-12-12";var re = /\d{4}-\d{2}-\d{2}(?=\/)/g;var r = s.match(re); // r 是匹配结果数组。alert(r);2.如何用正则显示ini文件所有主键？数据例如：[Windows 帮助]H_WindowPosition=[426,266,426, 阅读全文
posted @ 2009-10-09 16:56 随风飘零0 阅读(154) 评论(0) 推荐(0)
摘要：
主程序代码：Option ExplicitDim i As DoublePrivate Sub Command1_Click() i = 0 Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer() i = i + 0.05 ProcessBar1.Percent = i If i 1 Then Timer1.Enabled = FalseEnd Sub 控件代码：Option ExplicitPublic Enum EFigureStyle eOnlyValueInt eOnlyValueDouble ePercentInt ePerc 阅读全文
posted @ 2009-10-09 15:55 随风飘零0 阅读(576) 评论(0) 推荐(0)
摘要：
检测一个数组中存在几个指定的项，例如数组中的元素为“html,title,table,title”，检测其中含有多少个titleMsgBox UBound(Filter(Split("html,title,table,title", ","), "title")) + 1其实下面的也可以达到效果：MsgBox UBound(Split("html,title,table,title", "title")) 阅读全文
posted @ 2009-10-02 12:31 随风飘零0 阅读(460) 评论(0) 推荐(0)
摘要：
Sub test() startMerge Sheet4, Sheet3 startMerge Sheet6, Sheet3 startMerge Sheet7, Sheet3 startMerge Sheet8, Sheet3 MsgBox "ok!", vbInformationEnd Sub'write new rowSub setNewRow() Dim i%, strTmp$ For i = 2 To Sheet3.UsedRange.Rows.Count Sheet3.Cells(i, 5) = "WXGA+で" & Sheet3.Cells(i, 4) & "(" & Sheet 阅读全文
posted @ 2009-09-24 15:05 随风飘零0 阅读(295) 评论(0) 推荐(0)
摘要：
' 引用ieframe.dllPrivate Sub Command1_Click() Dim w Dim s As New SHDocVw.ShellWindows For Each w In s If InStr(w.LocationURL, "baidu.com") > 0 Then w.Navigate ("www.google.cn") End If NextEnd Sub'百度要疯了 阅读全文
posted @ 2009-09-23 12:50 随风飘零0 阅读(190) 评论(0) 推荐(0) |
|||
浙公网安备 33010602011771号