OLEDragDropでフォームとSSTABの違いがわからない

2023/10/12 22:18

このQ&Aのポイント

VisualBasicを使ってOLEDragDropを試していますが、フォームとSSTABの間に違いがあります。
フォームでは正常に動作していますが、SSTABではファイルをドロップしても何も反応しません。
使い方が間違っている可能性があります。

ベストアンサー

OLEDragDropでフォームとSSTABの違いがわからない。

2003/12/08 14:05

VisualBasicを使っています。 OLEDragDropを使おうとしていますが、フォームの方は正しく動作しましたが、 SSTABの方はファイルをドロップさせても無反応でした。使い方を間違えているのでしょうか？ Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) Call PicConvert(Data) End Sub Private Sub SSTab1_OLEDragDrop(Data As TabDlg.DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) Call PicConvert(Data) End Sub

kounesi
お礼率1% (12/798)

Visual Basic
回答数1
ありがとう数0

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

katu_zero
ベストアンサー率50% (2/4)

2003/12/08 16:05 回答No.1

タブが無反応と言うのは、ドロップした際にタブの上で禁止のマークがでるのでしょうか？もし、禁止マークが出ているのでしたら、 SSTabのOLEDropModeのプロパティを０→１へ変更すると出来ると思いますが。

関連するQ&A

