haodd 发表于 2011-9-1 21:46:49

窗体进度条不能正常更新 GUICtrlCreateProgress【已解决】

本帖最后由 haodd 于 2011-9-3 09:27 编辑

已解决 把 创建(GUICtrlCreateProgress) 和 数据设置 (GUICtrlSetData)分开写创建GUICtrlCreateProgress只需要一次即可!

下面是错误的例子!



Func _SelectSQL()
        $sServer = "10.10.10"
        $sUsername = "sa"
        $sPassword = "***"
        $sDatabase = "DB" ;库名
        $sTable = "Count"    ;表
        $adodb = ObjCreate("ADODB.Connection")
        $adodb.Open("driver={SQL Server};server=" & $sServer & ";uid=" & $sUsername & ";pwd=" & $sPassword & ";database=" & $sDatabase & "")
        $RS2 = ObjCreate("ADODB.Recordset")
        $RS2.ActiveConnection = $adodb
        $RS2.Open("SELECT * FROM LinkCount")
        Dim $Count = 1;定义一个变量用来记录查询到的数据行数
        Dim $L = 72       
        While Not $RS2.eof And Not $RS2.bof
                If @error = 1 Then ExitLoop
                ReDim $Name[$Count + 1],$Count[$Count + 1],$Progress[$Count + 1]
                $Name[$Count] = GUICtrlCreateLabel($RS2.Fields("字段1").Value, 16, $L, 52, 17)
                $Count[$Count] = GUICtrlCreateLabel($RS2.Fields("字段2").Value, 80, $L, 36, 17)
                $Progress[$Count]= GUICtrlCreateProgress(128, $L, 122, 16,BitOR($PBS_SMOOTH, $WS_CLIPSIBLINGS))
;~                 GUICtrlSetColor($Progress[$Count], 0x73D73A)
                GUICtrlSetData($Progress[$Count],Number($RS2.Fields("统计").Value)/$Refer*100)
                $DBtime = $RS2.Fields("时间").value
                $L += 24
                $Count += 1
                $RS2.movenext
        WEnd
        $RS2.Close
        $adodb.Close
;~         $rows = UBound($Select_Db)
;~ _ArrayDisplay($Select_Db)
        $Label2 = GUICtrlCreateLabel("刷新时间:" & @YEAR & "-" & @MON & "-" & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC, 16, 10, 200, 17)
;~        $Label3 = GUICtrlCreateLabel("数据时间:" & _format_time($DBtime), 16, 30, 200, 17)
EndFunc   ;==>_SelectSQL



程序运行 显示的进度条


更改数据库里面的值后,能正确读取到修改的值27222,但是进度条却没有正常刷新


请教 怎么回事?

haijie1223 发表于 2011-9-2 06:24:37

回复 1# haodd

是不是guictrlsetdata

haodd 发表于 2011-9-2 08:32:32

回复 2# haijie1223


    我就是用这个呀

haodd 发表于 2011-9-2 14:34:26

还没有解决 顶上先 嘻嘻

haodd 发表于 2011-9-3 09:24:40

已解决 把 创建 和 数据设置 分开写创建一次即可!

Tursun 发表于 2016-2-18 15:13:24

这个怎么弄
页: [1]
查看完整版本: 窗体进度条不能正常更新 GUICtrlCreateProgress【已解决】