laola1000的个人资料

[求助]请教类模块集合的操作语法我想写一个其功能类似于数组的Timer控件的类，定时执行任务；我这里摘抄了部分代码请教怎么写才能实现类似于ListView那样的集合类。子集里面给出地址就变成成员，不给地址就是方法这样的语句：如： ListView1.ListItems.Add().... 子集不赋值给出Add /Clear/Remove等方法 ListView1.ListItems(1).Text = " " 子集赋值后可以更新属性。我目前的代码 '窗体：frmMain-------------------- Option Explicit Private WithEvents Tsk As clsTask Private Sub cmdClose_Click() Tsk.TaskItem.Remove (1) End Sub Private Sub cmdStar_Click() Tsk.TaskItem.Add 1, 1, , True End Sub Private Sub Tsk_RunTime(TaskId As Integer) Select Case TaskId Case 1 Me.Caption = Now End Select End Sub Private Sub frmMain_Activate() Set Tsk = New clsTask Tsk.Enabled = True End Sub Private Sub frmMain_QueryClose(Cancel As Integer, CloseMode As Integer) Tsk.Enabled = False Set Tsk = Nothing End Sub '---------------------- '模块：mdlTask-------------------- Option Explicit Public Tasks(2000, 4) '支持同时运行2000个任务 Public Type TaskProperty TaskId As Integer RunTimer As Single TaskName As String Repetitive As Boolean End Type '---------------------- '类模块：clsTask-------------------- Option Explicit Private iEnabled As Boolean Private iTimeValue As Single Private Items As clsTaskItem Public Event RunTime(ByRef TaskId As Integer) '对应任务计时器到达后时间返回任务ID Private Sub Enableds() Dim i As Integer, m As Integer While iEnabled iTimeValue = Timer For i = 0 To 2000 If Tasks(i, 0) And iTimeValue - Tasks(i, 1) >= Tasks(i, 2) Then If Tasks(i, 3) Then Tasks(i, 0) = True Tasks(i, 1) = Timer Tasks(i, 3) = True Else Tasks(i, 0) = False Tasks(i, 3) = False End If RaiseEvent RunTime(i) End If DoEvents Next i DoEvents Wend End Sub Public Property Get Enabled() As Boolean Enabled = iEnabled End Property Public Property Let Enabled(vEnabled As Boolean) iEnabled = vEnabled If iEnabled Then Enableds End Property Public Property Get TimeValue() As Single TimeValue = iTimeValue End Property Public Property Get TaskItem() As clsTaskItem Set Items = New clsTaskItem Set TaskItem = Items End Property Private Sub Class_Initialize() End Sub Private Sub Class_Terminate() iEnabled = False End Sub '---------------------- '类模块：clsTaskItem-------------------- Option Explicit Public Sub Add(ByVal TaskId As Integer, ByVal RunTimer As Single, Optional ByVal TaskName As String = "", Optional ByVal Repetitive As Boolean = False) Dim i As Integer, m As Integer If Tasks(TaskId, 0) And Tasks(TaskId, 3) = False Then MsgBox "指定的任务ID已存在，请重新指定！", 16, "错误" Exit Sub End If Tasks(TaskId, 0) = True Tasks(TaskId, 1) = Timer Tasks(TaskId, 2) = RunTimer Tasks(TaskId, 3) = Repetitive Tasks(TaskId, 4) = TaskName End Sub Public Sub Remove(ByVal TaskId As Integer) If Tasks(TaskId, 0) = False Then Exit Sub End If Tasks(TaskId, 0) = False End Sub Public Property Get Count() As Integer Dim i As Integer, m As Integer For i = 0 To 2000 If Tasks(i, 0) Then m = m + 1 Next i Count = m End Property Public Property Get Items(ByVal TaskId As Integer) As TaskProperty With Items .Repetitive = Tasks(TaskId, 3) .RunTimer = Tasks(TaskId, 2) .TaskId = TaskId .TaskName = Tasks(TaskId, 4) End With End Property '----------------------

未来战机性能的假设 1、大气层内8倍音速以上

EXCEL VBA做的水果机。链接：http://tieba.baidu.com/mo/q/checkurl?url=https%3A%2F%2Fpan.baidu.com%2Fs%2F1rQoYziRWiYQ-9zv97s8afQ+&urlrefer=a2efa9a9e6e80954c46444229a1fd374 提取码：s398

有一点用吗？

毒株，需要的司令请看看

有不有比这更垃圾的天堂，我曰尼妹的

乔丹之石，哈哈

这玩意做旋律过渡可以吧

請問這個是不是屬於長柄武器？