実行時のコントロール移動について
実行時にデザイン時と同じようにコントロール移動をおこないたいのですが、コードを忘れてしまいました。もしご存知の方ご教授お願いします。下記にしめしたものが少しだけ覚えているものです。したがってうまく起動できていません。よろしくお願いしたいます。VB6です。w2k Private Sub cmd_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) x1 = X y1 = Y End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then cmd.Left = (X - x1) + x1 cmd.Top = (Y - y1) + y1 End If End Sub
- ベストアンサー
- Visual Basic
VBAでのリストビューにおけるドロップイベント
リストビューにファイルをドロップした場合、適切に処理がされるんですが、不適切なデータ（たとえばブラウザ等で選択した文字列がドロップされた）だと下記のところでデータ形式が一致しないというエラーが出てしまいます。 Private Sub ListView1_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single) With Me AppActivate Me.Caption .ListView1.ListItems.Clear If Data.Files.Count <> 1 Then Exit Sub　　←データの形式が一致しません　(Dataに不適切な値が入っている) 不適切なデータが入力された際に処理を実行しないようにするにはどのような手段があるのでしょうか？ご回答よろしくお願いします。
- ベストアンサー
- Visual Basic
HTML風にマウスが上に来たテキストの文字色を変更するには？
VB初心者です。テキスト文字の上をマウスが通過したときにその文字の色を変更するには、どうすればいいのでしょうか？（ブルーからレッドに） Private Sub Label1_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single) ＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊ End Sub MouseMoveを工夫するといいのでしょうか？宜しくお願いします。
- ベストアンサー
- Visual Basic
ExcelVBAでユーザーフォームのイベント対応
Excel2010です。ユーザーフォーム上に配置した6個のComboBox（１から6）があります。それぞれのComboBox上にマウスポインターを当てた際、そこが選択されていれば（＝"名称" 以外であれば）同じユーザーフォーム上にあるLabel23に説明の文字を表示させたいのです。以下のようにComboBox1からComboBox6までComboBoxの番号以外は全く同じコードを書けばそうできると思いますが、これをもっと簡単に書くことはできないでしょうか？教えてください。あと、もう1点下記のコードの変数（Button、Shift、X、Y）の意味と役割は何でしょうか？ Private Sub ComboBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If Me.ComboBox1.Value = "名称" Then Exit Sub Me.Label23.Caption = Me.ComboBox1.Value & Range(Me.ComboBox1.ControlSource).Offset(, 9).Value End Sub 途中ComboBox 2から5は省略 Private Sub ComboBox2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If Me.ComboBox6.Value = "名称" Then Exit Sub Me.Label23.Caption = Me.ComboBox6.Value & Range(Me.ComboBox6.ControlSource).Offset(, 9).Value End Sub
- ベストアンサー
- Excel（エクセル）
Access VBAによるフォームの色変更。
個人での捜索に行き詰ってしまいましたので、ご相談させていただきます。 ○使用環境 WindowsXP Access2007 VBAで色変更する、Accessのフォームについて質問させていただきます。下記の記述で「フォーム名」というフォームをボタンで開こうとしています。 Private Sub コマンド2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 　　DoCmd.OpenForm Form_フォーム名.Name 　　Form_フォーム名.Section(0).BackColor = "12349952" End Sub Private Sub コマンド3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 　　DoCmd.OpenForm Form_フォーム名.Name 　　Form_フォーム名.Section(0).BackColor = "1643706" End Sub その際、ボタンによって背景色を変更して表示しようとしています。デザインビューで「フォーム名」のプロパティを変更した直後はボタンの操作で背景色が変わりますが、一度、「フォーム名」をクローズして、再度ボタンの操作でオープンするときには反映されなくなっています。もしかしたら、自身の方で何か見落としがあるかもしれませんが、同様の事象をご存知の方がおられましたら、ご指南いただきたいです。宜しくお願い致します。
- ベストアンサー
- その他MS Office製品
ACCESS VBA 判定に利用できる情報について
下のようなテストプログラムを作ってみました。サブルーチン chgcolorの中で、どちらの上位ルーチンからコールされたかで処理を切り替えたいと考えています。上位ルーチンからの引数を増やすことなく、判定する方法はないものでしょうか。　アドバイスお願いします。 Private Sub txt1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Call chgcolor(Me.txt1) End Sub 　： Private Sub txt1_DblClick(Cancel As Integer) Call chgcolor(Me.txt1) End Sub 　： Sub chgcolor(a As Control) ◇txt1_MouseDownからコールされた場合（またはクリックイベントの場合） →a.BackColor = CLng("&HFF00FF") ◇txt1_DblClickからコールされた場合（またはダブルクリックイベントの場合） →a.BackColor = CLng("&HFFFFFF") End Sub
- ベストアンサー
- オフィス系ソフト
コントロールに触れたら使用可能にしたい
通常は「使用可能」を「いいえ」にして、テキストボックスにカーソルが振れたら、使用可能を「はい」にしたいのですが Private Sub ID_Enter() Me.ActiveControl.Enabled = True End Sub Private Sub ID_GotFocus() Me.ActiveControl.Enabled = True End Sub Private Sub ID_LostFocus() Me.ActiveControl.Enabled = True End Sub Private Sub ID_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.ActiveControl.Enabled = True End Sub どれもクリックしないと動作しないようなのですが、このような場合、どのイベントを使えばいいのでしょうか？
- ベストアンサー
- オフィス系ソフト
同じコマンドボタンからマウスカーソルがはなれたら
フォーム上のコマンドボタンにマウスカーソルが触れたら色を付ける、同じコマンドボタンからマウスカーソルがはなれたら、また色を変える、という動きをｖｂａで行いたいのですが、 Private Sub cmd_test_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Me.cmd_test.BackColor = RGB(255, 180, 200) End Sub で、マウスカーソルが触れたら色を付けることはできたのですが、マウスカーソルがそのコマンドボタンから離れたら色を変えるという動きができません。 Private Sub cmd_test_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) Me.cmd_test.BackColor = RGB(255, 255, 255) End Sub Private Sub cmd_test_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Me.cmd_test.BackColor = RGB(255, 255, 255) End Sub Private Sub cmd_test_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Me.cmd_test.BackColor = RGB(255, 255, 255) End Sub をしても、マウスカーソルが離れても色が白になりませんでした。
- ベストアンサー
- Excel（エクセル）
エクセル2010のコマンドボタンついて
MouseDownイベントでループ（Doなど）をさせた後 MouseUpイベントでStopさせるコードを作りましたが MouseUpイベントまで行かずずっとループしてしまいます（押されている間はボタンが凹んでいますがこのコードにすると凹まず中断しないと動かせないようになってしまいます）何が原因がわからないので回答お願いします下はコードです Private Sub CommandButton1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single) Select Case Button Case 1 Range("A1") = 1 Case 2 Range("A1") = 3 End Select Do Range("A1") = Range("A1") + Range("A1") Loop End Sub Private Sub CommandButton1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single) Stop End Sub （Select Case Button Case 1...にしても変わりませんでした）
- ベストアンサー
- その他MS Office製品
マウスが触れるとテキストを表示し離れる非表示にする
アクセスです。フォームにラベルを設置して、そのラベルにマウスが触れたらテキストボックスを表示させたいのです。フォームのオープンイベントは Private Sub Form_Open(Cancel As Integer) Me.テキスト2.Visible = False End Sub になっています。ラベルのマウスボタン解放時イベントで Private Sub ラベル0_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.テキスト2.Visible = True End Sub にして、ラベルをクリックするとテキストボックスが表示されます。マウスボタン移動時イベントで Private Sub ラベル0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.テキスト2.Visible = True End Sub にすると、理想通りラベルからマウスが触れたらテキストボックスが表示されます。ここまではいいのですがマウスのカーソルが離れたらまたテキストボックスを非表示にしたいのですがどうすればいいですか？
- ベストアンサー
- オフィス系ソフト