说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB编程常见问题

HTML文档下载 WORD文档下载 PDF文档下载
VB编程常见问题

  问题:如何编程使文本框中文本的某一特定字符或字符串同时高亮显示?

  答:由于普通TextBox控件不支持不连续字符串的同时高亮显示,所以我们选择RichTextBox控件。单击工程(Project)选单项,在弹出的下拉选单中单击组件(Components)选单项,从弹出的对话框中选择Microsoft Rich Textbox Control 5.0复选框,确定加载RichTextBox控件。

  新建(New)一个工程,在窗体(Form)上添加一个RichTextBox控件和两个Command(按钮)控件,都采用系统默认的Name属性值;设置RichTextBox的Text属性值为空,Command1和Command2的Caption属性值分别设为“输入文本”和“选择字符串”。最后,添加如下VB代码:

  Private Sub Command1—Click()

   Dim str As String

   Dim Text As String

   str=″输入文本″

   Text=InputBox(str)

   RichTextBox1.Text=Text

  End Sub

  Private Sub Command2—Click()

  Dim str As String

  Dim Text As String

  Dim Position As Integer

  Dim Lenth As Integer

  str=″输入要高亮显示的字符串″

  Text=InputBox(str)

  If Text 〈〉 ″″ Then

   Position=InStr(RichTextBox1.Text, Text)-1

   Lenth=Len(Text)

   RichTextBox1.SelStart=Position

   RichTextBox1.SelLength=Lenth

   RichTextBox1.SelColor=RGB(255,0,0)

   Do While InStr(Position+Lenth+1, RichTextBox1.Text, Text) 〈〉 0

     Position=InStr(Position+Lenth+1, RichTextBox1.Text, Text)-1

     RichTextBox1.SelStart=Position

     RichTextBox1.SelLength=Lenth

     RichTextBox1.SelColor=RGB(255,0,0)

   Loop

  End If

  End Sub

  按F5执行程序,单击“输入文本”按钮,在弹出的对话框中输入一些文本,确定后,刚刚输入的文本将显示在RichTextBox中;再单击“选择字符串”按钮,在弹出的对话框中输入你希望高亮显示的字符串,确定后,RichTextBox中相应的字符串将以红色高亮显示。

  问题:如何利用VB编写程序实现Windows 95操作系统的热启动?

  答:要利用程序实现系统的重新启动,可以在你的程序中调用API函数来实现。建一个子函数:(以VB为例)

  Declare Function SystemParametersInfo Lib ″user32″ Alias —

  ″SystemParametersInfo″ (ByVal uAction As Long, ByVal uParam As Long,

  ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long

  Sub DisableCtrlAltDelete(bDisabled As Boolean)

  Dim X As Long

  X=SystemParametersInfo(97, bDisabled, CStr(1), 0)

  End Sub

  Call DisableCtrlAltDelete(true)  ′禁止热启

  Call DisableCtrlAltDelete(false) ′允许热启

  问题:如何把数据文件输出到Text控件中?如果数据量比较大,窗体满屏也不够大,怎么解决?

  答:有一个比较简单的方法,就是把数据放到一个文本框(Text)里,并在其中加上水平和垂直滚动条。具体实现步骤为:先在窗体(Form)里加入一个文本框,采用默认名Text1;然后,设置文本框Text1的属性:Text属性设置为空,MultiLine属性设置为True,ScrollBars属性设置为3-Both;接着添加如下VB代码:

  Private Sub Form—Load()

  Dim Handle As Integer

  Dim FileName As String

  On Error GoTo ErrExit

  begin:

  ′输入要显示的数据文件的名称

  FileName=InputBox$(″Input Filename″,

  ″Open File″)

  On Error GoTo FileErr

  Handle=FreeFile

  Open FileName For Input As #Handle

  ′把数据文件中的数据输出到文本框中

  Text1.Text=Input$(LOF(Handle), Handle)

  Close #Handle

  Exit Sub

  FileErr:

  Dim ErrNum As Integer

  If Err.Number=53 Then

    ErrNum=MsgBox(″File not exist″, vbOKCancel, ″Error Information″)

    If ErrNum=1 Then

      GoTo begin

    Else

      Exit Sub

    End If

  End If

  MsgBox Err.Description, , ″file open failed″

  ErrExit:

  Exit Sub

  End Sub

  ′使文本框充满整个窗体

  Private Sub Form—Resize()

  Text1.Left=0

  Text1.Top=0

  Text1.Width=Form1.Width-100

  Text1.Height=Form1.Height-400

  End Sub

  通过这样的处理,不仅能解决问题,而且用户还可以在文本框中对数据进行编辑。

  问题:怎样把文件列表框、目录列表框和驱动器列表框相互关联起来?

  想做一个对话窗体,包含驱动器列表框、目录列表框和文件列表框,并能实现三者的同步操作,怎么做?

  答:在实际应用中,经常会遇到上述问题,在VB中解决这个问题非常简单,可以通过Path属性的改变引发Change事件来实现。例如:

  Sub Dir1—Change()

File1.Path=Dir1.Path

  End Sub

  该事件过程使窗体上的目录列表框Dir1和文件列表框File1产生同步。因为目录列表框Path属性的改变将产生Change事件,所以在Dir1—Change事件过程中,把Dir1.Path赋给File1.Path,就可以产生同步效果。

  类似地,增加下面的事件过程,就可以使三种列表框同步操作:

  Sub Drive1—Change()

Dir1.Path=Drive1.Drive

  End Sub

  该过程使驱动器列表框和目录列表框同步,前面的过程使目录列表框和文件列表框同步,从而使三种列表框同步,问题即可解决。

  问题:如何在Windows 95或Windows 98启动后自动启动程序?

  答:我们都知道在Windows 95和Windows 98的“开始”→“程序”选单下有一“启动”选单项,当每次启动Windows 95或Windows 98时,系统都会自动启动放在“启动”选单栏里的可执行程序。

  但目前有好多软件,像解霸五、ICQ,以及大部分实时侦测病毒的软件等等,安装后,并没有放在“启动”选单里,也能在启动操作系统时自动启动。怎么实现的呢?

  其实只要知道Windows注册表的一些知识,这个问题就不能称之为问题了。用鼠标单击“开始”,打开开始选单,再单击“运行”,出现一对话框,然后输入“regedit”,确定后,会打开系统注册表编辑器,找到HKEY—LOCAL—MACHINE? SOFTWARE?Microsoft?Windows?CurrentVersion?Run,加入你的程序的入口,就可以了。如果不知道怎么加,就参考一下已经存在的键值。
ThoughtWorks美女分析师:如何规划企业在线数字渠道战略? OpenStack将怎样影响软件行业? 知识产权日特稿:谁动了程序员的源代码版权? MIT技术评论评选2013十大突破性技术:深度学习居首 Chrome测试版添扩展程序 可直接浏览Office文档 Ubuntu 13.04携中文衍生版UbuntuKylin 13.04发布 Spark核心开发者:性能超Hadoop百倍,算法实现仅有其1/10或1/100 移动开发的碎片化时代,我们该怎么办? 谈应用分发控制力:还是渠道为王 Unity亚洲开发者大会:手游半衰期越短,开发者手中的机会越多 《割绳子》开发者:俄罗斯双胞胎的奋斗史 曾应聘Rovio未果 Win7系统上常见IE 10问题汇总 如果苹果推廉价手机,市场份额会不会超过安卓? 移动互联网下,如何做儿童新音乐? 第三届“中科杯”全国软件设计大赛正式启动 注重稳定性 Docker 0.2.0发布 何谓机器学习 机器学习能做些什么? 艰难的决定:EA裁员10%,殃及PopCap 或提前落地!Amazon和Facebook急聘SDN工程师(Python优先) 轻松完成网站提速:来自Google、淘宝等的Nginx PageSpeed模块 Touch-Pay发布 移动联通在手机游戏领域联合推融合计费SDK 如何组织大型JavaScript应用中的代码? Robert Scoble:戴Google Glass两周后 再也不想摘下它 赶时髦?Facebook CEO 2013年将领取1美元年薪 蓝港在线CEO王峰:我在网络游戏行业十年从业记 CMDN Club 27期:从儿童音乐教育到移动碎片化管理 聚焦全球移动市场——你所不知道的俄罗斯 MemSQL:号称世界上最快的内存-关系型数据库 兼容MySQL但快30倍 PC衰落 Intel转投Google挖掘移动市场潜力 移动周报:500元体感、精确到0.01毫米的Leap Motion TUP第29期:王淮、龚世海谈如何打造优秀的技术团队 很菜的问题,希望不要见笑! 关于cookies的问题, 请教各位了. 很急!!!!!! 我日,天天见鬼,我用wsdl做了个webservice的代理类,把文件包含到webapplication中,debug的时候竟然说namespace System.Web.Services 本王对ISharp版竹表示最遗憾的同情和失望 哪位大哥能解决VB打开picture对话框时---蒸发的问题? 为什么我用jsp访问不到bean的属性???[100分,在线结帖] 为什么要“导入COM对象到.Net”? 请问我是不是被攻击了? 求这样的SQL语句,我脑子转不过来了。 请问各位大侠,如何在WIN2000下重启计算机。 不爱说话的男生怎么找女朋友呀 急! datagrid的第一列是空白列,怎么才能删除掉 在textBox上点一下,textbox中的文字清空,接受用户输入,怎么实现? 请问如何补齐笔划 如何在一个表里实现某一个字段的值都加一呢 有关xp中bios的几个问题 "评选最具实力的汇编、底层的开发论坛。" 这个帖子怎么不见了????里面有我急需的东西啊!!!! 大家帮帮我啊(让我郁闷好长时间了) 救助 谁有 中文Lotus Domino R5 Web开发指南 下载? 为什么我的jsp在weblogic里部署后老是乱码? 数组元素的合并,头痛 请问listview中item的data属性 是怎样存入和读取的??????????????????????????????????????? 用MSCOMM出了DEBUG,现在想改用API,但有几个问题不明白,请各位高手进来帮忙!! 哪位大大哥会让IIS6.0支持PHP和CGI?要多少分我都送! 我用FlatStyle里的TflatTitlebar,如何做出像优化大师标题栏一样的渐变色? WIN98\W2000雙系統問題 如何辨别ADSL是否有端口映射功能? 急啊!!!在线等 请问如何在VC中实现SDK,或者打开并断点运行SDK程序代码啊? asp如何控制时间? 如何在一个表里实现某一个字段的值都加一呢 怎样在WinRunner中使用TSL读取Excel中的内容??? XP的电源问题 请问关于SDK-ipconfig.cpp程序的断点运行! 怒了,还是关于两个JFrame传值的问题,100分!!! 请问这个判断应该怎样写? 我建立的anywhere数据库 *.db 怎么给库里的表增加记录! win2000 server中的active directory 到底应如何使用 奇怪盘的用途 关于提交与页面刷新,问了又问? 一个站点下两个根目录? 诺顿严重卸载问题 jsp 和 servlet的数据传递问题 求教版主:关于LDAP 我有java帮助文件jdk.hlp,如何加到jcreator上的jdk帮助上去呢 再问个问题!请帮忙看一下,先谢谢了1 msn的登录问题 我太菜了,清问高手全局变量在哪里定义 有关sql server 2000 jdbc 设置的一个菜鸟问题 作文There are three ways to make the Internet safer for your children-hardware,softwareand underwea不要直接翻译,这是英语看图作文图上的文字,我需要理解过的意思,如果有写好的例文更好这段话的意思我知道, 我的空题谁能解决 求不定积分, There are two ways to make____English interesting.A.to learn B.learning为什么不能选A,要理由, 帮忙解决一下空题,谢谢 求下列不定积分, 醉翁亭记是否要背? 叫的关于感恩亲情的故事 如图,一次函数y=x+1和反比例函数y=2/x的图像相交与点A,点B(1)求A,B两点的坐标(2)利用图像说明x为何值时,y大于y1(3)求△AOB的面积(O为坐标原点) 我要问一下有理数混合运算化简后,运用加法结合律要不要用括号?九点二十以前的追加 城市社区和农村社区的各自的含义以及两者的区别谢谢大家了 急用啊回答的好的追分啊 答案说是选B我怎么也不理解? 高中物理追及问题中两车相撞的条件到底是什么这题:不要给我复制黏贴,我答案都知道,老师方法我也知道,但是就是想知道我哪里错了摩托车以速度v1沿平直公路行驶,突然驾驶员发现正前方 “凹”字一共多少笔画? 客观什么意思? 必修1的44页,12题由于扳道工的失误,有两列客运列车都以75km/h的速度在同一铁路线上相向而行.已知列车刹车时能产生的最大加速度为0.4m/s²,为了避免车祸的发生,两列列车的驾驶员至少要在 凹字的笔画 第七题为什么不选c只选b呢 两辆汽车追及问题(懂的进来)在高速公路的超车道上,一辆车身长4米,速度为100的轿车准备超越一辆长12米,速度为80千米|时的货车,从轿车追上货车开始计时,轿车超越货车需要 秒(结果保留2个 一个口,里面一个女,是什么字?懒得查字典了读音 c# 坐标轴画图 甲、乙两车从同一地点同向行驶(追及问题)甲、乙两车从同一地点同向行驶,但是甲车做匀速直接运动,其速度为v=20m/s,乙车在甲车行驶至距离出发地2000m处时开始以初速度为零,加速度为a=2m/s 英语阅读每句话里我都有不认识的词怎么做啊 按要求写句子:Cindy,be happy、sad Is Cindy happy or sad?the students,are playing basketball、football 答对追分某人站在在斜面抛物体,V0恒定,如何角度可以获得最大位移?分别站在斜面上部往下,和下部往上抛.解释得清楚的追分.可以给出推倒吗追分?如果在斜面上,向斜面高处抛呢? 根号256等于?, 客观是什么意思? 我要再明白不过的答案~`? 写一个表现母爱的句子,用上“无微不至”. 一只足球以10m/s的速度沿正东方向运动,运动员飞起一脚,使足球以20m/s的速度向正西方向飞去,运动员的作用时间为0.1s,求足球获得的加速度的大小和方向. 王阳明的“致良知”学说怎样理解?其中“致”是什么意思? 出色的答非所问这篇文章 一个足球以10m/s的速度沿正东方向运动,运动员飞起一脚,足球便以20m/s的速度向正西方向飞去,运动员和足球的作用时间为0.1s,求足球获得加速度的大小和方向. 化简求值 [(x+2y)(x-2y)-(2x-y)ˆ2+(3x+y)(2x+5y)]÷(-1/2x),其中x=3,y=1. 写一个表现母爱的句子,用上“无微不至”、“我爱您”及“谢谢” 足球以10m/s的速度飞来,被运动员以16m/s的速度反方向踢回,若以足球飞来的方向为正方向足球速度的变化量为多少若运动员与足球的接触时间为0.5秒,足球的平均加速度为多少 怎样用王阳明先生“致良知”的理论来克服人性的弱点呢,譬如 惰性,私欲. 写一句表现母爱的句子,用上“ 无微不至 ”一词. 我的中文名叫陈烨,想起一个相关的英文名.名字叫陈烨,取个和名字有关的英文名叫什麽呢? 王阳明“致良知”学说的弊端. 从30米高的楼顶处,以5米每秒的初速度竖直下抛一个球,g取10N,求经多长时间小球落地? 请问null和空值,没有,零有什么区别? 黄的笔顺怎么写 抛物线与直线Y=-1/2X+2都经过坐标轴的正半轴上A(4,0) B(0,2)两点 设抛物线坐标轴为X=-1.求抛物线解析要解析 qaq是什么意思 以5m/s上升的气球,当升到20m高时从气球上落下一小球,小球的质量为500g,小球在运动过程中遇到阻力是0.1N,求经过多长时间到达地面(g取9.8) 如图.已知抛物线与坐标轴分别交于a(-4,0)点b(4,0)c(0,-2)过点c做平行于x轴的直线 请问QAQ是什么意思?听到朋友说QAQ,就在想这是什么意思,请问是什么意思呀? VS中的C环境已将如何返回空值,因为NULL已被定义为0我定义了一个函数,需要返回顺序表的类型,出错时返回空值(NULL),但在VS的C++环境中提示#define NULL 0,不能返回NULL值,此时该怎么办系统定义 已知函数y=(m-1)x^2+(m-3)x+(m-1),m取啥实数时,函数图像与X轴.(1)没有公共点 (2)只有一个公共点已知函数y=(m-1)x^2+(m-3)x+(m-1),m取啥实数时,函数图像与X轴.(1)没有公共点(2)只有一个公共点( 漂亮作出色讲是什么意思造句 总质量为20KG的小球,从地面以5M每秒的速度匀速上升,第六秒末从气球上落下一4KG重物,物体着地时求气球高解析清楚点,不求答案求思路 对于任何实数m,设函数y=2x+m的图像与函数y=-x+4的图像相交于点p(a,b),则a,b不可能是A.a>0且b<0 B.a<0且b>0 C.a<0且b<0 D.a>0且b<0 写一个表现母爱的句子 用上无微不至 一次函数y=-3/4x+3的图像与x轴,y轴分别交于A,B两点,则坐标原点O到直线AB的距离为要过程,谢了 There is no way to make everyone happy 上边一个处,下边一个口是什么字?事先说明不是谜语,是我懒得查字典.要读音就行 “NULL”为什么在计算机中表示空值? love is searching for ways to make your loved one 研究了半天总觉得不对, 在初中几何中“两相交线对角相等”有这个定义吗 用初三的生物学来解答生活中的问题(需要用实验来证明) 洛杉矶机场枪击案嫌犯携反政府字条 有洛杉矶机场枪击案嫌犯携反政府字条 有尼日尔逮捕127名拟穿越撒哈拉沙漠移美女子生下13斤全美“最重宝宝”(组尼日尔逮捕127名拟穿越撒哈拉沙漠移奇数为男偶数是女?2013年是“男性斯里兰卡对新建赌场“亮红灯”抢滩自贸区浙商在行动 不少企业打算到杭马今天上午开跑 开车出行请注意临时瑞安公益组织要求会员缴费 质疑称交钱东京涩谷万圣节上演“僵尸袭城”(组图日本便衣警察街头扫黄被男妓围殴 打成美到令人窒息!日本人气观光地精选 第特稿:逐梦海外 情系祖国——改革开放朝鲜海军军官执行任务时殉职 金正恩前德媒:德美将达成互不监听协议 拟明年温州一电镀工业园内16家企业 350F1年度世界冠军塞巴斯蒂安座驾亮相沈德媒:德美将达成互不监听协议 拟明年“中国梦”拥有世界舞台德媒:德美将达成互不监听协议 拟明年木可理财:明确交易思路,成功近在咫尺楼市泡沫、股市震荡、物价飞涨,我们该环境残酷的印度尼西亚,却诞生一群热爱一天完美瘦身计划,针对易胖体质、拒绝养鸡、种菜,云南蒙自两小区的通道变成4.14早评:日线上吊线需整理,给油比亚迪天天吹加速 那百公里加速到底有金星说,女人永远不要为男人做的7件事体育圈都在致敬科比!他的名字刷爆社交2016年伦敦书展开幕 中国多家出版春日瘦身食谱来啦,好吃营养不长胖 !瘦脸.瘦腰.瘦腿.瘦到90斤?用它!科比告别战票房火爆 平均票价是勇士冲浩鼎案资料 台“金管会”:依法不能全科比告别战票房火爆 平均票价是勇士冲马尔克斯唯一自传《活着是为了讲述》中4月14日现货原油多空焦作,产量攀升油市收高位十字星 要“开挂”了?女子西藏圣湖拍裸照追踪:摄影师被行政“中国大妈”黄金理财也选它?2016年生活用纸年会东顺集团崭露头
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