找回密码
 加入
搜索
AUTOIT CN»论坛 › AU3交流 › 『 提问交流 』 › 已解决问题区 › 这是tab标签吗？有谁做过[已解决]
1234下一页
返回列表 发新帖
楼主: cqboyqx

[AU3基础] 这是tab标签吗？有谁做过[已解决]

 火... [复制链接]
cqboyqx
 楼主| 发表于 2018-5-14 18:50:01 | 显示全部楼层
本帖最后由 cqboyqx 于 2018-5-14 18:54 编辑

回复 4# afan

你这个是au3写的吗，能发源码出来让我们学习下吗？模仿得太好了
回复

举报

Au3代码高亮发贴标签： [AU3] 你的代码 [/AU3]                   支持论坛的发展，请添加此》》网址导航《《为您的主页          
chzj589
发表于 2018-5-15 09:35:08 | 显示全部楼层
用Label模拟TAB标签，在点击时设置相关控件(子窗口)的坐标及显示状态，控件较多的话就用子窗口

以下自娱 ...
afan 发表于 2018-5-10 14:06


学习了，动手才能进步

本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有账号？加入

×
回复

举报

afan
发表于 2018-5-15 10:14:20 | 显示全部楼层
回复 16# cqboyqx


    当然是au3写的，在本论坛，除了说明非au3编写外，基本都是au3的。
你提出的问题，大家已经给你做出了回答，我那个预览也只是想说明au3能做的事很多，界面自然不在话下。
思路之前就告诉你了。原材料也和你说了，而且加入了你的预览图没有的再次点击会由展开变折叠、展开变色的思路，剩下的可以自己动手。
回复

举报

afan
发表于 2018-5-15 10:16:33 | 显示全部楼层
回复 17# chzj589


    前辈将坐标调精准点会更好，当然可能也有样式的影响
回复

举报

chzj589
发表于 2018-5-15 10:22:10 | 显示全部楼层
回复  chzj589


    前辈将坐标调精准点会更好，当然可能也有样式的影响
afan 发表于 2018-5-15 10:16

谢谢指导。谢谢！
回复

举报

cqboyqx
 楼主| 发表于 2018-5-15 10:46:46 | 显示全部楼层
本帖最后由 cqboyqx 于 2018-5-15 10:49 编辑

回复 18# afan

我想知道你这个线框是这么处理的，处理得那么完好无缝，你就不要吝啬了嘛。让我们菜鸟开哈眼界

本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有账号？加入

×
回复

举报

chzj589
发表于 2018-5-15 17:11:52 | 显示全部楼层
回复  chzj589
    前辈将坐标调精准点会更好，当然可能也有样式的影响
afan 发表于 2018-5-15 10:16

是系统环境问题，还是控件的样式问题？
我用：GUICtrlCreateLabel("合同管理", 15, 35, 201, 25,$SS_SUNKEN+ $SS_CENTER + $SS_CENTERIMAGE)
就是达不到您的效果

本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有账号？加入

×
回复

举报