快速对比两个文件夹内（包括子文件夹内）所有文件的差异不需要对比MD5，我不在乎文件的版本和内容。只要名字对上就OK。求高效的思路。我现在的办法16000多个子文件，根本不敢用timer实时的监控。每次运算都卡10几秒。为避免各位说我是伸手党，我先自己说出我的思路。求更好的办法。我现在的思路是： 1、先把2个文件的所有文件分别写到2个数组里面； Sub GetFullName(ByVal sPath As String, ByRef MyArr()) Dim FF, f, FuList, m_Ps, i&, k&, CoA() As String, CoB() As String ReDim CoA(0): ReDim MyArr(0): CoA(0) = sPath Do: i = 0: ReDim CoB(i) For Each m_Ps In CoA Set FF = CreateObject("Scripting.FileSystemObject").GetFolder(m_Ps) For Each f In FF.SubFolders If i > 0 Then ReDim Preserve CoB(i) CoB(i) = f.Path: i = i + 1 Next For Each f In FF.Files If k > 0 Then ReDim Preserve MyArr(k) MyArr(k) = Replace(f.Path, sPath, ""): k = k + 1 Next Next Erase CoA: CoA = CoB: Erase CoB Loop Until i = 0 End Sub 2、然后求2个数组的补集；这里我的代码是： Sub DelIntersec(ByRef ArrA(), ByRef ArrB()) strA = Join(ArrA, "|") & "|" strB = Join(ArrB, "|") & "|" For Each a In ArrA strB = Replace(strB, a & "|", "") Next For Each b In ArrB strA = Replace(strA, b & "|", "") Next MsgBox "A数组差缺： " & strB & Chr(13) & "B数组差缺： " & strA End Sub

请教如何实现

不知道捡到的是半大幼鸟还是受伤的大麻雀。不想喂，丢了又怕它死。昨天在路上捡到的，我一直喂的碎面包屑，手一拿过去就把嘴巴张得老大等东西吃。只要不抓他一点也不怕人。本来想扔掉又可怜它一条命。还有它尾巴毛怎么这么短。

求扬声器实时音量强度的获取方法

请教自定义控件属性设置的问题我在学习自定义控件。请问为什么在设计环境中通过属性窗口直接加载图片后，在程序启动后图像会丢失。而通过loadpicture函数动态加载时可以的。 Public Property Get Picture() As IPictureDisp Set Picture = m_Picture End Property Public Property Set Picture(iPicture As IPictureDisp) Set m_Picture = iPicture Picture1.Picture = m_Picture PropertyChanged "Picture" End Property Public Property Let Picture(iPicture As IPictureDisp) m_Picture = iPicture Picture1.Picture = m_Picture PropertyChanged "Picture" End Property

请问随从怎么进化我有大型水元素和北极先锋进化石板，请问怎么使用石板进化。钻石徽章怎么提升随从？

30级隐逸林地最强斗士BOSS打10次至少死8次，BOSS太猛 30级隐逸林地最强斗士BOSS打10次至少死8次，BOSS太猛

关于BMP像素操作的请教最近研究一个图像螺钉数量自动判断的代码，各位大侠们，救命啊！！！！

【请教】VB图像检测应用，我不是伸手党 1、一个面盆大小的黑色零件上6颗红色螺母； 2、我先用capCreateCaptureWindow函数和摄像头获取时事图像 3、指定图像中螺母区域。 4、用Point获取螺母区域内红向的RBG值是否大于一定数量在来判断螺母是否存在。问题是这办法收成像曝光值，自然光源影响厉啊。怎么破解。

老婆不在家LOL到3点粮食完收工

难道本来就是我想多了元芳怎么看？

凌晨3点回家不小心救了个跳楼的美女步入小区门口之后，我习惯性的望了望我住的小区楼。突然发现2栋楼顶护栏上貌似坐着一个人。我立刻靠近2栋向上观察了一会儿，发现的确是一个女人的身影。我意识到有情况，于是不动声色的乘电梯来到了楼顶。我来到顶楼楼道口，我害怕突然出现惊了这个女人。于是故意加大了脚步声并轻咳了一声。到了楼顶门口处我通过比较微弱的光线发现对面是穿着白色衬衣和深色短裙的女孩，一头披肩长发，面容应该还算清秀。因为灯管不是很好，我看不到是否有泪水。这时她也发现了我，正扭头看向我但没有说什么。 “这么巧啊，我还以为只有我一个人喜欢看星星”，我先说话了，并且我试图向她靠近。 "不要过来，你们这些臭男人全都给我死开些！……呜……呜……” 没想到她歇斯底里的一见面给我吼了一句，不过更证明了我的判断。这个女孩可能感情受伤想轻生…… 我停下脚步避免刺激到她而立马做出傻事。我故意大声对她说到：“美女，我们好像第一次见面吧，我也只是想到楼顶看看星星而已，干嘛这样凶啊！” 这时她已经回头继续面向小区大门口还在抽泣着，好像没有听我说话一样，根本不理我。于是我轻轻的向前迈步试图靠近。没走两步。

有研究VB控制EXCEL的高手么，帮指点一二有研究VB控制EXCEL的高手每 Private Sub Form_Load() Dim xlApp As Object Dim xlWb As Object Set xlApp = CreateObject("Excel.Application") For Each xlWb In xlApp.Workbooks List1.AddItem xlWb.FullName Next Set xlWb = Nothing Set xlApp = Nothing End Sub 帮看下这段代码为什么失效，但也不报错

