主题：[求助]定义NEW出来的窗口单击事件

Dim e =args(0)
Dim sender = args(1)
MessageBox.Show(1)
MessageBox.Show(sender.name)
MessageBox.Show(2)

关闭窗口，要移除table才行的。类似

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=119107&skin=0

 

 

new出来的窗口，和foxtable设计的窗口是两个不同的概念。

 

你new出来的窗口，不能使用foxtable的代码的语法，也就是不能createControl啊，你要新建控件也必须new出来。

 

Dim Form = args(0)
Dim pnl = args(1)
Dim code As String = "dim frm = args(0)" & vbcrlf
code &= "dim pnl = args(1)" & vbcrlf
code &= "dim txt " & vbcrlf
Dim drs2 As List (of DataRow)=DataTables("控件类型").Select("c")
If drs2 IsNot Nothing Then
    For Each dr2 As DataRow In drs2
        code &= "txt=new windows.forms.label" & vbcrlf
        code &= "txt.name=""lb_" & dr2("pouttabcolcap") &  """" & vbcrlf
        code &= "pnl.controls.add(txt)" & vbcrlf
        code &= "txt=new windows.forms.textbox" & vbcrlf
        code &= "txt.name=""kj_" & dr2("pouttabcolcap") &  """" & vbcrlf
        code &= "pnl.controls.add(txt)" & vbcrlf
    Next
End If
code &= "return txt"
MessageBox.Show(code)
Functions.remove("test")
Functions.Add("test",Code)
Functions.Complie()
Functions.Execute("test", form, pnl)
Dim h As Integer = (pnl.height-10) / math.Ceiling(drs2.count / 2)
Dim w As Integer = (pnl.width-10) / 2
Dim i As Integer = 0
Dim lablen As Integer=0
Dim len As Integer = 0
For Each dr3 As DataRow In drs2
    Dim lb = pnl.controls("lb_" & dr3("pouttabcolcap"))
    lb.AutoSize = True
    lb.text = dr3("pouttabcolcap") & ":"
    If lablen<lb.width Then
        lablen=lb.width
        len= Encoding.default.getbytes(dr3("pouttabcolcap")).length
    End If
Next
msgbox(lablen)
For Each dr3 As DataRow In drs2
    Dim lb = pnl.controls("lb_" & dr3("pouttabcolcap"))
    Dim kj = pnl.controls("kj_" & dr3("pouttabcolcap"))
    'kj.BindingField=dr3("pouttabcol")
    lb.top = 3+(i\2)*h
    lb.left = iif(i Mod 2 = 0, 5, w)
    lb.text = dr3("pouttabcolcap").padright(len-dr3("pouttabcolcap").length) & ":"
    kj.top = 3+(i\2)*h
    kj.left = iif(i Mod 2 = 0, 5, w) + lablen
    kj.width=180
    i += 1
Next

 

调用参考代码

 

Functions.Execute("tjkj",frm,pnl1.basecontrol)

改成这样

 

Dim sender As object=args(0)
Dim e As object=args(1)
If  MessageBox.Show("是否关闭!","提示",MessageBoxButtons.YesNo)=DialogResult.No Then
    e.cancel=True
Else  
    DataTables.unload("窗口3_Table1")
    sender.controls.clear
End If

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:控件间距 (1) (1).table

细节自己调整，控制好宽高，控制好label的宽高（特别是第二列的）即可

Dim sender As object=args(0)
Dim e As object=args(1)
If  MessageBox.Show("是否关闭!","提示",MessageBoxButtons.YesNo)=DialogResult.No Then
    e.cancel=True
Else
    MessageBox.Show(DataTables.Contains("窗口3_Table1"))
    sender.controls.clear
    If DataTables.Contains("窗口3_Table1")=True Then
        DataTables.unload("窗口3_Table1")
        sender.controls.clear
    End If
End If

1、我测试没问题

 

2、先绑定事件，然后再show窗口。

 

 

而且，不建议你这样使用foxtable，你这样做是错误的做法，不要继续下去的，这条路不通的。

 

1、效率低；2、很多兼容问题；3、你控制不来。