VB程序设计基础:窗体属性 视窗操作系统

程序设计是指为计算机编制一些软件和程序。学习的目的是理解计算机的工作方式和运行的方式。

VB是运行在Windows视窗操作系统上,设计程序的思想在于在窗口中放置对象和针对对象设计代码。

(一)启动VB:单击“开始”-“程序”-“Microsoft Visual Basic 6.0 中文版”选择“标准EXE”,单击“打开”进入窗口。

(二)VB窗口

1、标题栏:在最上面蓝色标题是“工程1-。..”,是我们当前正在设计的程序,被称作“工程1”。

2、菜单栏:菜单栏在第二行,包含一组菜单,菜单中有各种命令,我们应该理解操作计算机就是向计算机提供一系列的指令。

(1)“文件”菜单,要求记住“保存”命令,VB要保存两次,注意保存文件到自己的文件夹中。(本书中双引号当中均是指操作命令)

(2)“视图”菜单,显示各个窗口,如果一个窗口找不着了,就到这个菜单中找出来。

(3)“运行”菜单,第一个“启动”命令要记住,可以运行我们的程序。

3、工具栏:第三行是工具栏,工具栏是一些最常用的命令,而且是用图标表示的,因而便于形象记忆和操作,要求记住“启动”按钮。(在视窗操作系统中,我们不仅要会认识文字说明,还要特别留意图标含义。)

4、工作区:工作区占据窗口的绝大部分,从左向右包括工具箱、窗体、和属性窗口。

(1) 工具箱:在工作区的左侧,包含许多编程用到的基本对象,被称作“控件”。

(2) 窗体:中间的灰色的窗口,LC40DT68C是我们设计的程序的基本框架,所有的对象都放在这个窗口当中。

(3)小窗口:在右侧有三个纵向排列的窗口。

 

①最上面是工程窗口,上边有三个按钮,中间的按钮是显示对象窗口;

②下面是属性窗口,属性是一个对象的名称、大小、颜色等等;

③最下面是布局窗口,里面显示程序运行时的位置,LC40GS60DC拖动里面的小框可以改变程序的显示位置。

4、下面修改窗体的属性,在右侧的属性窗口中找到Caption项,在它右边的格子里点一下鼠标左键,然后输入“窗体”两个字,观察一下工作区中的窗体的标题是否已经改变,Caption是设置一个应用程序的窗口标题,再在属性窗口中找到BackColor项,单击右边格子里的黑色三角按钮上点击一下鼠标左键,在弹出的面板上边的一行文字中选择“调色板”标签,选中浅紫色,观察一下工作区中间的窗体的变化。单击工具栏上的启动按钮,运行一下我们的程序,看一下这个窗口,还不错吧?

单击“关闭”按钮(或者Alt+F4),回到窗体中,LC40GS82DC在属性窗口中找到Icon项,在右边的格子里点一下鼠标左键再点一下三个小点,在弹出的“加载图标”对话框中,点击“向上”按钮退一步,再选择打开Common,再选择打开Graphics,再选择打开Icon,再打开Misc,在里面找一个图标,单击打开,再看一下工作区中的窗体的标题栏左侧是否有一个图标。单击“启动”按钮,运行一下程序,然后最小化,看一下任务栏上的图标找到我们的程序,单击一下图标恢复窗口。

关闭程序回到属性窗口,找到Picture属性,在右边的格子里单击一下鼠标左键,打开“加载图片”对话框,找一幅较大的背景图片打开,观察一下工作区窗体的变化。单击“启动”LC40TS86N按钮运行一下程序,很漂亮的一个窗口是吧?

关闭程序,同样再修改Font属性和ForeColor属性,属性都是按照字母排序的,在最后的WindowState属性中选择2-Maxing最大化,运行一下程序看一下效果。

如何保存自己的程序呢?方法是在“文件”菜单中选择“保存工程”或者点击工具栏上的磁盘按钮,保存文件到自己的文件夹(如果没有就新建一个)以“MyForm”为文件名(如果能用中文就输入汉字“窗体”)。LC42DS60C保存两次,一次是窗体,另一次是工程。

保存好的程序要编译成可以在Windows下运行的可执行程序,方法是选择“文件”菜单中的“生成工程1.exe”命令,以“窗体”为文件名保存文件到自己的文件夹,这个程序关闭VB后也可以运行,退出VB,打开自己的文件夹,找到程序,运行一下看看。

本节主要讲述了VB的基本窗口和窗体属性,以后会经常用到。

内有设计窗体的图片,和运行效果图 该窗体由全图片构造,包括,标题栏,最大化、最小化、关闭按钮,一下为部分代码, Private Sub Form_load() Dim retValue As Long Image5.Picture = LoadPicture("D:\vb测试\vb实例\窗体设计2\8.jpg") Image6.Picture = LoadPicture("D:\vb测试\vb实例\窗体设计2\8.jpg") Image7.Picture = LoadPicture("D:\vb测试\vb实例\窗体设计2\8.jpg") Image8.Picture = LoadPicture("D:\vb测试\vb实例\窗体设计2\8.jpg") Form1.Top = 0 '设置窗体上边界位置 Form1.Left = Screen.Width - Form1.Width retValue = SetWindowPos(Me.hwnd, HWND_TOPMOST, Me.CurrentX, Me.CurrentY, 300, 300, SWP_SHOWWINDOW) End Sub Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) ReleaseCapture SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0& End Sub Private Sub Image2_Click() Form1.WindowState = 1 End Sub Private Sub Image4_Click() End End Sub Private Sub Image5_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) Image5.Picture = LoadPicture("D:\vb测试\vb实例\窗体设计2\9.jpg") End Sub Private Sub Image5_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) Image5.Picture = LoadPicture("D:\vb测试\vb实例\窗体设计2\8.jpg") End Sub Private Sub Image6_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) Image6.Picture = LoadPicture("D:\vb测试\vb实例\窗体设计2\9.jpg") End Sub Private Sub Image6_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) Image6.Picture = LoadPicture("D:\vb测试\vb实例\窗体设计2\8.jpg") End Sub
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值