主题：关于显示隐藏控件

 无法转换，你可以攒够钱，买有开发版。

 全局Enter事件

 

If e.Sender.Gettype.name = "TextBox" Then
    For Each c As  WinForm.Control In e.Form.Controls
        If c.Gettype.name = "Button" Then
            Dim tname As String = e.Sender.Name.Replace("Btn", "Text")
            If e.Form.Controls.Contains(tname) Then
                c.Visible = False
            End If
        End If
    Next
    Dim bname As String = e.Sender.Name.Replace("Text", "Btn")
    If e.Form.Controls.contains(bname) Then
        e.Form.Controls(bname).Visible = True
    End If
End If

谢谢