把Form的bordstyle属性设置为0
在Form_Load里写的程序是:
Private Sub Form_Load()
Me.BackColor = 0
Me.WindowState = 2
End Sub
这样运行时就是全屏了
我又写了还原的程序
Private Sub Form_DblClick()
Web.Caption = Cap
Web.BorderStyle = 2
Web.WindowState = 0
End Sub
但是程序运行是还原成一般大小了,但是没有了标题栏了,这是怎么回事
在Form_Load里写的程序是:
Private Sub Form_Load()
Me.BackColor = 0
Me.WindowState = 2
End Sub
这样运行时就是全屏了
我又写了还原的程序
Private Sub Form_DblClick()
Web.Caption = Cap
Web.BorderStyle = 2
Web.WindowState = 0
End Sub
但是程序运行是还原成一般大小了,但是没有了标题栏了,这是怎么回事
试试: web.caption="cap"
但是我又写了个程序:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If Shift = 2 Then
Print KeyCode
If KeyCode = 83 Then
Me.BackColor = 0
Me.WindowState = 2
Me.BorderStyle = 0
WebB.Top = Web.Height / 2 - WebB.Height / 2
WebB.Left = Web.Width / 2 - WebB.Width / 2
End If
End If
End Sub
作用是按ctrl+S又变成全屏,但是上面的标题栏又去不掉,这有怎么解决啊
回复人: Leftie(左手,为人民币服务) ( ) 信誉:105
前后顺序没有关系的,另外还原时还应将controlbox设置为True
me.controlbox=false
me.caption=""
能不能说清楚一点,我有点糊涂了
到底是全屏的时候设置controlbox为false还是一般大小的时候
帮我把代码补全行不行,谢谢啊
最近我表哥接了一个多媒体项目,我帮他写一个外部接口
其实我一点vb基础都没有,现学现用,见笑了
Me.BackColor = 0
Me.WindowState = 2
End Sub
这样运行时就是全屏了
我又写了还原的程序
Private Sub Form_DblClick()
'me.Caption = Cap '屏蔽
me.BorderStyle = 2
me.WindowState = 0
End Sub
不能在運行時設置controlbox屬性If KeyCode = 83 Then
Me.BackColor = 0
Me.Caption=""
Me.BorderStyle = 0
Me.WindowState = 2
WebB.Top = Web.Height / 2 - WebB.Height / 2
WebB.Left = Web.Width / 2 - WebB.Width / 2
End If