13518219792
SetWindowLong是API函数，
创新互联建站是一家网站设计公司，集创意、互联网应用、软件技术为一体的创意网站建设服务商，主营产品：响应式网站建设、高端网站设计、成都营销网站建设。我们专注企业品牌在网站中的整体树立，网络互动的体验，以及在手机等移动端的优质呈现。网站建设、成都做网站、移动互联产品、网络运营、VI设计、云产品.运维为核心业务。为用户提供一站式解决方案，我们深知市场的竞争激烈，认真对待每位客户，为客户提供赏析悦目的作品，网站的价值服务。
将以下
Declare
函数添加到项目启动窗体的声明部分，或是添加到要使用
DLL
的类或模块的声明部分中:
Declare
Auto
Function
SetWindowLong
Lib
"user32"
Alias
"SetWindowLongA"
(ByVal
hwnd
As
Long,
ByVal
nIndex
As
Long,
ByVal
dwNewLong
As
Long)
As
Long
之后就可以调用这个函数了。
软糖来回答罗。
“调用事件”有歧义，你的意思是不是下面两种：
调用事件处理方法
直接调用对象名.方法名
'例如有这样一个按钮点击事件处理程序
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
秒表.Start()
End Sub
'调用它直接用
Button1_Click(me, new EventArgs())
引发事件
Button1.Click.Invoke(me, new EventArgs())
另外 RaiseEvent 也可以引发事件，但不能使用 RaiseEvent 来引发派生窗体的控件事件，只有自己定义的类的事件才能用它引发。
如满意，请采纳，谢谢。
一、带窗体的dll创建
1、先新建 类库（testdll），在项目中添加两个窗体form1(主窗体)、form2,为了与后面的调用区分分别命名为fm1,fm2；并在fm1窗体中添加一个按钮用来调用fm2如下图
2、在fm1窗体代码中先引用fm2, 按钮代码调用fm2.如图
3、生成dll,(class1.vb中不需要写任何代码）
二、调用dll
1、新建 一个windows应用程序并添加一个按钮用来调用dll中的窗体，选 择 “项目”－“添加引用”，选择刚才创建的testdll
2、窗体代码中先引用testdll,再定义一个testdll中的fm1对象，最后执行对象的show方法
3、运行结果如下：
.net 里面 项目-添加引用-浏览-找到你的dll 然后到对像浏览器里查看就可以，这是第一种，第二种不会。
1.用Win32 API PlaySound
PlaySound位于"winmm.dll"中，可以根据输入参数的不同，播放WAV类型的音乐。在VB.NET中调用跟VB6中差不多：
先声明：
Private Declare Auto Function PlaySound Lib "winmm.dll" (ByVal lpszSoundName As String, ByVal hModule As Integer, ByVal dwFlags As Integer) As Integer
Const SND_FILENAME As Integer = H20000
Const SND_ALIAS As Integer = H10000
Const SND_SYNC As Integer = H0
具体还有很多常量，不一一列举，下面是播放一个wav文件的例子
Dim mstrfileName As String = "c:\eagle2.wav"
PlaySound(mstrfileName, 0, SND_FILENAME)
注意上面的播放是非同步的，就是说它并不会播放完毕才结束。如果把上面的代码写在一个Button.Click的事件处理程序中，第二次点击的时候它会打断第一次的播放，重新开始。
当然我们也可以调用系统的声音：
PlaySound("SystemStart", 0, SND_ALIAS Or SND_SYNC)
' 以同步的方式调用系统启动时候的声音。
2． 调用媒体播放器控件
VB.NET中并没有提供媒体播放器的.NET组件，没办法我们还是调用以前Com组件Windows Media Player。当然除了声音外，还可以播放视频文件。
首先把媒体播放器控件加到工具栏中，调用还是简单的写一下吧：）
Private Sub playMediaFile(ByVal mediaFileName As String)
With MediaPlayer1
.Stop()
.FileName = "c:\mp3\爱不爱我.mp3"
.Play()
End With
End Sub
没什么区别，只是增加可读性而已，以下是摘自MSDN的说明：
Visual Basic 语言参考
Call 语句 (Visual Basic)
将控制传送到 Function、Sub 或动态链接库 (DLL) 过程。
[ Call ] procedureName [ (argumentList) ]
各部分说明
procedureName
必选。要调用的过程名。
argumentList
可选。变量和表达式列表，表示当调用过程时传递给该过程的参数。多个参数以逗号分隔。如果包括 argumentList，则必须将它放在括号内。
备注
您通常使用 Call 语句调用不返回值的过程。如果该过程返回值，Call 语句将放弃该值。
在调用过程时不要求您必须使用 Call 语句，但使用该语句可以提高代码的可读性。
