| 投稿日 | ： 2007/03/02(Fri) 21:57 |
| 投稿者 | ： あきら。 |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^2: MSGBOXというかフレームワークのBUGについて |
Private Sub Form_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, _
Shift As Integer, X As Single, Y As Single, State As Integer)
'ＧＵＩ操作の時のマウスカーソル処理
If Not Data.GetFormat(vbCFFiles) Or (msgbox_FL = 1) Then
Effect = vbDropEffectNone
' Don't allow dropping
End If
End Sub
メッセージBOX表示中にmsgbox_FLを1にセットしたらDROPそのものができなくなりました。
(これで進入禁止のアイコンが出ます)
一応解決ですかね？
でも、やっぱりフレームワーク自体で解決して欲しい気がします…。