sleep問題？

本帖最後由 joey0415 於 2012-8-15 15:57 編輯

以前在程式前家上
'宣告win api函數
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

之用程式來調用它都沒有問題

現在因為昇級成win7 64位元，office 2010也是64位元後，打開檔案後就會有問題

不知道怎麼修改呢？

謝謝

樓主熱帖

joey0415

　暱稱: joey0415

中學生 Rank: 2

帖子: 361
主題: 57
精華: 0
積分: 426
點名: 0
作業系統: win7
軟體版本: 2003,2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-13
最後登錄: 2022-12-8

7^#

發表於 2012-8-16 16:26 | 只看該作者

本帖最後由 joey0415 於 2012-8-16 16:29 編輯

找到方法了！32與64位元都可以用的哦！

'宣告win api函數 , 以下方法是64與32位元都可以用的方式哦！
'Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
[code]'宣告win api函數 , 以下方法是64與32位元都可以用的方式哦！
'Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#If VBA7 Then
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms As LongPtr)
#Else
Private Declare Sub Sleep Lib "kernel32" (ByVal ms as Long)
#End If

複製代碼

TOP

joey0415

　暱稱: joey0415

中學生 Rank: 2

帖子: 361
主題: 57
精華: 0
積分: 426
點名: 0
作業系統: win7
軟體版本: 2003,2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-13
最後登錄: 2022-12-8

6^#

發表於 2012-8-16 16:01 | 只看該作者

回復 5# c_c_lai

好像有好一點！不過畫面會出現下面如圖

============================
---------------------------
Microsoft Visual Basic for Applications
---------------------------
編譯錯誤:

沒有定義這個 Sub 或 Function
===============================

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

5^#

發表於 2012-8-16 08:24 | 只看該作者

回復 4# Hsieh
回復 3# joey0415
原來如此，受教了！轉述如下：

Declare Function RegOpenKeyA Lib "advapi32.dll" (ByVal Key As Long, ByVal SubKey As String, NewKey As Long) As Long

複製代碼

在 Microsoft Visual C 和 Microsoft Visual C++ 中，前一範例會同時正確地編譯 32 位元和 64 位元。這是因為 HKEY 會定義為指標，
其大小反映程式碼編譯所在之平台的記憶體大小。
在舊版 VBA 中，並沒有特定的指標資料類型，因此會使用 Long 資料類型。此外，由於 Long 資料類型一律為 32 位元，
因此在具有 64 位元記憶體的系統上使用時，會因為截斷上方 32 位元或複寫其他記憶體位址而損毀。
這些情況會導致無法預期的行為或系統當機。
為了解決這個問題，VBA 現在包含正確的「指標」資料類型：LongPtr。此新資料類型可讓您正確地寫入原始 Declare 陳述式，如下所示：

Declare PtrSafe Function RegOpenKeyA Lib “advapire32.dll” (ByVal hKey as LongPtr, ByVal lpSubKey As String, phkResult As LongPtr) As Long

複製代碼

此資料類型和新的 PtrSafe 屬性可讓您在 32 位元或 64 位元系統上使用此 Declare 陳述式。
PtrSafe 屬性會向 VBA 編譯器指示 Declare 陳述式是針對 64 位元版本的 Office 2010。如果沒有此屬性，
在 64 位元系統中使用 Declare 陳述式會導致編譯時期錯誤。請注意，PtrSafe 屬性在 32 位元版本的 Office 2010 上為選用。
這讓現有的 Declare 陳述式可如往常般運作。

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 243
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-9

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章