在工程管理窗口中单击右键,选择添加mdi窗体。
vb编程实例 vb编程序
vb编程实例 vb编程序
vb编程实例 vb编程序
再添加两个普通窗体,更改属性mdichild=true即可。
建private sub test()立VB工程时,添加MDI模式的窗体。
本课是教育科学出版社普通高中课程标准实验教科书《算法与程序设计(选修)》第二章的部分内容。本节内容是在学生初步了解了VB的编程环境、VB中的数据类型、变量的使用以及If单分支与双分支结构的基础上,进一步向学生展示VB多分支选择结构的使用。
在信息技术课程教学中,培养学生信息素养,或者说信息能力,在全国、省、市信息技术优质课评选中存在两种意见:一种是课堂教学中应注重学生技术、技能培养,教学过程中将指导学生如何作和使用作为教学核心;另一种是在教学中应着重培养学生处理信息的方法和过程,用探究学习的方式去发现和学习技术,形成技能。本案例就是在“学生思维,培养分析、解决问题能力,通过思维促进技能”教学理念指导下的设计,并进行了教学反思。
一、学生分析
本课教学对象是高一学生,他们次接触程序设计。通过前面的学习,学生已基本掌握单分支和双分支选择结构,能够编写简单的选择结构程序。
二、教学目标
知识与技能:能理解选择结构中单分支和双分支选择结构执行过程,并用其解决实际问题;能理解多分支选择结构,并能用If多分支语句和Select Case多分支语句解决实际问题;能理解Image控件的picture属性和List控件的text属性;能熟练编写、修改、运行程序。
过程与方法:能掌握两种多分支结构语句的基本格式;能掌握选择结构中条件的表达方法;能灵活运用多分支语句编写程序解决实际问题。
情感、态度与价值观:通过任务驱动,逐步深化对知识的理解,提高分析问题、解决问题的能力。
三、教学重、难点
教学重点:能正确选择If的单分支、双分支以及If和Select Case多分支语句解决实际问题。
四、教学过程
1.实例演示,了解程序流程。
小明爸爸的生日快到了,小明想用平时节省下来的800元钱给爸爸买生日礼物,请同学们设计一个“爱心礼物”的小程序,让爸爸挑选喜欢的上衣、裤子和鞋子共三件礼物且不超出800块钱预算。教师展示如图1所示的程序。
2.学生作程序,教师布置任务。
(1)口述程序流程。
(2)用程序流程图画出程序模块结构。
3.师生共同交流探讨,完成程序流程图(略)。
设计意图:用实际作“爱心礼物”程序创设情境,激发学生兴趣;通过叙述作过程、绘制程序流程图,学生对程序进行整体把握,养成学生整体构建、整体分析能力,为后面任务生成奠定基础。
(二)分析流程 明确任务
1.分析程序流程,学生讨论思考:我们完成本程序设计,需要解决哪些问题?
2.学生讨论,教师梳理,列出如下任务:
(1)载入。
(2)双分支,多分支选择。
(3)价格核算。
3.联系旧知,解析任务。
(2)双分支――选择上衣,价格核算,回顾前面所学习的If语句。
(3)多分支――选择裤子和鞋子。教师提示可用多个单分支语句叠加。
本环节,教师集中解决基础问题――载入,为后面多分支探究扫除障碍。
设计意图:从事物表象抓住本源,需要学生在分析问题时有整体意识,需要学生将零散问题进行归类。本环节旨在培养学生分析问题的能力,一是整体把握分层(程序模块)思考,二是结合已有知识对问题进行梳理,三是培养学生程序设计的策划能力。
(三)小组合作 自主探究
1.三人一组,选择“双分支”、“多分支”、“价格核算”之一进行合作探究。要求如下:
(1)根据流程图写出程序。
(3)把程dim s as string=Encoding.Default.GetString(buff) '转换成文本序要点及问题做好记录,以备交流汇报使用。
2.交流汇报,资源共享。
请选择上衣的小组做交流,并利用广播系统展示其程序。
(2)多分支交流。
预设一:学生展示未完成的程序。
预设二:学生展示已经完成的程序,教师将双分支和单分支语句解决多分支程序进行列举比较。
(3)核算交流。
学生思考:如何让程序知道你选择了多少钱的上衣、裤子和鞋子?用变量保存价格的时候应该放在程序的什么地方?整个礼物选择结果的判断应在什么地方完成?
小结:利用单分支以及多个单分支解决问题。
设计意图:知识的实际运用体现学生解决问题的基本能力,知识的迁移则体现学生对新旧知识的重组与构建。本环节倡导学生通过合作探究,充分运用已有知识解决现实中的问题,并通过提供相关资料,创设实际运用平台,搭建新旧知识互通的桥梁,让学生探索发现新知及其实际运用。
(四)师生探究 构建新知
学生通过多个单分支语句解决多分支问题,除了这种方法,是否还有新的发现?
教师引用学生新发现,或者直接引出“多分支结构”,并思考:
1.对比图2、图3,分析新的“多分支结构”与刚才“单分支解决多分支”有什么不同?
教师用单步调试的方法,让学生分析两者之间在执行过程中的不同,找到If多分支语句的优势所在,并学生观察、分析If多分支语句的基本结构。学生归纳总结两种结构执行过程的异,师生共同总结出If多分支结构。
2.学生熟悉新内容,完成整个程序的设计,并调试运行。
设计意图:程序算法的优越性,需要在实际运用中才能获得直接感受,也需要在同一问题不同算法的比较中得到体验。将新的方法与用已有知识解决问题的方法进行比较,进一步让学生清楚两者之间的别。通过改变满堂灌的方式,采用自主探究学习方式,培养学生自主学习的习惯、意识和能力。
(五)交流总结 拓展延伸
1.运用Select Case语句来完成多分支选择。
指出VB中还有一种多分支语句――Select Case语句,让学生阅读教材中的例子和注释并思考:
(1)在我们这个任务中“Select Case 表达式”中“表达式”和“表达式列表”含义分别是什么?
(2)用Select Case语句实现选择鞋子的程序该怎么写?
学生自主探究,调试程序并运行。
设计意图:用比较、类比的方法,启迪学生创造性思维。通过学生自学教材例子,完成新知识的学习,培养学生举一反三的能力,同时训练自学能力。
2.小结。
(1)多分支选择语句的格式。
(2)多重选择语句的执行过程。
设计意图:归纳梳理知识发现过程,对比所发现新知识的优势所在,让学生体会程序算法的精妙之处。此处师生共同小结,一是知识的获取过程,二是归纳本课知识要点。
(六)学生完成自我评价
课堂自我评价表
1.对于本节的学习课的学习你感到:
A 轻松 B比较轻松 C有点困难
A完全理解 B理解,但仍有点模糊 C不理解
3.关于表达式与表达式的列表的表示方法,你的理解程度:
A理解 B大概理解 C不理解
4.在完成这节课中的实践与练习时,你:
A能够编写代码并通过调试程序正确运行。
B基本上能够编写代码并通过帮助达到程序正确运行。
C编程有点困难,正确率也不是太高。
设计意图:学生自我评价的反馈信息,有助于教师了解教学的实际情况,便于在以后的教学中调整教学方法和教学策略。
(七)课后练习
设计意图:由于Select Case语句结构上较If多分支语句更加灵活,鉴于要在一节课内完成两个多分支语句的理解比较困难,所以在处理时进行了侧重,通过课后练习的方式,让学生在课后去思考、消化。
五、教学反思
该案例源于南京师大附中王静老师2010年暑在武汉做新课程培训时所展示的程序,她的教学理念是“在游戏中学习程序设计”。在讲到这个内容时,用这个例子设计了教学过程。
在“算法与程序设计”这一模块的教学中,我总是担心学生难以接受,总是习惯于帮助学生分析程序中的算法,学生跟着老师安排的任务进行学习,但忽视了自己分析的过程,忽视了知识的建构,学生知其“源”,不知其所以“源”。学生在课堂上学得很不错,但在解决其他问题时,仍然不知道如何入手,不知道已有的知识如何运用。可以看出这种教学方法存在很大问题。我们能否让学生像程序员一样工作,让学生通盘熟悉信息处理的全过程,发现一个程序形成的全过程,让学生知识与能力并举。本课教学正是立足于此而展开的。
本案例通过“爱心礼物”程序创设情境,通过叙述作过程以及绘制程序流程图学生对程序进行整体上的把握,培养学生整体分析能力。通过分析流程、明确任务环节,帮助学生从事物表象抓住本源,培养学生分析程序、解析问题的能力。在知识获取过程中,把所需知识演变成学生迫切想解决的问题,并建立新旧知识的联系,让学生通过自主探究、合作学习而完成。整体把握分层(程序模块)思考,结合已有知识对问题进行梳理,培养学生程序设计的策划能力。
当然,在实际教学实施中也遇到了很多问题,通过学生教学反馈信息来看,有一部分学生对于VB程序设计的学习感到困难,这也反映出学生思维上的依赖性,自主探究的动力和习惯还有待提高。当然,教师在进行 教学设计 的过程中应该有更多的预设,通过充分的换位思考,提高教学效果。
(作者单位:湖北黄石市第二中学 湖北黄石市广场路小学)
1.不正确
MDI是多窗口模式。主窗口里可以建立很多小窗口。网上很多实例的。搜索一下多窗口应用编程方面的资料。Dim abc As myClass,定义一个可以引用myClass类型对象的变量abc。这个abc变量存在于栈上。
abc=New myClass。New myClass创建myClass实例对象,这个对象存在于托管堆上。然后(同时)让abc引用(指向)这个对象。
abc变量在栈上,而对象在托管堆上。
abc储存的是对象的地址,而不是对象本身。
看下面的代码
Dim a As myClass,b As myClass,c As myClass
a=New myClass
b=a
c=a
整个过程中只创建了一个myClass对象,位于托管堆上。
三个myClass类型的变量a、b、c位于栈上,都指向了这一个myClass对象
2.类的成员分 实例成员 和 静态成员
实例成员 必须在实例对象上调用
静态成员 可以直接调用,不需要实例对象。
问题描述:
End Sub能告诉我用法,怎么用,谢谢了
解析:
一、Visual Basic是什么?
Visual Basic,简称VB,是Microsoft公司推出的一种Windows应用程序开发工具。是当今世界上使用最广泛的编程语言之一,它也被公认为是编程效率的一种编程方法。无论是开发功能强大、性能可靠的商务软件,还是编写能处理实际问题的实用小程序,VB都是最快速、最简便的方法。
何谓 Visual Basic?“Visual”指的是采用可视化的开发图形用户界面(GUI)的方法,一般不需要编写大量代码去描述界面元素的外观和位置,而只要把需要的控件拖放到屏幕上的相应位置即可;“Basic”指的是BASIC语言,因为VB是在原有的BASIC语言的基础上发展起来的,至今包含了数百条语句、函数及,其中很多和 Windows GUI 有直接关系。专业人员可以用 Visual Basic 实现其它任何 Windows 编程语言的功能,而初学者只要掌握几个就可以建立实用的应用程序。
VB提供了学习版、专业版和企业版,用以满足不同的开发需要。学习版使编程人员很容易地开发Windows和Windows NT的应用程序;专业版为专业编程人员提供了功能完备的开发工具;企业版允许专业人员以小组的形式来创建强健的分布式应用程序。
二、能用 Visual Basic 干什么呢?
也许应该问不能用它干什么更恰当一些。是:没有什么不能干的!
Visual Basic 所做的很多事情一点也不简单。它是一种强大的语言,即您所能想到的编程任务,它基本都能完成。从设计新型的用户界面到利用其它应用程序的对象;从处理文字图象到使用数据库;从开发个人或小组使用的小工具,到大型企业应用系统,甚至通过 Inter 的遍及全球分布式应用程序,都可在 Visual Basic 提供的工具中各取所需。
VB是微软公司的一种通用程序设计语言,包含在Microsoft Excel、Microsoft Access等众多Windows应用软件种的VBA都使用VB语言,以供用户二次开发;目前制作网页使用较多的VBScript脚本语言也是VB的子集。
利用 VB的数据访问特性,用户可以对包括Microsoft SQL 和其他企业数据库在内的大部分数据库格式创建数据库和前端应用程序,以及可调整的端部件。利用ActiveX(TM)技术,VB可使用如Microsoft Word、Microsoft Excel及其他Windows应用程序提供的功能,甚至可直接使用VB专业版和企业版创建的应用程序对象。
三、关于VB语言的前景
在目前各种编程语言共存的时代,VB会不会落伍呢?当然不会了。
从19年VB诞生之日起到现在已经有七个版本了(.NET版)这么高的更新率,不外乎说明两个问题:用户对VB的热衷,微软对VB的重视。不可否认微软对市场的预测能力是极为高明的,而它强大的技术、财力支持也使它在许多以前未进入的领域,在不长的时间内有成为最有力的竞争对手,
对于VB现在也有一个很强的竞争对手――Delphi,有人把它称作VB杀手,这显然有偏激之处,VB的确有它的不足之处,但Delphi又何尝不是呢,而且以微软对VB的倾心,VB的功能必然会越来越强大。
我们这些所谓的 VB 程序员总算可以放心了,VB不会落后于时代,毕竟它是使用人数最多的的开发工具。
四、怎样学习VB语言?
如果你是一个对编程一无所知,而又迫切希望掌握一种快捷实用的编程语言的初学者,那选择Visual Basic没错的。它的快捷的开发速度,简单易学的语法,体贴便利的开发环境,是初学者的。
也许你会问,我以前没学过任何一种语言,我能快速上手吗?别担心,没问题。VB的语法的和QBASIB语言是基本相同的,也就是说它的语法是最容易被初学者所接受的。另外VB提供的是可视化的开发环境,我们可以象搭积木一样构建出程序的界面,而且VB提供了丰富的控件组,省去了我们自己写代码实现这些效果的麻烦,这样我们就能把更多的精力放在程序功能的实现上,所以VB学起来简单,用起来方便。
怎样才能学好VB编程呢?我的体会就是“实例学习”,即通过在学习、编制生动有趣的小例子的过程中掌握VB编程的知识点和编程小技巧,这是最有效的学习方法。
今后在VB学习这个版块,我们会向大家一些好的实例、编程技巧。如果学习过程中遇到了什么问题,或者有什么好的心得,你向我们提问求助或是发表文章。大家一起来交流吧!
万事开头难,刚刚开始,遇到些困难没关系,慢慢来。编程是一个不断学习,不断积累的过程,编程的乐趣也正是存在于学习的过程中。我们每学一点,就赶快把它用到实际的程序中去,自己多学多用多实践,水平才能不断提高,这就是“学以致用”。
另外,编程涉及到很多的知识,象作系统的、软件工程的、硬件系统的以及编程思想等各个方面,这就需要我们多看看这方面的资料,扩充自己的知识面。
至少需要
Imports System
Imports System.Net.Sockets
Imports System.Threading
Imports System.Text
还要了解异步与委托
简单点的话
sub tcplisten() '过程
Const LPort As Integer = 6850 '本地端口
Dim IPadd As IPAddress = Dns.GetHostEntry(Dns.GetHostName()).AddressList(1) ’本地IP
'addresslist里面包括IPV6和IPV4
Dim IPEP As New IPEndPoint(IPadd, LPort) '结点
TCPL = New TcpListener(IPEP) ’建立实例
TCPL.Start() '开始
TCPLX=TCPL.Accept() ’将个接入挂起的连接传给新建SOCKET,因为的SOCKET还要继续
dim Ripep as new ipendpoint=TCPLX.RemoteEndPoint '此时获得远程的ip与端口号
listbox.add(ripep.ip)
dim buff as byte()
buff=TCPLX.Receive() 'listen>accept>reci这时候可以接受数据了
msg "s"
TCPLX.seIf l > 0 The(buff) '这个是发送
end if
长时间没写,可能有点小错误,你自己调试调试,大概步骤就是listen>accep(1)载入――学生阅读教师提供的Image控件载入方法参考资料。t>reci,看看msdn,那个学起来才系统
先确认一下,直接打开matlab生成的是否清晰。如果是不清晰的那么就和VB关系不大了。如果是清晰的,在VB下显示不清晰,那么再看jpeg的文件有多大。是不是缩放得太厉害了导致不清晰
VB中选择框,点击 属性里的picture属性,就可以选择你自己的了。
vb程序设计论文
在的各个领域,大家都跟论文打过交道吧,论文的类型很多,包括学年论文、、学位论文、科技论文、成果论文等。如何写一篇有思想、有文采的论文呢?下面是我为大家收集的vb程序设计论文,希望能够帮助到大家。
Visual Basic(简称VB)是目前使用最广泛的一种程序设计语言,是在Basic语言的基础上发展起来的,它继承了Basic语言简单易用的优点,结合了可视化界面的设计方法,采用面向对象、驱动的编程机制,把Windows编程复杂性进行巧妙封装,使开发Windows环境下的各种应用软件变得更为容易。因此,目前国内很多高校都选择将《VB程序设计》这门课程作为理工科专业的一门基础课程。程序设计具有知识结构严谨、逻辑性强的特点,学生学习起来比较困难,教学效果也不尽如人意。如何提高本课程的教学质量和教学效果,是每位授课教师都会关注的课题。
1教学中存在的问题
就VB程序设计这门课程的教学现状而言,通常采用的还是以课本原有知识体系为脉络的传统讲授法,教学内容大多以线性方式展开,同时结合上机实践作来巩固和熟悉课堂上所讲的每一章节的知识点。经过教学实践证明,这种教学模式能够让学生掌握Visual Basic的较多的理论知识,也可以阅读程序代码,但是让学生自己解决一些问题的时候,通常都会束手无策。经过分析总结出此课程在教学中存在的问题:
一是教学内容与教学目标不一致。VB程序设计课程的教学目标是培养学生程序设计的基本知识、思维方式以及基本的作技能,而教师在实际授课时,大多单纯依照教材讲授理论基础知识,授课基本上是以语言自身的知识体系为脉络展开,过分注重语句、语法和结构的讲解,忽视对学生分析与解决问题能力的,不能很好的将编程环境、程序设计语言、算法、数据结构以及程序设计思想关联起来形成体系化教学。[1]导致学生只学会了语法概念而不会使用,能够读懂某一条语句,却无法理解一段代码的含义。
三是学生缺乏计算机的思维方式。学生在接触这门课程之前通常没有任何基础,学生普遍缺乏相应的知识背景和算法思想,对程序设计的思维方式还不适应,分析和解决问题的能力处于一个较低的水平。在学习过程中经常会出现这种情况,教师对程序进行分析讲解时学生能够听懂理解,代码也能够读懂,但是让学生自己编写时,就无处下手,久而久之学生对编程充满畏惧感,对学习本门课程缺乏兴趣。
2课程教学改革
2.1拓展教学内容
本课程主要培养学生的程序设计思维方式和实际编程能力,而不是单纯的程序设计语言,因此必须打破固有的以“语法”和“结构”为中心的传统教学理念,以突出能力培养为主轴,围绕能力培养组织教学内容。教学内容的选择不能仅仅局限在一本教材上,要突破教材局限,将程序设计中所需要的众多知识点加以整合,包括VB语言的语法结构、可视化编程方法、常用的算法、数据结构以及程序的调试等,形成新的知识体系。在这里算法是程序设计的核心,而语言只是一种工具,在授课的过程中,特别是讲解实例时,需要剥开语言这层外壳,让学生掌握其中的精粹——算法,也就是如何利用计算机来解决某一具体问题。
当然,这并不是说语言不重要,语言是程序设计的工具,如果不掌握语言,程序设计就无从谈起。教材上的语法描述非常细致、系统,但大量的语法规则会使初学者感觉枯燥,这非常影响学生的学习兴趣。根据二八定律,在任何一组东西中,只有20%是最重要的,事实上VB语言If TCPL.Pending = True Then '如果有连接接入也是如此,最常用、最重要的知识点并不是很多。因此在讲述语法时,只需提供给学生最基本的语法知识,其余的细枝末节可以由学生自学。
2.2优化教学方法和教学策略
在程序设计的教学中,传统讲课方式的缺陷已众所周知,因为这是一种以教师为主、学生为辅的一种授课形式,讲课中教师是积极的而学生是消极的,很难把学生吸引到学习进程之中。但这不是意味着要把这种授课方式抛弃,讲课是把大量知识传递给学生的一种常用模式,尤其在本课程的教学中,学生缺乏普遍缺乏知识背景,大量的理论知识需要传递给学生,这就需要教师进行详细地讲解。在讲解时应该采用多种策略,比如在讲述抽象概念时与实践相关联,或者与学生已有的知识联系起来,这样比较容易理解。在提到函数和数据类型的.时候,可以跟学生比较熟悉的Excel中的相关概念关联起来。在讲述面向对象的概念时,可以拿Windows作系统作为例子,它就是依照面向对象的思想编制而成的,在桌面上的每个图标,可以理解成一个对象,当需要启动某个对象时,只需用鼠标点击它(消息驱动)。[2]不仅如此,在不同的情境下还需要灵活运用多种教学方法,如问题法、法、任务驱动和实例教学法等,这样有助于让学生从消极的学习者转变为积极的学习者。
2.3完善实验教学体系
VB程序设计是一门理论性和实验性都很强的课程,对实验环节有较高的要求。要学好这门课,学生只有经过大量的上机实验,才能掌握程序设计的技能和方法。因此,在教学过程中要给学生留出足够的上机时间,让学生在实验中理解VB语言的基本概念,掌握基本的编程方法。结合学生的专业方向,精心选择合适的案例、设计型与研究型课题,构建有助于培养学生动手能力和程序设计思维方式的实验教学平台。整个实验环节分为三个层次设计,基础验证型、设计开发型和研究创新型实验,每次实验课有多个基础验证型实验,帮助学生掌握相应的语法知识和算法设计,每一章精选1~2个设计开发型实验,与学生分析讨论解题思路,学生解决问题,培养学生的上机调试能力。学生以小组为单位,选择一个与其专业相关的研究题目,要求学生逐步完成研究分析与报告,写出个人的心得体会,并在学期末给出一定的时间完成课题。
2.4创建项目实例库
充分利用网络资源,搜集各类完整的VB程序实例,从中选取典型的、有实际意义的实例,作为程序设计的模板提供给学生。大多数学生基本上是初次接触计算机程序设计,习惯采用数学思维方式来分析问题,还没有真正掌握计算机编程的基本思路。在实验过程中,遇到一个新的题目,学生往往不知道从何下手,思路不清晰,此时就可以从项目实例库找出对应的实例,通过借鉴或修改相应的模板得到结果。“熟读唐诗三百首,不会做诗也会吟”,经常阅读这些实例,能够拓展学生的视野,促进学生对于程序设计思想的理解与认识,提高学生的编程能力。
3结束语
VB程序设计课程对于理论知识和实际作均有较高要求,教学时需要综合运用多种教学方法和教学策略,充分调动学生的学习积极性和主动性,将教学重点放在算法的分析和编程的训练上,注重实验教学环节,加强对学生程序设计思维方式和实际编程能力的培养,提高课程的教学效果。
;
数据类型 存储空间大小 范围
dim aa,bb,rrByte 1 个字节 0 到 255
Boolean 2 个字节 True 或 False
Integer 2 个字节 -32,768 到 32,767
Long
(长整型) 4 个字节 -2,147,483,648 到 2,147,483,647
Single
(单精度浮点型) 4 个字节 负数时从 -3.402823E38 到 -1.401298E-45;正数时从 1.401298E-45 到 3.402823E38
Double
(双精度浮点型) 8 个字节 负数时从 -1.79769313486232E308 到
Currency
(变比整型) 8 个字节 从 -922,337,203,685,477.5808 到 922,337,203,685,477.5807
Decimal 14 个字节 没有小数点时为 +/-79,228,162,514,264,337,593,543,950,335,而小数点右边有 28 位数时为 +/-7.9228162514264337593543950335;最小的非零值为 +/-0.0000000000000000000000000001
Date 8 个字节 100 年 1 月 1 日 到 9999 年 12 月 31 日
Object 4 个字节 任何 Object 引用
String
(变长) 10 字节加字符串长度 0 到大约 20 亿
String
(定长) 字符串长度 1 到大约 65,400
Variant
(数字) 16 个字节 任何数字值,可达 Double 的范围
Variant
(字符) 22 个字节加字符串长度 与变长 String 有相同的范围
用户自定义
本篇文章的主要开发环境是Visual Studio Visual Studio系列产品一直以来都提供了强大的控件功能 然而我们利用这些控件可以编写出功能强大的应用程序 本文主要利用微软的最开发工具为大家展示窗体的应用方法 为大家介绍创建炫酷的透明化窗体以及浮动型窗体的一些技巧 很适开发工具的初学者 具有一定的实用价值
打开 Visual Studio 在文件 (File) 菜单上 单击新建项目 (New Project) 在新建项目 (New Project) 对话框的模板 (Templates) 窗格中 单击 Windows 应用程序(Windows Application) 单击确定 (OK)
窗体应用技巧一 创建浮动End Function窗体
Public Class Form Inherits System Windows Forms Form Private Sub Form _Load(ByVal sender As System Object ByVal e As System EventArgs) Handles MyBase Load Dim As Point = New Point( ) 设置窗体初始位置 Me DesktopLocation = Timer Interval = 设置Timer的值 Timer Enabled = True Timer Interval = Timer Enabled = False End Sub 进入Timer _Tick Private Sub Timer _Tick(ByVal sender As System Object ByVal e As System EventArgs) Handles Timer Tick Dim As Point = New Point(Me DesktopLocation X + Me DesktopLocation Y + ) 窗体左上方横坐标的timer 加 If X < Or Y < Then Me DesktopLocation = Else Timer Enabled = False Timer Enabled = True End If End Sub 进入Timer _Tick
Private Sub Timer _Tick(ByVal sender As System Object ByVal e As System EventArgs) Handles Timer Tick Dim As Point = New Point(Me DesktopLocation X Me DesktopLocation Y ) 窗体的左上方横坐标随着timer 减一 If X > Or Y > Then Me DesktopLocation = Else Timer Enabled = True Timer Enabled = False End If End Sub 创建完成后我们来运行程序测试一下 测试成功 程序在屏幕中不断地来回走动了
窗体应用技巧二 创建透明的窗体
创建新工程后 选择Form 窗体 添加Label TrackBar Timer 控件 为了突出效果为窗体选择一个好看的背景
相关的属性设置如下 TrackBar Value属性: TickFrequency: 属性: Maximum属性: Label Text属性: 选择窗体的透明度: Timer Interval属性:
首先进行声明 Public Class Form Inherits System Windows Forms Form Dim tps As IntegerDim bol As Boolean 进入TrackBar _Scroll Private Sub TrackBar _Scroll(ByVal sender As Object ByVal e As System EventArgs) Handles TrackBar Scroll Me Opacity = TrackBar Value / Label Text = 窗体透明度 & CStr(Me Opacity ) & % End Sub 进入Timer _Tick
Private Sub Timer _Tick(ByVal sender As Object ByVal e As System EventArgs) Handles Timer Tick If bol = False Then tps = tps + Me Opacity = tps / If Me Opacity >= Then Timer Enabled = False bol = True End If Else tps = tps Me Opacity = tps Imports System.Net/ If Me Opacity <= Then Timer Enabled = False bol = False End If End If End Sub 进入Form _Load
Private Sub Form _Load(ByVal sender As System Object ByVal e As System EventArgs) Handles MyBase Load Timer Enabled = TrueEnd Sub 进入Form _Closing Private Sub Form _Closing(ByVal sender As Object ByVal e As System ComponentModel CancelEventArgs) Handles MyBase Closing Timer Enabled = True If MsgBox( 你确实要关闭窗体吗? MsgBoxStyle OkCancel) = MsgBoxResult Ok Then e Cancel = False Else Timer Enabled = False Me Opacity = tps = bol = True e Cancel = True End IfEnd Sub 创建完成后我们来运行程序测试一下 测试成功 程序窗体是不是变得透明了 通过调节滚动条我们甚至可以使得窗体消失达到完全的目的 这是不是很神奇呢?
lishixinzhi/Article/program/net/201311/11580