方法和代码如下：
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回答。
Me.Left = 0 '设置窗口在最左边
Me.Top = 0 ' 设置窗口在最顶端
Me.Width = Screen.Width '设置窗口宽为屏幕宽
Me.Height = Screen.Height '设置窗口高为屏幕高
就行了.
不同在于右上角的"最大化".
一般用第二个,这个是真正的全屏.
将其设置成2-maximized就行了
VB程序如何实现全屏模式
'先把form 的 BorderStyle 设置为 0 ，由于为只读，程序无法修改，在运行之前你先设置一下。Private Sub Command1_Click()'Unload Me '直接退出 Me.WindowState = vbNormal '恢复正常 End Sub Private Sub Form_Load()Me.WindowState = vbMaximized '启动时最大化 End Sub ...
vb6.0中怎样让窗体全屏显示?
5、用快捷键F5运行窗体，则窗体全屏显示。
VB中让窗体全屏显示的代码是什么啊
1.打开Microsoft Visual Studio 2008\/2010或者Visual basic应用软件；2.新建一个windows窗体应用程序；3.选中窗体，在右下角窗体属性中找到windowstate和formborderstyle两项。分别将其属性更改为Maximized和None（windowstate：Maximized\/formborderstyle：None）；4.按F5运行看看是不是已经全屏运行了。
vb如何用代码实现全屏与非全屏的转换
Command1.Caption = "全屏"Form1.WindowState = 0 End If End Sub 然后在窗体的resize事件中，把flash的高和宽都改一下 如果flash控件的名称为fla 那么在resize中加入如下代码 with fla .left=0 .top=0 .height=me.height .width=me.width end with 这样就可以实现在窗口最大化的时候，flash也...
vb6.0中怎样让窗体全屏显示?
1、首先在开发工具中打开VBA编辑器。2、在单元格区域当中输入一些内容作为例子。3、在VBA编辑器中插入模块。4、在模块当中输入如下代码，然后运行Private Sub UserForm_Initialize() Me.Height=Application.Height '窗体高度等于Excel程序的高度 Me.Width=Application.Width '窗体宽度等于Excel程序的宽度End...
怎么设置让编的VB程序(exe)一打开就是全屏?
设置窗体的BorderStyle属性为0 WindowState为2 这样一打开就是全屏了
vb程序如何全屏运行??
给你个建议,你可以做到当你的程序运行的时候,将桌面分辨先记录下,然后改成800x600,这样你的程序就可以全屏运行了,当你的程序被最小化或退出的时候,再把分辨率改回原来的就可以了!修改分辨率的VB代码,网上到处都有,如果其它问题,欢迎给我发消息!
在VB中怎么样才有使我的主界面满屏显示
VB全屏代码 将Form的BorderStyle属性设为 0 - None,并：Private Sub Form_Load()Me.WindowState = vbMaximized End Sub
使用vb做一个全屏的窗口
目前的几个其它回答都不行的，那是自欺欺人的办法，跟网游的全屏模式完全不一样。而且任务栏无法隐藏，下面的办法可以隐藏任务栏，改变屏幕分辨率并且复原。我用VB写游戏的时候用到的。把下面这一段放在新建模块里面，有4个参数需要看看，在最后面 Public lngwidth As Long '屏幕横向宽度 Public lng...
怎么用VB实现播放器的全屏的代码
None,并：Private Sub Form_Load()Me.WindowState = vbMaximized End Sub 要 实现全屏与非全屏间的自由转换，建议:使用两个(成对)的Form，其代码一样!一个全屏(BorderStyle为0),另一个非全屏(BorderStyle非0)。全屏 时Show全屏Form,Hide非全屏Form。非全屏时Show非全屏Form,Hide全屏Form。
