如何实现绘制点的闪烁效果?

在工业实时绘图中,当某一点出现异常,需要突出标示该点,我想用闪烁的效果,

因为其他的方法,比如颜色变化,粗细变化都不是很明显(因为绘图区大量已经用了这些方法画网格和曲线)

有没有方法能够实现? 实时曲线已经用一个时间控件控制了

一般实现闪烁效果,都是用时间控件,改变颜色实现闪烁的

有没有纯粹绘图方法实现闪烁的效果?

9 个解决方案

#1

既然是闪烁，那么肯定有时间间隔的。

#2

恩,有道理.

那么,是否有其他的方法,可以实现比较明显的突出显示,当然不能用颜色和粗细变化

#3

再用一个时间控件控制又何妨？

#4

因为我画图的速度很快大概在10ms,用时间控件的效果不是很好,在参数传递上有很多要修改的地方,最好有什么画图方法能够画出闪烁的效果的.

#5

循环
do
doevnets
loop

#6

可以采用变通的方法，创建一个光标：

'On form1 place 2 textboxes (with a height for a couple of lines) and 1 picturebox.
'Select a bitmap for the picturebox and set the autosize on true.
Private Declare Function CreateCaret Lib "user32" (ByVal hwnd As Long, ByVal hBitmap As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
Private Declare Function ShowCaret Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetFocus Lib "user32" () As Long
Private Declare Function SetCaretPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Function SetCaretBlinkTime Lib "user32" (ByVal wMSeconds As Long) As Long

Private Sub Text2_GotFocus()
    'retrieve the window which has the focus

End Sub

Private Sub Command1_Click()
    'h& = GetFocus&()
    'Create a new cursor
    Call CreateCaret(Me.hwnd, 0, 5, 5)
    SetCaretPos 30&, 30&
    'Show the new cursor
    SetCaretBlinkTime 100
    x& = ShowCaret&(h&)
End Sub

#7

点击command1就可以在Form1的30，30的位置创建一个闪烁的Caret。

#8

在该点闪烁红色或其它颜色方框之类不行吗

画图的速度和闪烁关系不大吧

#9

如创建一个插入符，会同时清除原先的插入符；效果等同于DestroyCaret函数。

冰儿马甲的方法虽然很有创意，但是对于我不是很适用，因为我必需知道当前插入符的位置
管理起来也挺很麻烦的。

#1