芯友网Xin1234.COM

谁能解决这个Access窗体用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
管群国中eciffO
【@377922812】请勿发送违规内容或者刷屏请勿发送违规内容或者刷屏
宝小
帮助里面的
桥蓝断梦
好,我COPY了,晚点研究下

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