建站
咨詢
售后
建站咨詢
新聞中心
求大神修改 vb.net SetWaitableTimer(mlTimer, ft, 0, 0, 0, 0) 導(dǎo)致堆棧不對(duì)稱 怎么修改?
Imports?System.Runtime.InteropServices
讓客戶滿意是我們工作的目標(biāo)，不斷超越客戶的期望值來(lái)自于我們對(duì)這個(gè)行業(yè)的熱愛(ài)。我們立志把好的技術(shù)通過(guò)有效、簡(jiǎn)單的方式提供給客戶，將通過(guò)不懈努力成為客戶在信息化領(lǐng)域值得信任、有價(jià)值的長(zhǎng)期合作伙伴，公司提供的服務(wù)項(xiàng)目有：域名注冊(cè)、雅安服務(wù)器托管、營(yíng)銷軟件、網(wǎng)站建設(shè)、雁峰網(wǎng)站維護(hù)、網(wǎng)站推廣。
Module?APIs
StructLayout(LayoutKind.Sequential)
Public?Structure?FILETIME
Public?dwLowDateTime?As?UInteger
Public?dwHighDateTime?As?UInteger
Public?ReadOnly?Property?Value()?As?ULong
Get
Return?CType(dwHighDateTime??32,?ULong)?+?dwLowDateTime
End?Get
End?Property
End?Structure
Public?Delegate?Sub?TimerCompleteDelegate()
DllImport("kernel32.dll")
Public?Function?CreateWaitableTimer(lpTimerAttributes?As?IntPtr,?bManualReset?As?Boolean,?lpTimerName?As?String)?As?IntPtr
End?Function
DllImport("kernel32.dll")
Public?Function?SetWaitableTimer(hTimer?As?IntPtr,?ByRef?ft?As?Long,?lPeriod?As?Int32,?pfnCompletionRoutine?As?TimerCompleteDelegate,?pArgToCompletionRoutine?As?IntPtr,?fResume?As?Boolean)?As?Boolean
End?Function
Public?Function?SetWaitableTimer(hTimer?As?IntPtr,?ByRef?ft?As?Long,?lPeriod?As?Int32)?As?Boolean
Return?SetWaitableTimer(hTimer,?ft,?lPeriod,?Nothing,?IntPtr.Zero,?True)
End?Function
End?Module
SetWaitableTimer的聲明錯(cuò)了
vb.net無(wú)法引用C++編寫(xiě)的dll怎么辦？
如果DLL不是你寫(xiě)的,且你要調(diào)用的函數(shù)不是__stdcall聲明,VB直接調(diào)用是會(huì)報(bào)錯(cuò)的
如果DLL是你寫(xiě)的,注意調(diào)用約定問(wèn)題,并看以下代碼
***************************************************
以下是DLL代碼
.cpp里這么寫(xiě)
1extern "C"__declspec(dllexport) void __stdcall HelloWorld()
2{3 MessageBox(NULL,"HelloWorld","HelloWorld",NULL);4}
.def里這么寫(xiě)
LIBRARY "XXXX"
EXPORTS
; 此處以下添加
HelloWorld@1
*************************************************
vb里這么寫(xiě)
1 Public Declare Sub HelloWorld Lib "XXXX.dll" ()
然后調(diào)用就可以了,上面是VB的代碼,或許VB.net的也差不多
VB.net過(guò)程的調(diào)用
Sub過(guò)程實(shí)現(xiàn)：
Sub FactsSub(ByVal intN As Integer, ByRef result As Long)
Dim i As Integer
Dim lngResult As Long
lngResult = 1
For i = 1 To intN
lngResult *= i
Next
result = lngResult
End Sub
Private Sub btnSub_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSub.Click
Dim i As Integer
Dim sum As Long = 0
Dim result As Long
For i = 1 To 10
FactsSub(i, result)
sum += result
Next
MsgBox("過(guò)程實(shí)現(xiàn) 1! + 2! + 3! + … + 10! = " sum)
End Sub
Function函數(shù)實(shí)現(xiàn):
Function FactsFunction(ByVal intN As Integer) As Long
Dim i As Integer
Dim lngResult As Long
lngResult = 1
For i = 1 To intN
lngResult *= i
Next
Return lngResult
End Function
Private Sub btnFunction_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFunction.Click
Dim i As Integer
Dim sum As Long = 0
For i = 1 To 10
sum += FactsFunction(i)
Next
MsgBox("函數(shù)實(shí)現(xiàn) 1! + 2! + 3! + … + 10! = " sum)
End Sub
VB.net關(guān)于類之間函數(shù)的調(diào)用問(wèn)題。
如上面所說(shuō)，你可能還不太了解類、函數(shù)等的作用。
類可以用來(lái)封裝一系列操作，或者是一類對(duì)象的特性。像上面的描述，有可能是濫用類了。
建議你這樣，弄一個(gè)專門(mén)的運(yùn)算類，里面有四個(gè)運(yùn)算的函數(shù)，比如：
Class 運(yùn)算
Shared Function 加(ByVal 加數(shù)1 As Decimal, ByVal 加數(shù)2 As Decimal) As Decimal
'舉個(gè)例子
Return 加數(shù)1 ＋ 加數(shù)2 '百度打不出英文加號(hào)，你自己改一下
Exit Function
End Function
Shared Function 減(ByVal 被減數(shù) As Decimal, ByVal 減數(shù) As Decimal) As Decimal
'舉個(gè)例子
Return 被減數(shù) - 減數(shù)
Exit Function
End Function
End Class
上面我寫(xiě)了兩個(gè)例子，你可以照抄然后自己寫(xiě)乘除的，總之不要濫用類就行。
PS：Shared函數(shù)的使用不需要類被實(shí)例化，可以直接這樣使用：
Msgbox(運(yùn)算.加(1,2).ToString)
你會(huì)發(fā)現(xiàn)“運(yùn)算”是藍(lán)色的
VB.net如何調(diào)用C++ DLL，有重謝
如果DLL不是你寫(xiě)的,且你要調(diào)用的函數(shù)不是__stdcall聲明,VB直接調(diào)用是會(huì)報(bào)錯(cuò)的
如果DLL是你寫(xiě)的,注意調(diào)用約定問(wèn)題,并看以下代碼
***************************************************
以下是DLL代碼
.cpp里這么寫(xiě)
extern?"C"__declspec(dllexport)?void?__stdcall?HelloWorld()
{
MessageBox(NULL,"HelloWorld","HelloWorld",NULL);
}
.def里這么寫(xiě)
LIBRARY????? "XXXX"
EXPORTS
;?此處以下添加
HelloWorld@1
*************************************************
vb里這么寫(xiě)
Public?Declare?Sub?HelloWorld?Lib?"XXXX.dll"?()
然后調(diào)用就可以了,上面是VB的代碼,或許VB.net的也差不多
VB.net中怎么調(diào)用控件的事件
軟糖來(lái)回答羅。
“調(diào)用事件”有歧義，你的意思是不是下面兩種：
調(diào)用事件處理方法
直接調(diào)用對(duì)象名.方法名
'例如有這樣一個(gè)按鈕點(diǎn)擊事件處理程序
Private?Sub?Button1_Click(sender?As?Object,?e?As?EventArgs)?Handles?Button1.Click
秒表.Start()
End?Sub
'調(diào)用它直接用
Button1_Click(me,?new?EventArgs())
引發(fā)事件
Button1.Click.Invoke(me,?new?EventArgs())
另外?RaiseEvent 也可以引發(fā)事件，但不能使用 RaiseEvent?來(lái)引發(fā)派生窗體的控件事件，只有自己定義的類的事件才能用它引發(fā)。
如滿意，請(qǐng)采納，謝謝。
分享題目：vb.net的調(diào)用約定的簡(jiǎn)單介紹
本文地址：http://fisionsoft.com.cn/article/hhpscg.html
