一只好玩的小狗，供大家笑笑，找找对话框的信息藏哪

oyz1123

楼主的代码是下面这段，但我不识看，有高人识吗？

Option Compare Database

Private Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long
Private Declare Function DestroyCursor Lib "user32" (ByVal hCursor As Long) As Long
Private Declare Function SetClassLong Lib "user32" Alias "SetClassLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const GCL_HCURSOR = (-12)
Dim TFblon As Boolean

Private Sub Form_Load()

'AniCur& = LoadCursorFromFile("D:\Neko.ani")
AniCur& = LoadCursorFromFile(CurrentProject.Path & "\Neko.ani")
SetClassLong Me.hwnd, GCL_HCURSOR, AniCur

End Sub

Private Sub Form_Unload(Cancel As Integer)

DestroyCursor AniCur

End Sub

Private Sub Command0_Click()
Dim db As Database
Dim doc As Document
Dim strMsg As String
Set db = CurrentDb
Set doc = db.Containers("Databases")![UserDefined]
    strMsg = doc.Properties![MyMsg]
    Me.文本 = strMsg
    MsgBox strMsg, 64
    Me.文本 = ""
   
End Sub

zxzx2733

Option Compare Database
Private Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long
Private Declare Function DestroyCursor Lib "user32" (ByVal hCursor As Long) As Long
Private Declare Function SetClassLong Lib "user32" Alias "SetClassLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const GCL_HCURSOR = (-12)
Dim TFblon As Boolean
'============================↑调用API函数，是为使用动画鼠标
Private Sub Form_Load()   '调用动画鼠标
AniCur& = LoadCursorFromFile(CurrentProject.Path & "\Neko.ani")
SetClassLong Me.hwnd, GCL_HCURSOR, AniCur
End Sub
Private Sub Form_Unload(Cancel As Integer) '取消调用动画鼠标
DestroyCursor AniCur
End Sub
'=================↓调用属性中所藏的信息
Private Sub Command0_Click()
Dim db As Database
Dim doc As Document
Dim strMsg As String
Set db = CurrentDb
Set doc = db.Containers("Databases")![UserDefined]
    strMsg = doc.Properties![MyMsg]  '  MyMsg：信息(可以选其他数据类型)目录名
    Me.文本 = strMsg
    MsgBox strMsg, 64
    Me.文本 = ""
   
End Sub

sblisb

还是不明白,现在我要加点信息进去,在哪加?

zxzx2733

quote]原帖由 sblisb 于 2010-1-19 19:54 发表
还是不明白,现在我要加点信息进去,在哪加? [/quote]


[ 本帖最后由 zxzx2733 于 2010-1-23 22:31 编辑 ]

zxzx2733

http://club.excelhome.net/attachment.php?aid=655442&k=8fab1f2e2c7bb13b536548edc9153aaa&t=1264257120&noupdate=yes¬humb=yes

[ 本帖最后由 zxzx2733 于 2010-1-23 22:35 编辑 ]

sblisb

原来是要进入access后看属性,偶没用过,受教了