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

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

本帖最后由 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[4])
   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[0]
   $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[0] To $Pic[UBound($Pic) - 1]
      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

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

		自动登录	找回密码
密码			加入

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

相关帖子

评分