同一窗口切换不了图片

siuchingchow

如何在单击右键查看时刷新另外一个人的图片，望好心人帮忙，全部文件在压缩包里！
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#Include <GuiListView.au3>
#NoTrayIcon
$g_szVersion = "notebook"
If WinExists($g_szVersion) Then Exit ;检查指定的窗口是否存在,不允许运行多个窗口
AutoItWinSetTitle($g_szVersion);修改 AutoIt 窗口的标题名.
$database="vista.mdb";连接数据库
$password=""
$con=ObjCreate("adodb.connection")
$sql=$con.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&$database&";Jet Oledb:Database Password="&$password)
#Region ### START Koda GUI section ### Form=D:\netgame\mynotebook\form.kxf
$Form1 = GUICreate("NoteBook", 409, 446, 254, 138)
GUISetFont(10, 400);设置窗口的默认字体.
$PageControl1 = GUICtrlCreateTab(0, 0, 408, 445)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$tongxunlu = GUICtrlCreateTabItem("通讯录");第一分页：通讯录
        $tx_list = GUICtrlCreateListView("", 4, 217, 400, 205)
        $tx_menu = GUICtrlCreateContextMenu($tx_list);在指定控件或GUI窗口上创建右键菜单。GUICtrlCreateContextMenu ( [控件ID] )
        $tx_view=GUICtrlCreateMenuItem("查看", $tx_menu)       
        $tx_add=GUICtrlCreateMenuItem("添加", $tx_menu)
        $tx_modi=GUICtrlCreateMenuItem("修改", $tx_menu)
        $tx_del=GUICtrlCreateMenuItem("删除", $tx_menu)
        $tx_flash=GUICtrlCreateMenuItem("刷新",$tx_menu)
;在使用本函数创建右键菜单的主控件之后，即可使用 GUICtrlCreateMenuItem 来创建每个菜单项。
        GUICtrlSetStyle($tx_list,BitOR($LVS_NOCOLUMNHEADER,$LVS_SORTASCENDING,$LVS_SINGLESEL,$LVS_LIST))
        ;$LVS_LIST这个样式指定控件显示为一个列表.$LVS_SINGLESEL只需选中一个项目,同样的项目也会被选中(点一个选一行).$LVS_SORTASCENDING项目索引将使用递增自动排列.
        ;$LVS_NOCOLUMNHEADER不在报告样式中显示列表头. 默认情况下, 列表头在报告样式的ListView控件中是存在的 .
        $Group1 = GUICtrlCreateGroup("详细信息", 4, 23, 400, 190)
        $tx_pic = GUICtrlCreatePic("pic\pic1.jpg", 8, 40, 120, 169)
        $tx_name =  GUICtrlCreateLabel("姓    名：张三", 140, 40, 270,17)
        $tx_zhiye = GUICtrlCreateLabel("职    业：网络管理员", 140, 64, 270,17)
        $tx_birth = GUICtrlCreateLabel("生    日：198*-8-5", 140, 88, 270,17)
        $tx_phone = GUICtrlCreateLabel("电话号码：135320940**", 140, 112, 270,17)
        $tx_QQ =    GUICtrlCreateLabel("OIQQ号码：275988582", 140, 136, 270,17)
        $tx_danwei = GUICtrlCreateLabel("单位地址：中山市", 140, 160, 270,17)
        $tx_addr = GUICtrlCreateLabel("家庭住址：广西", 140, 184, 270,17)
        GUICtrlCreateGroup("", -99, -99, 1, 1)
        $tx_toolbar = _GUICtrlStatusBar_Create($Form1)
        _GUICtrlStatusBar_SetMinHeight($tx_toolbar, 17)
GUICtrlCreateTabItem("")
_read_tx()
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
        Case $GUI_EVENT_CLOSE
                Exit
        Case $tx_view
                $tx_name1 = _GUICtrlListView_GetItemText($tx_list, _GUICtrlListView_GetNextItem($tx_list), 0)
                $rs=ObjCreate("adodb.recordset")
                $rs.activeconnection=$con
                $rs.open("select * from txl where tx_name='"&$tx_name1&"'")
                while Not $RS.eof And Not $RS.bof
                if @error =1 Then ExitLoop
                GUICtrlDelete($tx_pic)
                $tx_pic1= GUICtrlCreatePic($RS.Fields (1).value, 8, 40, 120, 169)
                GUISwitch($tx_pic1)
                ;GUICtrlSetData($tx_pic1,$RS.Fields (1).value)
                GUICtrlSetData($tx_name,"姓    名："&$RS.Fields (2).value)
                GUICtrlSetData($tx_zhiye,"职    业："&$RS.Fields (3).value)
                GUICtrlSetData($tx_birth,"生    日："&$RS.Fields (4).value)
                GUICtrlSetData($tx_phone,"电话号码："&$RS.Fields (5).value)
                GUICtrlSetData($tx_QQ,"OIQQ号码："&$RS.Fields (6).value)
                GUICtrlSetData($tx_danwei,"单位地址："&$RS.Fields (7).value)
                GUICtrlSetData($tx_addr,"家庭住址："&$RS.Fields (8).value)                       
                $rs.movenext
                WEnd
                $rs.close
EndSwitch
WEnd
Func _read_tx()
        GUICtrlSendMsg($tx_list,$LVM_DELETEALLITEMS, 0, 0);由于listview control在创建时是不可见的,现在我们把它显示出来.还有 要把其中的所有元素(如果有的话)删掉.
        $rs=ObjCreate("adodb.recordset")
        $rs.activeconnection=$con
                $rs.open("select * from txl")
                        while Not $RS.eof And Not $RS.bof
           if @error =1 Then ExitLoop
            GUICtrlCreateListViewItem ($RS.Fields (2).value,$tx_list )
             $rs.movenext
                 WEnd
                $rs.close
EndFunc

顽固不化

图片控件与TAB同时存在时，应该先画PIC，后画TAB。这样图就可以透过TAB显示出来。
就你这个例子，我建议你不要采用删除、重建PIC控件的办法来替换图片，不是有guictrlsetimage吗？

siuchingchow

2# 顽固不化
谢谢你，可以了，不胜感激