把这个例子的声音和图标放到后台,模块里的连接路径如何改?

sunny-xie

论坛上的一个例子,

想把声音文件和光标放到网络上和后台一起,前台是那个主控面板,代码里如何改,请大家帮忙,谢谢!

tmtony

修改 路径

如 C:\winnt\ 改为 K:\winnt
K为映射盘

yori2007

sunny-xie

感谢站长的快速回复,
我想我看到了

[ 本帖最后由 sunny-xie 于 2008-3-6 09:27 编辑 ]

sunny-xie

红字部分这样改对么?因为还是出错


Function fatest()
Dim a As Long
    a = fStopStuff("C:\winnt\clock.avi")   '这改为:a = fStopStuff("\\winnt\clock.avi")  
End Function

Function WavPlay()
Dim a As Long
Dim strWav As String
strWav = GetDBLocation & "Start.wav"  '这改为: strWav = GetDBLocation & "\\winnt\Start.wav"
    a = fPlayStuff(strWav)
End Function
Function WavDone()
Dim a As Long
Dim strWav As String
strWav = GetDBLocation & "Done.wav"
    a = fPlayStuff(strWav)
End Function


Declare Function LoadCursorBynum Lib "user32" Alias "LoadCursorA" _
  (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
Declare Function LoadCursorFromFile Lib "user32" Alias _
  "LoadCursorFromFileA" (ByVal lpFileName As String) As Long
Declare Function SetCursor Lib "user32" _
  (ByVal hCursor As Long) As Long
Const curNAME = "Cursor1.CUR"       '这改为:Const curNAME = "\\winnt\Cursor1.CUR"
Private mhCursor As Long
Private mstrCursorPath As String
Private Const ERR_INVALID_CURSOR = vbObjectError + 3333

tmtony

最好映射服务器目录 为一个 盘符 如Y盘
a = fStopStuff("C:\winnt\clock.avi")    改为 a = fStopStuff("Y:\clock.avi")   
strWav = GetDBLocation & "Start.wav" 改为 strWav = "Y:\Start.wav"

sunny-xie

替换光标的那个图,改了路径不对
烦请站长言明

tmtony

Public Sub GetCursor()
On Error GoTo ErrHandler
    If Len(mstrCursorPath) = 0 Then
        mstrCursorPath = CurrentDb.Name
        mstrCursorPath = Left(mstrCursorPath, InStr(mstrCursorPath, Dir(mstrCursorPath)) - 1)
        mstrCursorPath = mstrCursorPath & curNAME  ' Public Sub GetCursor()
On Error GoTo ErrHandler
    If Len(mstrCursorPath) = 0 Then
        mstrCursorPath = CurrentDb.Name
        mstrCursorPath = Left(mstrCursorPath, InStr(mstrCursorPath, Dir(mstrCursorPath)) - 1)
        mstrCursorPath = mstrCursorPath & curNAME '这里直接把 mstrCursorPath 改成 "Y:\"
        If Len(Dir(mstrCursorPath)) = 0 Then
            mstrCursorPath = vbNullString
        End If
    End If
    If Len(mstrCursorPath) = 0 Then
        Err.Raise ERR_INVALID_CURSOR
    Else
        PointM (mstrCursorPath)
    End If
ExitHere:
    Exit Sub
ErrHandler
        If Len(Dir(mstrCursorPath)) = 0 Then
            mstrCursorPath = vbNullString
        End If
    End If
    If Len(mstrCursorPath) = 0 Then
        Err.Raise ERR_INVALID_CURSOR
    Else
        PointM (mstrCursorPath)
    End If
ExitHere:
    Exit Sub
ErrHandler:

sunny-xie

感谢站长!!