VB实现让鼠标通过的地方出现★

[cuiyanlei2010]

各位大侠，如题，帮帮忙

[threenewbee]

用DrawText() API 配合 MouseMove 事件实现。

[cuiyanlei2010]

[Quote=引用 1 楼 caozhy 的回复:]

用DrawText() API 配合 MouseMove 事件实现。
[/Quote]
给个具体的代码吧

[threenewbee]

http://www.google.com/#hl=zh-CN&source=hp&q=drawtext+as+long+byval+declare+&oq=drawtext+as+long+byval+declare+&aq=f&aqi=&aql=undefined&gs_sm=e&gs_upl=13891l24828l0l33l29l0l14l0l0l750l2125l4-2.1.1l4&bav=on.2,or.r_gc.r_pw.&fp=25a3e86fbc8e0246&biw=1280&bih=828

[booksoon]

Form1.Cls
Form1.CurrentX = X
Form1.CurrentY = Y

Print "★"

[cuiyanlei2010]

[Quote=引用 4 楼 chinayuppie 的回复:]

Form1.Cls
Form1.CurrentX = X
Form1.CurrentY = Y

Print "★"
[/Quote]
大哥，不是竖着打出来。。。。。

[贝隆]

Option Explicit


Private Sub Form_Load()
    Me.WindowState = 2
    Me.AutoRedraw = True
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

    Me.CurrentX = X
    Me.CurrentY = Y
    Print "☆"
End Sub

[赵4老师]

[Quote=引用 4 楼 chinayuppie 的回复:]
Form1.Cls
Form1.CurrentX = X
Form1.CurrentY = Y

Print "★"
[/Quote]
Print "★";

[嗷嗷叫的老马]

[Quote=引用 5 楼 cuiyanlei2010 的回复:]
大哥，不是竖着打出来。。。。。
[/Quote]
你确定你看懂这四行代码了?