在函数declration中不能使用Currency！

本文介绍了在函数declration中不能使用Currency！的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！ 问题描述

嗨 我想使用以下声明，但vb dotnet一直在抱怨 该货币因私有而无法使用？ 我在一个模块中尝试了它并在声明中削减了相同的错误！ 私有声明函数QueryPerformanceFrequency Lib" kernel32" （ByVal lpFrequency as Currency）As Long 私有声明函数QueryPerformanceCounter Lib" kernel32" （ByVal lpPerformanceCount作为货币）长期

Hi I want to use the following declarations but vb dotnet keeps complaining that currency can''t be used because it private ? I have tried it in a module and in the declaration pare same error! Private Declare Function QueryPerformanceFrequency Lib "kernel32" (ByVal lpFrequency As Currency) As Long Private Declare Function QueryPerformanceCounter Lib "kernel32" (ByVal lpPerformanceCount As Currency) As Long

推荐答案

" Adrian" <广告**** @ nospamhotmail.uk> schrieb "Adrian" <Ad****@nospamhotmail.uk> schrieb 嗨 我想使用以下声明但vb dotnet保持抱怨因为私有而无法使用货币？ 我在模块中尝试了它，并在声明中削减了同样的错误！ 私有声明函数QueryPerformanceFrequency Lib" kernel32" （ByVal lpFrequency As Currency）As Long /> 私有声明函数QueryPerformanceCounter Lib" kernel32" （ByVal lpPerformanceCount As Currency）As Long Hi I want to use the following declarations but vb dotnet keeps complaining that currency can''t be used because it private ? I have tried it in a module and in the declaration pare same error! Private Declare Function QueryPerformanceFrequency Lib "kernel32" (ByVal lpFrequency As Currency) As Long Private Declare Function QueryPerformanceCounter Lib "kernel32" (ByVal lpPerformanceCount As Currency) As Long

这些是错误语言的声明（VB6）。在VB.Net中： 私有声明函数QueryPerformanceFrequency Lib" kernel32" （ByRef lpFrequency As Long）As Boolean 私有声明函数QueryPerformanceCounter Lib" kernel32" （byref lpPerformanceCount as long）作为boolean Armin

These are declarations for the wrong language (VB6). In VB.Net: Private Declare Function QueryPerformanceFrequency Lib "kernel32" (ByRef lpFrequency As Long) As Boolean Private Declare Function QueryPerformanceCounter Lib "kernel32" (byref lpPerformanceCount As long) As boolean Armin

谢谢快速回复和帮助 " Armin Zingler" < AZ ******* @ freenet.de>在消息中写道 news：uP ************* @ TK2MSFTNGP14.phx.gbl ... Thanks for the quick reply and help "Armin Zingler" <az*******@freenet.de> wrote in message news:uP*************@TK2MSFTNGP14.phx.gbl... " Adrian" <广告**** @ nospamhotmail.uk> schrieb "Adrian" <Ad****@nospamhotmail.uk> schrieb 嗨 我想使用以下声明但vb dotnet保持抱怨因为私有而无法使用货币？ 我在模块中尝试了它，并在声明中削减了同样的错误！ 私有声明函数QueryPerformanceFrequency Lib" kernel32" （ByVal lpFrequency As Currency）As Long /> 私有声明函数QueryPerformanceCounter Lib" kernel32" （ByVal lpPerformanceCount As Currency）As Long Hi I want to use the following declarations but vb dotnet keeps complaining that currency can''t be used because it private ? I have tried it in a module and in the declaration pare same error! Private Declare Function QueryPerformanceFrequency Lib "kernel32" (ByVal lpFrequency As Currency) As Long Private Declare Function QueryPerformanceCounter Lib "kernel32" (ByVal lpPerformanceCount As Currency) As Long

这些是错误语言的声明（VB6）。在VB.Net中： 私有声明函数QueryPerformanceFrequency Lib" kernel32" （ByRef lpFrequency As Long）作为布尔值 私有声明函数QueryPerformanceCounter Lib" kernel32" ; （byref lpPerformanceCount一样长）作为boolean Armin

These are declarations for the wrong language (VB6). In VB.Net: Private Declare Function QueryPerformanceFrequency Lib "kernel32" (ByRef lpFrequency As Long) As Boolean Private Declare Function QueryPerformanceCounter Lib "kernel32" (byref lpPerformanceCount As long) As boolean Armin

对不起，它仍然会出现同样的错误！？ " Adrian" <广告**** @ nospamhotmail.uk>在消息中写道 news：db ********** @ nwrdmz02.dmz.ncs.ea.ibs-infra.bt ... Sorry it still gives the same error!? "Adrian" <Ad****@nospamhotmail.uk> wrote in message news:db**********@nwrdmz02.dmz.ncs.ea.ibs-infra.bt... 感谢您的快速回复和帮助 Armin Zingler < AZ ******* @ freenet.de>在消息中写道新闻：uP ************* @ TK2MSFTNGP14.phx.gbl ... Thanks for the quick reply and help "Armin Zingler" <az*******@freenet.de> wrote in message news:uP*************@TK2MSFTNGP14.phx.gbl... " Adrian" <广告**** @ nospamhotmail.uk> schrieb "Adrian" <Ad****@nospamhotmail.uk> schrieb 嗨 我想使用以下声明但vb dotnet保持抱怨因为私有而无法使用货币？ 我在模块中尝试了它，并在声明中削减了同样的错误！ 私有声明函数QueryPerformanceFrequency Lib" kernel32" （ByVal lpFrequency As Currency）As Long /> 私有声明函数QueryPerformanceCounter Lib" kernel32" （ByVal lpPerformanceCount As Currency）As Long Hi I want to use the following declarations but vb dotnet keeps complaining that currency can''t be used because it private ? I have tried it in a module and in the declaration pare same error! Private Declare Function QueryPerformanceFrequency Lib "kernel32" (ByVal lpFrequency As Currency) As Long Private Declare Function QueryPerformanceCounter Lib "kernel32" (ByVal lpPerformanceCount As Currency) As Long

这些是错误语言的声明（VB6）。在VB.Net中： 私有声明函数QueryPerformanceFrequency Lib" kernel32" （ByRef lpFrequency As Long）作为布尔值 私有声明函数QueryPerformanceCounter Lib" kernel32" ; （byref lpPerformanceCount等）作为布尔值 Armin

These are declarations for the wrong language (VB6). In VB.Net: Private Declare Function QueryPerformanceFrequency Lib "kernel32" (ByRef lpFrequency As Long) As Boolean Private Declare Function QueryPerformanceCounter Lib "kernel32" (byref lpPerformanceCount As long) As boolean Armin