ThaiPBL.com

PowerBuilder Library Thailand

อีเมล พิมพ์ PDF

วิธีที่จะให้แสดงค่าของ แท่งกราฟแต่ละแท่ง

เรามีวิธีที่จะให้แสดงค่าของ แท่งกราฟแต่ละแท่ง เมื่อทำการเลื่อนเมาส์ ไปบนแท่งกราฟนั้น ให้ทำการวางสคริปต์ด้านล่างใว้ที่ mousemove event

int SeriesNum, DataNum
grObjectType ObjectType
string Data, GraphName
GraphName = "gr_1"

ObjectType = this.ObjectAtPointer (GraphName, SeriesNum, DataNum)
Data = string(this.GetData (GraphName, SeriesNum, DataNum))
SeriesName = this.SeriesName (GraphName, seriesnum)
CategoryName = this.Categoryname('gr_1',datanum)   

if objecttype = typedata! then
    st_data.text = data +' : '+categoryname
    st_data.x = parent.pointerx() + 50
    st_data.y = parent.pointery() + 50
    st_data.visible = true
    IF Message.WordParm = 1 THEN
       This.Drag(Begin!)   
    end if
else
    st_data.visible = false
end if



บทความนี้มาจาก www.soopawat.com