在vb中怎样实现象在窗体的标题栏的最大最小化按钮旁添加一个按钮

nbcc 2000-04-07 02:14:00

同时想知道怎样把任何应用程序的图标拖到窗体上，并在其上显示出来，并得到图标的路径等信息。

...全文

205 1 打赏收藏转发到动态举报

写回复

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

major2 2000-04-07

打赏
举报

回复

我只知道用API函数GetSysMenu，DeleteMenuItem等可以把这些按钮隐藏掉，至于怎么加上一个倒不清楚，不过我想你可以从API函数里去找答案，API就象是万能药，能治百病。我以前想把VB FORM的那个关闭按钮，就是那个讨厌的大叉叉弄掉，在VB里用常规的方法怎么弄也弄不走，最后去查了API函数，立马就解决了。有一本书叫《VB程序员使用API函数》，有电子版的特好，建议你去下载，在小峰电脑书库里有，好象是zjfeng.yeah.net反正不是.net就是.com，前面肯定对的。
还有后面一个问题，我知道有一个工具叫axIcon的，现在的最新版本好象是4.5，建议你用它，有关图标的一切，只要你能想出来的都能搞定，赶快去下载。

VB在窗体标题栏中添加自定义按钮，类似最大化，最小化按钮一样，美化一下，看不出是用户添加的按钮，当然，本例是只是简单的进行了美化。

闪烁的窗体标题栏(vb6.0源代码编写)本程序在最小化状态下实现窗体标题栏的闪烁。就像QQ消息框一样，也可以点击让窗体和标题栏一起闪烁。

闪烁的窗体标题栏(vb6.0代码编写) 本程序在最小化状态下实现窗体标题栏的闪烁。就像QQ消息框一样，也可以点击让窗体和标题栏一起闪烁。 QQ223857666勾月

VB 窗体标题栏闪烁实例，可参照以下代码实现窗体标题栏的闪烁功能：　　声明API函数Flashwindow 　　Private Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, _ 　　 ByVal bInvert As Long) As Long 　　Private Sub Form_Load() 　　 Me.Caption = "闪烁的窗体标题栏!" '设置标题栏文字　　End Sub 　　Private Sub Form_Resize() 　　 If WindowState = 1 Then '窗体最小化时，打开计时器，闪烁窗体　　 Timer1.Enabled = True 　　 Else '否则关闭计时器　　 Timer1.Enabled = False 　　 End If 　　End Sub 　　Private Sub Timer1_Timer() '计时器事件　　 Call FlashWindow(hwnd, 1) '调用API函数　　End Sub

VB制作闪烁的窗体标题栏，这个源码演示了一个使窗体的标题栏闪烁的方法。把窗体最小化后，你会发现任务栏中的条目也在闪烁。通过调用API函数 FlashWindow 实现了窗体标题栏的闪烁，标题栏的闪烁，通常用来引起用户的注意。　　【说明】　　闪烁显示指定窗口。这意味着窗口的标题和说明文字会发生变化，似乎从活动切换到非活动状态、或反向切换。通常对不活动的窗口应用这个函数，引起用户的注意　　【返回值】　　Long，如窗口在调用前处于活动状态，则返回TRUE（非零）　　【备注】　　该函数通常与一个计数器组合使用，生成连续的闪烁效果。在windows 　　nt及windows for workgroup中，bInvert参数会被忽略。但在windows 95中不会忽略　　【参数表】　　hwnd ----------- Long，要闪烁显示的窗口的句柄　　bInvert -------- Long，TRUE（非零）表示切换窗口标题；FALSE返回最初状态

7,762

社区成员

197,608

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章