vb界面美化

vb界面美化
vb界面美化

2010-11-02 22:45

【转】vb界面美化

vb界面如何美化

一、

网上搜索VB皮肤控件,一般为了更加美化都是做异性窗体,用图片做背景,然后去掉窗体边框,设置窗体颜色为透明,这个在这里就不详细说,还要加上拖动无边框窗体的代码,这样就可以了,至于其他按钮也可以用图片代替下面这个

图片是我做的仿酷狗播放器,全是由图片构成的

二、利用VB做美化界面

如果大家用过《Windows优化大师》,肯定会被它的界面所倾倒,其实利用ActiveSkin 就可以办到,甚至更好,但是如果要做的共享软件只是一个文件,在加上几个OCX累赘,似乎很是不好,看看VB是怎么利用别的东西来实现的吧。

首先新建一个EXE工程,再在窗体上拖几个Label控件,看看Label 的强大功能吧,原理就是利用Label来模拟一个按钮,但是首先要将Label控件的属性要调一下,

Name: LblBtn,

BorderStyle: 1,

Appearance: 0,

Alignment: 2,

这样一个按钮的雏形就已经出来了,如果工程量很大,可以将多个Label 控件的Name属性设为一样的,对于按钮的识别就要靠识别Index属性了,为了方便起见,在进入到代码编辑窗口,输入以下代码:

Private Const LBL_BACK_COLOR =&HE0E0E0 ’正常时Label控件的背景色Private Const LBL_WHEN_MOUSE_MOVE =&HC0C0C0 ’鼠标移动时Label的背景色

Private Const LBL_WHEN_MOUSE_DOWN =&H808080 ’鼠标按下时Label的背景色

再在Form的Load事件中输入以下内容

Private Sub Form_Load()

Dim Count As Integer

For Count =0 To 3 ’请将此出的3换成你的LblBtn数量的个数-1 LblBtn(Count).BackColor=LBL_BACK_COLOR ’初始化LblBtn的背景

Next Count

End Sub

然后再在LblBtn的MouseMove和MouseDown事件中来搞定剩余部分:

Private Sub LblBtn_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)’当鼠标按在LblBtn上时LblBtn(Index).BackColor =LBL_WHEN_MOUSE_DOWN ’临时改变LblBtn背景颜色

End Sub

Private Sub LblBtn_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)’鼠标在LblBtn上面移动时触发该事件

Dim Count As Integer

DoEvents ’暂时将系统控制权教给系统

If Button Then Exit Sub ’如果按钮被按下就退出该过程

For Count = 0 To 3

If Count <> Index Then ’如果按下的不是其它按钮

LblBtn(Index).BackColor =LBL_BACK_COLOR ’将背景设为正常

Else

LblBtn(Index).BackColor =LBL_WHEN_MOUSE_MOVE ’将背景设为鼠标移动的背景

End If

Next Count

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim Count As Integer

DoEvents

For Count=0 To 3

LblBtn(Count).BackColor=LBL_BACKCOLOR ’恢复背景

Next Count

End

本来利用Windows的消息系统来完成这一“艰巨”的任务最简单,可问题就来了,Label控件没有窗口句柄怎么办?可是此问题与题无关,写了会有骗稿费之:)

OK,Label控件就讲到这里,在来说说TextBox控件,

各位看关恐怕看惯了白颜色的背景,那么就换换颜色以养养俺们那和绵羊一样的眼睛(为什么说绵羊?俺也不知道),可是VB提供的RGB函数弄出来的颜色不是怎么好看,这里俺来教大家一个小Tip,RGB函数的Red,Green,Blue

这三个参数若一样,则产生的颜色是灰度,当然越接近白颜色越好,但也不能让各位看不出来,俺建议TextBox的背景为RGB(235,235,235),各位还是实

战一下,将一个TextBox拖到窗体上,属性设置如下

Appearance 0

BorderStyle 1

MutilLine True

千万不要设置ScrollBars属性,否则会影响效果

在Form的Load事件中初始化TextBox

Dim bkColor As Long

Private Sub Form_Load()

bkColor=RGB(235,235,235)

Text1.BackColor=bkColor

End Sub

在Form和Text1的MouseMove事件中:

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Text1.BorderStyle = 0

End Sub

Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

DoEvents

Text1.BorderStyle = 1

End Sub

在按下F5试试是不是很Cool?

