| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2837 人关注过本帖
标题:请教各位高手:vb6的控件的问题。谢谢。
只看楼主 加入收藏
HVB6
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:15
帖 子:331
专家分:561
注 册:2013-10-30
结帖率:98.41%
收藏
已结贴  问题点数:20 回复次数:10 
请教各位高手:vb6的控件的问题。谢谢。
在用一些软件时,象标签或文本框,此控件的底色是灰色的,当鼠标的右键单击它时,会显示一列数据。
请教各位高手:vb6好像无此控件是吗?

[此贴子已经被作者于2016-3-29 22:14编辑过]

搜索更多相关主题的帖子: 文本框 标签 软件 
2016-03-29 21:36
xiangyue0510
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:86
帖 子:938
专家分:5244
注 册:2015-8-10
收藏
得分:10 
鼠标的右键单击它时,会显示一列数据

不明白你需要的是什么效果,如果只是提示的话,可以使用tooltipText属性。
如果一定要右键显示话,可以在控件的mouseup中添加代码。
首先是判断是否右键
然后显示一个悬浮的Label,位置就在你鼠标位置,
几秒钟之后隐藏lable
2016-03-30 11:21
HVB6
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:15
帖 子:331
专家分:561
注 册:2013-10-30
收藏
得分:0 
回复 2楼 xiangyue0510
谢谢您的回复。请您做个Label1的例子如何?
2016-03-30 12:22
xiangyue0510
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:86
帖 子:938
专家分:5244
注 册:2015-8-10
收藏
得分:0 
窗体上放两个控件label1,LabelToolTipText
label1:设置好控件的caption,ToolTipText
LabelToolTipText: 背景色改一下(这样有差异), 不可见
右键按下,显示提示内容,右键放开,提示内容消失

程序代码:
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
Private Type POINTAPI
        X As Long
        Y As Long
End Type
Dim p As POINTAPI
Dim ss As Double

Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = 2 Then
    LabelToolTipText.Visible = True
    GetCursorPos p
    LabelToolTipText.Left = p.X + Label1.Left
    LabelToolTipText.Top = p.Y + Label1.Top
    LabelToolTipText.Caption = Label1.ToolTipText  '或者写其他的内容
 End If

End Sub

Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

 If Button = 2 Then
    LabelToolTipText.Visible = False

 End If
End Sub
2016-03-30 13:59
HVB6
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:15
帖 子:331
专家分:561
注 册:2013-10-30
收藏
得分:0 
回复 4楼 xiangyue0510
ToolTipText控件没有看见过,请告知其如何使用到窗体上,我的书也没有此控件。谢谢。

[此贴子已经被作者于2016-3-30 16:47编辑过]

2016-03-30 16:45
xiangyue0510
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:86
帖 子:938
专家分:5244
注 册:2015-8-10
收藏
得分:0 
LabelToolTipText就是label,取得名字而已。
ToolTipText是控件的属性
2016-03-30 17:11
HVB6
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:15
帖 子:331
专家分:561
注 册:2013-10-30
收藏
得分:0 
回复 6楼 xiangyue0510
不会。请修改附件。谢谢。
控件问题.zip (5.59 KB)
2016-03-30 19:07
hjxlj
Rank: 10Rank: 10Rank: 10
来 自:江西
等 级:贵宾
威 望:14
帖 子:292
专家分:1519
注 册:2013-6-25
收藏
得分:10 
楼主是想让控件显示快捷菜单吧,是吗?

本人QQ:775420425
2016-03-30 19:19
HVB6
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:15
帖 子:331
专家分:561
注 册:2013-10-30
收藏
得分:0 
回复 8楼 hjxlj
什么数据均可,但必须是鼠标的右键单击它时,再显示赋予其的所有的数据。谢谢。
2016-03-30 19:26
xiangyue0510
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:86
帖 子:938
专家分:5244
注 册:2015-8-10
收藏
得分:0 
回复 7楼 HVB6
你的窗体里面LabelToolTipText改成label2就可以了,label2的visible设置为false,背景色也改一下(这样效果更好一点)
2016-03-31 08:41
快速回复:请教各位高手:vb6的控件的问题。谢谢。
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.058254 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved