excel时间轴模板下载:在VB中如何实现全屏

来源:百度文库 编辑:中科新闻网 时间:2024/04/27 21:57:30
从一些教程上见过,但讲得不明不白的,又不知道那两个API函数是什么意思,请讲祥细些,谁教我懂了追加50分!
如何把任务栏也屏蔽了呀
这才是问题的关键
谢各位的关注了

上面两种都可以是,
不同在于右上角的"最大化".
一般用第二个,这个是真正的全屏.

在Form_load 里面写
Me.Left = 0 '设置窗口在最左边
Me.Top = 0 ' 设置窗口在最顶端
Me.Width = Screen.Width '设置窗口宽为屏幕宽
Me.Height = Screen.Height '设置窗口高为屏幕高
就行了.

用DIRECTX来写

方法和代码如下:
SPR4Y回答:
\'在“工程(Project)”里点选“设定引用项目”,来引用DirectX物件。
\'接著将“DirectX 7 for Visual Basic Type Library”的那一行打勾,就可以开始使用DirectX了。
\'在通用部分定义如下:

\'Dim objDX As New DirectX7
\'Dim objDD As DirectDraw7
\'Dim objDDPrimSurf As DirectDrawSurface7
\'Dim objDDBackSurf As DirectDrawSurface7
\'Dim objDDOffSurf As DirectDrawSurface7
\'Dim ddsd1 As DDSURFACEDESC2
\'Dim ddsd2 As DDSURFACEDESC2
\'Dim r1 As RECT

在FORM—LOAD里添加如下代码 SPR4Y回答
\'Set objDD = objDX.DirectDrawCreate(\"\")
\'Call objDD.SetCooperativeLevel(Me.hWnd, DDSCL_FULLSCREEN Or DDSCL_ALLOWMODEX Or DDSCL_EXCLUSIVE)
\'objDD.SetDisplayMode 800, 600, 16, 0, DDSDM_DEFAULT
\'设定800x600 16万色的显示模式

SPR4Y回答。

窗体的属性中有一项windowsState
将其设置成2-maximized就行了