找回密码  加入

AUTOIT CN

搜索
查看: 1150|回复: 51

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

[复制链接]
发表于 2018-5-10 12:32:24 | 显示全部楼层 |阅读模式
本帖最后由 cqboyqx 于 2018-5-31 00:06 编辑

我在别的软件上看到这种标签,是tab标签弄的吗?



  1. #include <GUIConstantsEx.au3>
  2. #include <TabConstants.au3>
  3. #include <WindowsConstants.au3>
  4. #Region ### START Koda GUI section ### Form=
  5. $Form1 = GUICreate("Form1", 615, 437, 192, 124)
  6. $Tab1 = GUICtrlCreateTab(16, 8, 569, 409,$TCS_VERTICAL)
  7. $TabSheet1 = GUICtrlCreateTabItem("合同风格")
  8. GUICtrlSetState(-1,$GUI_SHOW)
  9. $Group1 = GUICtrlCreateGroup("Group1", 56, 40, 185, 385)
  10. $TreeView1 = GUICtrlCreateTreeView(64, 56, 169, 361)
  11. GUICtrlCreateGroup("", -99, -99, 1, 1)
  12. $TabSheet2 = GUICtrlCreateTabItem("文档风格")
  13. $Group2 = GUICtrlCreateGroup("Group2", 40, 40, 185, 385)
  14. $TreeView2 = GUICtrlCreateTreeView(48, 56, 169, 361)
  15. GUICtrlCreateGroup("", -99, -99, 1, 1)
  16. $TabSheet3 = GUICtrlCreateTabItem("归档风格")
  17. $Group3 = GUICtrlCreateGroup("Group3", 112, 40, 185, 385)
  18. $TreeView3 = GUICtrlCreateTreeView(120, 56, 169, 361)
  19. GUICtrlCreateGroup("", -99, -99, 1, 1)
  20. $TabSheet4 = GUICtrlCreateTabItem("付款风格")

  21. $Group4 = GUICtrlCreateGroup("Group4", 264, 40, 185, 385)
  22. $TreeView4 = GUICtrlCreateTreeView(272, 56, 169, 361)
  23. GUICtrlCreateGroup("", -99, -99, 1, 1)
  24. GUICtrlCreateTabItem("")
  25. GUISetState(@SW_SHOW)
  26. #EndRegion ### END Koda GUI section ###

  27. While 1
  28.         $nMsg = GUIGetMsg()
  29.         Switch $nMsg
  30.                 Case $GUI_EVENT_CLOSE
  31.                         Exit

  32.         EndSwitch
  33. WEnd
复制代码

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?加入

x
发表于 2018-5-10 12:39:06 | 显示全部楼层
本帖最后由 tubaba 于 2018-5-10 12:40 编辑

看样子应该是treeview,粗体字的项目只是主项,下面看起来是目录树的treeview只是粗体字项目的子项
发表于 2018-5-10 13:39:25 | 显示全部楼层
回复 1# cqboyqx

tubaba有这方面的
    http://www.autoit3.cn/thread-53514-1-1.html

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?加入

x
发表于 2018-5-10 14:06:39 | 显示全部楼层
本帖最后由 afan 于 2018-5-13 12:32 编辑

用Label模拟TAB标签,在点击时设置相关控件(子窗口)的坐标及显示状态,控件较多的话就用子窗口

以下自娱自乐,子窗口 + Label + Icon

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?加入

x
发表于 2018-5-10 17:52:20 | 显示全部楼层
这个应该不是tab标签,那软件是AU3做的吗
 楼主| 发表于 2018-5-10 21:35:45 | 显示全部楼层
回复 5# 志艺风云

不是AU3做的,也不知道用什么编写的,如果au3能做出来也不错
发表于 2018-5-11 14:57:38 | 显示全部楼层
回复 1# cqboyqx

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?加入

x
 楼主| 发表于 2018-5-12 06:37:36 | 显示全部楼层
回复 7# chzj589
厉害厉害,有点相似
 楼主| 发表于 2018-5-12 15:31:00 | 显示全部楼层
回复 7# chzj589

源码可以发出来学习一下吗?大大
发表于 2018-5-12 16:00:32 | 显示全部楼层
本帖最后由 chzj589 于 2018-5-12 16:04 编辑

回复 9# cqboyqx
用Label模拟TAB标签,在点击时设置相关控件(子窗口)的坐标及显示状态,控件较多的话就用子窗口
afan 发表于 2018-5-10 14:06



就是用Label模拟TAB标签


YueFenH.ini

[IDC]
1=合同管理
2=客商管理
3=项目管理
4=货品管理
5=文档管理
6=统计汇总
7=系统设置
[IDCC]
1=第一菜单
2=第二菜单
3=第三菜单
4=第四菜单
5=第五菜单
6=第六菜单
7=第七菜单
8=第八菜单
9=第九菜单
10=第十菜单

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?加入