可能各位看关玩过石器时代,一定会对里面的TextBox的效果感到很爽,VB还

不是可以做到,有焦点的控件可以使用SetFocus方法来为其设置焦点,可是一个窗体上如果控件太多了,一个一个的用SetFocus是不是太傻了?这一节的主角就是--------API函数,

首先声明:

Private Type POINTAPI

x As Long

y As Long

End Type

Private Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long

Private Declare Function WindowFromPoint Lib "user32" Alias "WindowFromPoint" (ByVal xPoint As Long, ByVal yPoint As Long) As Long Private Declare Function SetFocus Lib "user32" Alias "SetFocus" (ByVal

hwnd As Long) As Long

但是这里的SetFocus会和控件的SetFocus会搞混淆,改改吧,

Private Declare Function nSetFocus Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long

只要Alias指向的接口是对的前面的函数名称简直就是摆设,

在建立一个过程:

Public Function sSetFocus() As Long

Dim CPos As POINTAPI,Successfull As Boolean,hWnd As Long

DoEvents

Successfull =GetCursorPos(CPos)

If Not Successfull Then Exit Sub ’如果未成功则退出该过程

hWnd=WindowFromPoint(CPos.x,CPos.y)

sSetFocus=nSetFocus(hWnd)

End Sub

在窗体上放一个Timer控件,Interval 属性设为100,就是0.1秒,在Timer1控件的Timer事件中填入sSetFocus,在运行一下看看,效果怎么样?

可是有的先生小姐要问了,TextBox难道就不能用ScrollBar吗?非也非也,选工程->部件->Microsoft Windows Common Controls-2 6.0 (SP3)就是你的答案,至于卷动TextBox就去研究SendMessage函数吧,否则又有骗稿费之嫌,如果想作绿色软件,不想用控件,可以用俺前面讲到的Label控件,利用字体 Webdings 来模拟ScrollBar,需要注意的是,如果模拟ScrollBar,上下左右箭头分别是5,6,3,4,别忘了把字体设为Webdings

再来讲讲窗体的美化,其实将BorderStyle属性设为0就是很好的2D美化;)可是,这样一来,问题又来了,怎么办?凡事都要请API来帮忙,这里需要两个API,一下是该API的声明:

Public Declare Function ReleaseCapture Lib "user32" Alias "ReleaseCapture" () As Long 注释:这个API是用来解下鼠标的追踪器,关于他的过多用法以及详细介绍可以写信向俺咨询,

还有

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any)As Long’这个该不要俺多介绍了吧

Public Const HTCAPTION = 2 ’代表窗体的标题区

Public Const WM_NCLBUTTONDOWN =&HA1 ’表示非工作区左键按下原理很简单,卸下鼠标追踪器后向Form发送一个移动窗体的消息,其实做到这一点的方法很多,但俺个人认为这一种最简单,添加一个过程:

Public Sub MoveForm(hWnd As Long)

DoEvents

ReleaseCapture

SendMessage hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&

End Sub

在Form的MouseMove事件中:

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button=vbLeftButton Then MoveForm hWnd’如果按下鼠标左键就移动窗体End Sub

台下的这位小姐又纳闷了,可是光秃秃的窗体没有了标题栏也不好看,俺要向这为小姐推荐俺的东东-ActiveX控件,ToolSign,需要的人可以写信给俺联系,该控件需要在代码编辑区域内添加一下代码:

’一下声明是用在ToolSign的 AutoQuit属性的

Public Const EXIT_FORCE = 2 ’注意,在VB中运行的时候如果选用此退出方式,VB也会退出

Public Const EXIT_MESSAGE = 1 ’由操作系统发送关闭消息

Public Const EXIT_CUSTOM = Not (EXIT_FORCE Or EXIT_MESSAGE)’自定义

将其注册后在部件栏中把e-Dogkid Studio Tools Sign打钩,添加到工具箱中,双击加入到窗体中,

在Form的Load事件中添加一下初始化代码:

Private Sub Form_Load()

With Sign1

.AutoQuit = EXIT_CUSTOM

.ParentsHWND =hWnd ’填了此属性可以直接用ToolSign来移动窗体而不需要前面的代码

End With

End Sub

Sign1的Click事件

Private Sub Sign1_Click()

End ’关闭程序

End Sub

在Form的Resize事件中添加一下代码:

Private Sub Form_Resize()

Sign1.Width = Width

End Sub

如果想让窗体可以改变大小,可以修改一下属性

