vb文件列表框中的一个问题_百度知道
vb文件列表框中的一个问题
Private Sub Command2_Click()
Dim sfilename As String
On Error GoTo X:
jb = jb - 1
If File1.ListCount &= 0 Then '文件列表框如果没有图片，取消操作
File1.ListIndex = jb
If Right(File1.Path, 1) && &\& Then ...
我有更好的答案
On Error语句：启动一个错误处理程序并指定该子程序在一个过程中的位置；也可用来禁止一个错误处理程序。语法On Error GoTo line On Error Resume NextOn Error GoTo 0On Error 语句的语法可以具有以下任何一种形式：On Error GoTo line
启动错误处理程序，且该例程从必要的 line 参数中指定的 line 开始。line 参数可以是任何行标签或行号。如果发生一个运行时错误，则控件会跳到 line，激活错误处理程序。指定的 line 必须在一个过程中，这个过程与 On Error 语句相同； 否则会发生编译时间错误。 On Error Resume Next 说明当一个运行时错误发生时，控件转到紧接着发生错误的语句之后的语句，并在此继续运行。访问对象时要使用这种形式而不使用 On Error GoTo。 On Error GoTo 0 禁止当前过程中任何已启动的错误处理程序。 说明如果不使用 On Error 语句，则任何运行时错误都是致命的；也就是说，结果会导致显示错误信息并中止运行。一个“允许的”错误处理程序是由 On Error 语句打开的一个处理程序；一个“活动的”错误处理程序是处理错误的过程中允许的错误处理程序。如果在错误处理程序处于活动状态时（在发生错误和执行 Resume、Exit Sub、Exit Function 或 Exit Property 语句之间这段时间）又发生错误，则当前过程的错误处理程序将无法处理这个错误。控件返回调用的过程。如果调用过程有一个已启动的错误处理程序，则激活错误处理程序来处理该错误。如果调用过程的错误处理程序也是活动的，则控件将再往回传到前面的调用过程，这样一直进行下去，直到找到一个被允许的但不是活动的错误处理程序为止。如果没有找到被允许而且不活动的错误处理程序，那么在错误实际发生的地方，错误本身是严重的。错误处理程序每次将控件返回调用过程时，该过程就成为当前过程。在任何过程中，一旦错误处理程序处理了错误，在当前过程中就会从 Resume 语句指定的位置恢复运行。注意 一个错误处理程序不是 Sub 过程或 Function 过程。它是一段用行标签或行号标记的代码。错误处理程序依靠 Err 对象的 Number 属性中的值来确定错误发生的原因。在其它任何错误发生之前，或在调用一个可能会导致错误发生的过程之前，错误处理程序应该先测试或存储 Err 对象中相关的属性值。Err 对象中的属性值只反映最近发生的错误。Err.Description 中包含有与 Err.Number 相关联的错误信息。On Error Resume Next 会使程序从紧随产生错误的语句之后的语句继续执行，或是从紧随最近一次调用含有 On Error Resume Next 语句的过程的语句继续运行。这个语句可以置运行时错误于不顾，使程序得以继续执行。可以将错误处理程序放置在错误发生的地方，而不必将控件传输到过程中的其它位置。在调用另一个过程时，On Error Resume Next 语句成为非活动的，所以，如果希望在例程中进行嵌入错误处理，则应在每一个调用的例程中执行 On Error Resume Next 语句。注意 当处理在访问其它对象期间产生的错误时，与其使用 On Error GoTo 指令，不如使用 On Error Resume Next。每次和对象打交道，在不知道用代码访问哪个对象时，检查一下 Err 都会打消这种疑虑。可以确定是哪个对象产生错误（Err.Source 中指定的对象），也可以确定是哪个对象将错误代码放在 Err.Number 中。On Error GoTo 0 停止在当前过程中处理错误。即使过程中包含编号为 0 的行，它也不把行 0 指定为处理错误的代码的起点。如果没有 On Error GoTo 0 语句，在退出过程时，错误处理程序会自动关闭。在错误未发生的时候，为了防止错误处理程序代码运行，请像在下段程序中那样，在紧靠着错误处理程序的前面写入 Exit Sub、Exit Function 或 Exit Property 语句。Sub InitializeMatrix(Var1, Var2, Var3, Var4)
On Error GoTo ErrorHandler
Exit SubErrorHandler:
Resume NextEnd Sub此处，错误处理程序代码在 Exit Sub 语句之后，而在 End Sub 语句之前，从而与过程中的流程分开。错误处理程序代码可以在程序中的任何地方写入。当对象作为文件运行时，对象中未捕获的错误都被返回控制应用程序。在开发环境中，如果设置了正确选项，未捕获的错误只返回控制应用程序。请参考主应用程序的文档的有关描述，从而得知，在调试时应该设置哪些选项、如何设置这些选项以及主机能否建立类。如果建立一个访问其它对象的对象，则应该着手处理从那些对象返回的未处理错误。如果无法处理这种错误，请将 Err.Number 中的错误代码当作自己的一个错误，然后将错误回传给对象的调用者。应该将错误代码添加到 vbObjectError 常数上来指定这个错误。举例来说，如果错误代码为 1052，则使用如下方法指定错误：Err.Number = vbObjectError + 1052注意 调用动态链接库 (DLL) 期间产生的系统错误不会产生例外情况，也不会被 Visual Basic 的错误捕获操作所捕获。当调用 DLL 函数时，应该（根据 API 的详细说明）检查每一个返回值以确定是成功还是失败，如果失败，则检查 Err 对象的 LastDLLError 属性中的值。简单来说，就是如果不用On Error语句，下面的代码在运行的时候出错，就会导致整个程序崩溃，退出，但是用了以后可以自己控制错误处理，不会导致整个程序崩溃
参考资料：
采纳率：49%
开起错误处理，程序出现错误时就跳到&X:&这个位置
为您推荐：
其他类似问题
您可能关注的内容
列表框的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。达人说得详细些，，还有要是点确定呢？COMMAND中放什么代码打开的是当前选中的文件？
要三个控件Drive1盘号Dir1文件夹号File1文件号
Private Sub Dir1_Change()
File1 = Dir1.Path
Private Sub Drive1_Change()
Dir1 = Drive1.Drive
Private Sub File1_DblClick()　要双击打开所要用双击事件
ff = Dir1.Path & "\" & File1.FileName
Shell ff, vbNormalFocus
这样可以打开*.EXE的程序　其它文件类型还不行　如ＥＸＣＥＬ文件就有其自己打开方式　或用ＡＰＩ　可能打开类型多些
其他答案（共1个回答）
ommand1_Click()
MsgBox Dir1.Path
End Sub
Private Sub Dir1_Click()
If t Then
Command1_Click
Else
t = True
End If
End Sub
Private Sub Form_Load()
Timer1....
Dim t As Boolean
Private Sub Command1_Click()
MsgBox Dir1.Path
Private Sub Dir1_Click()
Command1_Click
Private Sub Form_Load()
Timer1.Interval = 8000
Private Sub Timer1_Timer()
<a href="/b/.html" title="c++#includec++#include<iostream...
建Drive1,dir1,file1,list1,list2.代码如下。＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝Function 播放(文件路径 As Stri...
给你个参考，把代码复制到项目中，某些名字自己改改就行
下面提供一个实例,由于时间关系,做的不是很完善，比如输入路径的处理，查找文件属性的处理，DOS下8.3文件规则限制等等。
但是基本思路没有问题，可以给LZ借鉴。...
那是你的路径没有设置正确。在Temporary Internet Files目录下实际上是没有临时文件的，此目录下会有带有隐藏属性的子目录，类似于“Conten...
代码比较长，我把整个工程以及编译以后的exe都打包了。
exe的使用方法：
1.用Open按钮选择你需要分析的文件（文件的全路径会显示在文本框中，当然，如果你要...
答: 上面正解
答: 在Api浏览器中找findwindow()函数和showwindow()函数，然后用
dim a as long
a= Findwindow(vbnullstr...
答: 很简单，你在网上搜索下VB.NET的UDP或者TCP通讯代码就成了，有很多的，有单对单或者单对多
根本就没有正式的国际驾照，如果到国外开车，正式的程序：
1、到公证处办理驾照的公证书，可以要求英文或者法文译本（看看到哪个国家而定）；
2、拿公证书到外交部的领事司指定的地点办理“领事认证”，可以登录外交部网站查询，北京有4、5家代办的，在外交部南街的京华豪园2楼或者中旅都可以。
3、认证后在公证书上面贴一个大标志；
4、有的国家还要到大使馆或者领事馆盖章一下。
偶前几天刚刚办过。
关于三国武将的排名在玩家中颇有争论，其实真正熟读三国的人应该知道关于三国武将的排名早有定论，头十位依次为：
头吕（吕布）二赵（赵云）三典韦，四关（关羽）五许（许楮）六张飞，七马（马超）八颜（颜良）九文丑，老将黄忠排末位。
关于这个排名大家最具疑问的恐怕是关羽了，这里我给大家细细道来。赵云就不用多说了，魏军中七进七出不说武功，体力也是超强了。而枪法有六和之说，赵云占了个气，也就是枪法的鼻祖了，其武学造诣可见一斑。至于典韦，单凭他和许楮两人就能战住吕布，武功应该比三英中的关羽要强吧。
其实单论武功除吕布外大家都差不多。论战功关羽斩颜良是因为颜良抢军马已经得手正在后撤，并不想与人交手，没想到赤兔马快，被从后背赶上斩之；文丑就更冤了，他是受了委托来招降关羽的，并没想着交手，结果话没说完关羽的刀就到了。只是由于过去封建统治者的需要后来将关羽神话化了，就连日本人也很崇拜他，只不过在日本的关公形象是扎着日式头巾的。
张飞、许楮、马超的排名比较有意思，按理说他们斗得势均力敌都没分出上下，而古人的解释是按照他们谁先脱的衣服谁就厉害！有点搞笑呦。十名以后的排名笔者忘记了，好象第11个是张辽。最后需要说明的是我们现在通常看到的《三国演义》已是多次修改过的版本，笔者看过一套更早的版本，有些细节不太一样。
销售额：指企业在销售商品、提供劳务及让渡资产使用权等日常活动中所形成的经济利益的总流入。税法上这一概念是不含任何税金的收入。销售额适用于制造业、商业等。
营业额会计上指的是营业收入，税法指的是应税营业收入。营业额属于含税收入，适用于饮食业、运输业、广告业、娱乐业、建筑安装业等 。
这个问题有点不知所问了。
公务员并不由单位性质决定，行政单位行政编的是公务员，但并不是说行政单位的就是公务员，事业单位里面参照管理的也是公务员。
所以你的问题只能回答为：按公务员管理的是公务员。
药物治疗：在早期的时候，主要是通过药物来控制炎症和滑膜增生。常用的药物有非甾体类抗炎药、肾上腺皮质激素等，但由于这些药物长期使用都会很大的副作用，会破坏胃肠道粘膜，因此，一旦症状炎症缓解，或服用后有头晕、过敏等不良反应，则应马上停药。药量需让有经验的专家根据自身病情而定，患者本人不能私自更改。五联一体清痹疗法：此方法是北京骨科医院专家根据疾病的发病特点研究出来的综合治疗方法，能够有效清除炎性物质和病变细胞，控制风湿活动，促进受损组织的修复。若是病变侵犯到人体的膝关节，还可使用关节镜技术对其进行相应的修复的治疗。手术治疗：如果患者病程持续太久，并且已经有明显的关节变形，则需进行手术治疗，对畸形进行矫正，尽可能保留受累关节的功能。关节炎的种类是不少，在青少年中常见的多是风湿性关节炎。若是在急性期当然是以休息为重，但是在慢性阶段还是有必要参加适当的体育锻炼，否则关节有可能强直或疏松。
咽东西有难受的感觉，有烧心和反胃的症状发生了，上腹部疼痛，有腹胀不适的症状，有时候吃东西会有恶心的症状，口水很多，除了一些消化道疾病引起的腹胀不适恶心之外还有可能引起消化道症状异常以外的情况发生,有可能出现胸痛症状，还有就是耳鼻部也不舒服.
全面了解患者病史及相关检查结果，全悉病情后方能有的放矢的治疗疾病。高血糖治疗：健康教育很重要：规律生活，戒烟限酒，预防感染。补充能量；适当锻炼；④规律监测血糖的变化；⑤合理选择降糖药物，掌握其适应症；⑥胰岛素治疗；⑦防止并发症；高血压治疗：密切监测血压变化，这是治疗高血压最重要的一步；降压药物的选择：高血糖合并高血压，高血压防治指南建议选用ACEI或ARB类降压药治疗；血压控制在130/80mmHg以下；④监测电解质变化，防治高血钾。其他治疗：高血糖治疗可给予营养神经药物，防治周围神经病变；合并有血脂代谢异常者给予他汀或贝特类调制药；病程时间漫长者，给予阿司匹林抗血小板治疗，防治血管血栓形成，预防冠心病。1、密切监测血糖、血压变化，根据测量值调节药物剂量；2、低盐低脂饮食；3、加强运动锻炼；4、使用胰岛素时，注意低血糖反应；5、使用降压药是监测电解质（高血钾）；6、戒烟限酒。
首先小孩呼吸道感染很大程度上是由于平时不注意，日常喂小孩服用的水比较少，然后患有咽喉炎引起的，所以这个时候就要吃一些消炎药来帮助消炎，例如口服小苏打琥乙红霉素等，这些药品能够帮助小孩慢慢消除在呼吸道上的炎症，但是一定要注意不能持久服用。其次小孩呼吸道感染，可能是由于嗓子发炎咳嗽引起的，这时候吃一些治疗咳嗽的药物也是有一定效果的，例如甘草片或止咳糖浆，从而来降低机体的易感性，缓解咳嗽，在吃咳嗽药的同时，伴随着服用板蓝根颗粒，这样能够有效的止咳消炎。还有一种就是不太常用的，就是含着服用华素片或者是一些润喉片等，华素片和润喉片对于缓解嗓子发炎和呼吸道感染有极好的作用。但是对于较小的小孩，最好不要采用这种方法和药物，以免带来不必要的麻烦。注意治疗呼吸道感染的药物不论是哪张，都最好不要长久的服用，因为药物中含有好多成分，对小儿的身体不好，所以短期服用以后，然后按照医师的嘱托进行饮食调整。
早期患者要做针对性的治疗首先要根据患者的病情。如果是没有特殊临床表现症状的话，一般不需要特别的治疗。但是最好到医院做一下全身的检查听从医师的嘱咐做相应的配合。还要注意适当的休息。对有一些表现症状的早期患者来说，大部分的话采用的都是西医治疗的药物治疗方法。采取一些抗结核的药物。比如说链霉素。但是由于患者个人体质不同，这些药物并不适用于每一个患者。并且患者所服用的药物的药量都有差异。最好到正规医院接受药物治疗。早期患者除了积极配合医生治疗之外，还要注意平时做一些适当的体育锻炼但是要避免幅度过大激烈的运动。在饮食上面患者也要注意平时饮食清淡健康饮食为主。不要吃一些油炸或者辛辣刺激的食物。利用药物治疗的患者应该要注意一般药物治疗是有一定周期的。部分患者短期疗程就可治愈，但是仍然有一部分患者，药物治疗的疗程较长，病情仍不见好转。还是要在病情没有得到好转的时候，及时再到医院做一下全身检查。
就我熟知商务软件本就不多，你还要社交，你还要好用，拒绝很高了可以说。
照这情况不能引荐有朋商旅了，显然是商务社交，但是好用的话，我实在还行吧，算不俗。
我也是在享趣花艺学的，学习的内容很丰富，现已开花店了。
我觉得伊斯顿生物科技有限公司就不错的，他们公司有专业的技术团队和先进的设备，在行业内口碑很好的 知名度很高 推荐你可以联系他们了解一下。
加装注意事项（1）按上下方向正立摆放为原则，禁令腿用于电池。（2）不要在蓄电池上给与异常的振动与碰撞。（3）在加装过程中要留意绝缘。（4）不要把机器加装成密封形结构。（5）在加装过程中要留意让电池之间维持一定的间距，以确保空气流通。（6）请不要把有所不同种类的蓄电池混合用于。（7）不要让电池与有机溶剂认识。
这个主要看你租什么车，商务车也有高中低档的，低档的话一天也就200到300块钱左右。
正在加载...
Copyright &
Corporation, All Rights Reserved
确定举报此问题
举报原因(必选)：
广告或垃圾信息
激进时政或意识形态话题
不雅词句或人身攻击
侵犯他人隐私
其它违法和不良信息
报告，这不是个问题
报告原因(必选)：
这不是个问题
这个问题分类似乎错了
这个不是我熟悉的地区
相关问答：123456789101112131415您所在位置： &
&nbsp&&nbsp&nbsp&&nbsp
VB的题库—选择.doc 234页
本文档一共被下载：
次 ,您可全文免费在线阅读后下载本文档。
&#xe600;下载提示
1.本站不保证该用户上传的文档完整性，不预览、不比对内容而直接下载产生的反悔问题本站不予受理。
2.该文档所得收入(下载+内容+预览三)归上传者、原创者。
3.登录后可充值，立即自动返金币，充值渠道很便利
VB的题库—选择
你可能关注的文档：
··········
··········
用语句Dim A (-3 To 5) As Integer定义的数组的元素个数是
用键盘的光标键选中某一菜单项,并按回车将触发菜单的
用鼠标拖动滚动条中滚动框并释放,将触发滚动条的
Scroll，Change
要清除已经在图片框Picture中打印的字符串而不清除图片框中的图像,应使用语句 .P1.Cls
要清除组合框Combol中的所有内容,可以使用
Combo1.Clear
要强制显示声明变量,可在窗体模块或标准模块的声明段中加入语句
Option Explicit
要想清除文本框中的内容则可利用
在逐行运行程序的语句时,可用调试窗口监视表达式和变量的值,其中
窗口是用来显示代码中正在调试的语句所产生的信息,或显示直接在该窗口中键入的命令所请求的信息.
表达式INT(8*SQR(36)*10^(-2)*10+0.5)/10的值是
（INT：返回不大于N的最大整数，SQR：求N的平方根，优先级：^，- 负号，*，/ 除 ，\整除，Mod，+，-）
以下能判断是否到达文件尾的函数是 EOF
（LOC函数是用来在已打开的文件中指定当前读/写的位置，LOF函数是用来返回已打开文件的长度，EOF函数是用来判断是否到达已打开文件的尾部。）
在过程中定义的变量是局部变量，若希望在离开该过程而程序还没有结束时，还能保存局部变量的值，则应使用
保留字定义局部变量。
为了防止用户随意将光标置于控件上,应
将控件的ENABLED属性设置为FALSE
下面过程运行后显示的结果是
Public Sub f1(n%,ByVal m％)
M= m Mod 10
Private Sub Command1_Click()
Call f1(x,y)
函数Int(10*Rnd)是在
范围内的整数.
（Rnd函数，要产生某范围的整数值，其通用表达式为：Int(Rnd*(上界下界
一个菜单项是不是一个分隔条,由
下面关于随机文件的描述不正确的是(B)。
A:每条记录的长度必须相同
B:一个文件中记录号不必唯一
C:可通过编程对文件中的某条记录方便地修改
D:文件的组织结构比顺序文件复杂
激活主菜单的按键是 Ctrl键或Atl键
窗体也是一个对象，它具有
属性、过程、方法
逻辑型数据占2个字节
长整型数据占4个字节
单精度型数据占4个字节
字符型数据是由字符串长度决定的
在VB中，需要用数据访问对象对数据库进行访问，下列哪些属于VB的数据访问对象
DAO、ADO、 RDO
（没有OAD）
在调用Sub过程中使用Call语句时，参数必须在括号内
过程本身使用的参数列表称为“形参”，而主程序传递给过程的真正参数称为“实参”
DIM语句声明的数组把数值数组中的全部数组元素都初始化为0，把字符串数组中的全部元素都初始化为空字符串
下面有关数组的说法那些是错误的（BCD）
A:数组存放的是具有相同数据类型的多个数据
B:数组的下标允许是常数、表达式或变量
C:DIM语句声明的数组把数组中的全部数组都初始化为逻辑型
D:多维数组中每一维的大小为上界-下界；数组的大小为每一维大小的乘积
E:动态数组是指在声明时没有给出数组的大小，当要使用数组时，再决定数组的大小
MSGBOX函数中有4个参数,其中必须写明的参数是
要在图片框P1中打印字符串&HowAreYou&,应使用语句
P1.Print&HowAreYou&
InputBox函数返回的函数值的类型是
数值或字符串
要使得标签能自动扩充以满足字体大小则可对其
属性进行设置.
工具栏中的&启动&按钮的作用是
运行一个应用程序
先按首字拼音字母排序比较,如果相同,再取第二个字符的拼音首字进行比较,依此类推,即可得出结论.
货币型@数据需
设a=10,b=5,c=1,执行语句Print a&b&c后,窗体上显示的是
D:出错信息
（vb中是两个两个比较的，所以首先比较a和b. .a＞b,是真的，返回值为-1。然后就是用-1与c比较，显然-1
正在加载中，请稍后...您的访问出错了(404错误)
很抱歉，您要访问的页面不存在。
1、请检查您输入的地址是否正确。
进行查找。
3、感谢您使用本站，3秒后自动跳转至网站首页豆丁微信公众号
君，已阅读到文档的结尾了呢~~
扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
6&#46;5VB复习题2
举报该文档为侵权文档。
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由：
将文档分享至：
分享完整地址
文档地址：
粘贴到BBS或博客
flash地址：
支持嵌入FLASH地址的网站使用
html代码：
&embed src='http://www.docin.com/DocinViewer--144.swf' width='100%' height='600' type=application/x-shockwave-flash ALLOWFULLSCREEN='true' ALLOWSCRIPTACCESS='always'&&/embed&
450px*300px480px*400px650px*490px
支持嵌入HTML代码的网站使用
您的内容已经提交成功
您所提交的内容需要审核后才能发布，请您等待！
3秒自动关闭窗口