十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
Me.WindowState = FormWindowState.Maximized 显示最大化
荔湾网站建设公司成都创新互联公司,荔湾网站设计制作,有大型网站制作公司丰富经验。已为荔湾数千家提供企业网站建设服务。企业网站搭建\成都外贸网站建设要多少钱,请找那个售后服务好的荔湾做网站的公司定做!
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None 无边框
就可以实现全屏了
Me.Height = My.Computer.Screen.Bounds.Height
Me.Width = My.Computer.Screen.Bounds.Width
这是设置窗体的长宽和屏幕的分辨率一样大小,相当于全屏。
如果Me.WindowState=FormWindowState.Maximized的话,只是单纯的将窗体最大化,但恢复窗口大小后窗体的大小实际上还和原来一样大。
1、首先在开发工具中打开VBA编辑器。
2、在单元格区域当中输入一些内容作为例子。
3、在VBA编辑器中插入模块。
4、在模块当中输入如下代码,然后运行Private Sub UserForm_Initialize() Me.Height=Application.Height '窗体高度等于Excel程序的高度 Me.Width=Application.Width '窗体宽度等于Excel程序的宽度End Sub。
5、用快捷键F5运行窗体,则窗体全屏显示。
'先把form 的 BorderStyle 设置为 0 ,由于为只读,程序无法修改,在运行之前你先设置一下。
Private Sub Command1_Click()
'Unload Me '直接退出
Me.WindowState = vbNormal '恢复正常
End Sub
Private Sub Form_Load()
Me.WindowState = vbMaximized '启动时最大化
End Sub
有些朋友在编写vb程序时,会遇到程序全屏运行问题,我这个办法只要进行几步简单的设置,即可实现vb程序全屏运行。
1.打开Microsoft Visual Studio 2008/2010或者Visual basic应用软件;
2.新建一个windows窗体应用程序;
3.选中窗体,在右下角窗体属性中找到windowstate和formborderstyle两项。分别将其属性更改为Maximized和None(windowstate:Maximized/formborderstyle:None);
4.按F5运行看看是不是已经全屏运行了。
一、 全屏幕图形界面设计
图形界面是现代软件中人机交互的主要手段。为了追求界面的统一和美观,在软件开放过程中,图形界面大多采用全屏幕构图方式。这是通过将窗体的边框设置为无边框(BorderStyle=None),将窗体显示模式设置为极大化(WindowState=Maximized)来实现的。
当一个窗体界面的设计中要容纳多张图片和多个控制时,将出现窗体显示速度明显变慢的现象,严重影响了程序运行的流畅性。为了解决这一问题,在开放过程中,采用了一种将【界面设计窗体】与【功能实现窗体】分开处理的方法。在【界面设计窗体】中,首先按功能的需要和界面设计的创意,将所需的大量图片和控制在屏幕上安排好,选择美观的字体、颜色、线型,对屏幕界面进行设计、修饰加工;然后在其全屏幕运行的状态下,利用剪贴技术,将这一设计完成的图形界面全屏幕复制到剪贴板上;
接着将这一屏幕映象作为一张图片粘贴在【功能实现窗体】的背景上。这样,从外观上看,两个窗体的形状完全相同,而在屏幕的显示速度上,后者明显加快。这时,【功能实现窗体】中的控件已变成一个象征性的图标,对它的操作,可在控制图标的对应位置上设置一个Image 类型的图象框,通过对图象框的操作,来代替原先对控制对象的操作。
采用这种方法,使窗体界面设计的灵活性大大增加,可以任意发挥,而不用担心控件、图片太多,影响窗体的显示速度。但采用这种方法,将不可避免地增加应用程序本身所占的存储容量,这是以容量换取速度必须付出的代价。
二、 动态功能提示信息的实现
在现代软件设计中,多数功能图标、按钮都在界面上直接确定其对应的名称,同时也提供了动态提示的功能,即当鼠标移至某一控件时,或使鼠标的形状用一具有象征意义的图标代替,或自动出现一条文字提示,下面介绍一下如何实现这种先进的提示模式。
动态改变鼠标的图形形状,是通过控件的MousePointer属性设置为13(自定义),然后在MouseIeon属性中选取一ICO图标文件来完成的;动态文字提示功能是利用控件的MouseMove事件来实现的:将功能提示处理程序设计在对应的MouseMove事件过程中,当鼠标移动到该控件范围区域时,即可触发程序执行,完成动态功能提示;为了防止处理程序反复触发,必须设置一控制开关,使处理程序只在鼠标第一次触发该控件区域时被执行;取消功能提示的处理程序设计在窗体的MouseMove事件中,
说明程序如下:
Dim FirstTouch As Boolean '防止反复触发处理程序的控制变量
Private Sub ControlObject- MouseMove ()
If FirstTouch Then
FirstTouch =False '显示功能提示字符
End Sub
Private Sub Form- MouseMove ()
FirstTouch =True '取消功能提示字符
End Sub