主题：刷新桌面如何实现？（主要是上报的文件不显示，要刷新一次才显示）

刷新桌面如何实现？（主要是上报的文件不显示，要刷新一次才显示）

 

 

谢谢

你可以把下面代码的执行部分放到timer控件里,然后你就随便做你该做的事情就可以了,程序自动在后台刷新桌面!!!

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Private Const WM_KEYDOWN = &H100

Private Sub Command1_Click()
Dim Desktop As Long

'查找桌面的句柄:一个语句搞定
Desktop = FindWindow("Progman", "Program Manager")

'向桌面模拟发送按键F5(刷新)
PostMessage Desktop, WM_KEYDOWN, vbKeyF5, 0
End Sub

就是不懂API如何加呀

想把这段API实现的功能加入上报按钮，刷新一次桌面

各位老大，帮帮忙

老大们，帮帮忙，谢谢

改变设计思路：

 

http://www.foxtable.com/help/topics/1963.htm

 

 

Dim dlg As New SaveFileDialog   '指定一个新的SaveFileDialog(保存文件对话框)

dlg.Filter= "上报文件|*.DSB"    '设置筛选器

dlg.title= "生成上报文件"      '设置对话框标题

dlg.OverwritePrompt = False

If dlg.ShowDialog = DialogResult.Ok Then   '如果用户单击了确定按钮

    If FileSys.FileExists(dlg.filename) Then    '如果指定的文件存在

        if Messagebox.Show("有同名文件存在,是否删除?", "提示", MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes then

            FileSys.DeleteFile(dlg.filename,2,2)  '则彻底删除之

        Else

        MessageBox.Show("你取消删除同名文件，系统停止生成上报文件！！！", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)

    Return

        End if

End If

dim Names() As String = {"调资基础数据","职务变动基础信息"}
For Each nm As String In Names

    Dim ex as New Exporter

    ex.SourceTableName = nm   '指定导出表

    ex.Format = "Access"   '指定导出文件格式

    ex. PassWord = "TZX_GWY_JT_8888"  '用此属性指定目标文件的密码

    ex.filepath =  dlg.filename    '指定目标文件

    ex.NewTableName = nm       '指定导出后的表的名称

ex.Export()    '开始导出数据

Next

    FileSys.CopyFile(dlg.filename, dlg.filename & ".bak",False)

    FileSys.DeleteFile(dlg.filename, 2, 2)

    EncryptFile(dlg.filename & ".bak", dlg.filename, "8888")

    FileSys.DeleteFile(dlg.filename & ".bak", 2, 2)

MessageBox.Show("上报数据生成完成!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)

 

FileWatcher.Enabled = False

DataTables.Save()

FileWatcher .Enabled = True

e. =dlg.FileName

 

End If