Caption ""

BorderStyle 2或5

ControlBox False

不知道各位看关见过爆炸试的窗体没有?,没有见过可以从俺要另外一个俺自己的ActiveX DLL,我的那个东东其实是给我的Software作运行库的,各位若不嫌弃,可以用用,注册后在工程->引用->e-Dogkid Runtime Library 然后在窗体Load事件中输入:

Private Sub Form_Load()

Dim System As e_Dogkid_Runtime_Library.System

Set System = New e_Dogkid_Runtime_Library.System

Show

System.BoomIt hDC, 60, Width, Height, Left, Top

Set System = Nothing

End Sub

三、能够美化VB6软件界面的软件

https://www.360docs.net/doc/324917215.html,/s?wd=actskin4

下载这个SDK,里面有个控件很不错,三行代码改外观:

https://www.360docs.net/doc/324917215.html,/u/20090303/02/fb11597e-66af-4f65-adb1-91014add6 89a.html

这个SDK带了皮肤编辑器,默认有XP,OFFICE2007,VISTA等几种皮肤,当然也可以自己编辑个性皮

可以用皮肤软件,像VBcrazy说的SkinSharp。

我是用Flash做界面的,效果不错。唯一不足的地方就是要拖着个控件跑……

VB界面设计的基础

不必成为创建用户界面的艺术家-大多数用户界面设计的原则,与任意一门基础艺术课中所讲授的基础设计的原则相同。构图、颜色等的基本的设计原则,就象它们应用在纸张或油画上一样,也能很好地在一台计算机的屏幕上应用。 虽然visual basic 能通过简单地将控件拖动并放置到窗体上而使得创建用户界面非常容易,但是,在设计之前稍微计划一下就能使应用程序的可用性有很大的改观。可能须先在纸上画出窗体开始设计,决定需要哪些控件,不同元素的相对重要性,以及控件之间的关系。 构图:应用程序的观感与感觉 窗体的构图或布局不仅影响它的美感,而且也极大地影响应用程序的可用性。构图包括诸如控件的位置、元素的一致性、动感、空白空间的使用、以及设计的简单性等因素。 控件的位置 在大多数界面设计中,不是所有的元素都一样重要。仔细地设计是很有必要的,以确保越是重要的元素越要很快地显现给用户。重要的或者频繁访问的元素应当放在显著的位置上,而不太重要的元素就应当降级到不太显著的位置上。 在大多数语言中我们习惯于在一页之中从左到右、自上到下地阅读。对于计算机屏幕也如此,大多数用户的眼睛会首先注视屏幕的左上部位,所以最重要的元素应当放在屏幕的左上部位。例如,如果窗体上的信息与客户有关,则它的名字字段应当显示在它能最先被看到的地方。而按钮,如“确定”或“下一个”,应当放置在屏幕的右下部位;用户在未完成对窗体的操作之前,通常不会访问这些按钮。 把元素与控件分成组也很重要。尽量把信息按功能或关系进行逻辑地分组。因为他们的功能彼此相关,所以定位数据库的按钮应当被形象地分成一组,而不是分散在窗体的四处。对信息也是一样,名字字段与地址通常分在一组,因为它们联系紧密。在许多情况下,可以使用框架控件来帮助加强控件之间的联系。 界面元素的一致性 在用户界面设计中,一致性是一种优点。一致的外观与感觉可以在应用程序中创造一种和谐,任何东西看上去都那么协调。如果界面缺乏一致性,则很可能引起混淆,并使应用程序看起来非常混乱、没有条理、价值降低,甚至可能引起对应用程序可靠性的怀疑。 为了保持视觉上的一致性,在开始开发应用程序之前应先创建设计策略和类型约定。诸如控件的类型、控件的尺寸、分组的标准以及字体的选取等设计元素都应该在事先确定。可以创建设计样板来帮助进行设计。 在visual basic 中有大量的控件可供使用,这可能引起有人想使用所有的控件。为了避免这种引诱,选取能很好地适合特定应用程序的控件子集。虽然列表框、组合框、网格以及树等控件都可用来表示信息列表,最好还是尽可能使用一种类型。 还有,尽量恰当地使用控件,虽然textbox 控件可以设置成只读并用来显示文本,但label 控件通常更适用于该目的。在为控件设置属性时请保持一致性,如果在一个地方为可编辑的文本使用白色背景,除非有很好的理由,否则不要在别的地方又使用灰色。 在应用程序中不同的窗体之间保持一致性对其可用性有非常重要的作用。如果在一个窗体上使用了灰色背景以及三维效果,而在另一个窗体上使用白色背景,则这两个窗体就显得毫不相干。选

