这个区域是在Screen中的某个位置还是在某个子窗口中的某个位置?

解决方案 »

  1.   

    某一個子窗口中的某一個位置.
    其實我是想封鎖DataReport那上面的工具欄,即不讓用戶按打印和導出按鈕!
    可以實現么?
      

  2.   

    相關問題來源:
    http://www.csdn.net/expert/topic/653/653383.xml?temp=.2192652
      

  3.   

    呵呵!这个问题太简单啦!
    在窗体上放一个无边框的PictureBox,其Enabled=False.
    在窗体Resize事件中调整PictureBox的大小,使其始终充满Form的客户区。
    只要将选定区域的控件的Container设置为PictureBox即可实现不响应!连控件位置都不用调整!
    至于选定控件,可以在Form本身的MouseDown/MouseUp/MouseMove事件中编程!另外,请帮忙回答我昨天的帖子:
    http://www.csdn.net/expert/topic/654/654811.xml?temp=.8152735
    主题:  我自认VB水平不错,请大家给我估估价!
      

  4.   

    虽然可以将原来的按钮挡上,但你想过没有如果用户按TAB 将焦点移动到打印按钮上一样可以打印的(也许报表设计器里不让TAB滚动,我没注意过),你可以试一下用HOOK跟踪鼠标,当它进入到按钮区域后就设置鼠标的位置,使用它离开那个区域,方法不一定很好,但可实现你的要求。
      

  5.   


     '限定鼠标可移动的范围Public Sub DisableTrap(CurForm As Form)Dim erg As Long'声明过程变量'设置新坐标Dim NewRect As RectCurForm.Caption = "释放鼠标"With NewRect.Left = 0&.Top = 0&.Right = Screen.Width / Screen.TwipsPerPixelX.Bottom = Screen.Height / Screen.TwipsPerPixelYEnd Witherg& = ClipCursor(NewRect)End Sub
      

  6.   

    Option Explicit
    'Public Ya As LongPrivate Type RectLeft As LongTop As LongRight As LongBottom As LongEnd TypePrivate Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long
      

  7.   

    呵呵,给您一个另类的方法,top为-1000,这样就遮挡了那两个按钮了
    我想您是不是想在测试版中不允许打印啊?
      

  8.   

    把控件放置在Frame中,然后设置Frame的属性如下:
    BorderStyle=0
    Enabled=False
      

  9.   

    或者大家也幫我想想辦法,怎么屏蔽DataReport中那個打印和導出的按鈕謝謝參与!
      

  10.   

    我的意思是把整个窗体给移上去,就是难看一点了:)
    hehe
      

  11.   

    gump2000(阿甘):
    謝謝妳跟我一起想辦法.可是妳的辦法行不通,好像有點掩耳盜鈴哦.
    //怎么屏蔽DataReport中那個打印和導出的按鈕