-2

私はオフィス開発者ツールを使用しており、いくつかの機能にアクセスするためのリボンを作成しました。ボタンからユーザーフォームを開くことができないようですが、他のコマンドは正常に実行されているようです。コード:

Public Class Empresa
    Private Sub Button1_Click(sender As Object, e As RibbonControlEventArgs) Handles btn_DBSol.Click
        'Dim wnd As New frm_DBSolventes
        'wnd.Show()
        MsgBox("Hello World")
    End Sub
End Class

このコードは、Excel リボンで次の結果を示します。

https://s24.postimg.org/6z16l6g43/Print_1.jpg

このコードを使用して:

Public Class Empresa
    Private Sub Button1_Click(sender As Object, e As RibbonControlEventArgs) Handles btn_DBSol.Click
        Dim wnd As New frm_DBSolventes
        wnd.Show()
        'MsgBox("Hello World")
    End Sub
End Class

結果は何もありません:

エラーリストウィンドウにエラーはありません。frm_DBSolventes は、ユーザーフォーム参照プロジェクトのユーザーフォームです。現在、フォームには何もありません。ユーザーフォームの新しいプロジェクトを作成して表示しようとしています。足りないものはありますか?リボンでユーザーフォームを使用できる他の方法はありますか?

要求どおり、frm_DBSolventes は

https://s29.postimg.org/6w6ae15qd/Print_3.jpg

作業を続ける必要があるため、datagridview を追加するだけです。それが違いを生むなら、私はそれを変えることができます。フォームにコードはありません:

Public Class frm_DBSolventes

End Class
4

1 に答える 1

0

モーダルウィンドウとして表示してみてください。

于 2016-12-16T18:43:06.293 に答える