vb界面设计 练习题(含答案)

1.在用菜单编辑器设计菜单时,必须输入的项有________。 A)标题B)快捷键C)索引D)名称 2.在下列关于菜单的说法中,错误的是________。 A)每个菜单项与其他控件一样也有自己的属性和事件 B)除了Click事件之外,菜单项还能响应其他如DblClick等事件 C)菜单项的快捷键不能任意设置 D)程序运行时,若菜单项的Enabled属性为False,则该菜单项变成灰色 3.在下列关于对话框的叙述中,错误的是________。 A)CommanDialog1.ShowFont 显示字体对话框 B)在打开对话框中,用户选择的文件名可以经FileTile属性返回 C)在打开对话框中,用户选择的文件名及路径可以经FileName属性返回 D)通用对话框中可以制作和显示帮助对话框 4.菜单的热键指使用Alt键和菜单标题中的一个字符来打开菜单,建立热键的方法是在菜单标题的某个字符前加上一个________字符。 A)% B)$ C)& D)# 5.要将通用对话框CommanDialog1设置成不同的对话框,应通过________属性来设置。A)Name B)Action C)Tag D)Left 6.关于多重窗体的叙述中,正确的是________。 A)作为启动对象的Main子过程只能放在窗体模块内 B)如果启动对象是Main子过程,则程序启动时不加载任何窗体,以后由该过程根据不同情况决定是否加载哪一个窗体 C)没有启动窗体,程序不能运行 D)以上都不对 7.在VB中,除了可以指定某个窗体作为启动对象外,还可以指定________作为启动对象。A)事件B)Main 子过程C)对象D)菜单 8.以下语句正确的是________。 A)CommonDialog1.Filter = All Files|*.*|Picture(*.bmp)|*.bmp B)CommonDialog1.Filter="All Files"|"*.*"|"Picture(*.bmp)"|"*.bmp" C)CommonDialog1.Filter="All Files|*.*|Picture(*.bmp)|*.bmp" D)CommonDialog1.Filter={All Files|*.*|Picture(*.bmp)|*.bmp} 9.如果Form1是启动窗体,并且Form1的load事件过程中有Form2.Show,则程序启动后________。 A)发生一个运行错误 B)发生一个编译 C)在所有的初始化代码运行后Form1是活动窗体

VB窗体设计(考试系统)

1.要求:编程,输入圆的半径,计算并输出圆的面积,按下列要求分别实现: (1)在打开的工程的Form1窗体中设计如图1所示的界面 (2)创建一个文本框控件用于输入,创建一个标签控件显示计算结果, 创建一个命令按钮控件单击命令按钮后将结果显示在标签里,将命令按钮的 Caption属性设置为"按文本框计算" (3)在窗体中创建一个命令按钮,Caption属性为"按输入框计算" 单击此命令按钮后,调用Inputbox函数输入数据,通过标签控件显示计算结果。 要求本命令按钮执行的结果需要小数点后15位有效位数, 圆周率15位:3.141592653589793 5.在名称为Form1的窗体上建立一个名称为Cmd1,标题为"显示"的命令按钮,编写适当的事件过程。程序运行后,如果单击"显示"命令按钮,则在窗体上显示"呵呵,小菜一碟!",如图所示。程序中不能使用任何变量,直接显示字符串。 注意:完成后必须保存,然后再关闭。 6.在名称为Form1的窗体上建立一个名称为P1的图片框和两个命令按钮, 名称分别为Cmd1和Cmd2,标题分别为"输出"和"清除",如图1所示。 要求程序运行后,每单击一次"输出"按钮, 不使用任何变量而直接在图片框中显示小写字母"有一幅画更完美!",如图所示; 如果单击"清除"按钮,则清除图片框中的内容。