afan
发表于 2018-5-15 18:07:59 | 显示全部楼层
是系统环境问题，还是控件的样式问题？
我用：GUICtrlCreateLabel("合同管理", 15, 35, 201, 25,$SS_SUN ...
chzj589 发表于 2018-5-15 17:11



    可以用公共样式 $WS_BORDER
GUICtrlCreateLabel('合同管理', 15, 35, 201, 25, $WS_BORDER)
回复

举报

chzj589
发表于 2018-5-15 18:57:35 | 显示全部楼层
可以用公共样式 $WS_BORDER
GUICtrlCreateLabel('合同管理', 15, 35, 201, 25, $WS_BORDER)
afan 发表于 2018-5-15 18:07


谢谢！真的是控件的样式问题。
回复

举报

qsy666888
发表于 2018-5-16 11:18:08 | 显示全部楼层
本帖最后由 qsy666888 于 2018-5-16 12:33 编辑

根据前面三个大佬的思路，弄了一个


本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有账号？加入

×
回复

举报

水木子
发表于 2018-5-16 16:57:42 | 显示全部楼层
回复  cqboyqx


    当然是au3写的，在本论坛，除了说明非au3编写外，基本都是au3的。
你提出的问题， ...
afan 发表于 2018-5-15 10:14


同意afan前辈的观点，请不要质疑Au3的能力。
回复

举报

chzj589
发表于 2018-5-17 08:48:25 | 显示全部楼层
同意afan前辈的观点，请不要质疑Au3的能力。
水木子 发表于 2018-5-16 16:57


本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有账号？加入

×
回复

举报

志艺风云
发表于 2018-5-17 10:59:48 | 显示全部楼层
根据前面三个大佬的思路，弄了一个
qsy666888 发表于 2018-5-16 11:18



    这个好，看着舒服。
回复

举报

水木子
发表于 2018-5-18 14:31:51 | 显示全部楼层
本帖最后由 水木子 于 2018-5-19 12:40 编辑

大家都好厉害，模拟出来的效果都这么好。
我也来凑个热闹吧！

附上我的源码，调整数组大小即可获得不同数量的Tab哦！
#include <GuiTreeView.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

Global $aTab[5][3]
Global $iLeft = 10, $iTop = 10
Global $iTabWidth = 200, $iTabHeight = 40
Global $iSpacingX = 50, $iSpacingY = $iTabHeight - 1

Global $iGuiLeft = 48, $iGuiTop = 49
Global $iGuiWidth = 160, $iGuiHeight = 350
Global $iSelected
Global $bBoolean = False

$hGui1 = GUICreate('', 220, 650)
GUISetBkColor(0xFCE6C9)
GUICtrlSetDefBkColor(0xC0C0C0)

For $i = 0 To UBound($aTab) - 1
        $aTab[$i][0] = GUICtrlCreateLabel('Tab - ' & $i + 1, $iLeft, $iTop + ($iSpacingY * $i), $iTabWidth, $iTabHeight, $SS_CENTER + $SS_CENTERIMAGE + $WS_BORDER)
        GUICtrlSetFont(-1, 12, 400, 0, '微软雅黑')
Next

For $i = 0 To UBound($aTab) - 1
        $aTab[$i][2] = GUICtrlCreateIcon('shell32.dll', $i + 10, $iLeft + 10, $iTop + 10 + ($iSpacingY * $i), 16, 16)
Next

$iLine = GUICtrlCreateLabel('', $iGuiLeft + 1, $iGuiTop, $iGuiWidth, 1)
GUICtrlSetState($iLine, $GUI_HIDE)

For $i = 0 To UBound($aTab) - 1
        $aTab[$i][1] = GUICreate('', $iGuiWidth, $iGuiHeight, $iGuiLeft, $iGuiTop + ($iSpacingY * $i), $WS_CHILD + $WS_BORDER, -1, $hGui1)
        GUISetBkColor(0xA9A9A9)
        GUICtrlSetDefBkColor(0xA9A9A9)
        $TreeView1 = GUICtrlCreateTreeView(5, 5, 158, $iGuiHeight - 10)
        GUICtrlSetImage(-1, 'shell32.dll', $i + 10)
        $TvItem1 = GUICtrlCreateTreeViewItem('TreeView' & $i + 1, $TreeView1)
        GUICtrlSetImage(-1, 'shell32.dll', $i + 11)
        GUICtrlCreateTreeViewItem('TvItem' & $i + 1 & ' - 1', $TvItem1)
        GUICtrlCreateTreeViewItem('TvItem' & $i + 1 & ' - 2', $TvItem1)
        GUICtrlCreateTreeViewItem('TvItem' & $i + 1 & ' - 3', $TvItem1)
Next

GUISetState(@SW_SHOW, $hGui1)

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case -3
                        ExitLoop
                Case $aTab[0][0] To $aTab[UBound($aTab) - 1][0]
                        $iIndex = $nMsg - $aTab[0][0]
                        If $iSelected <> $iIndex Then
                                ConsoleWrite($iIndex)
                                SetCtrlState($iIndex)
                        Else
                                If $bBoolean = True Then
                                        SetCtrlState2($iIndex)
                                        $bBoolean = Not $bBoolean
                                Else        
                                        SetCtrlState($iIndex)
                                        $bBoolean = Not $bBoolean
                                EndIf
                        EndIf        
                                
                        $iSelected = $iIndex        
        EndSwitch
WEnd

Func SetCtrlState($iIndex)
        Local $iTabTop2
        GUICtrlSetBkColor($iLine, 0xA9A9A9)
        ControlMove($hGui1, '', $iLine, $iGuiLeft + 1, $iGuiTop + ($iSpacingY * $iIndex))
        GUICtrlSetState($iLine, $GUI_SHOW)
        
        For $i = 0 To UBound($aTab) - 1
                If $i > $iIndex Then
                        $iTabTop2 = $iGuiHeight
                Else
                        $iTabTop2 = 10
                EndIf
                
                ControlMove($hGui1, '', $aTab[$i][0], $iLeft, $iTabTop2 + ($iSpacingY * $i))
                ControlMove($hGui1, '', $aTab[$i][2], $iLeft + 10, $iTabTop2 + 10 + ($iSpacingY * $i))
                
                GUICtrlSetState($aTab[$i][0], $GUI_SHOW)
        Next

        For $i = 0 To UBound($aTab) - 1
                If $i = $iIndex Then
                        GUICtrlSetBkColor($aTab[$i][0], 0xA9A9A9)
                Else
                        GUICtrlSetBkColor($aTab[$i][0], 0xC0C0C0)
                EndIf
        Next                
        
        For $i = 0 To UBound($aTab) - 1
                GUISetState(@SW_HIDE, $aTab[$i][1])
        Next
        
        GUISetState(@SW_SHOW, $aTab[$iIndex][1])
EndFunc   ;==>SetCtrlState

Func SetCtrlState2($iIndex)
        Local $iTabTop3 = 10
        GUICtrlSetBkColor($iLine, 0x646464)
        ControlMove($hGui1, '', $iLine, $iGuiLeft + 1, $iGuiTop + ($iSpacingY * $iIndex))
        GUICtrlSetState($iLine, $GUI_SHOW)
        
        For $i = 0 To UBound($aTab) - 1
                ControlMove($hGui1, '', $aTab[$i][0], $iLeft, $iTabTop3 + ($iSpacingY * $i))
                ControlMove($hGui1, '', $aTab[$i][2], $iLeft + 10, $iTabTop3 + 10 + ($iSpacingY * $i))
                GUICtrlSetState($aTab[$i][0], $GUI_SHOW)
                
                GUICtrlSetBkColor($aTab[$i][0], 0xC0C0C0)
        Next        
        
        For $i = 0 To UBound($aTab) - 1
                GUISetState(@SW_HIDE, $aTab[$i][1])
        Next        
EndFunc   ;==>SetCtrlState
回复

举报

水木子
发表于 2018-5-18 14:35:07 | 显示全部楼层
再来个易读版的，免得又有人说数组变量太多，看晕了。
#include <GuiTreeView.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

$hGui0 = GUICreate('', 220, 600)
GUISetBkColor(0xFFFFFF)
GUICtrlSetDefBkColor(0xC0C0C0)

$Button1 = GUICtrlCreateLabel('Tab - 1', 10, 10, 200, 40, $SS_CENTER + $SS_CENTERIMAGE + $WS_BORDER)
GUICtrlSetFont(-1, 12, 400, 0, '微软雅黑')
$Button2 = GUICtrlCreateLabel('Tab - 2', 10, 450, 200, 40, $SS_CENTER + $SS_CENTERIMAGE + $WS_BORDER)
GUICtrlSetFont(-1, 12, 400, 0, '微软雅黑')
$Button3 = GUICtrlCreateLabel('Tab - 3', 10, 489, 200, 40, $SS_CENTER + $SS_CENTERIMAGE + $WS_BORDER)
GUICtrlSetFont(-1, 12, 400, 0, '微软雅黑')
$Button4 = GUICtrlCreateLabel('Tab - 4', 10, 528, 200, 40, $SS_CENTER + $SS_CENTERIMAGE + $WS_BORDER)
GUICtrlSetFont(-1, 12, 400, 0, '微软雅黑')

$Button0 = GUICtrlCreateLabel('', 41, 49, 168, 1)

$hGui1 = GUICreate('', 168, 400, 40, 49, $WS_CHILD + $WS_BORDER, -1, $hGui0)
GUISetBkColor(0xC0C0C0)
GUICtrlSetDefBkColor(0xC0C0C0)
$iTreeview1 = GUICtrlCreateTreeView(5, 5, 158, 390)
GUICtrlSetImage(-1, 'shell32.dll', 14)
$iTvItem1 = GUICtrlCreateTreeViewItem('TreeView1', $iTreeview1)
GUICtrlSetImage(-1, 'shell32.dll', 15)
GUICtrlCreateTreeViewItem('TvItem1 - 1', $iTvItem1)
GUICtrlCreateTreeViewItem('TvItem1 - 2', $iTvItem1)
GUICtrlCreateTreeViewItem('TvItem1 - 3', $iTvItem1)

$hGui2 = GUICreate('', 168, 400, 40, 88, $WS_CHILD + $WS_BORDER, -1, $hGui0)
GUISetBkColor(0xC0C0C0)
GUICtrlSetDefBkColor(0xC0C0C0)
$iTreeview2 = GUICtrlCreateTreeView(5, 5, 158, 390)
GUICtrlSetImage(-1, 'shell32.dll', 16)
$iTvItem2 = GUICtrlCreateTreeViewItem('TreeView2', $iTreeview2)
GUICtrlSetImage(-1, 'shell32.dll', 17)
GUICtrlCreateTreeViewItem('TvItem2 - 1', $iTvItem2)
GUICtrlCreateTreeViewItem('TvItem2 - 2', $iTvItem2)
GUICtrlCreateTreeViewItem('TvItem2 - 3', $iTvItem2)

$hGui3 = GUICreate('', 168, 400, 40, 127, $WS_CHILD + $WS_BORDER, -1, $hGui0)
GUISetBkColor(0xC0C0C0)
GUICtrlSetDefBkColor(0xC0C0C0)
$iTreeview3 = GUICtrlCreateTreeView(5, 5, 158, 390)
GUICtrlSetImage(-1, 'shell32.dll', 18)
$iTvItem3 = GUICtrlCreateTreeViewItem('TreeView3', $iTreeview3)
GUICtrlSetImage(-1, 'shell32.dll', 19)
GUICtrlCreateTreeViewItem('TvItem3 - 1', $iTvItem3)
GUICtrlCreateTreeViewItem('TvItem3 - 2', $iTvItem3)
GUICtrlCreateTreeViewItem('TvItem3 - 3', $iTvItem3)

$hGui4 = GUICreate('', 168, 400, 40, 166, $WS_CHILD + $WS_BORDER, -1, $hGui0)
GUISetBkColor(0xC0C0C0)
GUICtrlSetDefBkColor(0xC0C0C0)
$iTreeview4 = GUICtrlCreateTreeView(5, 5, 158, 390)
GUICtrlSetImage(-1, 'shell32.dll', 20)
$iTvItem4 = GUICtrlCreateTreeViewItem('TreeView3', $iTreeview4)
GUICtrlSetImage(-1, 'shell32.dll', 21)
GUICtrlCreateTreeViewItem('TvItem3 - 1', $iTvItem4)
GUICtrlCreateTreeViewItem('TvItem3 - 2', $iTvItem4)
GUICtrlCreateTreeViewItem('TvItem3 - 3', $iTvItem4)

GUISetState(@SW_SHOW, $hGui0)
GUISetState(@SW_SHOW, $hGui1)

While 1
        Switch GUIGetMsg()
                Case -3
                        ExitLoop
                Case $Button1
                        ControlMove($hGui0, '', $Button0, 41, 49)
                        ControlMove($hGui0, '', $Button1, 10, 10)
                        ControlMove($hGui0, '', $Button2, 10, 450)
                        ControlMove($hGui0, '', $Button3, 10, 489)
                        ControlMove($hGui0, '', $Button4, 10, 528)
                        
                        GUICtrlSetState($Button0, $GUI_SHOW)
                        GUICtrlSetState($Button1, $GUI_SHOW)
                        GUICtrlSetState($Button2, $GUI_SHOW)
                        GUICtrlSetState($Button3, $GUI_SHOW)
                        GUICtrlSetState($Button4, $GUI_SHOW)
                        
                        GUISetState(@SW_HIDE, $hGui2)
                        GUISetState(@SW_HIDE, $hGui3)
                        GUISetState(@SW_HIDE, $hGui4)
                        GUISetState(@SW_SHOW, $hGui1)                        
                        
                Case $Button2
                        ControlMove($hGui0, '', $Button0, 41, 88)
                        ControlMove($hGui0, '', $Button1, 10, 10)
                        ControlMove($hGui0, '', $Button2, 10, 49)
                        ControlMove($hGui0, '', $Button3, 10, 489)
                        ControlMove($hGui0, '', $Button4, 10, 528)
                        
                        GUICtrlSetState($Button0, $GUI_SHOW)
                        GUICtrlSetState($Button1, $GUI_SHOW)
                        GUICtrlSetState($Button2, $GUI_SHOW)
                        GUICtrlSetState($Button3, $GUI_SHOW)
                        GUICtrlSetState($Button4, $GUI_SHOW)
                        
                        GUISetState(@SW_HIDE, $hGui1)
                        GUISetState(@SW_HIDE, $hGui3)
                        GUISetState(@SW_HIDE, $hGui4)
                        GUISetState(@SW_SHOW, $hGui2)
                
                Case $Button3
                        ControlMove($hGui0, '', $Button0, 41, 127)
                        ControlMove($hGui0, '', $Button1, 10, 10)
                        ControlMove($hGui0, '', $Button2, 10, 49)
                        ControlMove($hGui0, '', $Button3, 10, 88)
                        ControlMove($hGui0, '', $Button4, 10, 528)
                        
                        GUICtrlSetState($Button0, $GUI_SHOW)
                        GUICtrlSetState($Button1, $GUI_SHOW)
                        GUICtrlSetState($Button2, $GUI_SHOW)
                        GUICtrlSetState($Button3, $GUI_SHOW)
                        GUICtrlSetState($Button4, $GUI_SHOW)
                        
                        GUISetState(@SW_HIDE, $hGui1)
                        GUISetState(@SW_HIDE, $hGui2)
                        GUISetState(@SW_HIDE, $hGui4)
                        GUISetState(@SW_SHOW, $hGui3)        

                Case $Button4
                        ControlMove($hGui0, '', $Button0, 41, 166)
                        ControlMove($hGui0, '', $Button1, 10, 10)
                        ControlMove($hGui0, '', $Button2, 10, 49)
                        ControlMove($hGui0, '', $Button3, 10, 88)
                        ControlMove($hGui0, '', $Button4, 10, 127)
                        
                        GUICtrlSetState($Button0, $GUI_SHOW)
                        GUICtrlSetState($Button1, $GUI_SHOW)
                        GUICtrlSetState($Button2, $GUI_SHOW)
                        GUICtrlSetState($Button3, $GUI_SHOW)
                        GUICtrlSetState($Button4, $GUI_SHOW)
                        
                        GUISetState(@SW_HIDE, $hGui1)
                        GUISetState(@SW_HIDE, $hGui2)
                        GUISetState(@SW_HIDE, $hGui3)
                        GUISetState(@SW_SHOW, $hGui4)
        EndSwitch
WEnd
回复

举报

下一页 »
1234下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-11-16 17:48 , Processed in 0.085969 second(s), 20 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表