vb求助——

问题描述

本人小白,初学vb,求大虾指点,谢谢以下是某年某月某日某时提示某事件的源代码PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Clicklistwork.Items.Remove(listwork.SelectedItem)EndSubPrivateSubTimer1_Tick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTimer1.TickDimiAsIntegerDimsAsDateDims1AsStringDims2AsStringDims4AsStringDims5AsStringDimpAsIntegerDimjAsIntegerDimmAsIntegerDims3AsStringDims6AsStrings1=Date.Now.ToShortDateStrings4=Date.Now.ToShortTimeStringp=Len(s1)m=Len(s4)+pForEachs2Inlistwork.Items()s3=s2.Substring(i,p)Ifs1=s3ThenForEachs5Inlistwork.Items()s6=s5.Substring(p+1,m)Ifs4=s6ThenMsgBox(s2)EndIfNextEndIfNextEndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Clicklistwork.Items.Add(txtday.Text&txttime.Text&txtwork.Text)EndSubEndClass

解决方案

解决方案二:
转到.NET区吧
解决方案三:
lz的结贴率0.00%啊!PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Clicklistwork.Items.Remove(listwork.SelectedItem)'listbox移除选择的项EndSubPrivateSubTimer1_Tick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTimer1.TickDimiAsIntegerDimsAsDateDims1AsStringDims2AsStringDims4AsStringDims5AsStringDimpAsIntegerDimjAsIntegerDimmAsIntegerDims3AsStringDims6AsStrings1=Date.Now.ToShortDateString'当前日期,例如2011-12-13s4=Date.Now.ToShortTimeString'当前时间,例如10:25p=Len(s1)'日期字符串的长度m=Len(s4)+p'日期+时间字符串的长度ForEachs2Inlistwork.Items()'遍历listbox,看来listbox都是类似"2011-12-1310:25"这种格式s3=s2.Substring(i,p)'S3取每一条list的前p个字符,也就是"2011-12-13"Ifs1=s3Then'如果是今天日期ForEachs5Inlistwork.Items()'然后再次遍历listbox,s6=s5.Substring(p+1,m)'取p+1开始的m个长度,即时间"10:25"Ifs4=s6Then'如果是当前的时间MsgBox(s2)'提示listbox中这一条EndIfNextEndIfNextEndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Clicklistwork.Items.Add(txtday.Text&txttime.Text&txtwork.Text)'添加listEndSubEndClass

不过,上面判断的有点问题啊,进行了两次循环这导致一个严重的比对bug例如当前时间"2011-12-1310:35"列表里面有1"2011-12-1210:12"2"2011-12-1210:35"3"2011-12-1310:12"4"2011-12-1310:35"外层循环首先会先找到3的记录,然后进行内层循环找到2的记录,提示3,再找到4的记录,提示3然后回到外层循环找到4的记录,然后进行内层循环找到2的记录,提示4,再找到4的记录,提示4这明显是错误的..应该只提示4才对吧.
解决方案四:
时间类型就用时间类型,用个字符串拆来拆去,弄的算法也不清晰,错误也多。

时间: 2024-11-05 12:31:19

vb求助——的相关文章

参数传递-求助一个vb.net无法向NVelocity模板引擎传递参数的问题

问题描述 求助一个vb.net无法向NVelocity模板引擎传递参数的问题 我没找到vb.net的资料就用C#的翻译成了下面vb.net代码,我是想把一个类的实例作为参数传给模板,但模板并未收到son的数据,请各位前辈帮忙看看,字符串类型和数值类型都以传递,唯独类的实例不可以传递,代码如下: person类代码: Public Class person Public name As String Public age As Integer End Class html模板代码: <html>

函数调用-新人求助 vb.net+access数据库编写电话簿,调用添加和删除函数,调试都卡住了。

问题描述 新人求助 vb.net+access数据库编写电话簿,调用添加和删除函数,调试都卡住了. 添加函数: '写一个添加用户信息的方法,它的返回值是布尔型, Function AddUser(ByVal User As DBuser) As Boolean '首先判断用户名是否已经存在 Dim SQLString As String SQLString = "SELECT * FROM telephonebook WHERE 姓名 ='" & nm & "

