正文
关于vb.net控制dx的信息
小程序:扫一扫查出行
【扫一扫了解最新限行尾号】
复制小程序
【扫一扫了解最新限行尾号】
复制小程序
如何在VB.net中用程序控制鼠标移动和点击
调用api
在Visual Baisc.net中的声明:
Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Public Const MOUSEEVENTF_LEFTDOWN = H2 '模拟鼠标左键按下
Public Const MOUSEEVENTF_LEFTUP = H4 ’模拟鼠标左键释放
Public Const MOUSEEVENTF_MIDDLEDOWN = H20 '模拟鼠标中间键按下
Public Const MOUSEEVENTF_MIDDLEUP = H40 '模拟鼠标中间键释放
Public Const MOUSEEVENTF_RIGHTDOWN = H8 '模拟鼠标右键按下
Public Const MOUSEEVENTF_RIGHTUP = H10 '模拟鼠标右键释放
Public Const MOUSEEVENTF_MOVE = H1 '模拟鼠标指针移动
例:
mouse_event MOUSEEVENTF_LEFTDOWN,10,10,0,0
'在(10,10)模拟鼠标左键按下
关于 vb.net 引用directx的问题
.net 的WPF工程vb.net控制dx,用的就是directX,根本无需使用directx sdk。。。 而且WPF 非常方便比directX sdk好用vb.net控制dx,10倍以上,主要是简单。。。用.net还要去用directX sdk,本来就是个很不明智的事,因为WPF把directX封装的非常完美。。。
如何实现VB.net中两个窗口中控件相互之间控制
你要对什么控件达到什么样的控制???
通常要在Form1控制Form2的控件,应该在控件名之前写上窗体名,例如:
在Form1里要控制Form2的控件,可以;
Form2.控件名.属性(或者方法)等。
vb.net中怎么调用DirectX来播放视频
使用Microsoft.DirectX.AudioVideoPlayback组件。
首先,需要安装DirectX SDK.
DirectX 9.0c Redistributable
DirectX 9.0 SDK Update
然后将对Microsoft.DirectX.AudioVideoPlayback.dllvb.net控制dx的引用添加到你vb.net控制dx的项目。
使用这段代码在Panel控件上放置一个视频文件:
ImportsMicrosoft.DirectX.AudioVideoPlayback
Public Class Form1
Private Sub Form1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs) Handles MyBase.Load
Dim videoFile As Audio =New Audio("D:\Video1.avi")
videoFile.Owner = Panel1
videoFile.Play()
EndSub
EndClass
'以前收集的资料,没用过,你自己整整
2)使用Windows Media Player控件也能播放视频。
右击工具箱-选项- COM组件-定位并添加“Windows Media Player” ActiveX控件
然后“Windows Media Player”控件将会出现在工具箱上。将它拖动到窗体上来生产一个AxWindowsMediaPlayer1对象,并为URL属性指定音频或者视频文件。
AxWindowsMediaPlayer1.URL = "D:\VideoOrAudio.wmv"
Media Player控件默认将会自动播放文件。
求大神指点vb.net 怎么用SendInput来实现鼠标移动到指定位置呢?
您好,建议您使用mouse_event或者 Cursor.Position来实现。例如:
1. 您需要将鼠标移动dx, dy的位置。
Public Sub MouseMoveBy(ByVal dx As Integer, ByVal dy As Integer)
Cursor.Position = New Point(Cursor.Position.X + dx, Cursor.Position.Y + dy)
End Sub
或者
Public Sub MouseMoveBy(ByVal dx As Integer, ByVal dy As Integer)
mouse_event(0, dx, dy, 0, 0)
End Sub
2. 您需要将鼠标移动到x, y的位置
Public Sub MouseMoveTo(ByVal x As Integer, ByVal y As Integer)
Cursor.Position = New Point(x, y)
End Sub
请您试一下。
VB.NET DirectX编程
蜂鸣器编程的话,有个API函数,VB中的声明为 Declare Function Beep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long 调用方法是Beep 声音频率,持续时间(毫秒为单位) 比如 beep 2000,1000如果是声卡编程的话,也有相应的API函数,比如你可以用DirectSound(也就是DirectX的一部分),功能比较强大,也很专业。事实上,如果你使用的是专业级的声卡和音响设备,它可以在一定范围内回放出超出人耳听觉范围的声音。当然也可以用简单一点的API,以下是几个需要的函数:Private Declare Function midiOutGetDevCaps Lib "winmm.dll" Alias "midiOutGetDevCapsA" (ByVal uDeviceID As Long, lpCaps As MIDIOUTCAPS, ByVal uSize As Long) As LongPrivate Declare Function midiOutGetNumDevs Lib "winmm" () As IntegerPrivate Declare Function MIDIOutOpen Lib "winmm.dll" Alias "midiOutOpen" (lphMidiOut As Long, ByVal uDeviceID As Long, ByVal dwCallback As Long, ByVal dwInstance As Long, ByVal dwFlags As Long) As LongPrivate Declare Function midiOutClose Lib "winmm.dll" (ByVal hMidiOut As Long) As LongPrivate Declare Function midiOutShortMsg Lib "winmm.dll" (ByVal hMidiOut As Long, ByVal dwMsg As Long) As LongPrivate Declare Function midiOutGetErrorText Lib "winmm.dll" Alias "midiOutGetErrorTextA" (ByVal err As Long, ByVal lpText As String, ByVal uSize As Long) As LongPrivate Const MAXERRORLENGTH = 128 ' max error text length (including NULL)Private Const MIDIMAPPER = (-1)Private Const MIDI_MAPPER = (-1)'MIDIOUTCAPS结构描述了Musical Instrument Digital Interface(MIDI)输入设备的性能Type MIDIOUTCAPS wMid As Integer wPid As Integer ' 产品 ID vDriverVersion As Long ' 设备版本 szPname As String * 32 ' 设备 name wTechnology As Integer ' 设备类型 wVoices As Integer wNotes As Integer wChannelMask As Integer dwSupport As LongEnd TypePublic Sub note_on(ch As Integer, ByVal kk As Integer, v As Integer)' 发音主函数。参数分别为通道编号,音调,速度 Call midi_outshort(H90 + ch, kk, v)End SubSub midi_outshort(b1 As Integer, b2 A
vb.net控制dx的介绍就聊到这里吧,感谢你花时间阅读本站内容,更多关于、vb.net控制dx的信息别忘了在本站进行查找喔。