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