VB心得
- 格式:doc
- 大小:73.00 KB
- 文档页数:20
vb实训心得体会vb实训心得体会「篇一」实训前序体会:时间过得真快,转眼间,两周的实训体验已悄然过去了,然而实训的过程还历历在目。
实训期间,让我学到了很多东西,不仅使我在理论上对VB程序设计有了全新的认识,在实践能力上也得到了提高,真正地做到了学以致用,更学到了很多做人的道理,对我来说受益匪浅。
亲身感受到理论与实际的相结合,让我大开眼界。
也是对以前所学知识的一个初审吧!这次实训对于我以后学习、找工作也真是受益匪浅,在短短的两周中相信这些宝贵的经验会成为我今后成功的重要的基石。
作为一名大一的学生,经过差不多一年的在校学习,对Vb程序设计有了理性的认识和理解。
在校期间,一直忙于理论知识的学习,没有机会也没有相应的经验来参与项目的设计开发。
所以在实训之前,程序设计对我来说是比较抽象的,不知道一个完整的程序要怎么完成。
实训任务以及出现的问题:这次我做的项目是用Vb制作一个简单的成绩管理系统,在实训刚开始的时候,做的只是几个简单的界面,觉得其实还算比较简单的,到第二次实训的时候,老师说要用程序代码制作,而我们还没有具体学过VB程序代码,觉得又开始没有头绪了,感觉无从下手。
实训任务问题的解决:通过网上搜寻相关资料以及查阅相关书籍了解更多关于VB的知识。
到了第四次实训的时候,虽然能实现基本的排版后,但是调试的时候出现了很多问题。
而且,有时候由于考虑不周以及粗心的缘故,代码方面存在很大的误差。
老师们教了我们很多简单实用的技巧。
也让我们意识到了要想全面完整的完成一个模块,首先要经行程序设计,全面分析会用到的东西及考虑可能会出现的情况。
所以出现的问题也在老师的指导下以及团队的团结精神一起探讨,一起思索,顺利解决了发生的问题。
实训后体会:在程序的编写上,有很多不足的地方,可能有些功能不太全面也不太完善,但我觉得自己是认认真真的做了,而且从中学到了很多,以后,我要把自己欠缺的知识点补习好,而且要学会举一反三,融会贯通,最重要的是改掉粗心马虎、考虑不周的习惯。
vb课程设计心得体会vb课程设计心得体会(通用14篇)当我们有一些感想时,通常就可以写一篇心得体会将其记下来,这样可以不断更新自己的想法。
是不是无从下笔、没有头绪?下面是小编帮大家整理的vb课程设计心得体会,欢迎阅读与收藏。
vb课程设计心得体会篇1我们组这次设计的程序是考勤管理系统,主要用于企事业单位的考勤,便于统计员工的出勤情况。
1.通过这一次的程序设计,使我能够进一步掌握用程序设计语言解决实际问题的方法,在操作当中把所学到的用于实际的编程里面去。
2.通过这一次的程序设计,使我能够提高分析问题、查阅资料、吸收新知识的能力,在分析解决问题时比以前有了很大的进步,一些常用的知识和一些常规的错误都能够解决。
3.通过这一次的程序设计和指导教师姜瑶老师的指导使我能够进一步对vb有了熟练的操作,并且在分析,编程方面比以前有了更大的提高。
4.我认为实践周的程序设计是给我们学习的一个大好机会,使我们在这样的机会里学到了一定的知识,毕竟理论要通过实践来锻炼,也只有自己参与了这样的一个锻炼,才能更好的发现自己的不足并加以改进和完善!在这次的设计过程中,我学到的不仅是知识,我还认识到许多事情。
这次设计使我的编程水平提高了一大步,使我充分的认识到合作的可贵。
由于这次设计涉及到数据库,我也学到了不少数据库连接的知识,对数据库的操作有了进一步的了解。
这次设计对我的综合能力是一次很好的锻炼,但是我必须承认自己的能力和知识还很肤浅。
所以今后我的学习道路还是很漫长的。
最后,在这里我要衷心的感谢我们的指导老师谢谢她的耐心指导和热心帮助。
由于我水平有限,加之时间短暂,故学习数据库系统中还有许多不足之处,请老师批评指正,我会在以后的制作中不断改进,不断完善。
vb课程设计心得体会篇2在前两周中我们进行的VB课程设计中,我获得了一些心得体会。
这是我第一次系统与完整的接触软件设计。
我们组的题目是关于“俄罗斯方块游戏”的设计。
我在组内主要负责(1)游戏界面的设计(2)俄罗斯方块的造型(3)游戏级别的自由选择(4)游戏速度的自由选择(5)游戏的背景音乐。
vb实训报告心得体会(18篇)vb实训报告心得体会(通用18篇)vb实训报告心得体会篇1今年的4月份学校根据我们所学专业EDA技术的需求与我们另一门课电子产品装接相结合进行了FPGA实训板的组装,实训地点选在S12-201,主要实训流程有两大部分,一部分是SMT表面贴装元件的装配,一部分是THT元件的焊接,在整个实训过程中我学习到许多以前不了解的经验,也更加的了解书上的一些难以理解的知识点。
刚开始老师先把THT元件发个了我们,要求我们先自己检查元件是否存在问题,刚开始的时候我没有掌握检测元件的要点,拿万用表一顿乱测,根本就测不出到底有没有问题,但是后来通过请教同学以及老师的指点,我总算学会了基本的元件检测,检测完元件为接下来的焊接省了不少时间和心力,我们就可以避免出现因为元件本身的问题而从新焊接。
检测完元件,老师说为了让我们更加了解流水线作业,SMT元件的贴装就采用流水线作业,我负责的就是贴片的11工位,本来我以为会很容易,也没太在意,真正到流水作业到我这里的时候,我那镊子夹住电阻却手抖个不停,但是后来我记起老师说的要要点,沉着下来,经过几次贴装下来就慢慢熟习了,也就不再紧张了,整个工序下来虽然大家都很认真却还是出现许多问题,但是经过后来的补焊,基本上还是算成功了,这一部分完成后,后面的基本就是自己小组成员自己进行组装,我和胡静分别焊了一部分,经过几个小时的努力,我们的板子终于成功的组装好了。
经过这几周的不懈努力,终于的完成了这次的实训任务,看着手边的板子,我感触很多,记得一开始的完全茫然,到后面慢慢的得心应手,我学到很多,在检测中我学会了怎样去熟练的检测基本元件,在THT贴装中我学到了团队意识,在焊接中我学会了细心更重要的是,在组装FPGA板的过程中,我熟悉了板子的原理图,相信在学习EDA技术中会起到很大的作用,与此同时,我也了解到我还有许多东西需要去学习,需要更严格的要求自己对专业知识的学习。
vb程序设计心得体会在学习vb程序设计的过程中,我积累了一些心得和体会,它们对我在课程设计中的应用起到了积极的作用。
本文将总结我在vb程序设计中的心得体会,并分享一些课程设计的经验。
学习过程中的心得体会1. 坚持实践vb程序设计是一门实践性很强的课程,仅仅依靠理论知识是远远不够的。
在学习的过程中,我始终保持着坚持实践的态度。
通过不断地练习编写代码,我不仅能够加深对各种语法和概念的理解,还可以培养自己的编程思维和解决问题的能力。
2. 注重基础知识的学习在学习vb程序设计的过程中,基础知识是非常重要的。
只有掌握了基础知识,才能够更好地理解和应用更高级的概念和技术。
因此,我经常花时间复习和巩固基础知识,包括变量、数据类型、运算符等等。
只有在基础知识扎实的基础上,我才能够更好地实现复杂的功能和解决问题。
3. 阅读优秀代码阅读优秀的代码是提升自己编程能力的重要方式之一。
通过阅读他人的优秀代码,我可以学习到更多的编码技巧和解决问题的方法。
在学习vb程序设计中,我积极参与开源项目,阅读并学习其他程序员的代码。
通过不断地阅读和学习,我深刻地认识到良好的编码习惯和规范对于代码的可读性和可维护性是非常重要的。
课程设计的总结在vb课程设计中,我遇到了很多挑战和困难。
以下是我总结的一些经验和教训。
1. 确定项目的范围和目标在开始设计课程项目之前,我首先要明确项目的范围和目标。
这样可以帮助我更好地聚焦,避免项目过于庞大或者目标不明确的问题。
在制定项目的范围和目标时,我会考虑到自己的能力和时间,确保可以在规定的时间内完成项目。
2. 模块化设计在课程设计中,我意识到模块化设计的重要性。
将项目划分成不同的模块,每个模块负责完成特定的功能或任务。
这样可以提高代码的可读性和可维护性,同时也方便了协作开发和测试。
在设计模块时,我会注意模块之间的耦合度,尽量降低模块之间的依赖关系,使得每个模块可以独立地进行测试和修改。
3. 异常处理和错误调试在课程设计过程中,处理异常和调试错误是必不可少的。
vb程序心得体会(专业18篇)(经典版)编制人:__________________审核人:__________________审批人:__________________编制单位:__________________编制时间:____年____月____日序言下载提示:该文档是本店铺精心编制而成的,希望大家下载后,能够帮助大家解决实际问题。
文档下载后可定制修改,请根据实际需要进行调整和使用,谢谢!并且,本店铺为大家提供各种类型的经典范文,如职场文书、公文写作、党团资料、总结报告、演讲致辞、合同协议、条据书信、心得体会、教学资料、其他范文等等,想了解不同范文格式和写法,敬请关注!Download tips: This document is carefully compiled by this editor. I hope that after you download it, it can help you solve practical problems. The document can be customized and modified after downloading, please adjust and use it according to actual needs, thank you!Moreover, this store provides various types of classic sample essays for everyone, such as workplace documents, official document writing, party and youth information, summary reports, speeches, contract agreements, documentary letters, experiences, teaching materials, other sample essays, etc. If you want to learn about different sample formats and writing methods, please pay attention!vb程序心得体会(专业18篇)心得体会是反映学习和工作过程中遇到的问题和解决办法的重要方式。
VB学习心得体会范文(一)我从大学开始学习编程语言,其中VB是我最喜欢的一门语言。
在学习VB的过程中,我积累了不少经验和心得。
以下是我对学习VB的体会和经验分享。
一、对VB的认识VB (Visual Basic)是由美国微软公司推出的“可视化程序设计工具”,它在手写代码的基础上,注重了程序界面的设计和交互性,大大方便了初学者的学习。
二、学习VB的基础知识1.学习开发环境的使用,了解工具箱和属性窗口中的各组件。
通过开发环境的使用,可以熟悉VB的页面搭建、画板制作、代码编写等基础知识的使用。
2. 学会基本的语法和代码的书写规范。
基础的语法主要包括变量的赋值、循环、选择结构等等,掌握这些基础的语法对于使用VB是非常重要的。
3. 熟悉一些常用的控件的使用VB中常用的控件包括:文本框、按钮、标签、列表框、组合框等等。
熟练运用这些控件,可以帮助完成各种各样的功能,例如输入验证、数据记录等等。
三、学习VB的方法技巧1.多看别人的代码学习他人的代码,对于自己的编程思路也会产生很大的影响和启示,可以在别人的实现方法中发现自己的不足。
2.多动手实践VB是一门实践类编程语言,只有不断练习和尝试,方能真正掌握。
熟练运用各种控件以及基本语法和代码优化规范都需要熟练的手感。
3.不断提升自己VB的应用场景广泛,只有学以致用,才可以定位自己的方向。
不断提升自己的技能和能力,需要有建立自己所需的知识体系,不断完善技能,才可以在VB的道路上走的更远。
总之,学习VB是一个系统的过程,需要掌握基础知识的同时,应该学会不断探索和实践,不断完善自己,这样才可以在学习VB的过程中,迅速提高自己的编程水平。
VB编程心得体会总结(精选17篇)(经典版)编制人:__________________审核人:__________________审批人:__________________编制单位:__________________编制时间:____年____月____日序言下载提示:该文档是本店铺精心编制而成的,希望大家下载后,能够帮助大家解决实际问题。
文档下载后可定制修改,请根据实际需要进行调整和使用,谢谢!并且,本店铺为大家提供各种类型的经典范文,如职场文书、公文写作、党团资料、总结报告、演讲致辞、合同协议、条据书信、心得体会、教学资料、其他范文等等,想了解不同范文格式和写法,敬请关注!Download tips: This document is carefully compiled by this editor. I hope that after you download it, it can help you solve practical problems. The document can be customized and modified after downloading, please adjust and use it according to actual needs, thank you!Moreover, this store provides various types of classic sample essays for everyone, such as workplace documents, official document writing, party and youth information, summary reports, speeches, contract agreements, documentary letters, experiences, teaching materials, other sample essays, etc. If you want to learn about different sample formats and writing methods, please pay attention!VB编程心得体会总结(精选17篇)写心得体会可以让我们更加清晰地认识和理解自己的所思所想。
2024vb课程设计心得体会 (2)2024vb课程设计心得体会 (2)精选3篇(一)2024年VB课程设计是一个重要的学习项目。
在这个项目中,我学到了很多有关VB编程的知识和技巧,并且能够将这些知识应用到实际中。
首先,在课程设计过程中,我学会了如何进行需求分析和系统设计。
我明确了项目的目标和需求,并且设计了一个结构清晰、功能完善的系统。
通过这个过程,我学会了如何理解用户需求并将其转化为具体的软件功能。
这对我日后参与项目开发和实施时非常有用。
其次,在编码的过程中,我学会了如何运用VB编程语言进行软件开发。
我熟悉了VB的语法和常用函数,并且能够使用各种控件和对象进行界面设计和数据处理。
通过对VB编程的实践,我不仅提高了编程能力,还培养了自己的逻辑思维和解决问题的能力。
再次,通过课程设计,我了解了软件开发的整个流程,并且学会了如何进行项目管理。
在项目过程中,我学会了合理安排时间,按照计划步骤进行开发,团队成员之间的沟通和合作。
这些都是非常重要的软技能,对我在以后的工作中非常有帮助。
总之,2024年VB课程设计是一个非常有益的学习项目。
通过这个项目,我不仅学到了VB编程的知识和技巧,而且培养了需求分析、系统设计、项目管理等方面的能力。
这些知识和技能对我今后的学习和工作都有很大的帮助。
2024vb课程设计心得体会 (2)精选3篇(二)2024年VB课程设计心得体会我觉得这个课程设计是一个非常有用和实践性很强的项目。
通过这个课程设计,我不仅加深了对VB语言的理解和应用,还锻炼了解决问题的能力和团队合作能力。
在这个课程设计中,我主要负责了系统的前端设计和界面布局。
通过学习VB语言和相关开发工具,我了解了如何设计一个简洁、美观和易于使用的用户界面。
我学会了使用VB的图形库和控件来创建窗体和按钮,并通过事件处理来实现各种交互操作。
在团队合作方面,我与我的团队成员密切合作,共同分析问题、制定方案和实施计划。
我们充分发挥各自的优势,通过互相沟通和协调,顺利完成了这个课程设计。
vb程序设计实验心得(优秀模板3篇)vb程序设计实验心得第1篇数据库课程设计大赛的尘嚣渐渐远去,怀着对这次大赛的些许不舍,怀着对当初课程设计开始时候的豪情万丈的决心的留恋,怀着通过这次课程设计积累的信心与斗志,我开始写这篇文章,为自己的足迹留下哪怕是微不足道但是对自己弥足珍贵的痕迹并期望与大家共勉。
首先,让我的记忆追溯到大二暑假,在老大的指引下,我接触到Microsoft 公司的.NET产品。
那个时候我已经学过vc和asp,因为windows程序设计实验的课的关系,接触过vb,但是没有专门去学他,因为习惯了c++里面的class,int,觉得vb的sub,var 看着就不是很顺心。
我是一个好奇心很强的人,突然看到了一个号称“.网络是用于创建下一代应用程序的理想而又现实的开发工具”,而且主推c#语言,由于对c语言的一贯好感,我几乎是立刻对他产生了兴趣。
我就开始了对c#的学习,任何语言都不是孤立存在的,所以数据交互是很重要的,暑假的时候我把我们这学期的课本数据库系统概论看了一遍。
我记得以前用c语言编程的时候,数据是在内存中申请空间,譬如使用数组等等。
很耗费内存空间。
这个时候就是数据库站出来的时候啦,于是我又装上了sql server,以前学asp的时候用的是access,那个时候只是照着人家做,理论是什么也不是很清楚。
通过一个暑假的学习,基本搞清楚了理论方面的东西,具体怎么用也不是很清楚。
但是这为这学期的课程设计打下了铺垫。
来到学校后,随着这学期的数据库课程大赛开始了,我有一个看法就是我自己应该具备的能力不是我会多少,而是我应该具备快速学会东西的能力。
遇到什么就学什么。
我们有时候很容易被一些专业名词说吓着,包括什么建模,软件工程,数据分析,数据挖掘等等。
我身边就有很多同学被这些纸老虎所唬住,而没有勇气去接触他们,总是说这个太难了之类的退堂鼓的话,他们低估了自己的潜力同时也压抑住了他们自己的好奇心。
其实都是纸老虎,又不是什么国家科研难题,只是去用一些工具,发明工具是很难,但是用一个工具就容易多了,just do it!我记得我做这个数据库之前,我们老师说要做好前期分析,我就在网上搜索用什么分析工具好。
VB心得(个人整理的一些小心得)一、打开指定硬盘/文件夹/网址Dim PathtoOpen$PathtoOpen = "" '("为地址)Shell "explorer.exe " & PathtoOpen, vbNormalFocus二.特殊退出效果Private Sub Form_Resize()If Form1.WindowState = 1 ThenMsgBox "关闭窗体时不能最小化程序!"Form1.WindowState = 0End IfEnd SubPrivate Sub Form_Unload(Cancel As Integer)Dim a As Stringa = MsgBox("确定要退出吗?", vbOKCancel, "迷你计算器V1.0")If a = 1 ThenMsgBox "谢谢您使用迷你计算器V1.0!"gotoval = Me.Height / 2For gointo = 1 To gotovalDoEventsMe.Height = Me.Height - 10If Me.Height <= 11 Then GoTo horizNext gointohoriz: Me.Height = 30gotoval = Me.Height / 2For gointo = 1 To gotovalDoEventsMe.Height = Me.Height - 10If Me.Height <= 11 Then EndNext gointoEndEnd IfEnd Sub三.设置快捷键在Caption属性字母前加上“&” 符号即可实现快捷键,要用快捷键先按ALT再加上首字母四.让点击“X”不能关闭窗体Private Sub Form_Unload(Cancel As Integer)Cancel=5End Sub五.文本框换行把Multiline属性为True即可六.颜色渐变RGB(Rnd() * 256, Rnd() * 256, Rnd() * 256)七.winxp倒计时关机shell("shutdown -s -t 30"(时间))八.让窗体产生渐变颜色Sub Form_Load()Form1.AutoRedraw = True'使 Form 物件的自动重绘有效Form1.DrawStyle = 6'直线的样式为内实线 (6-vbInsideSolid)Form1.DrawMode = 13'copy Pen-由 ForeColor 属性指定的颜色。
(13-vbCopyPen)Form1.DrawWidth = 2'输出的线宽为 2 像素 (Pixel)'为绘图或列印建立一自订的座标比例尺'图形像素为显示器或印表机解析度的最小单位Form1.ScaleMode = 3'设定物件座标的量测单位为像素 (3-VbPixels)Form1.ScaleHeight = (256 * 2)'设定垂直量测单位值为 512For i = 0 To 255Form1.Line (0, Y)-(Form1.Width, Y + 2), RGB(0, 0, i), BFY = Y + 2Next i'RGB(red, green, blue)'B : 使一方块用一指定方块对角的座标画出'F : 指定此方块系以用来画方块的色彩来加以填满 (有B才可用F)End Sub九.控制光驱声明:Declare Function mciSendString Lib "winmm.dll" Alias _ "mciSendStringA" (ByVal lpstrCommand As String, ByVal _lpstrReturnString As String, ByVal uReturnLength As Long, _ByVal hwndCallback As Long) As Long调用:'打开retvalue = mcisendstring("set CDAudio door open", returnstring, 127, 0) '关闭retvalue = mcisendstring("set CDAudio door closed", returnstring, 127, 0)十.文本框只能输入数字Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii < 48 Or KeyAscii > 57 ThenKeyAscii = 0End IfEnd Sub十一.程序运行自动选中文本框中的文字Private Sub Text1_GotFocus()Text1.SelStart = 0Text1.SelLength = Len(Text1)End Sub十二.模拟(开始)中的(运行...)功能在 Form 中放一个 TextBox,名称为 Text1和放入一个按纽,名称为command1 Private Sub Command1_Click()Call Shell("rundll32.exe url.dll,FileProtocolHandler " & Text1, 1)End Sub十三.使最大化和最小化按纽消失Private Declare Function SetWindowLong Lib "user32" _Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal _nIndex As Long, ByVal dwNewLong As Long) As LongPrivate Declare Function GetWindowLong Lib "user32" _Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal _nIndex As Long) As LongConst WS_MINIMIZEBOX = &H20000Const WS_MAXIMIZEBOX = &H10000Const GWL_STYLE = (-16)Private Sub Form_Load()Dim lWnd As LonglWnd = GetWindowLong(Me.hwnd, GWL_STYLE)lWnd = lWnd And Not (WS_MINIMIZEBOX)lWnd = lWnd And Not (WS_MAXIMIZEBOX)lWnd = SetWindowLong(Me.hwnd, GWL_STYLE, lWnd)End Sub十四.右键菜单制作Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 then '鼠标右键按下PopupMenu PopMenu(菜单名称)End IfEnd Sub(注意:代码应放在窗体的MouseUp中)十五.显示关于窗口Private Declare Function ShellAbout Lib "shell32.dll" Alias _"ShellAboutA" (ByVal hwnd As Long, ByVal szApp As String, _ByVal szOtherStuff As String, ByVal hIcon As Long) As Long调用ShellAbout Me.hwnd, "迷你计算器V1.0", "2004年8月1日第一版", Me.Icon十六.显示/隐藏桌面图标Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As LongPrivate Const SW_HIDE = 0Private Const SW_RESTORE = 9'隐藏桌面图标Private Sub Command1_Click()Dim Hwd As LongDim rtn As LongHwd = FindWindow("Progman", vbNullString)rtn = ShowWindow(Hwd, SW_HIDE)End Sub'显示桌面图标Private Sub Command2_Click()Dim Hwd As LongDim rtn As LongHwd = FindWindow("Progman", vbNullString)rtn = ShowWindow(Hwd, SW_RESTORE)End Sub十七.在菜单上增加图标Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As LongDeclare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, _ByVal nPos As Long) As LongDeclare Function GetMenuItemID Lib "user32" (ByVal hMenu As Long, _ByVal nPos As Long) As LongDeclare Function SetMenuItemBitmaps Lib "user32" (ByVal hMenu As Long, _ByVal nPosition As Long, ByVal wFlags As Long, _ByVal hBitmapUnchecked As Long, ByVal hBitmapChecked As Long) As LongPublic Const MF_BITMAP = &H4&Type MENUITEMINFOcbSize As LongfMask As LongfType As LongfState As LongwID As LonghSubMenu As LonghbmpChecked As LonghbmpUnchecked As LongdwItemData As LongdwTypeData As Stringcch As LongEnd TypeDeclare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long Declare Function GetMenuItemInfo Lib "user32" Alias "GetMenuItemInfoA" _ (ByVal hMenu As Long, ByVal un As Long, ByVal b As Boolean, _lpMenuItemInfo As MENUITEMINFO) As BooleanPublic Const MIIM_ID = &H2Public Const MIIM_TYPE = &H10Public Const MFT_STRING = &H0&使用:在Form1中增加一个PictureBox1,AutoSize为True,visible为false,放一个bmp图片或jpg图片,不能用 Icon)Private Sub Form_Load()'Get the menuhandle of your apphMenu& = GetMenu(Form1.hwnd)'Get the handle of the first submenu (Hello)hSubMenu& = GetSubMenu(hMenu&, 0)'Get the menuId of the first entry (Bitmap)hID& = GetMenuItemID(hSubMenu&, 0) '0表示第几个子菜单'Add the bitmapSetMenuItemBitmaps hMenu&, hID&, MF_BITMAP, Picture1.Picture, Picture1.Picture 'You can add two bitmaps to a menuentry'One for the checked and one for the unchecked'state.End Sub(注意:只要把picture控件的高和宽设为13就可以了)十八.把图标放在系统托盘中首先在窗体上放一个PictureBox,将其Visible属性设为False。