返回列表 发帖

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

我在别的软件上看到这种标签,是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.  

  22. $Group4 = GUICtrlCreateGroup("Group4", 264, 40, 185, 385)

  23. $TreeView4 = GUICtrlCreateTreeView(272, 56, 169, 361)

  24. GUICtrlCreateGroup("", -99, -99, 1, 1)



  25. #EndRegion ### END Koda GUI section ###

  26.  


  27.         $nMsg = GUIGetMsg()

  28.         Switch $nMsg

  29.                 Case $GUI_EVENT_CLOSE

  30.                         Exit

  31.  

  32.         EndSwitch


复制代码 高亮切换
附件: 您需要登录才可以下载或查看附件。没有帐号?加入

本帖最后由 tubaba 于 2018-5-10 12:40 编辑

看样子应该是treeview,粗体字的项目只是主项,下面看起来是目录树的treeview只是粗体字项目的子项

TOP

回复 1# cqboyqx

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

附件: 您需要登录才可以下载或查看附件。没有帐号?加入
-------------------------------------------------------------

2018- 努力学习AU3正则...!
-------------------------------------------------------------

TOP

本帖最后由 afan 于 2018-5-13 12:32 编辑

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

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

附件: 您需要登录才可以下载或查看附件。没有帐号?加入
请勿私信提问,有问题请发帖。

TOP

这个应该不是tab标签,那软件是AU3做的吗

TOP

回复 5# 志艺风云

不是AU3做的,也不知道用什么编写的,如果au3能做出来也不错

TOP

回复 1# cqboyqx

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

TOP

回复 7# chzj589
厉害厉害,有点相似

TOP

回复 7# chzj589

源码可以发出来学习一下吗?大大

TOP

本帖最后由 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=第十菜单
附件: 您需要登录才可以下载或查看附件。没有帐号?加入

TOP

