nmgwddj 发表于 2010-3-11 18:47:38

TAB控件替换图片问题！(已解决)

本帖最后由 nmgwddj 于 2010-3-11 19:19 编辑

我想设置替换图片后刷新图片资源。。但是这样做的话 图片就不显示了。又没有什么好办法啊！#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 446, 377, 192, 114)
$Tab1 = GUICtrlCreateTab(16, 48, 409, 257)
GUICtrlCreateTabItem("数据1")
$Pic1 = GUICtrlCreatePic(@SystemDir & "\oemlogo.bmp", 88, 72, 249, 145)
$Button1 = GUICtrlCreateButton("替换", 152, 248, 121, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Button1
                        bmp()

        EndSwitch
WEnd

Func bmp()
        FileCopy('d:\dj.bmp', 'c:\windows\system32\oemlogo.bmp', 1)
        MsgBox(0, '', '替换成功')
        GUICtrlDelete ($Pic1)
        $Pic1 = GUICtrlCreatePic("c:\windows\system32\oemlogo.bmp", 40, 80, 190, 120)
EndFunc

afan 发表于 2010-3-11 19:15:23

注释掉29行，30行改为：GUICtrlSetImage($Pic1, @SystemDir & '\oemlogo.bmp')

nmgwddj 发表于 2010-3-11 19:19:45

感谢afan:face (14):

dos123 发表于 2010-3-24 20:35:01

非常不错的解决方法

masterpcc 发表于 2010-3-24 20:43:29

唉！！看不明白！再学学！！

jevonleen 发表于 2010-9-14 21:06:25

占个位,以后有用
页: [1]
查看完整版本: TAB控件替换图片问题！(已解决)