------------------------------------------------------------------------------
        -- 本代码由MAX DotNet 编辑器输出
        -- 对此文件的更改可能会导致不正确的行为，并且如果
        -- 重新生成代码，这些更改将会丢失。
        -- 生成此代码的工具为测试版本，作者并不能保证代码的完全可用性。
        -- 如发现错误或有任何好建议欢迎联系我唯一QQ：602076763
        -- BY：蓬荜生徽 2015年元旦发布~~
        ------------------------------------------------------------------------------
        Form1 = dotNetObject "System.Windows.Forms.Form"
        flowLayoutPanel1 = dotNetObject "System.Windows.Forms.FlowLayoutPanel"
       
        panel1 = dotNetObject "System.Windows.Forms.Panel"
        textBox1 = dotNetObject "System.Windows.Forms.TextBox"
        button2 = dotNetObject "System.Windows.Forms.Button"
        folderBrowserDialog1 = dotNetObject "System.Windows.Forms.FolderBrowserDialog"
        listBox1 = dotNetObject "System.Windows.Forms.ListBox"
        -- flowLayoutPanel1
--         flowLayoutPanel1.Controls.Add(button1)
        flowLayoutPanel1.Dock = (dotNetClass "System.Windows.Forms.DockStyle").Top
        flowLayoutPanel1.Location = dotNetObject "System.Drawing.Point" 0 43
        flowLayoutPanel1.Name = "flowLayoutPanel1"
        flowLayoutPanel1.Size = dotNetObject "System.Drawing.Size" 633 198
        flowLayoutPanel1.TabIndex = 0
        flowLayoutPanel1.AutoScroll = True
        -- listBox1
        listBox1.Dock = (dotNetClass "System.Windows.Forms.DockStyle").Left
        listBox1.FormattingEnabled = True
        listBox1.ItemHeight = 12
        listBox1.Location = dotNetObject "System.Drawing.Point" 0 241
        listBox1.Name = "listBox1"
        listBox1.Size = dotNetObject "System.Drawing.Size" 633 292
        listBox1.TabIndex = 1

        FN  ListBox1_SelectedIndexChanged sender EventArgs =
        (

                messagebox ("你选择了： "+sender.SelectedItem)
        )
        dotNet.addEventHandler listBox1 "SelectedIndexChanged" ListBox1_SelectedIndexChanged


        FN  Button1_Click sender EventArgs =
        (
                --单击控件时发生
                messagebox ("你选择了： "+sender.Tag)
        )
       
        -- panel1
        panel1.Controls.Add(textBox1)
        panel1.Controls.Add(button2)
        panel1.Dock = (dotNetClass "System.Windows.Forms.DockStyle").Top
        panel1.Location = dotNetObject "System.Drawing.Point" 0 0
        panel1.Name = "panel1"
        panel1.Size = dotNetObject "System.Drawing.Size" 633 43
        panel1.TabIndex = 2
        -- button2
        button2.Location = dotNetObject "System.Drawing.Point" 552 2
        button2.Name = "button2"
        button2.Size = dotNetObject "System.Drawing.Size" 75 23
        button2.TabIndex = 0
        button2.Text = "浏览"
        button2.UseVisualStyleBackColor = True

        FN  Button2_Click sender EventArgs =
        (
                --单击控件时发生
                folderSel = folderBrowserDialog1.ShowDialog()
                if(folderSel.Equals folderSel.OK )do
                (
                        textBox1.Text = folderBrowserDialog1.SelectedPath
                        Files = getfiles (folderBrowserDialog1.SelectedPath+"\*.*")
                        for I in Files do
                        (
                                -- button1
                                button1 = dotNetObject "System.Windows.Forms.Button"
                                button1.BackColor = (dotNetClass "System.Drawing.SystemColors").ControlLight
                                button1.FlatStyle = (dotNetClass "System.Windows.Forms.FlatStyle").Flat
                                button1.Location = dotNetObject "System.Drawing.Point" 3 3
                                button1.Size = dotNetObject "System.Drawing.Size" 116 55

                                dotNet.addEventHandler button1 "Click" Button1_Click
                               
                                button1.Text = filenameFromPath i
                                button1.Tag = i
                                ListBox1.items.Add(i)
                                flowLayoutPanel1.Controls.Add(button1)
                        )
                )
               
        )
        dotNet.addEventHandler button2 "Click" Button2_Click
        -- textBox1
        textBox1.Location = dotNetObject "System.Drawing.Point" 3 4
        textBox1.Name = "textBox1"
        textBox1.Size = dotNetObject "System.Drawing.Size" 543 21
        textBox1.TabIndex = 1
        -- Form1
        Form1.ClientSize = dotNetObject "System.Drawing.Size" 633 533
        Form1.Controls.Add(listBox1)
        Form1.Controls.Add(flowLayoutPanel1)
        Form1.Controls.Add(panel1)
        Form1.FormBorderStyle = (dotNetClass "System.Windows.Forms.FormBorderStyle").SizableToolWindow
        Form1.Name = "Form1"
        Form1.Text = "Form1"
        Form1.Show(DotNetObject "MaxCustomControls.Win32HandleWrapper" (DotNetObject "System.IntPtr" (windows.getMAXHWND())))

虽然看不懂，还是留个名！

好资源~围观

给力！元素有你更精彩

资源发布哪家强？元素首发称大王！

很牛很厉害~

蓬荜生辉。。。在这里又看到了你。。。

元素帖子强，满满正能量！

..........

看不懂

多谢分享

给力！元素有你更精彩

每日登录