说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

没有caption的窗体如何在任务栏上显示程序名字

编辑:说三道四文库 发布时间:2018-06-22 03:44
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就是这样做的
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