x
发表于 2018-5-12 18:03:27 | 显示全部楼层
回复 10# chzj589

  1. #AutoIt3Wrapper_icon=line.ico; zzsy.ico;                              C:\WINDOWS\system32\SHELL32.dll|-39.ico
  2. #AutoIt3Wrapper_OutFile= Label模拟TAB标签.exe                            ;输出文件名
  3. #AutoIt3Wrapper_Res_LegalCopyright=Copyright (c) chzj589 20180214
  4. #AutoIt3Wrapper_OutFile_Type=exe                                                        ;文件类型
  5. #AutoIt3Wrapper_UseX64 = n
  6. #AutoIt3Wrapper_Compression=4                                                                ;压缩等级
  7. #AutoIt3Wrapper_UseUPX=y
  8. #AutoIt3Wrapper_Res_Comment= Label模拟TAB标签                                ;注释
  9. #AutoIt3Wrapper_Res_Description=Label模拟TAB标签                               ;详细信息
  10. #AutoIt3Wrapper_Res_FileVersion=1.0.0.0
  11. #AutoIt3Wrapper_Res_Field=ProductName|Label模拟TAB标签程序--win7-64-3.3.14.2;产品说明
  12. #AutoIt3Wrapper_Res_Field=OriginalFilename|Label模拟TAB标签.au3
  13. #AutoIt3Wrapper_Res_Language=2052
  14. #include <GUIConstantsEx.au3>
  15. #include <StaticConstants.au3>
  16. #include <WindowsConstants.au3>
  17. #include <GuiListView.au3>
  18. #include <GuiImageList.au3>
  19. #include <ListViewConstants.au3>
  20. #include <ListBoxConstants.au3>
  21. #include <GuiButton.au3>
  22. #include <GuiListBox.au3>
  23. Opt("GUIOnEventMode", 1)
  24. Global $Form1, $PListViewa5, $plusBtn6
  25. Local $sFilePathb1 = "YueFenh.ini"
  26. Local $aArraya1 = IniReadSection($sFilePathb1, "IDCC")
  27. _Form1()
  28. While 1
  29.         Sleep(1000)
  30. WEnd
  31. Func _Form1()
  32.         #Region ### START Koda GUI section ### Form=
  33.         $Form1 = GUICreate("Label模拟TAB标签", 800, 466, -1, -1, $WS_OVERLAPPEDWINDOW)
  34.         GUISetOnEvent($GUI_EVENT_CLOSE, "btnClose")
  35.         GUISetBkColor(0xC0E0FF)
  36.         $plusBtn6 = GUICtrlCreateLabel("可在这里添加你的文件", 330, 168, 460, 40)
  37.         GUICtrlSetFont(-1, 18, 600)
  38.         GUICtrlSetColor(-1, 0xFF000F7F)
  39.         GUICtrlSetBkColor(-1, -2)
  40.         GUICtrlSetCursor(-1, 0)
  41.         $Group2 = GUICtrlCreateLabel("", 30, 10, 245, 430)
  42.         GUICtrlSetBkColor(-1, 0xC0C0C0)
  43.         GUICtrlSetColor(-1, 0xfbfcfd)
  44.         GUICtrlSetFont(-1, 11, 800, 0, "微软雅黑")
  45.         ;GUICtrlSetBkColor(-1, -2)
  46.         GUICtrlSetCursor(-1, 0)
  47.         GUICtrlSetState(-1, $GUI_DISABLE)
  48.         $Label1 = GUICtrlCreateLabel("      合同管理", 48, 30, 198, 25)
  49.         GUICtrlSetBkColor(-1, 0x990000)
  50.         GUICtrlSetColor(-1, 0xfbfcfd)
  51.         GUICtrlSetFont(-1, 11, 800, 0, "微软雅黑")
  52.         ;GUICtrlSetBkColor(-1, -2)
  53.         GUICtrlSetCursor(-1, 0)
  54.         $Label2 = GUICtrlCreateLabel("      客商管理", 48, 257, 198, 25)
  55.         GUICtrlSetBkColor(-1, 0x990000)
  56.         GUICtrlSetColor(-1, 0xfbfcfd)
  57.         GUICtrlSetFont(-1, 11, 800, 0, "微软雅黑")
  58.         ;GUICtrlSetBkColor(-1, -2)
  59.         GUICtrlSetCursor(-1, 0)
  60.         $Label3 = GUICtrlCreateLabel("      项目管理", 48, 284, 198, 25)
  61.         GUICtrlSetBkColor(-1, 0x990000)
  62.         GUICtrlSetColor(-1, 0xfbfcfd)
  63.         GUICtrlSetFont(-1, 11, 800, 0, "微软雅黑")
  64.         ;GUICtrlSetBkColor(-1, -2)
  65.         GUICtrlSetCursor(-1, 0)
  66.         $Label4 = GUICtrlCreateLabel("      货品管理", 48, 311, 198, 25)
  67.         GUICtrlSetBkColor(-1, 0x990000)
  68.         GUICtrlSetColor(-1, 0xfbfcfd)
  69.         GUICtrlSetFont(-1, 11, 800, 0, "微软雅黑")
  70.         ;GUICtrlSetBkColor(-1, -2)
  71.         GUICtrlSetCursor(-1, 0)
  72.         $Label5 = GUICtrlCreateLabel("      文档管理", 48, 338, 198, 25)
  73.         GUICtrlSetBkColor(-1, 0x990000);
  74.         GUICtrlSetColor(-1, 0xfbfcfd)
  75.         GUICtrlSetFont(-1, 11, 800, 0, "微软雅黑")
  76.         ;GUICtrlSetBkColor(-1, -2)
  77.         GUICtrlSetCursor(-1, 0)
  78.         $Label6 = GUICtrlCreateLabel("      统计汇总", 48, 365, 198, 25)
  79.         GUICtrlSetBkColor(-1, 0x990000)
  80.         GUICtrlSetColor(-1, 0xfbfcfd)
  81.         GUICtrlSetFont(-1, 11, 800, 0, "微软雅黑")
  82.         ;GUICtrlSetBkColor(-1, -2)
  83.         GUICtrlSetCursor(-1, 0)
  84.         $Label7 = GUICtrlCreateLabel("      系统设置", 48, 392, 198, 25)
  85.         GUICtrlSetBkColor(-1, 0x990000)
  86.         GUICtrlSetColor(-1, 0xfbfcfd)
  87.         GUICtrlSetFont(-1, 11, 800, 0, "微软雅黑")
  88.         ;GUICtrlSetBkColor(-1, -2)
  89.         GUICtrlSetCursor(-1, 0)
  90.         $icoa1 = GUICtrlCreateIcon("", 2, 50, 33, 16, 16)
  91.         GUICtrlSetImage(-1, "shell32.dll", 6)
  92.         $ico2 = GUICtrlCreateIcon("", 2, 50, 259, 16, 16)
  93.         GUICtrlSetImage(-1, "shell32.dll", 46)
  94.         $ico3 = GUICtrlCreateIcon("", 2, 50, 286, 16, 16)
  95.         GUICtrlSetImage(-1, "shell32.dll", 137)
  96.         $ico4 = GUICtrlCreateIcon("", 2, 50, 313, 16, 16)
  97.         GUICtrlSetImage(-1, "shell32.dll", 38)
  98.         $ico5 = GUICtrlCreateIcon("", 2, 50, 340, 16, 16)
  99.         GUICtrlSetImage(-1, "shell32.dll", 146)
  100.         $ico6 = GUICtrlCreateIcon("", 2, 50, 367, 16, 16)
  101.         GUICtrlSetImage(-1, "shell32.dll", 45)
  102.         $ico7 = GUICtrlCreateIcon("", 2, 50, 394, 16, 16)
  103.         GUICtrlSetImage(-1, "shell32.dll", 168)
  104.         $PListViewa5 = GUICtrlCreateList("", 93, 55, 153, 200, $LBS_EXTENDEDSEL)
  105.         $hPListView = GUICtrlGetHandle($PListViewa5)
  106.         ;GUICtrlSetLimit(-1, 200) ; 限制水平滚动
  107.         GUICtrlSetBkColor(-1, 0x990000); 背景色
  108.         GUICtrlSetColor(-1, 0xfbfcfd)
  109.         GUICtrlSetFont(-1, 10, 800, 0, 'Arial')
  110.         GUICtrlSetCursor(-1, 0)
  111.         _ddu()
  112.         GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")
  113.         GUISetState(@SW_SHOW, $Form1)
  114.         #EndRegion ### END Koda GUI section ###
  115. EndFunc   ;==>_Form1
  116. Func _ddu();读取
  117.         GUICtrlSetData($PListViewa5, "")
  118.         For $i = 1 To $aArraya1[0][0]
  119.                 GUICtrlSetData($PListViewa5, $aArraya1[$i][1], "")
  120.         Next
  121. EndFunc   ;==>_ddu
  122. Func btnClose()
  123.         GUIDelete()
  124.         Exit
  125. EndFunc   ;==>btnClose
  126. Func WM_COMMAND($hWnd, $iMsg, $iwParam, $ilParam)
  127.         #forceref $hWnd, $iMsg
  128.         Local $hWndFrom, $iIDFrom, $iCode, $hWndListBox, $hWndListBox1, $txt
  129.         If Not IsHWnd($PListViewa5) Then $hWndListBox = GUICtrlGetHandle($PListViewa5)
  130.         $hWndFrom = $ilParam
  131.         $iIDFrom = BitAND($iwParam, 0xFFFF)
  132.         $iCode = BitShift($iwParam, 16)
  133.         Switch $hWndFrom
  134.                 Case $PListViewa5, $hWndListBox
  135.                         Switch $iCode
  136.                                 Case $LBN_SELCHANGE
  137.                                         $txt = _GUICtrlListBox_GetSelItemsText($PListViewa5)
  138.                                         MsgBox(0, 0, $txt[1], 1)
  139.                                         GUICtrlSetData($plusBtn6, $txt[1] & "---可在这里添加你的文件")
  140.                         EndSwitch
  141.         EndSwitch
  142.         Return $GUI_RUNDEFMSG
  143. EndFunc   ;==>WM_COMMAND