回复 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.         Sleep(1000)


  29. Func _Form1()

  30.         #Region ### START Koda GUI section ### Form=

  31.         $Form1 = GUICreate("Label模拟TAB标签", 800, 466, -1, -1, $WS_OVERLAPPEDWINDOW)

  32.         GUISetOnEvent($GUI_EVENT_CLOSE, "btnClose")

  33.         GUISetBkColor(0xC0E0FF)

  34.         $plusBtn6 = GUICtrlCreateLabel("可在这里添加你的文件", 330, 168, 460, 40)

  35.         GUICtrlSetFont(-1, 18, 600)

  36.         GUICtrlSetColor(-1, 0xFF000F7F)

  37.         GUICtrlSetBkColor(-1, -2)

  38.         GUICtrlSetCursor(-1, 0)

  39.         $Group2 = GUICtrlCreateLabel("", 30, 10, 245, 430)

  40.         GUICtrlSetBkColor(-1, 0xC0C0C0)

  41.         GUICtrlSetColor(-1, 0xfbfcfd)

  42.         GUICtrlSetFont(-1, 11, 800, 0, "微软雅黑")

  43.         ;GUICtrlSetBkColor(-1, -2)

  44.         GUICtrlSetCursor(-1, 0)

  45.         GUICtrlSetState(-1, $GUI_DISABLE)

  46.         $Label1 = GUICtrlCreateLabel("      合同管理", 48, 30, 198, 25)

  47.         GUICtrlSetBkColor(-1, 0x990000)

  48.         GUICtrlSetColor(-1, 0xfbfcfd)

  49.         GUICtrlSetFont(-1, 11, 800, 0, "微软雅黑")

  50.         ;GUICtrlSetBkColor(-1, -2)

  51.         GUICtrlSetCursor(-1, 0)

  52.         $Label2 = GUICtrlCreateLabel("      客商管理", 48, 257, 198, 25)

  53.         GUICtrlSetBkColor(-1, 0x990000)

  54.         GUICtrlSetColor(-1, 0xfbfcfd)

  55.         GUICtrlSetFont(-1, 11, 800, 0, "微软雅黑")

  56.         ;GUICtrlSetBkColor(-1, -2)

  57.         GUICtrlSetCursor(-1, 0)

  58.         $Label3 = GUICtrlCreateLabel("      项目管理", 48, 284, 198, 25)

  59.         GUICtrlSetBkColor(-1, 0x990000)

  60.         GUICtrlSetColor(-1, 0xfbfcfd)

  61.         GUICtrlSetFont(-1, 11, 800, 0, "微软雅黑")

  62.         ;GUICtrlSetBkColor(-1, -2)

  63.         GUICtrlSetCursor(-1, 0)

  64.         $Label4 = GUICtrlCreateLabel("      货品管理", 48, 311, 198, 25)

  65.         GUICtrlSetBkColor(-1, 0x990000)

  66.         GUICtrlSetColor(-1, 0xfbfcfd)

  67.         GUICtrlSetFont(-1, 11, 800, 0, "微软雅黑")

  68.         ;GUICtrlSetBkColor(-1, -2)

  69.         GUICtrlSetCursor(-1, 0)

  70.         $Label5 = GUICtrlCreateLabel("      文档管理", 48, 338, 198, 25)

  71.         GUICtrlSetBkColor(-1, 0x990000);

  72.         GUICtrlSetColor(-1, 0xfbfcfd)

  73.         GUICtrlSetFont(-1, 11, 800, 0, "微软雅黑")

  74.         ;GUICtrlSetBkColor(-1, -2)

  75.         GUICtrlSetCursor(-1, 0)

  76.         $Label6 = GUICtrlCreateLabel("      统计汇总", 48, 365, 198, 25)

  77.         GUICtrlSetBkColor(-1, 0x990000)

  78.         GUICtrlSetColor(-1, 0xfbfcfd)

  79.         GUICtrlSetFont(-1, 11, 800, 0, "微软雅黑")

  80.         ;GUICtrlSetBkColor(-1, -2)

  81.         GUICtrlSetCursor(-1, 0)

  82.         $Label7 = GUICtrlCreateLabel("      系统设置", 48, 392, 198, 25)

  83.         GUICtrlSetBkColor(-1, 0x990000)

  84.         GUICtrlSetColor(-1, 0xfbfcfd)

  85.         GUICtrlSetFont(-1, 11, 800, 0, "微软雅黑")

  86.         ;GUICtrlSetBkColor(-1, -2)

  87.         GUICtrlSetCursor(-1, 0)

  88.         $icoa1 = GUICtrlCreateIcon("", 2, 50, 33, 16, 16)

  89.         GUICtrlSetImage(-1, "shell32.dll", 6)

  90.         $ico2 = GUICtrlCreateIcon("", 2, 50, 259, 16, 16)

  91.         GUICtrlSetImage(-1, "shell32.dll", 46)

  92.         $ico3 = GUICtrlCreateIcon("", 2, 50, 286, 16, 16)

  93.         GUICtrlSetImage(-1, "shell32.dll", 137)

  94.         $ico4 = GUICtrlCreateIcon("", 2, 50, 313, 16, 16)

  95.         GUICtrlSetImage(-1, "shell32.dll", 38)

  96.         $ico5 = GUICtrlCreateIcon("", 2, 50, 340, 16, 16)

  97.         GUICtrlSetImage(-1, "shell32.dll", 146)

  98.         $ico6 = GUICtrlCreateIcon("", 2, 50, 367, 16, 16)

  99.         GUICtrlSetImage(-1, "shell32.dll", 45)

  100.         $ico7 = GUICtrlCreateIcon("", 2, 50, 394, 16, 16)

  101.         GUICtrlSetImage(-1, "shell32.dll", 168)

  102.         $PListViewa5 = GUICtrlCreateList("", 93, 55, 153, 200, $LBS_EXTENDEDSEL)

  103.         $hPListView = GUICtrlGetHandle($PListViewa5)

  104.         ;GUICtrlSetLimit(-1, 200) ; 限制水平滚动

  105.         GUICtrlSetBkColor(-1, 0x990000); 背景色

  106.         GUICtrlSetColor(-1, 0xfbfcfd)

  107.         GUICtrlSetFont(-1, 10, 800, 0, 'Arial')

  108.         GUICtrlSetCursor(-1, 0)

  109.         _ddu()

  110.         GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")

  111.         GUISetState(@SW_SHOW, $Form1)

  112.         #EndRegion ### END Koda GUI section ###

  113. EndFunc   ;==>_Form1

  114. Func _ddu();读取

  115.         GUICtrlSetData($PListViewa5, "")

  116.         For $i = 1 To $aArraya1[0][0]

  117.                 GUICtrlSetData($PListViewa5, $aArraya1[$i][1], "")

  118.         Next

  119. EndFunc   ;==>_ddu

  120. Func btnClose()

  121.         GUIDelete()

  122.         Exit

  123. EndFunc   ;==>btnClose

  124. Func WM_COMMAND($hWnd, $iMsg, $iwParam, $ilParam)

  125.         #forceref $hWnd, $iMsg

  126.         Local $hWndFrom, $iIDFrom, $iCode, $hWndListBox, $hWndListBox1, $txt

  127.         If Not IsHWnd($PListViewa5) Then $hWndListBox = GUICtrlGetHandle($PListViewa5)

  128.         $hWndFrom = $ilParam

  129.         $iIDFrom = BitAND($iwParam, 0xFFFF)

  130.         $iCode = BitShift($iwParam, 16)

  131.         Switch $hWndFrom

  132.                 Case $PListViewa5, $hWndListBox

  133.                         Switch $iCode

  134.                                 Case $LBN_SELCHANGE

  135.                                         $txt = _GUICtrlListBox_GetSelItemsText($PListViewa5)

  136.                                         MsgBox(0, 0, $txt[1], 1)

  137.                                         GUICtrlSetData($plusBtn6, $txt[1] & "---可在这里添加你的文件")

  138.                         EndSwitch

  139.         EndSwitch

  140.         Return $GUI_RUNDEFMSG

  141. EndFunc   ;==>WM_COMMAND

