jfreechart根据鼠标位置获得数据

jfreechart根据鼠标位置获得数据,第1张

jfreechart只能产生静态图表鼠标移上去显示的数值,实际上是靠html 的map来实现的,因此那个矩形框是浏览器显示的,与代码无关,所以也改不了的。

至于只显示Y轴的值,请从chart得到plot,然后再从plot得到renderer,再自定义renderer的ToolTipGenerator,从而实现自定义的tooltip

如果想要更动态的图表,可以使用flash图表,如fusioncharts

有个更简单的方法就是VB内置的ScreenActiveControl获取当前激活状态的控件

优先光标所在,其次是前置窗口,然后是鼠标指向的

当然用起来远没有API那么随心所欲,另外API也是有局限的

对于一般的C/C++,NET,VB和Delphi等开发的常规WIN32程序绝大多数是可以的

但是对于使用DirectUI技术的窗口就很难了,QQ2010以上版本就是

我要说的是,你要获取别人程序文本框的内容这种做法不属于开发,而属于逆向工程的一部分

当然真正的逆向是静态或动态的反汇编,跟踪等,要是你获取自己另外的程序的文本框内容

你完全可以使用DDE通信,当然如果你足够牛X,使用Share Memory更强大

添加一个webbrowser,一个textbox并设置允许多行显示,一个panel控件。名称均默认

Public Class Form1

Dim GetObj As Boolean

Dim HtmlObj As HtmlElement

Private Sub Button1_Click(ByVal sender As SystemObject, ByVal e As SystemEventArgs) Handles Button1Click

WebNavigate(InputBox("请输入网址,例如:;, "导航到", ";))

End Sub

Private Sub Panel1_MouseDown(ByVal sender As Object, ByVal e As SystemWindowsFormsMouseEventArgs) Handles Panel1MouseDown

GetObj = True

End Sub

Private Sub Panel1_MouseMove(ByVal sender As Object, ByVal e As SystemWindowsFormsMouseEventArgs) Handles Panel1MouseMove

If GetObj Then

Dim PointFromWeb As Point = WebPointToClient(MousePosition)

Dim tmp As HtmlElement = WebDocumentGetElementFromPoint(PointFromWeb)

If Not tmpEquals(HtmlObj) Then

HtmlObj = tmp

MeText = HtmlObjId & " name: " & HtmlObjName

TextBox1Text = HtmlObjInnerHtml

End If

End If

End Sub

Private Sub Panel1_MouseUp(ByVal sender As Object, ByVal e As SystemWindowsFormsMouseEventArgs) Handles Panel1MouseUp

GetObj = False

End Sub

End Class

用法:

拖拽panel到webbrowser上的控件

以上就是关于jfreechart根据鼠标位置获得数据全部的内容,包括:jfreechart根据鼠标位置获得数据、VB 怎么获得鼠标在其他程序所选中的字符串、如何编程同时获得鼠标设备id和数据等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!

欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/web/9476162.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-04-28
下一篇 2023-04-28

发表评论

登录后才能评论

评论列表(0条)

保存