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和数据等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)