7.在名称为Form1的窗体上建立一个名称为Text1的文本框,文本框的内容为空;一个名称为Cmd1,标题为"输出"的命令按钮,如图所示。要求程序运行后,在文本框输入几个字符,单击"输出"按钮,则在窗体上显示文本框中的文字。 注意:在程序中不能使用任何变量,不能使用默认属性。 8. 1、在名称为Form1的窗体上建立一个名称为l1的标签,并设置他不可见;两个名称为cmd1和cmd2, 标题分别为"显示1"和"显示2"的命令按钮。 2、编写适当的事件过程,要求程序运行后, 如果单击"显示1"命令按钮,则标签可见并显示字符串"aaa"; 如果单击"显示2"命令按钮,则标签可见并显示字符串"bbb"。 程序开始运行时界面如图所示。 图1 程序运行时界面 3、单击显示1命令按钮后,窗体如图2所示:

Vb登陆界面设计

Vb登陆界面设计 1.所用主要控件,以及关键属性: 控件关键属性 Label Caption,backstyle,font text Caption, passwordchar Command caption,font,style,picture 2.使用了什么样的过程和方法 登陆界面程序代码: Dim i As Integer, j As Integer Private Sub Command1_Click() If Text2 <> "2008512" Then j = j + 1 i = MsgBox("请重新输入密码?", vbOKCancel + vbQuestion, "密码错误!" & "第" & j & "次") If i = 1 Then Text2.Text = "" Text2.SetFocus If j > 3 Then MsgBox ("密码错误3次,强制退出!") End Else Text2.Text = "" Text2.SetFocus End If End If If i = 2 Then End End If Else Load Form2 Form2.Show

End If End Sub Private Sub Text1_LostFocus() If IsNumeric(Text1) = False Then MsgBox ("请输入数字!") End If End Sub 程序实现的功能: 用户名必须输入数字,不然会出现提示窗口:请输入数字。 密码如果输入正确则进入form2登录成功界面,输入错误会出现提示窗口:密码错误!第n次,请重新输入,当三次输入错误时,提示密码输入超过3次,程序自动结束。

VB制作QQ登录界面

西南财经大学天府学院 VB实验报告 实验名称:第二个VB程序 姓名:刘星 ______ 学号:41402803 _____ 班级:14级工商23班 实验时间:2015/9/19

、实验目的 VB程序制作实现QQ登录、实验内容及步骤 题目一:QQ登录程序设计 实验步骤: 1.打开VB,修改文本字体、大小(font ); 2. 点击label, , 画出label1 、label2 、label3,分别修改 caption 为“账号:”“密 码:”“状态: 3. 点击combobox,在账号和状态后面画出combo1, combo2; 4. 在combo1 账号的text 中设置账号默认值“ 41402803”,combo2状态的text中设置默认值“在线” 5. 点击textbox ,在label 密码后面画出text1 ,删除文本text 6. 点击checkbox,在适当位置画出checkl和check2,分别修改caption 为“记住密码” ,“自动登录” 7. 点击commandbutton,修改caption 中“command1 为“登录”; 8. 双击commandbutton,弹出代码编辑器,编辑如图; 9运行程序,单击运行—启动,单击显示,检验,单击结束;10.点击文件―保存工程,新建文件夹,命名保存窗口文件和工 程文件 题目二:在第一个VB程序的基础上实现如下功能:单击“显示” 按钮,在文本框中显示“欢迎使用VB6.0,你真棒!”,再次单击

“显示”按钮,文本框里面不再显示任何内容。 实验步骤: 1. 打开VB,修改文本字体、大小(font); 2. 点击TextBox , 画出文本框; 3. 点击commandbutton,画出命令框; 4. 选中命令框,修改caption中“commandl为“显示”; 5. 选中文本框,将Text 中“ text1 ”删除,并改为“欢迎使 用VB6.0,你真棒!”; 6. 若文字未自动换行,再选中“ MultiLline ” ,将false 改为true; 7. 双击命令按钮,弹出代码编辑器,编辑如图; 8. 运行程序,单击运行—启动,单击显示,检验,单击结束;9?点击文件-保存工程,新建文件夹,命名保存窗口文件和工程文件 三、实验思考题 1. 组合框combo中的list 输入账号,shift+enter 键账号换行。 2. 在题目一QQ登录中,将password写成了pass name运行时一直显示密码错误,在同学的检查之后改正了错误。在题目二中,按照要求使用if 语句判断文本框内容是否为空一开始我并不知道改怎么编写程序,在自己的屡次尝试和修改,并借鉴百度说明过程中,最

VB制作QQ登录界面

V B制作Q Q登录界面 Document serial number【NL89WT-NY98YT-NC8CB-NNUUT-NUT108】

