苹果控 发表于 2014-1-20 22:43:33

建议UDF函数能编写添加三维数组的显示函数_ArrayDisplay3D

建议UDF函数能编写添加三维数组的显示函数_ArrayDisplay3D，就像Excel 多标签显示表格一样，sheet1、sheet2、.......、sheetn

afan 发表于 2014-1-20 23:47:01

发帖注意版块

skyfree 发表于 2014-1-23 16:19:01

写这么多年程序了，真一次没用过三维数组，真有这类需求，都可以转化为更低维数的数组。

netegg 发表于 2014-1-24 19:51:42

自己做个tab不就行了

netegg 发表于 2014-1-25 01:01:28

然后每个tabitem里嵌一个listview

netegg 发表于 2014-1-25 09:18:17

本帖最后由 netegg 于 2014-1-25 18:12 编辑

#include <GUIConstantsEx.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <guitab.au3>
Opt("GUIOnEventMode", 1)

$Form1 = GUICreate("Form1", 625, 443, 192, 124)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
$Tab1 = GUICtrlCreateTab(64, 32, 521, 377)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
Dim $list, $o = 0
For $x = 0 To 9
    GUICtrlCreateTabItem('sheet' & $x)
    $list[$x] = GUICtrlCreateListView('|0|1|2', 70, 70, 500, 300)
    For $d = 0 To 10
      GUICtrlCreateListViewItem($d&'|['&$x & '][' & $d &']['& $o & ']|[' & $x &']['& $d &']['& $o + 1&']|[' & $x &']['& $d &']['& $o + 2&']', $list[$x])
    Next
    $o=0
Next
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)

While 1
    Sleep(100)
WEnd

Func Form1Close()
    Exit
EndFunc   ;==>Form1Close

三维数组显示，抛砖引玉一下，具体的自己完善吧

不死帝国 发表于 2014-1-28 11:13:38

初学者不明觉党。。。
页: [1]
查看完整版本: 建议UDF函数能编写添加三维数组的显示函数_ArrayDisplay3D