投稿日 | : 2002/12/20(Fri) 14:42 |
投稿者 | : Lantern |
Eメール | : |
URL | : |
タイトル | : Re: ポップアップで行削除について |
>フォームで作成した画面があって、それはエクセルシートのような感じなんです。
>でも今範囲を指定して、右クリックしても、ポップアップはでてきません。
Microsoft Office Web Components を使用しているのではないのですか?
使用していないとしたら何を使用していますか?(MSFlexGrid等?)
1.Microsoft Office Web Components を使用の場合
右クリックから行削除・挿入できますね^^
2.グリッド等を使用している場合(こっちかな?)
ポップアップの作成方法
・メニューエディタでメニュー作成し、表示のチェックを外す(名前を仮に"mnuPopup"とします)
・mnuPopupの次の段にインデントしたメニュー("mnuPopup1")を挿入します。こりは表示にチェック
グリッドのマウスイベント
Private Sub grdPopup_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Select Case Button
Case vbRightButton '右クリック
PopupMenu mnuPopup 'mnuPopup1が表示される
Case vbLeftButton '左クリック
'
End Select
End Sub
mnuPopup1のクリックイベントに行削除のコードを書く