西南财经大学天府学院 VB实验报告 实验名称:第二个VB程序 姓名:刘星 学号: 41402803 班级: 14级工商23班 实验时间: 2015/9/19

一、实验目的 VB程序制作实现QQ登录 二、实验内容及步骤 题目一:QQ登录程序设计 实验步骤: 1.打开VB,修改文本字体、大小(font); 2.点击label, ,画出label1、label2、label3,分别修改caption为“账号:”“密码:”“状态:”; 3.点击combobox,在账号和状态后面画出combo1,combo2; 4.在combo1账号的text中设置账号默认值“41402803”,combo2状态的text中设置默认值“在线” 5.点击textbox,在label密码后面画出text1,删除文本text 6.点击checkbox,在适当位置画出check1和check2,分别修改caption为“记住密码”,“自动登录” 7.点击commandbutton,修改caption中“command1”为“登录”; 8.双击commandbutton,弹出代码编辑器,编辑如图; 9运行程序,单击运行→启动,单击显示,检验,单击结束;10.点击文件→保存工程,新建文件夹,命名保存窗口文件和工程文件

题目二:在第一个VB程序的基础上实现如下功能:单击“显示”按钮,在文本框中显示“欢迎使用VB6.0,你真棒!”,再次单击“显示”按钮,文本框里面不再显示任何内容。 实验步骤: 1.打开VB,修改文本字体、大小(font); 2.点击TextBox ,画出文本框; 3.点击commandbutton,画出命令框; 4.选中命令框,修改caption中“command1”为“显示”; 5.选中文本框,将Text中“text1”删除,并改为“欢迎使用VB 6.0,你真棒!”; 6.若文字未自动换行,再选中“MultiLline”,将 false 改为 true; 7.双击命令按钮,弹出代码编辑器,编辑如图; 8.运行程序,单击运行→启动,单击显示,检验,单击结束; 9.点击文件→保存工程,新建文件夹,命名保存窗口文件和工程文件 三、实验思考题 1.组合框combo中的list输入账号,shift+enter键账号换行。 2.在题目一QQ登录中,将password写成了passname,运行时一直显示密码错误,在同学的检查之后改正了错误。在题目二

VB程序设计试题及答案

VB程序设计期末模拟试题及答案 《VB》期末复习题及答案 综合复习题 一、填空题 1.创建一个VB应用程序三个主要的步骤是_创建应用程序界面_、_设置属性_和_编写代码_。 2.当程序运行时,要求窗体中的文本框呈现空白,则在设计时,应当在此文本框的_属性__窗口中,把此文本框的_text_属性设置成空白。 3.Label和TextBox控件用来显示和输入文本,如果仅需要让应用程序在窗体中显示文本信息,可使用_ _Label___控件;若允许用户输入文本,则应使用_TextBox__控件。 4.窗体的常用方法有__Load方法__、_show方法_、Hide方法__和_Unload方法_。 5.要想在代码中给名为txtshow的文本框赋予文本:GOOD WORK ,应当编写的语句是_Txtshow.T ext="GOOD WORK"_。 6.若命令按钮的名称为Cmdopen,程序要求单击该命令按钮时,打开一个窗口frm1,请对以下事件过程填空。 Private Sub Cmdopen_ Click()___ __Frm1.show__ End Sub 7.Visual Basic 6种类型的表达式是_数算表达式____、__字符串表达式_、__关系表达式__、 __布尔表达式__、___日期表达式__、___对象表达式_。Visual Basic根据表达式的__运算符_来确定表达式的类型。 8.表达式93 \ 7 Mod 2 ^ 2 的值是______1_____。 9.已知a=3,b=4,c=5,表达式a>b and Not c>a Or c>b And ca And Not b

VB程序设计课堂笔记

VB程序设计 课堂笔记 班级: 2012石油工程(本科) 姓名:曹钊