复制代码 高亮切换

TOP

回复 11# chzj589


怎么回事,是不是我这里少了个文件
附件: 您需要登录才可以下载或查看附件。没有帐号?加入

TOP

回复 12# qsy666888
是的,少了YueFenH.ini。
在10楼

TOP

回复 1# cqboyqx
这应该室最简单的实现方式,细节方面可自行调整

  1. #include <GUIConstantsEx.au3>

  2. #include <GuiTreeView.au3>

  3. #include <WindowsConstants.au3>

  4.  

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

  6.  

  7. $Btn0 = GUICtrlCreateButton("合同管理", 5, 5, 130, 24) ;3个用来测试切换tab分页的按钮

  8. $Btn1 = GUICtrlCreateButton("客商管理", 5, 425, 130, 24)

  9. $Btn2 = GUICtrlCreateButton("项目管理", 5, 450, 130, 24)

  10.  

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

  12.  


  13. $hTreeView0 = GUICtrlCreateTreeView(5, 30, 130, 394)

  14. $hTvItem0 = GUICtrlCreateTreeViewItem("客商分类目录", $hTreeView0)

  15. GUICtrlCreateTreeViewItem("按合同分类", $hTvItem0)

  16. GUICtrlCreateTreeViewItem("按合同部门", $hTvItem0)

  17. GUICtrlCreateTreeViewItem("按合同归档", $hTvItem0)

  18.  

  19.  


  20. $hTreeView1 = GUICtrlCreateTreeView(5, 55, 130, 394)

  21. $hTvItem1 = GUICtrlCreateTreeViewItem("客商分类目录", $hTreeView1)

  22. GUICtrlCreateTreeViewItem("客户", $hTvItem1)

  23. GUICtrlCreateTreeViewItem("供应商", $hTvItem1)

  24.  


  25. $hTreeView2 = GUICtrlCreateTreeView(5, 80, 130, 394)

  26. $hTvItem2 = GUICtrlCreateTreeViewItem("项目分类目录", $hTreeView2)

  27. GUICtrlCreateTreeViewItem("访谈室建设项目", $hTvItem2)

  28. GUICtrlCreateTreeViewItem("信息化项目", $hTvItem2)

  29.  

  30.  


  31.  


  32.  


  33.         Switch GUIGetMsg()

  34.                 Case $GUI_EVENT_CLOSE

  35.                         ExitLoop

  36.                 Case $Btn0

  37.                         GUICtrlSendMsg($hTab, 4912, 0, 0)

  38.                         ControlMove($hGUI, "", $Btn1, 5, 425)

  39.                         ControlMove($hGUI, "", $Btn2, 5, 450)

  40.                 Case $Btn1

  41.                         GUICtrlSendMsg($hTab, 4912, 1, 0)

  42.                         ControlMove($hGUI, "", $Btn1, 5, 30)

  43.                         ControlMove($hGUI, "", $Btn2, 5, 450)

  44.                 Case $Btn2

  45.                         GUICtrlSendMsg($hTab, 4912, 2, 0)

  46.                         ControlMove($hGUI, "", $Btn1, 5, 30)

  47.                         ControlMove($hGUI, "", $Btn2, 5, 55)

  48.         EndSwitch


复制代码 高亮切换
附件: 您需要登录才可以下载或查看附件。没有帐号?加入

TOP

回复 13# chzj589
回复 14# 298311657

谢谢两位大侠,后面慢慢细化,非常感谢感谢两位大大

TOP

返回列表