求助一个vb.net中webbrowser的问题

问题描述 求助一个vb.net中webbrowser的问题 我用vb.net中的webbrowser提取超链接,代码如下: Timer1.Enabled = False Dim web As WebBrowser = WebBrowser1 For Each i As HtmlElement In web.Document.GetElementsByTagName("a") url = url + i.InnerText + i.GetAttribute("href"

vb-关于VB MSCHART控件画柱状折线图的求助

问题描述 关于VB MSCHART控件画柱状折线图的求助 各位大神,小弟求教如何使用VB 中MSCHART控件画出柱状折线图. 例:柱状显示每月实际销量,折线显示销售目标 解决方案 http://wenku.baidu.com/link?url=4dnfuHhQFd_o4Ms3Mybj_C87iVPKPPuz3TAsNVuhQ2q73fnNoFepsKD1ke3Sb2n_e4C2BNW67uwa7aAwGRsArAL_hsVNwyl3lI9VtGdIwGa http://www.docin.co

VB.NET新手求助文件遍历及文件夹名称,文件数量、类型的问题

问题描述 各位大大好:由于工作需要,小白一枚需要用vb.net编一个小软件,该软件功能为:遍历一个文件夹中的所有子文件夹及子文件夹里的文件,按文件存在的子文件夹位置,获得该文件夹中不同类型的文件个数.比如:有个文件夹(名为"a"),a中有一个二级子文件夹(名为"b"),同时还有个c.txt文件.h.doc文件,即b.c.h都为二级文件,b中又有名为d的三级子文件夹和e.doc文件.f.doc文件,即d.e.f都为三级文件,d中含有g.xls文件,即g为四级文件.现在

[求助]2013VS使用vb.net无法读取调用office2010

问题描述 本人系VB.NET初学者,求助各位,本人vs已添加office的COM引用,但是依旧无法读取office,在此谢谢大家 解决方案 解决方案二:你是要操作word还是excel?excel的话还需要引用Microsoftexcel15.0library.然后还要创建word或是excel的对象实例,才能够调用!解决方案三:我也中招,无法引用.imports后,根本不出EXCEL.LZ解决了吗?分享下经验呗.解决方案四:excel时,需要添加的引用是Microsoft.Office.Int

VB.NET项目运行流程怎么样的,本人是刚学VB.NET的,求助大神

问题描述 本人刚学VB.NET,刚知道基础的东西,现在开始接触项目,有完整的项目,但是找不到项目运行的入口,比如类似于Java中的主函数入口等等啊,求助大神啊 解决方案 解决方案二:vb不需要那个所以没有解决方案三:在项目中搜索submain解决方案四:vs中新建vb项目写入代码ctrl+f5编译运行解决方案五: 解决方案六:既然是刚学基础的东西,那么你学习的哪本入门书让你来找vb.net的入口函数呢?你试试回答这个问题,也许能有所启发.解决方案七:引用3楼devmiao的回复: vs中新建vb

求助.我拿到一个用VB.net 语言 Vs2005 和Access工具 编写的程序 可我不会运行 急求高手指点

问题描述 求助.我拿到一个用VB.net语言Vs2005和Access工具编写的程序可我不会运行急求高手指点请对这方面的有研究的高手联系QQ873498013我把程序发给你,只要告诉我如何配置运行的即可.Q币相赠大伙帮帮忙啊真得很急! 解决方案 解决方案二:安装.netFrameWork2.0解决方案三:安装2005就可以调试了解决方案四:我已经加你了

求助。VB生成的安装包连接的access数据库不能更新

问题描述 求助各位高手,用VB6.0做了个程序,里面有和Access数据库连接,但是生成的安装包安装后使用,access里面的数据不能更新.求解决办法. 解决方案 解决方案二:更新语句及错误代码呢?解决方案三:在VB上是可以更新的.我是一个问卷,就是每个用户做完题后每个题的分数自动保存到access,在vb上运行是没有问题的,生成的安装包不行.解决方案四:PrivateSubCommand5_Click()Dimj,ka=Val(Label9.Caption)b=Val(Label11.Capt