VB高手进......

加个Timer时钟，然后取出前台窗口就可以

判断了。。代码如下

Private

Declare

Function

GetAsyncKeyState

Lib

"user32"

(ByVal

vKey

As

Long)

As

Integer

Private

Declare

Function

GetCursorPos

Lib

"user32"

(lpPoint

As

Point)

As

Long

Private

Declare

Function

GetForegroundWindow

Lib

"user32"

()

As

Long

Private

Declare

Function

WindowFromPoint

Lib

"user32"

(ByVal

x

As

Integer,

ByVal

y

As

Integer)

As

Long

Private

Type

Point

x

As

Long

y

As

Long

End

Type

Private

Sub

Form_Load()

Timer1Interval

=

100

End

Sub

Private

Sub

Timer1_Timer()

Dim

Txt

As

String,

a

As

String

Dim

Mhd

As

Long,

Mhd2

As

Long

Dim

Mousc

As

Point

i

=

GetCursorPos(Mousc)

Mhd

=

GetForegroundWindow()

Mhd2

=

WindowFromPoint(Mouscx,

Mouscy)

Cls

Select

Case

Mhd2

Case

MehWnd

Print

"鼠标在当前窗口中"

Case

Else

Print

"鼠标在当前窗口外"

End

Select

If

Mhd

=

MehWnd

Then

Txt

=

"在当前窗口中"

Else

Txt

=

"在窗口外"

End

If

If

GetAsyncKeyState(vbKeyLButton)

Then

a

=

"

左

键单击"

Print

Txt;

a

ElseIf

GetAsyncKeyState(vbKeyMButton)

Then

a

=

"

中

键单击"

Print

Txt;

a

ElseIf

GetAsyncKeyState(vbKeyRButton)

Then

a

=

"

右

键单击"

Print

Txt;

a

End

If

End

Sub

19年前的2001年，在那年的北美国际车展上，宝马推出了一台名为X-Coupe的概念车，毫无疑问，它的出现在那个年代惊艳了不少车迷，长车头配合大溜背的造型，造就出一个均衡的视觉中心，不得不说，当时这样的Coupe型SUV设计概念看起来真的很不错。时间来到2007年，在X-Coupe被推出后的6年后，宝马终于在德国法兰克福车展上正式推出了X-Coupe概念真正落地的车款--BMWX6，至此，X-Coupe概念车的设计得到了延续，而X6也开启了它在运动休旅跑车SAV领域的征程。虽然平时在路上见到X6的几率并不算太低，但它在玩车圈里却是一台冷门车，由于改装部件少，所以想要采购也不是一件容易的事，比如今天分享的这台X6，车主就曾为了能买到匹配的侧裙定风翼不得不搜寻到俄罗斯先来看外观，全车改了更强性能的X6M不少外观件，包括前后保险杠、翼子板，以及搜寻许久才在俄罗斯订购到的X6M侧裙，虽然X6M的外观件上身之后气势有强化不少，但车主仍觉得少了一些凶狠之气。于是又为爱车装上了Vorsteiner出品的前下巴，尾部则换上了样式夸张许多的Arkym后下扰流，另外，再特地找了台湾当地的匠人定制了后尾翼，运动质感加强不少，配合着黑色车身，整体看上去很有性能味道。作为一台以运动定位的大型SAV，大轮圈是必不可少的重要元素，这台X6身上改了一套22寸的单片式锻造铝圈，多幅样式的拉丝银灰色轮圈搭配马牌CS6C超宽轮胎，还是很吸引路人目光的，数据方面，前22x11J搭配295/30/22规格、后22x125J搭配335/25/22规格的轮胎。透过轮圈，可以发现里面装着一套Mpower刹车装置，其中前轮为Mpower六活塞刹车卡钳配425mm碟盘，后轮为Mpower四活塞刹车卡钳，搭配的是380mm碟盘，视觉冲击力很强。动力部分，原厂搭载的是一颗30T涡轮增压引擎，在未经任何升级的状态下已经能拥有最大306匹的马力输出了，车主虽然没有对涡轮进行改动，但刷写了MHD的二阶程序，经过调校后的性能提升不少。再加上全直通排气，引擎排出的声浪席卷而来，通过直径达115mm的超大四出尾饰管而出。打开后尾箱，你会被这个精致的装潢所吸引，忍不住想要探个究竟。车主毫无疑问是一位对音质有着很高要求的玩家，不仅对车内前方的三音路MDS无损喇叭做了升级，还搭配了DSP数字调音设备，将原本就已经不俗的宝马原厂音响音质提升了一个层次。后尾箱更是塞下了一组JLAudio12寸重低音箱和JLAudio扩大器，这套升级后的音响还曾在台湾的一个汽车音响比赛中拿下第一名和最佳音质奖，能得到专业的肯定背后，花费的金钱和精力想必也不少吧。改装清单：X6M保险杠X6M翼子板X6M侧裙Vorsteiner前下巴Arkym后下扰流定制后尾翼22寸单片锻造拉丝铝圈马牌CC6超宽轮胎前22x11J配295/30/22胎后22x125J配335/25/22胎MHD二阶程序全直通排气115mm四出饰管前Mpower六活塞刹车卡钳配425mm碟盘后Mpower四活塞刹车卡钳配380mm碟盘三音路MDS无损喇叭DSP数字调音JLAudio12寸重低音箱JLAudio扩大器尾箱音响装潢

以上就是关于VB高手进......全部的内容，包括:VB高手进......、谈一谈爱车宝马X6的改装过程和车身配置！、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！