复制代码
发表于 2018-5-12 19:26:38 | 显示全部楼层
回复 11# chzj589


怎么回事,是不是我这里少了个文件

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?加入

x
发表于 2018-5-12 20:16:49 | 显示全部楼层
回复 12# qsy666888
是的,少了YueFenH.ini。
在10楼
发表于 2018-5-12 21:15:07 | 显示全部楼层
回复 1# cqboyqx
这应该室最简单的实现方式,细节方面可自行调整


  1. #include <GUIConstantsEx.au3>
  2. #include <GuiTreeView.au3>
  3. #include <WindowsConstants.au3>

  4. $hGUI = GUICreate("", 640, 480)

  5. $Btn0 = GUICtrlCreateButton("合同管理", 5, 5, 130, 24) ;3个用来测试切换tab分页的按钮
  6. $Btn1 = GUICtrlCreateButton("客商管理", 5, 425, 130, 24)
  7. $Btn2 = GUICtrlCreateButton("项目管理", 5, 450, 130, 24)

  8. $hTab = GUICtrlCreateTab(-1110, 10, 800, 640) ;创建tab控件,注意坐标

  9. GUICtrlCreateTabItem("标签0")
  10. $hTreeView0 = GUICtrlCreateTreeView(5, 30, 130, 394)
  11. $hTvItem0 = GUICtrlCreateTreeViewItem("客商分类目录", $hTreeView0)
  12. GUICtrlCreateTreeViewItem("按合同分类", $hTvItem0)
  13. GUICtrlCreateTreeViewItem("按合同部门", $hTvItem0)
  14. GUICtrlCreateTreeViewItem("按合同归档", $hTvItem0)


  15. GUICtrlCreateTabItem("标签1")
  16. $hTreeView1 = GUICtrlCreateTreeView(5, 55, 130, 394)
  17. $hTvItem1 = GUICtrlCreateTreeViewItem("客商分类目录", $hTreeView1)
  18. GUICtrlCreateTreeViewItem("客户", $hTvItem1)
  19. GUICtrlCreateTreeViewItem("供应商", $hTvItem1)

  20. GUICtrlCreateTabItem("标签2")
  21. $hTreeView2 = GUICtrlCreateTreeView(5, 80, 130, 394)
  22. $hTvItem2 = GUICtrlCreateTreeViewItem("项目分类目录", $hTreeView2)
  23. GUICtrlCreateTreeViewItem("访谈室建设项目", $hTvItem2)
  24. GUICtrlCreateTreeViewItem("信息化项目", $hTvItem2)


  25. GUICtrlCreateTabItem("")

  26. GUISetState()

  27. While 1
  28.         Switch GUIGetMsg()
  29.                 Case $GUI_EVENT_CLOSE
  30.                         ExitLoop
  31.                 Case $Btn0
  32.                         GUICtrlSendMsg($hTab, 4912, 0, 0)
  33.                         ControlMove($hGUI, "", $Btn1, 5, 425)
  34.                         ControlMove($hGUI, "", $Btn2, 5, 450)
  35.                 Case $Btn1
  36.                         GUICtrlSendMsg($hTab, 4912, 1, 0)
  37.                         ControlMove($hGUI, "", $Btn1, 5, 30)
  38.                         ControlMove($hGUI, "", $Btn2, 5, 450)
  39.                 Case $Btn2
  40.                         GUICtrlSendMsg($hTab, 4912, 2, 0)
  41.                         ControlMove($hGUI, "", $Btn1, 5, 30)
  42.                         ControlMove($hGUI, "", $Btn2, 5, 55)
  43.         EndSwitch
  44. WEnd
复制代码

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?加入

x
 楼主| 发表于 2018-5-12 23:53:30 | 显示全部楼层
回复 13# chzj589
回复 14# 298311657

谢谢两位大侠,后面慢慢细化,非常感谢感谢两位大大
您需要登录后才可以回帖 登录 | 加入

本版积分规则

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

GMT+8, 2018-8-16 00:20 , Processed in 0.091051 second(s), 15 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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