1.在VB中如何实现全屏
2.vb如何用代码实现全屏与非全屏的全屏转换
3.怎么用VB实现播放器的全屏的代码

在VB中如何实现全屏

       ç”¨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 , , , 0, DDSDM_DEFAULT

       \'设定x 万色的显示模式

       SPR4Y回答。

vb如何用代码实现全屏与非全屏的转换

       Private Sub Command1_Click()

       If Command1.Caption = "全屏" Then

       Form1.WindowState = 2

       Command1.Caption = "非全屏"

       Else

       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也全屏了。全屏html源码获取

怎么用VB实现播放器的源码windows源码下载全屏的代码

       VB全屏代码

       将Form的BorderStyle属性设为 0 - None,并：

        Private Sub Form_Load()

        Me.WindowState = vbMaximized

        End Sub

        要 实现全屏与非全屏间的自由转换，建议:

        使用两个(成对)的全屏python源码网站Form，其代码一样!一个全屏(BorderStyle为0),源码js 源码分析另一个非全屏(BorderStyle非0)。全屏 时Show全屏Form,全屏Hide非全屏Form。非全屏时Show非全屏Form,源码Hide全屏Form。