重慶分公司,新征程啟航
為企業提供網站建設、域名注冊、服務器等服務
為企業提供網站建設、域名注冊、服務器等服務
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