请教各位高手：vb6的控件的问题。谢谢。 - 编程论坛

#2

xiangyue05102016-03-30 11:21

鼠标的右键单击它时，会显示一列数据

不明白你需要的是什么效果，如果只是提示的话，可以使用tooltipText属性。
如果一定要右键显示话，可以在控件的mouseup中添加代码。
首先是判断是否右键
然后显示一个悬浮的Label，位置就在你鼠标位置，
几秒钟之后隐藏lable

#3

HVB62016-03-30 12:22

回复 2楼 xiangyue0510

谢谢您的回复。请您做个Label1的例子如何？

#4

xiangyue05102016-03-30 13:59

窗体上放两个控件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

#5

HVB62016-03-30 16:45

回复 4楼 xiangyue0510

ToolTipText控件没有看见过，请告知其如何使用到窗体上，我的书也没有此控件。谢谢。

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

#6

xiangyue05102016-03-30 17:11

LabelToolTipText就是label，取得名字而已。
ToolTipText是控件的属性

#7

HVB62016-03-30 19:07

回复 6楼 xiangyue0510

不会。请修改附件。谢谢。

只有本站会员才能查看附件，请登录

#8

hjxlj2016-03-30 19:19

楼主是想让控件显示快捷菜单吧，是吗？

#9

HVB62016-03-30 19:26

回复 8楼 hjxlj

什么数据均可，但必须是鼠标的右键单击它时，再显示赋予其的所有的数据。谢谢。

#10

xiangyue05102016-03-31 08:41

回复 7楼 HVB6

你的窗体里面LabelToolTipText改成label2就可以了，label2的visible设置为false，背景色也改一下（这样效果更好一点）

#11

HVB62016-03-31 10:00

回复 10楼 xiangyue0510

做不了，还是请您把7楼的附件整好。谢谢。