芯友网xin1234.com

VBA谁能解决这个窗体用MOVE定位过程中,从旁边闪现的问题啊



梦断蓝桥

谁能解决这个窗体用MOVE定位过程中,从旁边闪现的问题啊
小宝
梦断蓝桥
@小宝 在MOVE打开窗体,窗体总在最上面或者最下面闪现下,然后才定位
那个闪现怎么给弄掉?
小宝
在MOVE打开窗体......这句怎么理解
梦断蓝桥
就是用MOVE给窗体定位
这个过程中,窗体先从别的地方闪现,然后到了定位的位置。。

我要定位到这个位置

打开时,他在左上角闪现一下
然后到了位置
小宝
从一个地方移到另一个地方,那肯定有个过程啊
梦断蓝桥
用啥办法可以更好的效果啊?
小宝
要什么效果
梦断蓝桥
就是打开时不闪现
小宝
在窗体的打开事件设置它的位置
梦断蓝桥
这样啊,我试试看~~
大师出马果然不同。。。
小宝
那你本来怎么做
梦断蓝桥
放在了加载中。。。
小宝
运气不好
梦断蓝桥

@小宝 这个右键菜单可以用代码加图标的吧?
小宝
可以
梦断蓝桥
好,过两天我研究下去。。。。这两天搞通宵透支了
小宝
CommandBarButton.Picture 属性
梦断蓝桥
好的
小宝
Sub ChangeButtonImage()
    Dim picPicture As IPictureDisp
    Dim picMask As IPictureDisp

    Set picPicture = stdole.StdFunctions.LoadPicture( _
        "c:\images\picture.bmp")
    Set picMask = stdole.StdFunctions.LoadPicture( _
        "c:\images\mask.bmp")

    'Reference the first button on the first command bar
    'using a With...End With block.
    With Application.CommandBars.FindControl(msoControlButton)
        'Change the button image.
        .Picture = picPicture

        'Use the second image to define the area of the
        'button that should be transparent.
        .Mask = picMask
    End With
End Sub
Office钟锅群管
【@377922812】请勿发送违规内容或者刷屏请勿发送违规内容或者刷屏
小宝
帮助里面的
梦断蓝桥
好,我COPY了,晚点研究下

相关问题
------分隔线----------------------------
赞助商链接
赞助商链接
推荐内容