江湖救急江湖救急江湖救急江湖救急江湖救急江湖救急江湖救急江湖救急江湖救急江湖救急~!

mengzishen 2003-12-19 07:52:22
VB中的控件都有{工具提示文本}也就是tooltiptext属性
现在小弟有个事需要做的就是
当我的鼠标在窗体中停顿的时候
就也弹出一个和tooltiptext属性一样的工具提示文本
好象用API做可以
条件:1是窗体上不能有任何的控件

2是弹出的工具提示文本不能占用鼠标的焦点
也就是弹出文本后焦点仍然在窗体上面
小弟先在这谢谢了~!
E-main:mengzi_126.com
...全文
108 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
flc 2003-12-22
  • 打赏
  • 举报
回复
up
jordi2014 2003-12-20
  • 打赏
  • 举报
回复
up
simanh 2003-12-20
  • 打赏
  • 举报
回复
up
海牛 2003-12-20
  • 打赏
  • 举报
回复
自己做呗!!!!
rainstormmaster 2003-12-20
  • 打赏
  • 举报
回复
可以用标签模拟,参考(要变通一下):
http://vbboshi.myrice.com/preblem/21-40/pr31.htm#152

如果一个控件都不用的话,只能用drawtext进行模拟了:
Private Declare Function SetBkColor Lib "gdi32" (ByVal hdc As Long, ByVal crColor As Long) As Long
Private Declare Function SetBkMode Lib "gdi32" (ByVal hdc As Long, ByVal nBkMode As Long) As Long
Private Declare Function DrawText Lib "user32" Alias "DrawTextA" (ByVal hdc As Long, ByVal lpStr As String, ByVal nCount As Long, lpRect As RECT, ByVal wFormat As Long) As Long
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Declare Function SetRect Lib "user32" (lpRect As RECT, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Const DT_CENTER = &H1
Const OPAQUE = 2
Dim w As Long, h As Long
Dim s As String


Private Sub Form_Load()
Me.ScaleMode = 3
s = "this is test"
h = Me.TextHeight(s)
w = Me.TextWidth(s)
Debug.Print w
SetBkMode Me.hdc, OPAQUE
SetBkColor Me.hdc, vbGreen
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Cls
Dim R As RECT
R.Left = X + 10
R.Top = Y
R.Bottom = Y + h
R.Right = X + w + 10
DrawText Me.hdc, s, -1, R, DT_CENTER
End Sub

上面的效果不是很好,你可以自己完善一下

1,485

社区成员

发帖
与我相关
我的任务
社区描述
VB API
社区管理员
  • API
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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