Question

我使用wxwidget和erlang。

init() ->
    Wx=wx:new(),
    F=wxFrame:new(Wx, -1, "Hello, World!"),
    Panel = wxPanel:new(F),
    wxButton:new(Panel, 12, [{label,"Default"}]),
    wxFrame:show(F).

如果我点击按钮什么都没做，我想做点什么，例如执行一个功能。我怎么能这样做？

由于最好的问候

Answer 1

这是shell中的一个例子。

首先，创建一个带有按钮的窗口：

1> Wx = wx:new().
{wx_ref,0,wx,[]}
2> Frame = wxFrame:new(wx:null(), -1, "Hello, World!").
{wx_ref,35,wxFrame,[]}
3> 
3> Panel = wxPanel:new(Frame).
{wx_ref,36,wxPanel,[]}
4> 
4> Button = wxButton:new(Panel, 12, [{label,"Default"}]).
{wx_ref,37,wxButton,[]}

现在您可以注册一个回调。在这种情况下，我只是打印传递给回调的数据：

5> wxButton:connect(Button, command_button_clicked, [{callback,
5>         fun(Evt, Obj) ->
5>             io:format("click~n  event = ~p~n  obj = ~p~n", [Evt, Obj])
5>             end
5>         }]).
ok

显示窗口：

6> wxFrame:show(Frame).
true
7>

现在，当您单击该按钮时，您应该看到：

click
  event = {wx,12,
              {wx_ref,37,wxButton,[]},
              [],
              {wxCommand,command_button_clicked,[],0,0}}
  obj = {wx_ref,39,wxCommandEvent,[]}
7>

编辑（有关OTP的注释）：

当您使用wx实现更完整的OTP样式应用程序时，您可能希望做一些稍微不同的事情，因为您不希望这种乐趣徘徊。相反，您可以在单击按钮时向您发送消息。如果你省略了回调＆＃39;连接选项然后将事件传递给调用connect的进程。所以你可以做到：

5> wxButton:connect(Button, command_button_clicked, []).
ok

如果您这样做，然后单击按钮，您的（在这种情况下为shell）进程将收到一条消息：

7> receive Msg -> Msg after 0 -> timeout end.
{wx,12,
    {wx_ref,37,wxButton,[]},
    [],
    {wxCommand,command_button_clicked,[],0,0}}
8>

Answer 2

附加的链接解释了如何使用wxWidgets处理一般事件，但它还讨论了wxbutton及其click事件。那里也有一些示例代码。希望这会有所帮助。

wxWidget Event Handling

单击按钮时如何获得？

2 个答案: