vb编程基础知识菜鸟(vb编程入门)

http://www.itjxue.com  2023-02-10 03:33  来源:未知  点击次数: 

我想自学vb!需要的条件请大家指点!

你以前若是 一点都没学过,确实有困难,有很多名词是你以前没有见过的。

有困难的时候必须有人解答才行!!!

想系统学习编程(高深),那就去学习C

若只是编写一些小程序,那就去学VB

现在所用到中小型应用程序,VB编写的占多数!!

WOrd字处理软件就是用VB编的 系统是用C编写的

VB程序设计简明教程 高等教育出版社

这本书编写的相当好!!!!

Visual Basic程序设计简明教程(第二版)

ISBN:7-04-011549,P334

龚沛曾等,已出版,定价:25.60元

本书是为将Visual Basic作为程序设计第一语言课程的学校编写的。在第一版的基础上,本书针对初学者的特点,在内容编排、叙述严谨、实验题选择等方面做了进一步修改,力图便于教与学。

本书分为教学篇和实验篇。教学篇从两个方面即程序设计语言和可视化界面设计进行介绍,重点在第一方面。对程序设计的基本知识、基本语法、编程方法和常用算法进行了较为系统、详细的介绍,让学生学会分析问题、掌握简单问题编程的能力;而可视化界面设计是实际应用当中不可缺少的。本书将两者有机地结合,既可提高学生学习积极性又可提高编程效率和教学效果,真正达到学以致用的目的。

实验篇根据教学篇的布局,安排了相应的十一个实验,每个实验有若干个题目。根据教学规律和读者的建议,凡奇数号的实验给出了解答,偶数号实验答案则在配套的《Visual Basic实验指导与测试》(第二版)一书中给出,以培养学生独立解题的能力。返回

作者介绍:

龚沛曾(GONG PEIZENG),女,1953年8月生,1969年1月参加工作,1982年1月毕业于华东理工大学。现任同济大学计算机系教授,基础学科组主任,全国高校计算机教育研究会常务理事,上海市计算机基础教育协会秘书长。

长期从事计算机基础教学和科研工作。主讲《高级程序设计语言(C、VB、FORTRAN、PASCAL、COBOL)》、《计算机文化》、《实用软件技术》、《数据结构》、《Web技术》等课程。研究方向计算机辅助教育。

主编教材10余本、发表论文20余篇。主要教材有:《计算机文化基础》、《Visual Basic程序设计教程》、《Visual Basic计算机绘图》、《C语言程序设计》等系列教材;发表的主要论文有:"通用学分制智能教务管理系统的研究与实践"、"研究集教学、实验、考试于一体化的CAI课件的有效途径"、"多媒体CAI课件开发的技术和方法"等。承担了教育部《基于网络环境的计算机基础教学改革与实践》等教改项目。

主要成果有:负责的《面向21世纪计算机基础教学改革与实践》项目2001年获国家级教学成果二等奖、上海市教学成果一等奖;主编的《计算机文化基础》、《Visual Basic程序设计教程》教材2000年分别获上海市优秀教材二、三等奖,其中《计算机文化基础》教材列入国家十五规划教材,《Visual Basic程序设计教程》列入教育部面向21世纪教材;参加的国家七?五攻关项目"城市环境噪声防治系统"1992年获上海市科技进步三等奖;承担的《通用学分制智能智能教务管理系统》、《计算机文化CAI课件》两项目1997年分别获教育部、全国工科协作组优秀CAI软件三等奖。返回

专家书评:

探索 创新 实用--评《Visual Basic程序设计简明教程》

同济大学 吴启迪

由龚沛曾编著的《Visual Basic程序设计简明教程》已由高等教育出版社出版。从一些使用高校反馈的信息看,这是一本适用于计算机第二层次教学的优秀教材,它有以下特色。

一、 体现时代特征,选材超前

教育部关于计算机基础教育三个层次的课程体系中的第一层次--计算机文化教育的重要性,已成为广大教育工作者的共识。探索改革第二层次中程序设计语言课程教学,体现21世纪的时代特征,是深入教育改革的研究内容。为此,作者提出了将传统的程序设计语言教学转向反映21世纪潮流的面向对象的程序设计技术,并以VB为环境进行实施。VB不仅具有面向对象、可视化、事件驱动等特点,而且继承了 Basic简单易学的优点,尤其适合于非计算机专业学生的学习。教材的出版对探索和推广面向21世纪的程序设计语言教学改革有着重要的意义。

二、 结构合理,层次清楚,适用性强

该书兼顾到读者的不同程度,从打好基础和培养学生应用计算机的能力角度出发,分为基础篇、提高篇和实验篇。 基础篇分为8章。针对程序设计的初学者,注重VB的基础知识。对VB的程序设计语言基础做了较详细的介绍,列举了一般程序设计语言教学中必须掌握的常用算法,同时介绍了VB的控件、菜单、文件、图形设计等。此篇可作为大学生的程序设计语言的必修课教学内容。

提高篇分四章。对已掌握了程序设计的学生,注重VB与当前新技术应用的结合,包括与数据库、OLE、API函数、WEB等相结合,这些可作为选修课或自学内容。

实验篇提供了15个单元的实验和自我测试题。通过针对性的上机实践,使读者掌握程序设计与调试的方法,提高动手能力,巩固所学的知识。

三、 两个结合,注重应用

教材始终贯穿了两个结合,即将面向对象程序设计方法和结构化程序设计方法有机结合,计算机文化基础和计算机技术基础两个层次有机结合。

面向对象的程序设计方法还是要以结构化程序设计为基础。因此,该书与其他同类VB教材不同之处在于加强了结构化程序设计和常用算法的训练,并与VB中的对象属性和方法相联系,使读者既掌握了程序设计的基本方法,更加深了对面向对象概念的理解。例如,在分析数组排序算法的同时,也介绍了利用VB列表框的SORT属性可实现数据的有序,同时指出两者的特点和利弊。

利用学生已在计算机文化基础课程中对Windows图形界面及软件熟练使用的基础,在该书中,大量的实例都围绕着第一层次中已学过的软进行剖析,如对计算器、图形浏览器、文本编辑器、数据库管理等的分析。通过实例分析,并加以编程实现,使学生既掌握了VB内容的学习,进行了开发实用软件的训练,更激发了探索VB奥妙的兴趣,达到事半功倍的效果。

四、 在精字上下功夫,有创新

为了解决内容多、学时少的矛盾,作者花费了大量的创造性劳动,在精字上下功夫。表现在:精练的文笔简述基本语法的使用规则,淡化繁琐的语法规则。短小精悍的实例引路,通过问题的展开导出对象属性和方法,加深读者对新知识的理解。精心设置了思考题并留有余地,给学生提供较多的独立思考的机会,巩固学习内容。精选了与实际生活密切相关的问题作为实例或实验内容,既调动了学生的学习积极性,又使得学与用密切结合,增强了学生运用知识的能力。提供了与教材配套的CAI课件,构成了立体化教材,利用大屏幕投影,真正贯彻精讲多练的原则,提高了教学的质量和效率。提供了与教材配套的教学网站,并提供了网络化VB考试与评分系统,随时可进行相关测评。教材结构紧凑,层次清楚、图文并茂、好教易学。

这些特色在同类计算机基础教材改革中具有一定的创新意义,使学生通过该书的学习,提高获取知识的能力、分析问题和解决问题的能力以及开发实用软件的能力。这在一般程序设计语言课程教学中难以完全兼顾到。

VB编程菜鸟求解答

i = MsgBox("密码错误", 5)

'MsgBox是弹窗函数,第一个参数是弹出的提示窗口需要显示的信息,第二个参数表示需要显示按钮组合,具体参数值见下面:

'vbOKOnly 0 只显示“确定”按钮。(缺省)

'vbOKCancel 1 显示“确定”和“取消”按钮

'vbAbortRetryIgnore 2 显示“终止”、“重试”和“忽略”按钮

'vbYesNoCancel 3 显示“是”、“否”和“取消”按钮

'vbYesNo 4 显示“是”和“否”按钮

'vbRetryCancel 5 显示“重试”和“取消”按钮

If i 4 Then

'如果MsgBox的返回值不等于4,也就是如果点击的按钮不是“重试”,MsgBox函数返回值参见下面:

'vbOK 1 单击了“确定”按钮

'vbCancel 2 单击了“取消”按钮

'vbAbort 3 单击了“终止”按钮

'vbRetry 4 单击了“重试”按钮

'vbIgnore 5 单击了“忽略”按钮

'vbYes 6 单击了“是”按钮

'vbNo 7 单击了“否”按钮

Quit

'这个应该是自定义的过程(sub),在此处调用Quit过程退出程序

Else

Me.Text0.SetFocus

'设置Text0获取焦点

Me.Text0.Text = ""

'清空Text0的内容

End If

vb编程菜鸟问题

'四个Text控件,num1,num2,result和ope,一个按钮command1

'两个num为操作数,result存放结果,ope存放运算符

Private Sub command1_Click()

select case ope.text

case "+"

result.text=val(num1.text)+val(num2.text)

case "-"

result.text=val(num1.text)-val(num2.text)

case "*"

result.text=val(num1.text)*val(num2.text)

case "/"

result.text=val(num1.text)/val(num2.text)

case else

msgbox "运算符错误!"

end select

end sub

'程序我没有调试过,你自己调试一下吧,

'思路没有问题。

'可以改变运算符啊,加减乘除都可以,

'三个文本框,num1中输入第一个数,num2中输入

'第二个数,

'ope中输入运算符(加减乘除符号其中之一)。

怎样自学vb???

你没有什么基础,对很多概念都不理解,想自学编程语言是很难的,学vb算你是学对了,因为他是最简单的,很适合初学者。

我可以给你两种自学方法,先过一遍,不要管他看懂不,看书速度控制在1小时看10~20页(太快偶怕你记不住)。然后第二遍开始慢慢看,逐个章节理解(这种方法基础扎实,对你以后快速成长有很大帮助)。

2建议你卖一本实例教程,实例书要求对vb每个功能进行细说的。一般重输出一行字符串开始,如hello

world(经典超级菜鸟人程序)。你无需急于理解,知道是这样写代码就会这样输出就行。你唯一要做的就是不断重复输入代码,直到你不看书也能完整的写出来,那你已经学得差不多了。(这种见效快,但可能会妨碍你以后的成长。)

你可以找视频看,vb的可能不多,但c的相信不少,我们计算机专业都是学c开始的。

VB 我是菜鸟,求高手说下怎么弄··

先下一个VB6.0下来安装在自己电脑上。然后打开它,新建一个标准exe程序。

你可以去下载一个简单的教程来看,当然可以看视频,然后我就教你写一个mp3播放器。

(1).点击菜单“工程”---“引用”,引用Windows Media Player。和CommonDialog。

(2).在窗体中添加控件CommonDialog、Windows Media Player。添加代码,按钮按提示添加:

Public volum As Integer '声音全局变量定义,用于记录播放过程中的声音值

Public bool As Boolean '全局变量定义

Sub openn() '过程

On Error Resume Next '出错处理

CommonDialog1.ShowOpen '显示打开通用对话框

If CommonDialog1.FileName "" Then

bool = False

WindowsMediaPlayer1.Visible = True

WindowsMediaPlayer1.URL = CommonDialog1.FileName '播放路径

End If

volum = WindowsMediaPlayer1.settings.volume '声音值

End Sub

Private Sub Form_DblClick() '窗体双击事件

Call openn '调用自定义过程

End Sub

Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) '接收拖曳信息

On Error Resume Next

bool = False

WindowsMediaPlayer1.URL = Data.Files.Item(1)

End Sub

Private Sub Command1_Click() '打开按钮Command1

Call openn '调用open

End Sub

Private Sub Command2_Click() '暂停按钮Command2

bool = True

WindowsMediaPlayer1.Controls.Pause

End Sub

Private Sub Command3_Click() '停止播放按钮Command3

bool = True

WindowsMediaPlayer1.Controls.Stop

End Sub

Private Sub Command4_Click() '增大音量按钮Command4

WindowsMediaPlayer1.settings.volume = WindowsMediaPlayer1.settings.volume + 5

volum = WindowsMediaPlayer1.settings.volume

End Sub

Private Sub Command5_Click() '减小音量按钮Command5

WindowsMediaPlayer1.settings.volume = WindowsMediaPlayer1.settings.volume - 5

volum = WindowsMediaPlayer1.settings.volume

End Sub

Private Sub Command6_Click() '静音按钮Command6

If WindowsMediaPlayer1.settings.mute Then

WindowsMediaPlayer1.settings.mute = False

Else

WindowsMediaPlayer1.settings.mute = True

End If

End Sub

Private Sub Command7_Click() '全屏按钮Command7

On Error Resume Next

WindowsMediaPlayer1.FullScreen = True

End Sub

Private Sub Command8_Click() '退出程序按钮Command8

Unload Me

End Sub

Private Sub WindowsMediaPlayer1_StatusChange() '循环播放实现

On Error Resume Next

If bool = False Then

WindowsMediaPlayer1.Controls.Play

End If

End Sub

具体的属性方法:

enableContextMenu:Boolean 显示/不显示播放位置的右键菜单

fullScreen:boolean 全屏显示

stretchToFit:boolean 非全屏状态时是否伸展到最佳大小

uMode:string 播放器的模式,full:有下面的控制条; none:只有播放部份没有控制条

playState:integer 当前控件状态,下面是三种基本状态:

3:正在播放

2:暂停

1:已停止

状态变化时会触发OnStatusChange事件

[controls]

可通过WindowsMediaPlayer.controls对播放器进行控制并取得相关的一些信息:

controls.play; 播放

controls.stop; 停止

controls.pause; 暂停

controls.currentPosition:Double 当前播放进度

controls.currentPositionString:string 时间格式的字符串 "0:32"

[currentMedia]

可以通过WindowsMediaPlayer.currentMedia取得当前媒体的信息

currentMedia.duration Double 总长度

currentMedia.durationString 时间格式的字符串 "4:34"

[settings]

可以通过WindowsMediaPlayer.settings对播放器进行设置,包括音量和声道等。

settings.volume:integer 音量 (0-100)

settings.balance:integer 声道,通过它应该可以进行立体声、左声道、右声道的控制。

=================

版本2:

属性/方法名: 说明:

[基本属性]  

url:string指定媒体位置,本机或网络地址

uiMode:String; 播放器界面模式,可为Full, Mini, None, Invisible

playState:integer; 播放状态,1=停止,2=暂停,3=播放,6=正在缓冲,9=正在连接,10=准备就绪

enableContextMenu:Boolean; 启用/禁用右键菜单

fullScreen:boolean; 是否全屏显示

[controls] wmp.controls //播放器基本控制

controls.play; 播放

controls.pause; 暂停

controls.stop; 停止

controls.currentPosition:double; 当前进度

controls.currentPositionString:string; 当前进度,字符串格式。如“00:23”

controls.fastForward; 快进

controls.fastReverse; 快退

controls.next; 下一曲

controls.previous; 上一曲

[settings] wmp.settings //播放器基本设置

settings.volume:integer; 音量,0-100

settings.autoStart:Boolean; 是否自动播放

settings.mute:Boolean; 是否静音

settings.playCount:integer; 播放次数

[currentMedia] wmp.currentMedia //当前媒体属性

currentMedia.duration:double; 媒体总长度

currentMedia.durationString:string; 媒体总长度,字符串格式。如“03:24”

currentMedia.getItemInfo(const string); 获取当前媒体信息"Title"=媒体标题,"Author"=艺术家,"Copyright"=版权信息,"Description"=媒体内容描述,"Duration"=持续时间(秒),"FileSize"=文件大小,"FileType"=文件类型,"sourceURL"=原始地址

currentMedia.setItemInfo(const string); 通过属性名设置媒体信息

currentMedia.name:string; 同 currentMedia.getItemInfo("Title")

[currentPlaylist] wmp.currentPlaylist //当前播放列表属性

currentPlaylist.count:integer; 当前播放列表所包含媒体数

currentPlaylist.Item[integer]; 获取或设置指定项目媒体信息,其子属性同wmp.currentMedia

MediaPlayer1.Play播放

MediaPlayer1.Stop停止

MediaPlayer1.Pause  暂停

MediaPlayer1.PlayCount文件播放次数

MediaPlayer1.AutoRewind 是否循环播放

MediaPlayer1.Balance 声道

MediaPlayer1.Volume 音量

MediaPlayer1.Mute静音

MediaPlayer1.EnableContextMenu是否允许在控件上点击鼠标右键时弹出快捷菜单

MediaPlayer1.AnimationAtStart是否在播放前先播放动画

MediaPlayer1.ShowControls是否显示控件工具栏

MediaPlayer1.ShowAudioControls是否显示声音控制按钮

MediaPlayer1.ShowDisplay 是否显示数据文件的相关信息

MediaPlayer1.ShowGotoBar 是否显示Goto栏

MediaPlayer1.ShowPositionControls是否显示位置调节按钮

MediaPlayer1.ShowStatusBar是否显示状态栏

MediaPlayer1.ShowTracker 是否显示进度条

MediaPlayer1.FastForward 快进

MediaPlayer1.FastReverse 快退

MediaPlayer1.Rate快进/快退速率

MediaPlayer1.AllowChangeDisplaySize 是否允许自由设置播放图象大小

MediaPlayer1.DisplaySize 设置播放图象大小

1-MpDefaultSize 原始大小

2-MpHalfSize 原始大小的一半

3-MpDoubleSize  原始大小的两倍

4-MpFullScreen  全屏

5-MpOneSixteenthScreen  屏幕大小的1/16

6-MpOneFourthScreen 屏幕大小的1/4

7-MpOneHalfScreen屏幕大小的1/2

MediaPlayer1.ClickToPlay 是否允许单击播放窗口启动Media Player

本人刚学习VB编程 有什么代码大全来让我们这些英语不好的菜鸟参考么?

这些通用的属性,希望以对你有用

修改对象的前景颜色:ForeColor属性。

修改对象的背景颜色:BackColor属性。

对象的标题或内容:Caption属性。

对象是否需要三维立体的外观:Appearance属性。

对象是否自动对齐到它所在容器的边缘:Align属性。

对象是水平放置还是垂直放置:Orientation属性。0为水平,1为垂直。

对象在它所在容器内的位置和大小:Left,Top,Width,Height属性。

对象内部坐标系统的左上角位置和内部大小:ScaleLeft,ScaleTop,ScaleWidth,

ScaleHeight属性。

当鼠标在对象上时显示的不同形状:MousePointer属性。

当鼠标在对象上时显示的提示文字:TooltipText属性。

在对象外部是否包围有1个边框:BorderStyle属性。

对象边框的颜色:BorderColor属性。

改变对象上文字成不同字体:Font属性。可分别开来:

① 是否要粗体:FontBold属性;

② 是否要斜体:FontItalic属性;

③ 设置字体名称:FontName属性。

④ 设置字号大小:FontSize属性。

⑤ 是否要加删除线:FontStrikethru属性。

⑥ 是否要加下划线:FontUnderline属性。

由用户自定义的1个对象标记:Tag属性。

设置1个对象是否可自动拖放操作,同时不响应对象事件:DragMode属性。

对象在拖放过程中显示的图标:DragIcon属性。

当对象中内容很多,对象大小不够时,是否自动扩大对象的尺寸以完全显示对象的内容:AutoSize属性。

对象是否在界面中可见:Visible属性。

对象是否有效:Enabled属性。

当对象是对象数组时,确定对象的下标:Index属性。

对象是否可通过TAB键转移获得焦点:TabStop属性。

用TAB键转移焦点时本对象所处的顺序位置:TabIndex属性。

如果对象可设置为不同样式,选择各种样式:Style属性。

选择对象中文本的的对齐方式是左对齐,右对齐还是居中对齐:Alignment属性。

使对象中文本从右到左显示(如"国和共民人华中"):RightToLeft属性。

获得对象所处的容器对象:Container属性。

如果对象是数据绑定对象,则:①对象绑定到哪个数据对象:DataSource属性;②对象绑定到哪个字段:DataField属性。③更改对象显示数据的格式:DataFormat属性;④绑定对象中数据内容是否被改变:DataChanged属性。

返回对象的父对象:Parent属性。

返回对象在代码中的名称:Name属性。

在对象上显示图片:Picture属性。

对象的当前值或当前状态:Value属性。

如果对象的作用是体现1段范围,则:

① 范围的最小值:Min属性。

② 范围的最大值:Max属性。

③ 对象的当前值:Value属性;

④ 用户对当前值每次较小的改变量:SmallChange属性;

⑤ 用户对当前值每次较大的改变量:LargeChange属性。

允许用户在对象内选中一部分内容进行操作:Sel……属性。如SelStart选中内容的开始位置,SelLength选中内容长度等。

让本对象与1个ImageList对象建立关联以使用其中的图片:ImageList属性。

对象的手工拖放方法:Drag方法,Drag 1开始拖放;Drag2停止拖放rag 0取消拖放。

在界面中移动对象的位置和大小:Move方法。

赋予对象以焦点:SetFocus方法。

当几个对象重叠在一起时,决定对象显示或被遮盖:Zorder方法.Zorder 0显示;Zorder 1遮住。

清空对象内容:Clear方法。 ★ 系统对象:就是在VB中已定义好的不用自行创建的,有:

App对象:当前的应用程序。

Clipboard对象:Windows剪贴板。

Screen对象:显示屏幕。

Printer对象:系统打印机。

Debug对象:调试窗口(调试时用)。

Screen对象的属性:

active control:拥有焦点的控件。

active form:拥有焦点的窗体。(仅限于本程序所包含窗体)

TwipsPerPixelX:对象中每一水平象素的缇数。(好象是1象素=15缇)

TwipsPerPixelY:对象中每一垂直象素的缇数。(好象是15)

Clipboard剪贴板对象的方法:

clear方法:清空剪贴板。

粘贴文本gettext方法:返回剪贴板中的文本。(如text1.text=clipboard.gettext)

粘贴图象getdata方法:返回剪贴板中的图象文件。

复制文本settext方法:复制文本到剪贴板。clipboard.settext

文本,类型格式;可以利用"类型格式"参数来改变文本成bmp等图象格式,有意思。???

复制图象setdata方法:使用指定的图形格式将图形保存到剪贴板。注:在使用本方法向剪贴板复制图象前,必须先用Clear方法清空剪贴板原有图象。如:

Clipboard .Clear

Clipboard .SetData Picture1.Picture, 2

其中参数2表示图形为bmp格式。

getformat方法:返回剪贴板中项目的格式。

剪贴板对象中项目格式有如下几种:vbCFtext(值为1)文本格式;vbCFBitmap(2)位图bmp格式;vbCFMetafile(3)图元文件wmf格式;vbCFDIB(8)与设备无关的位图格式(DIB),vbCFPalette(9)调色板格式;vbCFlink(HBF00)动态数据交互链。

检查剪贴板项目格式的例子如:

If Clipboard.GetFormat(vbCFText)=True then

mnupaste.enabled=true

end if

注:在剪贴板中可以同时包含文本和图象,互不干扰。

★ 使用打印机打印:1,打印文本:Printer对象的print方法:格式:

Printer . print 文本内容 如:Printer . print "李新宁"

在使用print方法把文本输出到打印机前,还可对字体进行设置,如:

Printer.FontSize = 14

Printer.Print "你好"

字体的设置有FontName,FontUnderline等。

2,打印整个窗体:窗体的PrintForm方法,格式:Form对象。PrintForm.

将窗体客户区及其上可见的控件全部打印到纸上,如图形,表格等。能保留原来的位置和格式,如果要使某些控件(如按纽、表格线等)不打印到纸上,只要将其Visible属性设为False即可。如:

Command1.Visible = False

Form1. PrintForm

打印机对象Printer有以下一些属性方法:

NewPage方法:在打印作业中开始新的一页。

EndDoc方法:结束打印设置并将全部结果输出到打印机(真正打印开始);

KillDoc方法:中断当前打印作业。

Page属性:打印时包含的页号。

如下例:

Printer . Print "" 初始化打印机,作好打印准备。

Printer.FontName = "Arial" 设置字体

Printer.FontBold = True

Printer.Print Label1.Caption 用粗体打印标签label1中的文本

Printer.FontBold = False

Printer.Print Text1.Text 不用粗体打印文本框中文本

Printer.EndDoc 结束打印设置并真正打印所有指定内容

各对象通用属性一则:tooltiptext属性--当鼠标在该对象上暂停时显示的小文本框,用于作一些对用户的提示。如:label1.tooltiptext="哇,太酷了!",注意,弹出的小文本框不会自动消失,直到鼠标离开它,如果只是作短暂的提示,那么,就用一个timer对象吧。

★ 控件的Clear方法:清除控件对象中的内容。对所有对象可用,如剪贴板也不例外,写法为:clipboard.clear

★ 同一窗体内所有界面元素焦点的次序属性:tabindex属性,它决定用tab键移动焦点时的对象次序。

★ 指定鼠标指针形状的属性:对象的

mousepointer属性,有0--15种不同的指针形状,还可以选"99"自定义形状(结合mouseicon属性指定图形文件),这样在运行程序时,当鼠标移到指定对象时,指针就会变成定义的形状了。

