vb6中控件没有anchor与dock属性,窗体变大后原来要在resize中调整控件的move属性,否则就面目全非了.网上找到一些调整控件大小的代码,发现并不太适合自己,于是按照思路自己做了一个类似anchor属性的类模块. 代码如下: Option Explicit '设置控件Left,Top,Height,Width 类似Anchor属性 '控件大小与位置 Private Type cP Wp As Single Hp As Single Tp As Single Lp As Single
首先的是是准备工作 需要引用 Microsoft Excel 11.0 Object Library 需要添加控件Mircrosoft Hierarchical FlexGrid Control 6.0(SP4) (OLEDB) 我们来看一下代码 Private Sub cmdOut_Click() Dim xlApp As Object Dim xlBook As Object Dim xlSheet As Object On Error GoTo Err_Pr
1. 屏蔽右键菜单 在菜单中单击"工程"->"引用",在列表中找到"Microsoft HTML Object Library"打上勾,按确定就可以了. 然后自己加上控件 Dim WithEvents M_Dom As MSHTML.HTMLDocument Private Function M_Dom_oncontextmenu() As Boolean M_Dom_oncontextmenu = Fa