论坛 › 已解决问题区 › 【已解决】tab标签皮肤研究失败，特来请教。

qq309266378 发表于 2012-7-17 00:21:50

【已解决】tab标签皮肤研究失败，特来请教。

本帖最后由 qq309266378 于 2012-7-30 20:40 编辑

$Item = -1
$Over = -1

While 1
   $Info = GUIGetCursorInfo()
   If @error Then
      If $Over <> -1 Then
         GUICtrlSetImage($Pic[$Over], @ScriptDir & '\img_black.bmp')
      EndIf
      $Over = -1
   Else
      $Index = _Index($Info)
      If $Index <> $Over Then
         If $Over <> -1 Then
            GUICtrlSetImage($Pic[$Over], @ScriptDir & '\img_black.bmp')
         EndIf
         If ($Index <> -1) And ($Index <> $Item) Then
            GUICtrlSetImage($Pic[$Index], @ScriptDir & '\img_over.bmp')
            $Over = $Index
         Else
            $Over = -1
         EndIf
      EndIf
   EndIf
   $Msg = GUIGetMsg()
   If $Item = -1 Then
      $Msg = $Pic
      $Item = 1
   EndIf
   Switch $Msg
      Case 0
         ContinueLoop
      Case $GUI_EVENT_CLO

qq309266378 发表于 2012-7-17 00:26:17

本帖最后由 qq309266378 于 2012-7-18 17:03 编辑

Exit
      Case $Pic To $Pic
         If $Msg <> $Pic[$Item] Then
            GUICtrlSetImage($Pic[$Item], @ScriptDir & '\img_black.bmp')
            GUICtrlSetcolor($Pic[$Item] + 1, 0xFFFFFF)
            GUICtrlSetImage($Msg, @ScriptDir & '\img_white.bmp')
            GUICtrlSetcolor($Msg + 1, 0x313A42)
            $Item = _Index($Msg)
            GUICtrlSendMsg($Tab, $TCM_SETCURFOCUS, $Item, 0)
            $Over = -1
         EndIf
   EndSwitch
WEnd

Func _Index($CtrlID)
   For $i = 0 To UBound($Pic) - 1
      If ($CtrlID = $Pic[$i]) Or ($CtrlID = $Pic[$i] + 1) Then
         Return $i
      EndIf
   Next
   Return -1
EndFunc   ;==>_Index
上面的代码学生不懂，求翻译

xiaowo 发表于 2012-7-17 00:40:56

晕，代码这么乱，编辑一下好吗，好让帮你的人看得没这么吃力…

zcx880517 发表于 2012-7-17 09:41:36

楼主忙活了半天，，准备问什么问题？

qq309266378 发表于 2012-7-20 22:54:59

回复 3# 不好意思，我的失误，代码我重新贴了，麻烦帮注释下嘿嘿xiaowo

qq309266378 发表于 2012-7-20 22:58:36

回复 4# 大大您好，我是想请教1楼和2楼的代码是什么意思，小弟研究了好几天其他的能懂，就这些有点忒复杂，如果您有时间的话请帮忙看看注释下是什么意思……zcx880517

夜猫猫 发表于 2012-7-22 19:15:19

有事没事..先找百度.........

qq309266378 发表于 2012-7-30 20:39:37

百度找了都没有的。。。所以才来请教的。。。

查看完整版本: 【已解决】tab标签皮肤研究失败，特来请教。