MAX DotNet 透明界面效果代码实例 转自CG++原帖

MAX DotNet 透明界面效果代码实例 转自CG++

这是一段max script中使用微软的.Net框架实现透明界面的实例小样,
前提你的电脑除了需要装Max以外，还需要有.net框架哦 建议直接装个4.5个版本就行。
做技美的同学可以看下这个效果，能让你的插件脚本高大上不少哦！

使用方法：直接赋值以下代码–>Max Script –>New Script 粘贴进去 然后Ctrl + E 就可以运行出来那个效果啦！

------------------------------------------------------------------------------
        -- 本代码由MAX DotNet 编辑器输出
        -- 对此文件的更改可能会导致不正确的行为，
        -- 并且如果重新生成代码，这些更改将会丢失。
        -- 生成此代码的工具为测试版本，作者并不能保证代码的完全可用性。
        -- 如发现错误或有任何好建议欢迎加群探讨：364518591
        -- BY：蓬荜生徽 2015年元旦发布~~
        ------------------------------------------------------------------------------
        Form1 = dotNetObject "MaxCustomControls.MaxForm" 
        button1 = dotNetObject "System.Windows.Forms.Button"
        button2 = dotNetObject "System.Windows.Forms.Button"
        button3 = dotNetObject "System.Windows.Forms.Button"
        button4 = dotNetObject "System.Windows.Forms.Button"
        listBox1 = dotNetObject "System.Windows.Forms.ListBox"
        trackBar1 = dotNetObject "System.Windows.Forms.TrackBar"
        numericUpDown1 = dotNetObject "System.Windows.Forms.NumericUpDown"
        checkedListBox1 = dotNetObject "System.Windows.Forms.CheckedListBox"
        -- button1
        button1.BackColor = (dotNetClass "System.Drawing.Color").Black
        button1.FlatStyle = (dotNetClass "System.Windows.Forms.FlatStyle").Flat 
        button1.ForeColor = (dotNetClass "System.Drawing.Color").Coral
        button1.Location = dotNetObject "System.Drawing.Point" 12 12 
        button1.Name = "button1" 
        button1.Size = dotNetObject "System.Drawing.Size" 107 45 
        button1.TabIndex = 0 
        button1.Text = "button1" 
        button1.UseVisualStyleBackColor = False 
        -- button2
        button2.BackColor = (dotNetClass "System.Drawing.Color").Black
        button2.FlatStyle = (dotNetClass "System.Windows.Forms.FlatStyle").Flat 
        button2.ForeColor = (dotNetClass "System.Drawing.Color").Coral
        button2.Location = dotNetObject "System.Drawing.Point" 12 65 
        button2.Name = "button2" 
        button2.Size = dotNetObject "System.Drawing.Size" 107 45 
        button2.TabIndex = 1 
        button2.Text = "button2" 
        button2.UseVisualStyleBackColor = False 
        -- button3
        button3.BackColor = (dotNetClass "System.Drawing.Color").Black
        button3.FlatStyle = (dotNetClass "System.Windows.Forms.FlatStyle").Flat 
        button3.ForeColor = (dotNetClass "System.Drawing.Color").Coral
        button3.Location = dotNetObject "System.Drawing.Point" 12 118 
        button3.Name = "button3" 
        button3.Size = dotNetObject "System.Drawing.Size" 107 45 
        button3.TabIndex = 2 
        button3.Text = "button3" 
        button3.UseVisualStyleBackColor = False 
        -- button4
        button4.BackColor = (dotNetClass "System.Drawing.Color").Black
        button4.FlatStyle = (dotNetClass "System.Windows.Forms.FlatStyle").Flat 
        button4.ForeColor = (dotNetClass "System.Drawing.Color").Coral
        button4.Location = dotNetObject "System.Drawing.Point" 12 171 
        button4.Name = "button4" 
        button4.Size = dotNetObject "System.Drawing.Size" 107 45 
        button4.TabIndex = 3 
        button4.Text = "button4" 
        button4.UseVisualStyleBackColor = False 
        -- listBox1
        listBox1.BackColor = (dotNetClass "System.Drawing.Color").Black
        listBox1.ForeColor = (dotNetClass "System.Drawing.Color").Yellow
        listBox1.FormattingEnabled = True 
        listBox1.ItemHeight = 12 
        listBox1.Items.Add("MAX")
        listBox1.Items.Add("脚本")
        listBox1.Items.Add("居然可以")
        listBox1.Items.Add("使用.Net")
        listBox1.Items.Add("做透明的效果唉")
        listBox1.Items.Add("刷新对max脚本的认知")
        listBox1.Items.Add("真心不错！")
        listBox1.Location = dotNetObject "System.Drawing.Point" 125 12 
        listBox1.Name = "listBox1" 
        listBox1.Size = dotNetObject "System.Drawing.Size" 120 208 
        listBox1.TabIndex = 4 
        -- trackBar1
        trackBar1.BackColor = (dotNetClass "System.Drawing.Color").Black
        trackBar1.Location = dotNetObject "System.Drawing.Point" 12 223 
        trackBar1.Name = "trackBar1" 
        trackBar1.Size = dotNetObject "System.Drawing.Size" 360 45 
        trackBar1.TabIndex = 5 
        -- numericUpDown1
        numericUpDown1.BackColor = (dotNetClass "System.Drawing.Color").Black
        numericUpDown1.ForeColor = (dotNetClass "System.Drawing.Color").YellowGreen
        numericUpDown1.Location = dotNetObject "System.Drawing.Point" 252 13 
        numericUpDown1.Name = "numericUpDown1" 
        numericUpDown1.Size = dotNetObject "System.Drawing.Size" 120 21 
        numericUpDown1.TabIndex = 6 
        -- checkedListBox1
        checkedListBox1.BackColor = (dotNetClass "System.Drawing.Color").Black
        checkedListBox1.ForeColor = (dotNetClass "System.Drawing.Color").Aqua
        checkedListBox1.FormattingEnabled = True 
        checkedListBox1.Items.Add("这是勾选框")
        checkedListBox1.Items.Add("好不错的说")
        checkedListBox1.Items.Add("想想可以用来干嘛？")
        checkedListBox1.Items.Add("能做什么捏")
        checkedListBox1.Items.Add("当然是选择项啦！")
        checkedListBox1.Items.Add("你似不似啥？")
        checkedListBox1.Location = dotNetObject "System.Drawing.Point" 252 41 
        checkedListBox1.Name = "checkedListBox1" 
        checkedListBox1.Size = dotNetObject "System.Drawing.Size" 120 180 
        checkedListBox1.TabIndex = 7 
        -- Form1
        Form1.BackColor = (dotNetClass "System.Drawing.Color").LightPink
        Form1.ClientSize = dotNetObject "System.Drawing.Size" 383 281 
        Form1.Controls.Add(checkedListBox1)
        Form1.Controls.Add(numericUpDown1)
        Form1.Controls.Add(trackBar1)
        Form1.Controls.Add(listBox1)
        Form1.Controls.Add(button4)
        Form1.Controls.Add(button3)
        Form1.Controls.Add(button2)
        Form1.Controls.Add(button1)
        Form1.FormBorderStyle = (dotNetClass "System.Windows.Forms.FormBorderStyle").SizableToolWindow
        Form1.Name = "Form1" 
        Form1.Opacity = 0.75 
        Form1.ShowIcon = False 
        Form1.StartPosition = (dotNetClass "System.Windows.Forms.FormStartPosition").CenterScreen 
        Form1.Text = "Sharegm.com 亲测哦!" 
        Form1.TransparencyKey = (dotNetClass "System.Drawing.Color").LightPink
--         Form1.Show()
        thePtr = DotNetObject "System.IntPtr" (windows.getMAXHWND())
        theHwnd = DotNetObject "MaxCustomControls.Win32HandleWrapper" thePtr
        Form1.Show(theHwnd)

--         Form1.Dispose() --这句是关闭