第1章Visual basic概述 1. 新建一个工程,默认1个窗体; 2. VB界面包括哪几个部分? 标题栏、菜单栏、工具栏、以及工具箱、属性窗口、工程管理窗口、窗口设计器、立即窗口、窗体布局窗口等; 3. 保存工程时窗体的后缀名是.frm ,工程的后缀名是 .vbp ; 4. 结构化程序设计包括顺序、选择、循环三种结构; 5. VB 6.0版本包括学习版、专业版、企业版三种版本; 6. VB的特点可视化的设计平台、面向对象的设计方法、事件驱动的编程机制、结构化的设计语言、充分利用 Windows资源、开发的数据库功能与网络支持的; 7. Visual basic6.0集成开发环境由标准Windows环境的标题栏、菜单栏、工具栏、以及工具箱、属性窗口、工程 管理窗口、窗口设计器、立即窗口、窗体布局窗口等开发工具组成; 第2章可视化编程的概念与步骤 1. 对象的特征称之为属性;对于对象而言,事件就是发生在该对象上的事情;方法就是控制对象的动作或功能; 2. 对象、事件和方法三者之间的关系如何请举例说明。 对于对象而言,事件(Event)就是发生在该对象上的事情。比如一个吹大的气球,用针扎它一下,该对象就会进行放气动作,“针扎”就是一个事件。比如别人用手打你,这就是一个事件你有:眼睛,鼻子,手,这就是属性,别人用手打你,你会感觉到疼,并且发出疼痛的声音,你发出的声音是你的方法,别人用手打你是我的一种方法。 3. 常见事件有 Click(单击)、 DblClick(双击)、 MouseDown(按下)、 MouseUp(抬起)、 MouseMove(移动)等; 4. 在设计界面双击对象进入代码窗口; 5. 转换优先启动窗体的方法是工程→工程属性→更改启动对象,即可以人为设计,工程上有多个窗体时,如 无特别要求,系统默认启动对象为From1 ; 6. 文本框和标签的区别是文本框是可输入和输出的,更改的是Text属性,而标签只能输出不能输入,更改的 是Caption属性; 7. Val的意思是将文字转换成数值; 8. Visible属性:可见性,表示:对象名. Visible = true 9. Enabled属性:使、能 10.Timer定时器,Interval,属性:时间间隔,单位毫秒,即1秒=1000毫秒 例题. (1)设计从左向右的循环标签; (2) 设计从右向左的循环标签解:(1) Private Sub Timer1_Timer() 解:(2) Private Sub Timer1_Timer() If Label1.Left > Form1.Width Then If Label1.Left < 0 Then Label1.Left =0 Label1.Left = Form1.Width Else Else Label1.Left = Label1.Left + 50 Label1.Left = Label1.Left - 50 End If End If End Sub End Sub

VB界面设计心得

任何一个应用程序,都需要通过各种命令来达成某项功能,而这些命令,大多数是通过程序的菜单来实现的,如我们常常用到的记事本的菜单 图一 VB 提供了一个菜单编辑器,专门用来制作各式各样的菜单,它在标准工具栏中的图标如图二:

图二 双击该图标,弹出如图三的窗口,通过这个窗口,我们就可以制作菜单了。

图三 当然,程序光是有菜单还不行,它只是为用户提供了便捷的操作接口,程序功能的最终实行,还必须通过给这些菜单输入复杂的程序才能得以实现。 下面,我们以 Windows 自带的笔记本为例,介绍如何用 VB 制作菜单。 一、菜单制作: 1、双击如图二的菜单编辑器图标,然后弹出如图三的编辑窗口。 2、标题:显示在菜单中的文本,这里,我们输入“文件(&amF)”字样。 (&amF) 是什么东西?这是为了方便用户使用键盘操作菜单,当程序运行时,(&am) 字样不会出现,而是在字母 F 下加上一条横线,这表示,只要用户在按住 Alt 键的同时再按下 F 键,就相当于用鼠标点击“文件”这个菜单命令了。也就是说,文件菜单的快捷键是 Alt F 。 关键字:表单填充器桥接模式外观模式适配器模式观察者模式 VB教程第四章第一节——菜单界面设计。 名称:本菜单在程序中的名称,主要用作程序调用,因此记得用英文名,另外,名字最好一目了然,这里,我们将“文件”菜单命名为 MenuFile 。 “文件”菜单制作完毕,如图四:

图四 3、点击菜单编辑器上的“下一个”按钮,制作下一个菜单,这时,我们看到,编辑区域自动提到了下一行,如图五:

图五 点击向右按钮,本行前面出现了四个小点,表示本菜单降了一级,是二级菜单(依此类推,如果要制作三级菜单,只需要再点一下向右按钮进行降级就行了)。然后用第二步的方法,制作“新建”(MenuNew)、“打开”(MenuOpen)、“保存”(MenuSave)、“另存为”(MenuSaveOther)菜单,结果如图六:

相关主题
相关文档
最新文档