★ 对象的大小属性:height 高度;width 宽度

例,我们可以做一个"放大镜",当用户单击图片框时,图片框加大尺寸:

Private Sub Image1_Click()

Image1.Height = Image1.Height + 50

Image1.Width = Image1.Width + 40

End Sub

★ 改变对象在代码中的名字:"(名称)"属性:如"command1"改成"cmd1"

命名的约定:由于"(名称)"属性改变的是对象在代码中使用的名字,因此,需要起一个有相关意义而又标明相关控件类别的好名字,规则是:在你起好的名字前加上三个字母前缀:combobox

:前缀为cbo

checkbox: chk

command button cmd

common dialog dlg

data dat

★ 对象通用事件mousemove事件,当鼠标移到该对象时发生,用作特殊效果非常好。

在使用mousemove事件时,有时有一种情况,在对象上每移动一点鼠标,就会触发该事件,哪怕总是在这个对象上移动,而我只是想当鼠标第一次移上该对象时,使相关事件发生(如发一个声音),怎么办?可以事先设一个变量,在mousemove事件用if语句和改变变量值的办法来实现--只"if真"一次。自已试试吧。

★ 通用方法setfocus作用:赋予对象焦点,格式:

对象名.setfocus。注:SetFocus方法必须赋予界面中可视即Visible属性为真的控件上。

在使用setfocus方法赋予一个对象焦点时,不能在form_load事件中直接进行赋予(如在其中写command1.setfocus),因为焦点只能赋到可视(visible为真)的控件上,在load加载还未完成时,窗体及其上的控件都是不可视的。这一点值得注意,但可以在加载完后转移焦点,方法是在第一个获得焦点的对象的gotfocus事件中写:command1.setfocus,就可以了。

图形方法:

在图形方法中,首先要确定坐标系统和度量单位,可通过对象的scalemode属性改变坐标度量单位,有七种可选单位(缺省为1-缇)。一般用3(象素)。

cls:如picture1.cls 清空对象(对象内部清屏)

pset:画点并指定颜色。格式:

对象名.pset(点的坐标x,y),点的RGB颜色

picture1.pset(1000,500),RGB(255,0,0)

point:查看某个点的颜色值(一个8位以内的长整数)。格式:

对象名.point(点的坐标x,y)

x=picture1.point(1240,5910)

line:画线,矩形(加B)或画填充框(加BF)。格式:

对象名.line(x1,y1)-(x2,y2),颜色,B或BF

如果加上B或BF,则表示画矩形,B表示用指定颜色在两坐标间画矩形

框,但矩形框内部不进行颜色填充,而加BF,则用指定颜色填满整个矩形块。

Picture1.Line (100, 100)-(1000, 1000), RGB(244, 244, 0), BF

画了一个黄色矩形块。

circle:画圆,椭圆或圆弧。格式:

对象名.circle(x,y圆心坐标),半径,颜色,圆弧起点,圆弧终点,椭圆纵横比

picture1.circle(1000,500),400,RGB(0,0,255)

圆弧起点与终点在-2pi到2pi值之间(以度为单位)。

★ 打开或运行本机磁盘上指定的程序、文件(夹)、Internet地址等,功能与开始菜单"运行"相同,格式:Shell

"Rundll32.exe URL.dll,FileProtocolHandler 路径及文件名",1例如: Shell

"rundll32.exe url.dll,Fileprotocolhandler c:\windows",1 打开文件夹。

Shell "rundll32.exe url.dll,Fileprotocolhandler

",1 打开网页

Shell "rundll32.exe url.dll,Fileprotocolhandler c:\美女.bmp",1

使用关联程序打开文件。

在Windows2000中怎么不可以?

指定对象所属的容器,用set关健字和对象的Container属性:,如要把在窗体form1中的一个按纽改放到picture1中去,那么用

Set Command1.Container =

Picture1.可以作为容器的有Form,Picture和Frame.格式:set 对象名.Container=容器名

★ 与绘图有关的属性(Form窗体或Picture对象):

CurrentX和CurrentY:设置当前光标的位置。如在指定位置进行输出。如:

Form1.CurrentX = 40:Form1.CurrentY = 50:Print "aaaaaaaaaaaa"

drawmode:选择绘图时线条颜色的产生方法(位与,或,。覆盖等)共16种。