【招募】10区-末日行者-联盟休闲玩家一起玩。大区：十区服务器：末日行者阵营：联盟 -------------------------- 找休闲的上班族一起玩，一个人玩着没劲啊。来了哥们相待；共同练级、打幻化、刷装备、成就、副本。上线时间一般在晚上7点30-12点30左右。群号：332186551

曹延琪已被击毙，大家可以放心了如题

还TM16滴精就悬赏过亿了，老子注定是要成为海贼王的男人

听说海吧最有爱，求点精涨姿势还是没问滴好求精

假如回到古代当皇帝，会怎么样！客观地说，我绝对是个昏君。我绝对是个好色的昏君，老子要御尽天下绝色美女。

贫道即兴作画一副，不知在吧里什么水平

这张图有个超级内涵的亮点

大家找一下这张图有亮点大家找一下这张图有亮点

绝对菜鸟求知识，请大神解疑我想用USB相机监测我的一台设备运行状态（设备上的某个装置是不是回到原来的位置，因为没位置也不允许在上面安装行程开关、光电开关）。为防止自然灯光和白天黑夜对图像的影响，我想红外透光片虑+红外照射灯虑掉可见光这样就不担心可见光对图像造成影响了。但问题是设备本身就有40~90度左右的温差波动，应该怎么选择。是不是选择更长的波，一般选多少波长不会受30~90度的影响。

有神哥用个5个大神写个打油诗出来，以证明你的才华京城五少里添溢针嗨巢里岳沉蚊姜凌诉

PENTAX工业镜头 C1614-M PENTAX工业镜头 C1614-M

退掉吧技能差

一直有个问题困扰着我，对我来说实在太难了如何用代码证明小图是大图中的一部分。

求助，我知道你们觉得简单如何用代码证明小矩阵中包含一个大矩阵中的子矩阵 Private Sub CommandButton1_Click() Dim r, c, r1, c1, x, y VBA.Randomize r1 = 0 c1 = 0 Application.ScreenUpdating = False r = Int(Rnd * 6) + 7 c = Int(Rnd * 6) + 7 For x = r To r + 21 r1 = r1 + 1 For y = c To c + 21 c1 = c1 + 1 Cells(r1 + 2, c1 + 42) = Cells(x, y) DoEvents Next y c1 = 0 Next x Application.ScreenUpdating = True End Sub

用你们的方言翻译凡吧的主题诗楼主先来，猜我哪里的人。啥子是凡人，哪J8地方又瞟得到神仙。不晓球得啥子时候就洗白咯。

祝簧涂哥和簧网哥户口本里面的人销户户口本内一死，死一遍；一绝，绝一户；一灭，灭一族，

“该死的黄图哥，你们能不能消停一下。” “该死的黄图哥，你们能不能消停一下。”

“该死的黄图哥，你们能不能消停一下。” “该死的黄图哥，你… “该死的黄图哥，你们能不能消停一下。”

“该死的黄图哥，你们能不能消停一下。” “该死的黄图哥，你们能不能消停一下。”

目测凡吧已经被簧涂哥占领老子都不好意思来凡吧了。

重庆人和万年路125路终点站，调度室隔壁旺铺餐馆转让旺铺转让本人因转行经营，现忍痛转让两层190平米餐馆一套。餐馆位于重庆市北部新区人和镇万年路184号（125路终点站，调度室隔壁）。是餐饮、茶楼等经营项目的黄金地段。价格面议！联系人：蒋先生联系电话：13272636450

【旺铺转让】重庆北部新区人和万年路旺铺转让旺铺转让本人因转行经营，现忍痛转让两层190平米餐馆一套。餐馆位于重庆市北部新区人和镇万年路184号（125路终点站，调度室隔壁）。是餐饮、茶楼等经营项目的黄金地段。价格面议！联系人：蒋先生联系电话：13272636450

人和万年路旺铺转让旺铺转让本人因转行经营，现忍痛转让两层190平米餐馆一套。餐馆位于重庆市北部新区人和镇万年路184号（125路终点站，调度室隔壁）。是餐饮、茶楼等经营项目的黄金地段。价格面议！联系人：蒋先生联系电话：13272636450

触屏电脑输入用户登录时并没有软键盘，或者怎么直接进入Admint… 1、XP系统触屏电脑；2、没有键盘；3现在能进的XX用户是首限的用户不能修改注册表；4、不允许重装系统。不知道是谁新建了一个受限用户【XX】后，一启动就直接显示Windows用户登录界面，并且用户名为【xx】。但我需要电脑登录就直接进入Admintrator账号，想手动输入账号又没有软键盘。由于是工控电脑没有USB接口。只有一个串口接口。怎么破解？？？如能破解再追分。。。。。。想进入安全模式也不行，没有键盘。 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fzhidao.baidu.com%2Fquestion%2F553421552.html&urlrefer=b223df131f118f7305426ab502b8d5ff