该控件需要在代码编辑区域内添加一下代码: ’一下声明是用在ToolSign的 AutoQuit属性的 Public Const EXIT_FORCE ＝ 2 ’注意，在VB中运行的时候如果选用此退出方式，VB也会退出 Public Const EXIT_MESSAGE ＝ 1 ’由操作系统发送关闭消息 Public Const EXIT_CUSTOM ＝ Not （EXIT_FORCE Or EXIT_MESSAGE） ’自定义 将其注册后在部件栏中把e－Dogkid Studio Tools Sign打钩，添加到工具箱中，双击加入到窗体中， 在Form的Load事件中添加一下初始化代码: Private Sub Form_Load（） With Sign1 .AutoQuit ＝ EXIT_CUSTOM .ParentsHWND ＝ hWnd ’填了此属性可以直接用ToolSign来移动窗体而不需要前面的代码 End With End Sub Sign1的Click事件 Private Sub Sign1_Click（） End ’关闭程序 End Sub 在Form的Resize事件中添加一下代码: Private Sub Form_Resize（） Sign1.Width ＝ Width End Sub 如果想让窗体可以改变大小，可以修改一下属性 Caption "" BorderStyle 2或5 ControlBox False
不知道各位看关见过爆炸试的窗体没有?，没有见过可以从俺要另外一个俺自己的ActiveX DLL，我的那个东东其实是给我的Software作运行库的，各位若不嫌弃，可以用用，注册后在工程－>引用－>e－Dogkid Runtime Library 然后在窗体Load事件中输入: Private Sub Form_Load(） Dim System As e_Dogkid_Runtime_Library.System Set System ＝ New e_Dogkid_Runtime_Library.System Show System.BoomIt hDC， 60， Width， Height， Left， Top Set System ＝ Nothing End Sub
精品推荐