none
VB6 API語法問題 RRS feed

  • 問題

  • 執行階段錯誤'453':
    DLL進入點 GlobalMemoryStatus 無法再Kernel32.dll 中找到

    在看書時  有些語法打了會出現這樣  我沒有MSDN

    1.這是什麼問題呢 ?   是已經不支援了嗎?

    2.有些語法在API檢視員  也沒有   但可以執行

    3.VB .NET  語法也能用在 VB6 嗎?
    2009年7月30日 上午 08:22

解答

  • Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS)
    Private Type MEMORYSTATUS
            dwLength As Long
            dwMemoryLoad As Long
            dwTotalPhys As Long
            dwAvailPhys As Long
            dwTotalPageFile As Long
            dwAvailPageFile As Long
            dwTotalVirtual As Long
            dwAvailVirtual As Long
    End Type


    改成以上囉...

    • 已標示為解答 Lolota Lee 2009年8月6日 上午 05:43
    2009年7月30日 上午 09:05

所有回覆

  • api32--globalmemorystatus
    http://topic.csdn.net/t/20061018/17/5092032.html

    發問時程式要貼出來,參考以上囉...
    2009年7月30日 上午 08:30
  • Public Declare Function GlobalMemoryStatus Lib "kernel32.dll" Alias " GlobalMemoryStatus" (lpBuffer As MEMORYSTATUS)

    Public Type MEMORYSTATUS
            dwLength As Long
            dwMemoryLoad As Long
            dwTotalPhys As Long
            dwAvailPhys As Long
            dwTotalPageFile As Long
            dwAvailPageFile As Long
            dwTotalVirtual As Long
            dwAvailVirtual As Long
    End Type



    Dim ms As MEMORYSTATUS

    Private Sub Command1_Click()
        GlobalMemoryStatus ms
        'Text1.Text = ms.dwTotalPhys / 1024
    End Sub



    2009年7月30日 上午 08:47
  • Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS)
    Private Type MEMORYSTATUS
            dwLength As Long
            dwMemoryLoad As Long
            dwTotalPhys As Long
            dwAvailPhys As Long
            dwTotalPageFile As Long
            dwAvailPageFile As Long
            dwTotalVirtual As Long
            dwAvailVirtual As Long
    End Type


    改成以上囉...

    • 已標示為解答 Lolota Lee 2009年8月6日 上午 05:43
    2009年7月30日 上午 09:05
  • 參考此網頁
    http://www.ex-designz.net/apidetail.asp?api_id=238

    網頁底下有程式碼,剛剛測試可以在 VB6 使用


    .NET菜鳥自救會 http://www.dotblogs.com.tw/chou/
    2009年7月30日 上午 09:24
    版主