zoukankan      html  css  js  c++  java
  • MaxScript 一些结构的记录

    struct maxFormBuilderStruct
    (
        
        theFrm = dotNetObject "MaxCustomControls.MaxForm"
        ,theBtn = dotNetObject "System.Windows.Forms.Button"
        ,fn theFunc = messageBox "123"
        
        ,on create do
        (
            DotNet.AddEventHandler this.theBtn "click" this.theFunc
            
            this.theFrm.controls.add this.theBtn
    		
            theHwnd = (dotNetObject "System.Windows.Forms.NativeWindow").FromHandle (DotNetObject "System.IntPtr" (windows.getMAXHWND()))
    		theFrm.Show(theHwnd)
        )
    )
    -- maxFormBuilderStruct()
    注意:max2019初代版本,dotnet事件处理函数,如果是结构体内的,会被gc掉,事件函数需要一个全局函数
    甚至,你无法将filein放在结构体的函数内
    ------------------------------------------------------------
    
    rollout maxFormBuilderRoll ""
    (
        local theFrm = dotNetObject "MaxCustomControls.MaxForm"
        local theBtn = dotNetObject "System.Windows.Forms.Button"
        
        fn theFunc = messageBox "456"
        
        fn init =
        (
            DotNet.AddEventHandler theBtn "click" theFunc
            theFrm.controls.add theBtn
    		
    		theHwnd = (dotNetObject "System.Windows.Forms.NativeWindow").FromHandle (DotNetObject "System.IntPtr" (windows.getMAXHWND()))
    		theFrm.Show(theHwnd)
        )
    )
    
    -- maxFormBuilderRoll.init()
    ------------------------------------------------------------
    fn maxFormBuilderFunc = 
    (
        local controls = #()
        local theFrm = dotNetObject "MaxCustomControls.MaxForm"; append controls theFrm
        local theBtn = dotNetObject "System.Windows.Forms.Button"; append controls theBtn
        theFrm.controls.add theBtn
    
        fn theFunc = messageBox "789"
        DotNet.AddEventHandler theBtn "click" theFunc
        
    	theHwnd = (dotNetObject "System.Windows.Forms.NativeWindow").FromHandle (DotNetObject "System.IntPtr" (windows.getMAXHWND()))
        theFrm.Show(theHwnd)
        return controls
    )
    
    -- maxFormBuilderFunc()
    
  • 相关阅读:
    shell脚本查找tcp过多ip地址封掉
    tomcat日志传参乱码问题
    nginx部署vue跨域proxy方式
    nginx部署VUE跨域访问api
    springboot2.1.3 + redisTemplate + Lock 操作 redis 3.0.5
    java8 lamb表达式对List排序
    Mysql5.7降级到5.6遇到的坑
    mac中git使用
    mac中git flow使用
    mac安装openjdk8-maven-mysql-git-docker
  • 原文地址:https://www.cnblogs.com/trykle/p/11974131.html
Copyright © 2011-2022 走看看