VB tabstrip控件 关闭选项卡的问题(高分求解!)

最近在搞一个多标签浏览器的开发,用的是visualbasic。目前多选项卡动态生成的问题已经搞定,但不知道怎么动态关闭选项卡~我想双击选项卡关闭,最好在选项卡上有叉叉按钮... 最近在搞一个多标签浏览器的开发,用的是visualbasic。目前多选项卡动态生成的问题已经搞定,但不知道怎么动态关闭选项卡~我想双击选项卡关闭,最好在选项卡上有叉叉按钮关闭。
但是tabstrip没有双击事件,也不能画叉叉~,怎么办啊?
求牛人给出解答!!谢谢
展开
 我来答
willy123698741
2011-01-09 · TA获得超过259个赞
知道小有建树答主
回答量:206
采纳率:0%
帮助的人:214万
展开全部
我只会做双击关闭的
先在最上面写声明:
Private Declare Function GetTickCount Lib "kernel32" () As Long
Dim OldClickTime As Long

再在最下面建一个函数:
Function GetSelect(oTab As TabStrip) As Long
Dim a, b As Long
For Each a In oTab.Tabs
b = b + 1
If a.Selected Then
GetSelect = b
Exit Function
End If
Next
End Function

最后在TabStrip的Click事件里写:
If OldClickTime = 0 Then
OldClickTime = GetTickCount
Exit Sub
End If
If GetTickCount - OldClickTime < 300 Then
'上面的300是双击最大间隔
'数字越小,要求双击的速度越快;数字越大,双击很慢也会关闭
'经试验,300(毫秒)比较合适
TabStrip1.Tabs.Remove GetSelect(TabStrip1)
‘上一句的两个TabStrip1表示你的TabStrip
'请把它换成你要操作的TabStrip控件名
OldClickTime = 0
Exit Sub
Else
OldClickTime = GetTickCount
End If

PS:要叉叉按钮的话,需要自己画上去,要子类化窗口,监视WM_MOUSEUP事件,再判断是否在叉叉的范围里,是则关闭制定选项卡。这种方法相当麻烦,一不小心还会连VB IDE一起崩溃。
金山毒霸
2024-10-31 广告
大部分系统错误,是因为某些DLL文件丢失造成的,比如未安装DirectX9或DirectX 9.0组件已损坏、缺少Visual C ++库、未安装.net库。解决方法如下:一、 手动解决方法1、先确定电脑操作系统是多少位的,现在的电脑一般都... 点击进入详情页
本回答由金山毒霸提供
帐号已注销
2011-01-09
知道答主
回答量:36
采纳率:0%
帮助的人:17.8万
展开全部
98
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 1条折叠回答
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式