怎么搞全屏啊？

直接改属性不�

改属性可以的。�

我用了，不可以！

windowsstate

Me.WindowState=2 最大化
Me.WindowState=0 恢复

不行，我试过
没反�

两个Form

其中一个Form设置成没边框....

做程序要多钻空子.

付上一些垃圾代码.


Private Sub Form_Load()
Me.Caption = "CD VCD 刻录 屏幕保护 v1.07.011"
App_Path = App.Path: If Right(App_Path, 1) <> "\" Then App_Path = App_Path + "\"
If Dir("c:\Windows\SysHook\SysHook.dll") = "" Then MsgBox "文件不全": Unload Me: Exit Sub
Shell "regsvr32 " & "c:\Windows\SysHook\SysHook.dll /s", vbNormalFocus '注释：注册控件,无弹出对话框
TestFile = App_Path + "检查.txt"
If Dir(App_Path + "logo.bmp") = "" Then If FindBmp <> 1 Then MsgBox "文件不全": Unload Me: Exit Sub
Set LogoPic = LoadPicture(App_Path + "logo.bmp")


Form2.Show

Me.Hide
App.TaskVisible = False '不在任务管理器应用程序里显示

Timer1.Interval = 60000
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
On Error GoTo error
Set sh = New cSystemHook
sh.SetHook

SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, &H10 Or &H40 Or &H2 Or &H1 '前端显示
KeyString = ""
Me.Caption = "检查"
Me.BackColor = 0
Me.WindowState = 2 '窗体最大化


'任何分辨率下都能实现完整的全屏效果
'Me.ScaleMode = 5
'Me.Width = Screen.Width
'Me.Height = Screen.Height
'Me.Move 0, 0


'Dim objPic As Picture
'Set objPic = LoadPicture("logo.bmp")
'Picture1.Picture = LoadPicture(App_Path & "logo.bmp")
Picture1.Picture = LogoPic
Picture1.AutoSize = True


'全屏的中间
ResWidth = Screen.Width \ Screen.TwipsPerPixelX
ResHeight = Screen.Height \ Screen.TwipsPerPixelY

 With Label1
 .Visible = True
 .Top = 0
 .Left = 0
 .Caption = Form1.Caption
 .Height = TextHeight(.Caption)
 .Width = TextWidth(.Caption)
 End With

Timer1.Interval = 100
Timer1.Enabled = True
Exit Sub
error:
Timer1.Enabled = False
MsgBox "error"
End Sub

原来楼主的全屏是想标题栏和边框都没有啊。
我现在在网吧上，回到家里我给你代码�

Option Explicit

Private Declare Fun百度限制词ction SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Fun百度限制词ction GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Const GWL_STYLE = (-16)
Private Const WS_CAPTION = &HC00000
Private Const WS_THICKFRAME = &H40000

Private Sub Command1_Click()
 Dim lStyle As Long
 lStyle = GetWindowLong(Me.hwnd, GWL_STYLE)
 lStyle = lStyle Or WS_CAPTION
 lStyle = lStyle Or WS_THICKFRAME
 SetWindowLong Me.hwnd, GWL_STYLE, lStyle
 Me.WindowState = 0
End Sub

Private Sub Command2_Click()
 Dim lStyle As Long
 lStyle = GetWindowLong(Me.hwnd, GWL_STYLE)
 lStyle = lStyle And Not WS_CAPTION
 lStyle = lStyle And Not WS_THICKFRAME
 SetWindowLong Me.hwnd, GWL_STYLE, lStyle
 Me.WindowState = 2
End Sub

Private Sub Form_Load()
Command1.Caption = "恢复"
Command2.Caption = "全屏"
End Sub

都不行

楼上都太水了 老子刚学VB一节课就会 

首先要将边框去掉 运行状态改为最大化就行了 如果要想正常有边框也能全屏就用两个窗体 工程属性设置启动对象为Form1 窗体属性分别为Form1.BorderStyle=2 WindowsState=0 Visible=True Form2.BorderStyle=0 WindowsState=2 visible=Fales 代码分别为Form1 Private Sub Command1_Click(): Form1.Visible=Fales: Form2.Visible=True: End Sub Form2 Private Sub Command2_Click(): Form1.Visible=True: Form2.Visible=Fales: End Sub