drawstyle:设置画线的线型(有0-6种,0与6为实线,1为虚线,2为点线,3,4,5为点虚线)。

drawwidth:画线的宽度。

autoredraw:自动重画。(?:绘图是否在内存中直接分配空间来存放该图形信息,以便在被遮住等情况发生而重新显示时自动调用内存进行图形恢复。如果为节省内存不要这项功能,就要在代码中用paint事件来实现。)

通用属性与事件一则:对象的CausesValidation属性和Validate事件,这两个总是在一起使用:validate事件在对象即将失去焦点前发生,在此事件中如果设一个参数Cancel=True的话,那么窗体中其他预先设好的causesvalidation属性为true的对象就不能获得焦点(缺省时都为true),因此可用来选择性地限制某些对象,直到关健对象的Validate事件cancel等于False为止。如:

Private Sub Form_Load()

Command1.CausesValidation = False

Text2.CausesValidation = True 这个对象将受到限制

End Sub

Private Sub Text1_Validate(Cancel As Boolean)

在缺省情况下,cancel总为false

If Text1.Text "1234" Then

MsgBox "密码错误!", , "错误"

Cancel = True

End If

End Sub

运行时,如果你输入的不是1234,那么当你试图将焦点改变到text2时(如鼠标单击或用TAB键等),就会出现"密码错误"提示,并使焦点仍在text1中。

★ 通用属性:定制度量刻度的四个属性:

scaleleft,scaletop:自定义设置对象内绘图区域左上角坐标,缺省为0,0。如果进行了设置,则该对象内所有的绘图方法都将基于左上角的新坐标值进行,如原在左上角为0,0下form1.pset(100,50)画了一点,改变form1.scaleleft=100,form1.scaletop=50后,这个点就跑到左上角去了。

scalewidth,scaleheight:自定义设置对象内绘图区域宽度和高度。现有的绘图区域将根据这两个属性设置的值,确定新的单位刻度。如随便设form1.scalewidth=100,则不管怎样,反正就是将绘图区的宽width划分成100等份,每份就是新的单位刻度(还可设为负数)。

当以上四个属性中的任何1个被人为地改变后,其ScaleMode属性自动变为0用户自定义型。

★ 控件的通用属性几则:

HelpContextID:设置上下文编号,为程序提供上下文帮助,格式:

对象.HelpContextID=编号

hWnd:返回窗体或控件的句柄。[还有hdc是设备场景句柄]

parent:返回本对象的上一级对象。如对象command1放在form1中,那么

command1.parent.Cls 就是父窗口form1清屏。等价于form1.cls

利用parent属性,可以将对象作为参数来传递。

★ 对象的Drag方法:对象的手工拖动操作。

拖放:1,自动拖放--只要将要拖动对象的Dragmode属性设为1自动拖放,此时对象不再响应鼠标事件,如Click事件等。专等按下鼠标的拖动操作发生。

2,手工拖放--常用此方法。首先把要拖动对象的Dragmode属性为0,在代码中使用Drag方法启动开始拖放。格式:对象.。Drag

vbBeginDrag(值1),到达目的地后,用Drag方法终止拖放,格式:对象。Drag

vbEndDrag(值2),当然终止也可不用代码写明,只要抬起鼠标,拖放就会终止。

★ 窗体和图像框的paint事件:当对象在屏幕中被移动,改变尺寸或清除,且对象的AutoDraw属性为False时.

就会触发Paint事件,

★ 通用事件一则:dragover事件:当用户使用鼠标拖动源对象,并在目标对象上移动时,目标对象上引发该事件。格式:

Private Sub Form_DragOver(Source As Control, X As Single, Y As

Single, State As Integer)

End Sub

source和X以及Y好理解,source为源对象,X,Y为鼠标相对于该控件的位置。而state参数,返回源对象在目标对象内拖动的状态,为0表示源对象正向目标对象范围内拖动(拖入),为1表示源对象正向目标范围外拖动(拖出),为2表示源对象在目标范围内从一个位置移到了另一位置(移动)。注:它与DragDrop事件的区别在于:DragOver事件当源对象在目标对象范围内拖动过程中连续不断被触发,而DragDrop事件当源对象在目标对象范围内,同时松开鼠标时的一刹那触发。

(责任编辑:IT教学网)

更多

推荐XML/XSLT文章