编辑:说三道四文库 发布时间:2018-04-23 06:28
HTML文档下载
WORD文档下载
PDF文档下载
一般情况下任务栏上显示的窗体的标题,但是没有标题如何也能让他显示呢?
比如我的标题原先是“目录”,现在取消了标题如何在任务栏里能看到“目录”两个字呢
Option Explicit
Dim temp As String
Private Sub Command1_Click()
Me.WindowState = vbMinimized
End Sub
Private Sub Form_Load()
Me.Caption = ""
temp = Me.Caption
End Sub
Private Sub Form_Resize()
If Me.WindowState = vbMinimized Then
temp = Me.Caption
Me.Caption = "最小化" '"目录"
'Me.Caption = App.Title
Else
Me.Caption = temp
End If
End Sub
用“ ”
ok
to playyuer:
老大,你只是用了个小技巧,但是我要的效果是窗口正常显示时任务栏和windows的工具条上依然显示窗口标题文字而vb的窗口上不显示标题
用API函数CREATERECTRGN 和
SETWINDOWRGN
WINAMP就是这样做的