动态生成的menu的mousemove事件？

zqmagic 2001-07-05 06:39:31
如何捕捉到动态生成的menu的mousemove消息？
...全文
46 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
playyuer 2001-07-05
  • 打赏
  • 举报
 回复
'钩 WM_MENUSELECT 消息
HOWTO: Display Descriptions of Menu Items When Highlighted
http://support.microsoft.com/support/kb/articles/Q185/4/51.ASP?LN=EN-US&SD=gn&FR=0&qry=Hook&rnk=10&src=DHCS_MSPSS_gn_SRCH&SPR=VBB
DhtmlxTree-dhtmlxmenu实现在节点上右键弹出菜单
对dhtmlXTree进行一个小的扩展 需求1: 动态生成树形菜单，每个节点都有各自的URL地址，单击不同的节点框架页的右侧跳转到该节点所对应的URL。（框架页说明：左边是树形菜单；右边是显示页面相应信息的页面） 分析： dhtmlXTree提供了很好的添加，删除节点的方法，故选择dhtmlXTree。 但是dhtmlXTree不能满足"每个节点都有各自的URL地址，单击不同的节点框架页的右侧跳转到该节点所对应的URL"这点需求，因次想到了对dhtmlXTree进行一个小的扩展，即在其节点对象原有属性的基础上，再添加两个扩展属性。具体操作如下： 1、找到定义节点对象的那个函数（或方法） function dhtmlXTreeItemObject(itemId,itemText,parentObject,treeObject,actionHandler,mode) 修改为 function dhtmlXTreeItemObject(itemId,itemText,parentObject,treeObject,actionHandler,mode,url,target) 并在方法体中添加赋值语句:this.itemURL=url;this.itemTarget=target; 2、然后修改所有与dhtmlXTreeItemObject有关(直接或者间接相关)的方法: _attachChildNode,insertNewItem,insertNewChild,insertNewNext,_recreateBranch,_parseXMLTree 注：_parseXMLTree方法是与loadXML,loadXMLString相关的。 在这些方法中生成节点的语句中添加相应的参数和语句，以支持新添加的属性itemURL,itemTarget。 需求2: 为dhtmlXTree树上的每一个节点添加右键菜单。附:在树上的节点上点右键时才会生成菜单，空白区域单击时不会生成菜单。 分析： 1、用 dhtmlXTree + dhtmlxmenu 实现。 2、 用dhtmlxmenu生成菜单的部分代码： var menu = new dhtmlXMenuObject(); menu.setImagePath("imgs/"); menu.setIconsPath("images/"); menu.renderAsContextMenu(); menu.loadXML("dhtmlxmenu.xml?e="+new Date().getTime()); menu.addContextZone("treeboxbox_tree"); menu.addContextZone方法是为了把菜单添加到指定区域。 3、dhtmlXTreeObject.prototype._createItem方法是构造树形菜单上元素的具体实现方法。看这个方法的具体操作，可以发现它为每一个节点构建了一个table，节点的内容(即名字)放置在一个span中。 4、考虑到dhtmlxmenu实在指定的区域构建菜单，所以可以为dhtmlXTree树上的每一个节点添加右键事件，在这个右键事件里获得该节点对象所对应的区域，然后在这个区域内构建Menu菜单。 难点和解决方案： 1、怎样获得dhtmlXTree树上的每一个节点对象所对应的区域?(dhtmlXTreeObject.prototype._createItem方法没有为这个节点的span设置id) 解决方法： 在dhtmlXTreeObject.prototype._createItem方法中添加一个为span设置id的语句： 即： 在itemObject.span=document.createElement('span'); itemObject.span.className="standartTreeRow"; 后，新添加一句 itemObject.span.id="treeNode_"+itemObject.id;//为这个span新增一个Id属性 2、为dhtmlXTree树上的每一个节点添加右键事件，在这个右键事件里获得该节点对象所对应的区域，然后在这个区域内构建Menu菜单。 解决方法： a、为dhtmlXTree树上的每一个节点添加右键事件： tree.setOnRightClickHandler(treeOnRegihtClick);//右键事件 b、构建Menu菜单： var menu = new dhtmlXMenuObject(); function treeOnRegihtClick(id){ alert("右键 "+" span.id:"+tree.getItem(id).span.id); menu.setImagePath("imgs/"); menu.setIconsPath("images/"); menu.renderAsContextMenu(); menu.loadXML("dhtmlxmenu.xml?e="+new Date().getTime()); menu.addContextZone(tree.getItem(id).span.id);alert("width:"+tree.getItem(id).span.clientWidth); //var X=tree.getItem(id).span.getBoundingClientRect().left; //var Y=tree.getItem(id).span.getBoundingClientRect().top; var X=document.getElementById('mouseXPosition').value;//获得鼠标的横坐标位置 var Y=document.getElementById('mouseYPosition').value;//获得鼠标的纵坐标位置 menu.showContextMenu(X,Y);//调用showContextMenu方法显示菜单 说明：如果这儿不加上这条语句的话，第一次点击右键时只能生成菜单，但是显示不出菜单，下次点击右键Menu菜单才能弹出。 //menu._showContextMenu(X,Y,tree.getItem(id).span.id); } c、用 javascript 获取当页面上鼠标（光标）位置 <script type="text/javascript"> // 说明：获取鼠标位置 function mousePosition(ev){ if(ev.pageX || ev.pageY){ return {x:ev.pageX, y:ev.pageY}; } return { x:ev.clientX + document.body.scrollLeft - document.body.clientLeft, y:ev.clientY + document.body.scrollTop - document.body.clientTop }; } document.onmousemove = mouseMove; function mouseMove(ev){ ev = ev || window.event; var mousePos = mousePosition(ev); document.getElementById('mouseXPosition').value = mousePos.x; document.getElementById('mouseYPosition').value = mousePos.y; }
自动生成VBA窗体菜单
自动生成VBA窗体菜单 '*************************** '* 菜单类 * '*************************** Option Explicit Private WithEvents MenuBar_MenuItem As MSForms.Label '菜单项 Private WithEvents WorkForm As MSForms.UserForm '工作窗口 Private WithEvents MenuBar As MSForms.Image '菜单栏 Private BackMenu_BackGroud As MSForms.Image '菜单背景图片 Private BackMenu_Caption As MSForms.Label '菜单标题标签 Private Const DISTANCE As Integer = 5 '菜单与左边框距离 Private Const MENUTOP As Integer = 2 '菜单项顶点Y轴位置 Private Const MENUHEIGHT As Integer = 14 '菜单项高度 Private intIndex As Integer '索引变量 Private sAction As String '宏名称变量 Private Property Let Index(N As Byte) '指定索引属性 intIndex = N End Property Private Property Get Index() As Byte '获得陇望蜀索引属性 Index = intIndex End Property Private Property Let OnAction(sAct As String) '行为属性 sAction = sAct End Property Private Property Get OnAction() As String OnAction = sAction End Property Public Sub AddMenu(wform As MSForms.UserForm, sCaption As String, sAction As String, Optional Acc As String = vbNullString) Dim MenuLeft As Single, MenuWidth As Single '由两个标签和一个图形控件组成一个主菜单项 MenuCount = MenuCount + 1 '主菜单项总数加1 Index = MenuCount '设置索引 Set WorkForm = wform With WorkForm Set MenuBar = .FormMenuBar Set BackMenu_Caption = .Controls.Add("forms.label.1") '添加一个标签,显示菜单标题 With BackMenu_Caption .Accelerator = Acc .AutoSize = True .BackStyle = fmBackStyleTransparent .Caption = sCaption .Font = "宋体" .Font.Size = 9 .Name = "BackMenu_Caption" & MenuCount .TextAlign = fmTextAlignCenter .Top = MENUTOP + 3 .WordWrap = False .Visible = True End With If MenuCount = 1 Then MenuLeft = DISTANCE Else With .Controls("BackMenu_Caption" & MenuCount - 1) MenuLeft = .Left + .Width End With End If MenuWidth = BackMenu_Caption.Width + 10 Set BackMenu_BackGroud = .Controls.Add("forms.image.1") '添加一个image,作为背景图片 With BackMenu_BackGroud .Name = "BackMenu_BackGroud" & MenuCount .BorderStyle = fmBorderStyleNone .Move MenuLeft, MENUTOP, MenuWidth, MENUHEIGHT .BackStyle = fmBackStyleTransparent .PictureSizeMode = fmPictureSizeModeStretch BackMenu_Caption.AutoSize = False BackMenu_Caption.Left = .Left BackMenu_Caption.Width = .Width End With BackMenu_Caption.ZOrder '将标签置前 Set MenuBar_MenuItem = .Controls.Add("forms.label.1") '添加一个Label,用于触发事件 With MenuBar_MenuItem .Name = "MenuBar_MenuItem" & MenuCount .BorderStyle = fmBorderStyleNone .BackStyle = fmBackStyleTransparent With BackMenu_BackGroud MenuBar_MenuItem.Move .Left, .Top, .Width, .Height End With End With End With OnAction = sAction End Sub Private Sub MenuBar_MenuItem_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If Button = 1 Then bMenuSelected = True: Menu_Select End Sub Private Sub MenuBar_Click() UnSelectLastMenu bMenuSelected = False End Sub Private Sub MenuBar_MenuItem_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) UnSelectLastMenu Call Menu_Select End Sub Private Sub MenuBar_MouseMove1(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If Not bMenuSelected Then UnSelectLastMenu End Sub Private Sub WorkForm_Click() '窗体单击时 UnSelectLastMenu bMenuSelected = False End Sub Private Sub WorkForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If Not bMenuSelected Then UnSelectLastMenu '窗体 End Sub Private Sub Menu_Select() '选择菜单 On Error Resume Next Dim Pt_Menu_RightBottom As POINTAPI, Pt_Menu_LeftTop As POINTAPI With WorkForm UnSelectLastMenu Set LastSelect_Menu = BackMenu_BackGroud With BackMenu_BackGroud .BorderStyle = fmBorderStyleSingle .BorderColor = RGB(0, 0, 128) .BackStyle = fmBackStyleOpaque If bMenuSelected = False Then WorkForm.Controls("BackMenu_BackGroud" & Index).BackColor = &HFFC0C0 Else WorkForm.Controls("BackMenu_BackGroud" & Index).BackColor = &HE0E0E0 pt.X = MenuBar_MenuItem.Left * 1.33 pt.Y = (MenuBar_MenuItem.Top + MenuBar_MenuItem.Height) * 1.33 + 3 ClientToScreen hForm, pt If OnAction "" Then Application.Run OnAction End If End If End With End With End Sub Private Sub UnSelectLastMenu() '取消上次选择 If Not LastSelect_Menu Is Nothing Then With LastSelect_Menu .Picture = LoadPicture() .BackStyle = fmBackStyleTransparent .BorderStyle = fmBorderStyleNone End With End If End Sub '********本模块结束********** '*************************** '* 菜单执行模块 * '*************************** Public Type POINTAPI X As Long Y As Long End Type Public Declare Function FindWindow Lib "user32.dll" Alias"FindWindowA"(ByVal lpClassName As String, ByVal lpWindowName As String) As Long Public Declare Function ClientToScreen Lib"user32"(ByVal hwnd As Long, lpPoint As POINTAPI) As Long Public Popup_Menu As CommandBar '指定弹出式菜单 Public LastSelect_Menu As MSForms.Image '最后选择的菜单 Public MenuCount As Integer '子菜单数量 Public hForm As Long '窗口句柄 Public intLevel As Integer '级别标识,用于设置Radio菜单(游戏菜单中:初级,中级,高级) Public bAbortEnabled As Boolean '标识放弃菜单项是否可用 Public bItemCheck As Boolean '标识音效菜单是否CheckOn Public bMenuSelected As Boolean '标识菜单是否点击 Public pt As POINTAPI '定义点 Public faceid As Integer '图标ID Public faceidselect As Integer '选择的图标 Public fistid As Integer '第一个图标号 Public lastid As Integer '最后一个图标号 Public selectrow,selectcol as integer Public Mcro(50) AS String SUB 文件() Clear_menu '清除弹出菜单上菜单项 Dim cmb As CommandBarControl AddCustomCommandBarPopup1 "打开 ", "", False, True,33,"" AddCustomCommandBarPopup1 "新建 ", "BB", False, True,18,"" AddCustomCommandBarPopup2 ("另存为 ") Set cmb = Application.CommandBars("CELL").Controls("另存为 ") AddCustomCommandBarPopup3 cmb, "OFFICE 97-2003文件 ", "DD", False, True, 3, "" Set cmb = Application.CommandBars("CELL").Controls("另存为 ") AddCustomCommandBarPopup4 cmb, "OFFICE 2007工作表 " Set cmb = Application.CommandBars("CELL").Controls("另存为 ").Controls("OFFICE 2007工作表 ") AddCustomCommandBarPopup3 cmb, "office 2007启用宏的工作表 ", "FF", False, True, 0, "" Set cmb = Application.CommandBars("CELL").Controls("另存为 ").Controls("OFFICE 2007工作表 ") AddCustomCommandBarPopup3 cmb, "OFFICE 2007工作表 ", "GG", False, True, 253, "" Popup_Menu.ShowPopup pt.X, pt.Y END SUB SUB 公式() Clear_menu '清除弹出菜单上菜单项 Dim cmb As CommandBarControl AddCustomCommandBarPopup1 "文本 ", "WB", False, True,7,"" AddCustomCommandBarPopup2 ("名称 ") Set cmb = Application.CommandBars("CELL").Controls("名称 ") AddCustomCommandBarPopup3 cmb, "定义 ", "DY", False, True, 0, "" Set cmb = Application.CommandBars("CELL").Controls("名称 ") AddCustomCommandBarPopup4 cmb, "单元格 " Set cmb = Application.CommandBars("CELL").Controls("名称 ").Controls("单元格 ") AddCustomCommandBarPopup3 cmb, "合并 ", "HB", False, True, 592, "" Set cmb = Application.CommandBars("CELL").Controls("名称 ").Controls("单元格 ") AddCustomCommandBarPopup3 cmb, "从属 ", "CS", False, True, 564, "" Popup_Menu.ShowPopup pt.X, pt.Y END SUB SUB 开发工具() Clear_menu '清除弹出菜单上菜单项 Dim cmb As CommandBarControl AddCustomCommandBarPopup1 "插入 ", "CR", False, True,548,"" AddCustomCommandBarPopup1 "模式 ", "MS", False, True,590,"" AddCustomCommandBarPopup2 ("宏 ") Set cmb = Application.CommandBars("CELL").Controls("宏 ") AddCustomCommandBarPopup3 cmb, "录制宏 ", "LZH", False, True, 205, "" Set cmb = Application.CommandBars("CELL").Controls("宏 ") AddCustomCommandBarPopup3 cmb, "安全性 ", "AQX", False, True, 279, "" Set cmb = Application.CommandBars("CELL").Controls("宏 ") AddCustomCommandBarPopup3 cmb, "查看代码 ", "CKDM", False, True, 289, "" Popup_Menu.ShowPopup pt.X, pt.Y END SUB SUB 窗口() Clear_menu '清除弹出菜单上菜单项 Dim cmb As CommandBarControl AddCustomCommandBarPopup1 "并列比较 ", "BLBJ", False, True,250,"" AddCustomCommandBarPopup1 "冻结 ", "DJ", False, True,288,"" AddCustomCommandBarPopup1 "隐藏 ", "YC", False, True,237,"" AddCustomCommandBarPopup1 "拆分 ", "CF", False, True,292,"" AddCustomCommandBarPopup1 "取消冻结 ", "QXDJ", False, True,232,"" Popup_Menu.ShowPopup pt.X, pt.Y END SUB SUB 工具() Clear_menu '清除弹出菜单上菜单项 Dim cmb As CommandBarControl AddCustomCommandBarPopup1 "拼写检查 ", "PXJC", False, True,246,"" AddCustomCommandBarPopup2 ("保护 ") Set cmb = Application.CommandBars("CELL").Controls("保护 ") AddCustomCommandBarPopup3 cmb, "保护工作表 ", "BHGZB", False, True, 277, "" Set cmb = Application.CommandBars("CELL").Controls("保护 ") AddCustomCommandBarPopup3 cmb, "保护工作薄 ", "BHGZBB", False, True, 312, "" Set cmb = Application.CommandBars("CELL").Controls("保护 ") AddCustomCommandBarPopup3 cmb, "工作表菜单栏 ", "gzbcdl", False, True, 142, "" Set cmb = Application.CommandBars("CELL").Controls("保护 ") AddCustomCommandBarPopup3 cmb, "图表菜单栏 ", "tbgjl", False, True, 164, "" Popup_Menu.ShowPopup pt.X, pt.Y END SUB SUB 常用() Clear_menu '清除弹出菜单上菜单项 Dim cmb As CommandBarControl AddCustomCommandBarPopup1 "格式 ", "gs", False, True,108,"" AddCustomCommandBarPopup1 "数据透视表 ", "sjtsb", False, True,125,"" AddCustomCommandBarPopup1 "图表 ", "tb", False, True,127,"" AddCustomCommandBarPopup1 "审阅 ", "sy", False, True,124,"" AddCustomCommandBarPopup1 "窗体 ", "ct", False, True,128,"" AddCustomCommandBarPopup1 "停止录制 ", "tzlz", False, True,185,"" AddCustomCommandBarPopup2 ("外部数据 ") Set cmb = Application.CommandBars("CELL").Controls("外部数据 ") AddCustomCommandBarPopup3 cmb, "公式审核 ", "gssh", False, True, 129, "" Set cmb = Application.CommandBars("CELL").Controls("外部数据 ") AddCustomCommandBarPopup3 cmb, "全屏显示 ", "qpxs", False, True, 130, "" Set cmb = Application.CommandBars("CELL").Controls("外部数据 ") AddCustomCommandBarPopup3 cmb, "循环引用 ", "xhye", False, True, 132, "" Set cmb = Application.CommandBars("CELL").Controls("外部数据 ") AddCustomCommandBarPopup4 cmb, "VisualBasic " Set cmb = Application.CommandBars("CELL").Controls("外部数据 ").Controls("VisualBasic ") AddCustomCommandBarPopup3 cmb, "Web ", "web", False, True, 173, "" Set cmb = Application.CommandBars("CELL").Controls("外部数据 ").Controls("VisualBasic ") AddCustomCommandBarPopup3 cmb, "控件工具箱 ", "kjgjx", False, True, 174, "" Set cmb = Application.CommandBars("CELL").Controls("外部数据 ").Controls("VisualBasic ") AddCustomCommandBarPopup3 cmb, "退出设计模式 ", "tcsjms", False, True, 162, "" Set cmb = Application.CommandBars("CELL").Controls("外部数据 ").Controls("VisualBasic ") AddCustomCommandBarPopup3 cmb, "刷新 ", "sx", False, True, 165, "" Set cmb = Application.CommandBars("CELL").Controls("外部数据 ").Controls("VisualBasic ") AddCustomCommandBarPopup3 cmb, "监视窗口 ", "jsck", False, True, 168, "" Set cmb = Application.CommandBars("CELL").Controls("外部数据 ").Controls("VisualBasic ") AddCustomCommandBarPopup3 cmb, "数据透视表字段列表 ", "sjtsbzdb", False, True, 170, "" Set cmb = Application.CommandBars("CELL").Controls("外部数据 ").Controls("VisualBasic ") AddCustomCommandBarPopup3 cmb, "边框 ", "bk", False, True, 178, "" Set cmb = Application.CommandBars("CELL").Controls("外部数据 ").Controls("VisualBasic ") AddCustomCommandBarPopup3 cmb, "保护 ", "bh", False, True, 160, "" Set cmb = Application.CommandBars("CELL").Controls("外部数据 ").Controls("VisualBasic ") AddCustomCommandBarPopup3 cmb, "文本到语音 ", "wbdyy", False, True, 164, "" Popup_Menu.ShowPopup pt.X, pt.Y END SUB SUB 列表() Clear_menu '清除弹出菜单上菜单项 Dim cmb As CommandBarControl AddCustomCommandBarPopup1 "并排比较 ", "bpbj1", False, True,180,"" AddCustomCommandBarPopup1 "绘图 ", "bpbj2", False, True,182,"" AddCustomCommandBarPopup1 "数据透视图菜单 ", "bpbj3", False, True,184,"" AddCustomCommandBarPopup2 ("工作簿标签 ") AddCustomCommandBarPopup2 ("单元格 ") Set cmb = Application.CommandBars("CELL").Controls("单元格 ") AddCustomCommandBarPopup3 cmb, "列 ", "bpbj6", False, True, 190, "" Set cmb = Application.CommandBars("CELL").Controls("单元格 ") AddCustomCommandBarPopup3 cmb, "行 ", "bpbj7", False, True, 192, "" Set cmb = Application.CommandBars("CELL").Controls("单元格 ") AddCustomCommandBarPopup3 cmb, "单元格 ", "bpbj8", False, True, 194, "" Set cmb = Application.CommandBars("CELL").Controls("单元格 ") AddCustomCommandBarPopup3 cmb, "柱形图 ", "bpbj9", False, True, 196, "" Set cmb = Application.CommandBars("CELL").Controls("单元格 ") AddCustomCommandBarPopup3 cmb, "行 ", "bpbj10", False, True, 198, "" Set cmb = Application.CommandBars("CELL").Controls("单元格 ") AddCustomCommandBarPopup4 cmb, "工作表 " Set cmb = Application.CommandBars("CELL").Controls("单元格 ").Controls("工作表 ") AddCustomCommandBarPopup3 cmb, "XLM 单元格 ", "bpbj12", False, True, 202, "" Set cmb = Application.CommandBars("CELL").Controls("单元格 ").Controls("工作表 ") AddCustomCommandBarPopup3 cmb, "文档 ", "bpbj13", False, True, 204, "" Set cmb = Application.CommandBars("CELL").Controls("单元格 ").Controls("工作表 ") AddCustomCommandBarPopup3 cmb, "桌面 ", "bpbj14", False, True, 206, "" Set cmb = Application.CommandBars("CELL").Controls("单元格 ").Controls("工作表 ") AddCustomCommandBarPopup3 cmb, "非默认拖放 ", "bpbj15", False, True, 208, "" Set cmb = Application.CommandBars("CELL").Controls("单元格 ").Controls("工作表 ") AddCustomCommandBarPopup3 cmb, "自动填充 ", "bpbj16", False, True, 210, "" Set cmb = Application.CommandBars("CELL").Controls("单元格 ").Controls("工作表 ") AddCustomCommandBarPopup3 cmb, "按钮 ", "bpbj17", False, True, 212, "" Set cmb = Application.CommandBars("CELL").Controls("单元格 ").Controls("工作表 ") AddCustomCommandBarPopup3 cmb, "对话框 ", "bpbj18", False, True, 214, "" Popup_Menu.ShowPopup pt.X, pt.Y END SUB SUB 序列() Clear_menu '清除弹出菜单上菜单项 Dim cmb As CommandBarControl AddCustomCommandBarPopup1 "图形区 ", "bpbj20", False, True,218,"" AddCustomCommandBarPopup1 "基底和墙纸 ", "bpbj21", False, True,220,"" AddCustomCommandBarPopup1 "趋势线 ", "bpbj22", False, True,222,"" AddCustomCommandBarPopup1 "图表 ", "bpbj23", False, True,224,"" AddCustomCommandBarPopup1 "设置数据系列格式 ", "bpbj24", False, True,226,"" AddCustomCommandBarPopup2 ("设置数据轴格式 ") Set cmb = Application.CommandBars("CELL").Controls("设置数据轴格式 ") AddCustomCommandBarPopup3 cmb, "设置图例项格式 ", "bpbj26", False, True, 230, "" Set cmb = Application.CommandBars("CELL").Controls("设置数据轴格式 ") AddCustomCommandBarPopup3 cmb, "编辑栏 ", "bpbj27", False, True, 232, "" Set cmb = Application.CommandBars("CELL").Controls("设置数据轴格式 ") AddCustomCommandBarPopup3 cmb, "数据透视表上下文菜单 ", "bpbj28", False, True, 234, "" Set cmb = Application.CommandBars("CELL").Controls("设置数据轴格式 ") AddCustomCommandBarPopup3 cmb, "查询 ", "bpbj29", False, True, 236, "" Set cmb = Application.CommandBars("CELL").Controls("设置数据轴格式 ") AddCustomCommandBarPopup3 cmb, "查询布局 ", "bpbj30", False, True, 238, "" Set cmb = Application.CommandBars("CELL").Controls("设置数据轴格式 ") AddCustomCommandBarPopup4 cmb, "自动计算 " Set cmb = Application.CommandBars("CELL").Controls("设置数据轴格式 ").Controls("自动计算 ") AddCustomCommandBarPopup3 cmb, "对象/图形区 ", "bpbj32", False, True, 242, "" Set cmb = Application.CommandBars("CELL").Controls("设置数据轴格式 ").Controls("自动计算 ") AddCustomCommandBarPopup3 cmb, "标题栏(图表) ", "bpbj33", False, True, 244, "" Popup_Menu.ShowPopup pt.X, pt.Y END SUB SUB 框架() Clear_menu '清除弹出菜单上菜单项 Dim cmb As CommandBarControl AddCustomCommandBarPopup1 "数据透视图快捷菜单 ", "bpbj35", False, True,248,"" AddCustomCommandBarPopup1 "拼音信息 ", "bpbj36", False, True,250,"" AddCustomCommandBarPopup1 "自动合计 ", "bpbj37", False, True,252,"" AddCustomCommandBarPopup1 "选择性粘贴下拉框 ", "bpbj38", False, True,254,"" AddCustomCommandBarPopup2 ("查找格式 ") Set cmb = Application.CommandBars("CELL").Controls("查找格式 ") AddCustomCommandBarPopup3 cmb, "替换格式 ", "bpbj40", False, True, 258, "" Set cmb = Application.CommandBars("CELL").Controls("查找格式 ") AddCustomCommandBarPopup3 cmb, "列表区域快捷菜单 ", "bpbj41", False, True, 260, "" Set cmb = Application.CommandBars("CELL").Controls("查找格式 ") AddCustomCommandBarPopup3 cmb, "列表区域布局快捷菜单 ", "bpbj42", False, True, 262, "" Set cmb = Application.CommandBars("CELL").Controls("查找格式 ") AddCustomCommandBarPopup3 cmb, "XML 区域快捷菜单 ", "bpbj43", False, True, 264, "" Set cmb = Application.CommandBars("CELL").Controls("查找格式 ") AddCustomCommandBarPopup3 cmb, "列表区域布局快捷菜单 ", "bpbj44", False, True, 266, "" Set cmb = Application.CommandBars("CELL").Controls("查找格式 ") AddCustomCommandBarPopup3 cmb, "艺术字 ", "bpbj45", False, True, 268, "" AddCustomCommandBarPopup2 ("图片 ") Set cmb = Application.CommandBars("CELL").Controls("图片 ") AddCustomCommandBarPopup3 cmb, "阴影设置 ", "bpbj47", False, True, 272, "" AddCustomCommandBarPopup2 ("三维设置 ") Set cmb = Application.CommandBars("CELL").Controls("三维设置 ") AddCustomCommandBarPopup3 cmb, "绘图画布 ", "bpbj49", False, True, 276, "" Set cmb = Application.CommandBars("CELL").Controls("三维设置 ") AddCustomCommandBarPopup3 cmb, "组织结构图 ", "bpbj50", False, True, 278, "" Set cmb = Application.CommandBars("CELL").Controls("三维设置 ") AddCustomCommandBarPopup3 cmb, "图示 ", "bpbj51", False, True, 280, "" Set cmb = Application.CommandBars("CELL").Controls("三维设置 ") AddCustomCommandBarPopup3 cmb, "墨迹绘图与书写 ", "bpbj52", False, True, 282, "" Set cmb = Application.CommandBars("CELL").Controls("三维设置 ") AddCustomCommandBarPopup3 cmb, "墨迹注释 ", "bpbj53", False, True, 284, "" AddCustomCommandBarPopup2 ("边框 ") Set cmb = Application.CommandBars("CELL").Controls("边框 ") AddCustomCommandBarPopup3 cmb, "边框 ", "bpbj55", False, True, 288, "" Set cmb = Application.CommandBars("CELL").Controls("边框 ") AddCustomCommandBarPopup4 cmb, "绘图边框 " Set cmb = Application.CommandBars("CELL").Controls("边框 ").Controls("绘图边框 ") AddCustomCommandBarPopup3 cmb, "图表类型 ", "bpbj57", False, True, 292, "" Set cmb = Application.CommandBars("CELL").Controls("边框 ").Controls("绘图边框 ") AddCustomCommandBarPopup3 cmb, "图案 ", "bpbj58", False, True, 294, "" Set cmb = Application.CommandBars("CELL").Controls("边框 ").Controls("绘图边框 ") AddCustomCommandBarPopup3 cmb, "字体颜色 ", "bpbj59", False, True, 296, "" Popup_Menu.ShowPopup pt.X, pt.Y END SUB SUB 填充颜色() Clear_menu '清除弹出菜单上菜单项 Dim cmb As CommandBarControl AddCustomCommandBarPopup1 "线条颜色 ", "bpbj61", False, True,300,"" AddCustomCommandBarPopup2 ("绘图与书写笔 ") Set cmb = Application.CommandBars("CELL").Controls("绘图与书写笔 ") AddCustomCommandBarPopup3 cmb, "批注笔 ", "bpbj63", False, True, 304, "" Set cmb = Application.CommandBars("CELL").Controls("绘图与书写笔 ") AddCustomCommandBarPopup3 cmb, "绘图和书写笔 ", "bpbj64", False, True, 306, "" Set cmb = Application.CommandBars("CELL").Controls("绘图与书写笔 ") AddCustomCommandBarPopup3 cmb, "注释笔 ", "bpbj65", False, True, 308, "" Set cmb = Application.CommandBars("CELL").Controls("绘图与书写笔 ") AddCustomCommandBarPopup3 cmb, "叠放次序 ", "bpbj66", False, True, 310, "" Set cmb = Application.CommandBars("CELL").Controls("绘图与书写笔 ") AddCustomCommandBarPopup3 cmb, "微移 ", "bpbj67", False, True, 312, "" Set cmb = Application.CommandBars("CELL").Controls("绘图与书写笔 ") AddCustomCommandBarPopup3 cmb, "对齐或分布 ", "bpbj68", False, True, 314, "" AddCustomCommandBarPopup2 ("旋转或翻转 ") Set cmb = Application.CommandBars("CELL").Controls("旋转或翻转 ") AddCustomCommandBarPopup3 cmb, "直线 ", "bpbj70", False, True, 318, "" Set cmb = Application.CommandBars("CELL").Controls("旋转或翻转 ") AddCustomCommandBarPopup4 cmb, "连接符 " Set cmb = Application.CommandBars("CELL").Controls("旋转或翻转 ").Controls("连接符 ") AddCustomCommandBarPopup3 cmb, "自选图形 ", "bpbj72", False, True, 322, "" Set cmb = Application.CommandBars("CELL").Controls("旋转或翻转 ").Controls("连接符 ") AddCustomCommandBarPopup3 cmb, "标注 ", "bpbj73", False, True, 324, "" Popup_Menu.ShowPopup pt.X, pt.Y END SUB SUB 流程图() Clear_menu '清除弹出菜单上菜单项 Dim cmb As CommandBarControl AddCustomCommandBarPopup1 "箭头总汇 ", "bpbj75", False, True,328,"" AddCustomCommandBarPopup1 "星与旗帜 ", "bpbj76", False, True,330,"" AddCustomCommandBarPopup1 "基本形状 ", "bpbj77", False, True,332,"" AddCustomCommandBarPopup1 "插入形状 ", "bpbj78", False, True,334,"" AddCustomCommandBarPopup2 ("形状 ") Set cmb = Application.CommandBars("CELL").Controls("形状 ") AddCustomCommandBarPopup3 cmb, "非活动图表 ", "bpbj80", False, True, 338, "" Set cmb = Application.CommandBars("CELL").Controls("形状 ") AddCustomCommandBarPopup3 cmb, "Excel 控件 ", "bpbj81", False, True, 340, "" AddCustomCommandBarPopup1 "曲线 ", "bpbj82", False, True,342,"" AddCustomCommandBarPopup1 "曲线结点 ", "bpbj83", False, True,344,"" AddCustomCommandBarPopup1 "曲线段 ", "bpbj84", False, True,346,"" AddCustomCommandBarPopup1 "图片上下文菜单 ", "bpbj85", False, True,348,"" Popup_Menu.ShowPopup pt.X, pt.Y END SUB SUB OLE对象() Clear_menu '清除弹出菜单上菜单项 Dim cmb As CommandBarControl AddCustomCommandBarPopup1 "ActiveX 控件 ", "bpbj87", False, True,352,"" AddCustomCommandBarPopup1 "艺术字上下文菜单 ", "bpbj88", False, True,354,"" AddCustomCommandBarPopup1 "旋转方式 ", "bpbj89", False, True,356,"" AddCustomCommandBarPopup1 "连接符 ", "bpbj90", False, True,358,"" AddCustomCommandBarPopup1 "脚本标记快捷菜单 ", "bpbj91", False, True,360,"" AddCustomCommandBarPopup1 "Canvas Popup ", "bpbj92", False, True,362,"" AddCustomCommandBarPopup1 "Organization Chart Popup ", "bpbj93", False, True,364,"" AddCustomCommandBarPopup2 ("图表 ") Set cmb = Application.CommandBars("CELL").Controls("图表 ") AddCustomCommandBarPopup3 cmb, "选择 ", "bpbj95", False, True, 368, "" Set cmb = Application.CommandBars("CELL").Controls("图表 ") AddCustomCommandBarPopup4 cmb, "版式 " Set cmb = Application.CommandBars("CELL").Controls("图表 ").Controls("版式 ") AddCustomCommandBarPopup3 cmb, "符号栏 ", "bpbj97", False, True, 372, "" Set cmb = Application.CommandBars("CELL").Controls("图表 ").Controls("版式 ") AddCustomCommandBarPopup3 cmb, "任务窗格 ", "bpbj98", False, True, 374, "" Popup_Menu.ShowPopup pt.X, pt.Y END SUB SUB 添加命令() Clear_menu '清除弹出菜单上菜单项 Dim cmb As CommandBarControl AddCustomCommandBarPopup1 "内置菜单 ", "bpbj100", False, True,378,"" AddCustomCommandBarPopup1 "剪贴板 ", "bpbj101", False, True,380,"" AddCustomCommandBarPopup1 "信封 ", "bpbj102", False, True,382,"" AddCustomCommandBarPopup1 "联机会议 ", "bpbj103", False, True,384,"" AddCustomCommandBarPopup1 "SnagIt ", "bpbj104", False, True,386,"" Popup_Menu.ShowPopup pt.X, pt.Y END SUB SUB 关于() Clear_menu '清除弹出菜单上菜单项 Dim cmb As CommandBarControl AddCustomCommandBarPopup1 "我的VBA ", "WDVBA", False, True,400,"" AddCustomCommandBarPopup1 "帮助 ", "BZ", False, True,402,"" Popup_Menu.ShowPopup pt.X, pt.Y END SUB Public Sub ClearBar() '清除Cell弹出式菜单中菜单项 Dim ctr As CommandBarControl With Popup_Menu .Enabled = True For Each ctr In .Controls ctr.Delete Next End With End Sub Sub RemoveCustomMenu() '恢复系统菜单的各弹出菜单 Application.CommandBars("CELL").Reset End Sub Sub clear_menu() Dim cmb As Object For Each cmb In Application.CommandBars("cell").Controls Application.CommandBars("cell").Controls(cmb.Caption).Delete Next End Sub Sub AddCustomCommandBarPopup1(Caption As String, Macro As String, NewGroup As Boolean, Enable As Boolean, FId As Integer, ShortT As String) '添加一级菜单选项 Dim cbb As CommandBarButton Set cbb = Application.CommandBars("CELL").Controls.Add(msoControlButton) cbb.Caption = Caption If FId > 0 Then cbb.faceid = FId If ShortT "" Then cbb.ShortcutText = ShortT cbb.OnAction = Macro cbb.BeginGroup = NewGroup cbb.Enabled = Enable End Sub Function AddCustomCommandBarPopup2(Caption As String) As CommandBarControl '添加子菜单项 Dim cmb As CommandBarControl Set cmb = Application.CommandBars("CELL").Controls.Add(msoControlPopup) cmb.Caption = Caption cmb.Visible = True Set AddCustomCommandBarPopup2 = cmb End Function Sub AddCustomCommandBarPopup3(cmb As Object, Caption As String, Macro As String, NewGroup As Boolean, Enable As Boolean, FId As Integer, ShortT As String) '添加一级菜单选项 Dim cbc As CommandBarButton Set cbc = cmb.Controls.Add(msoControlButton) cbc.Caption = Caption If FId > 0 Then cbc.faceid = FId If ShortT "" Then cbc.ShortcutText = ShortT cbc.OnAction = Macro cbc.BeginGroup = NewGroup cbc.Enabled = Enable End Sub Function AddCustomCommandBarPopup4(cmd As CommandBarControl, Caption As String) As CommandBarControl '添加子菜单项 Dim cme As CommandBarControl Set cme = cmd.Controls.Add(msoControlPopup) cme.Caption = Caption cme.Visible = True Set AddCustomCommandBarPopup4 = cme End Function '********本模块结束********** '*************************** '* 窗口模块 * '*************************** Private menu(1 To 50) As New Menu_Class '定义50个cMenu菜单类型 Private Sub UserForm_Initialize() hForm = FindWindow(vbNullString, Me.Caption) '程序中需要用到窗口句柄,先获得它 MenuCount = 0 Set Popup_Menu = Application.CommandBars("Cell") '程序中需指定一个弹出式菜单,我们指定为单元格右键菜单,您可另外指定一个弹出式菜单,请注意,是弹出式菜单 Dim bar As Control Set bar = Me.Controls.Add("Forms.image.1", "IM1", Visible) With bar .Visible = True .Left = -100 .Top = 0 .Height = 20 .Width = 20 .BackColor = &HFFC0C0 .BorderStyle = 0 End With '*************** Set bar = Me.Controls.Add("Forms.image.1", "IM2", Visible) With bar .Visible = True .Left = -100 .Top = 0 .Height = 20 .Width = 20 .BackColor = &HFFC0C0 .BorderStyle = 0 End With '*************** Set bar = Me.Controls.Add("Forms.image.1", "FormMenuBar", Visible) With bar .Visible = True .Left = -1 .Top = -1 .Height = 20 .Width = 2000 .BackColor = &HFFC0C0 .BorderStyle = 0 End With menu(1).AddMenu Me,"文件","文件","" menu(2).AddMenu Me,"公式","公式","" menu(3).AddMenu Me,"开发工具","开发工具","" menu(4).AddMenu Me,"窗口","窗口","" menu(5).AddMenu Me,"工具","工具","" menu(6).AddMenu Me,"常用","常用","" menu(7).AddMenu Me,"列表","列表","" menu(8).AddMenu Me,"序列","序列","" menu(9).AddMenu Me,"框架","框架","" menu(10).AddMenu Me,"填充颜色","填充颜色","" menu(11).AddMenu Me,"流程图","流程图","" menu(12).AddMenu Me,"OLE对象","OLE对象","" menu(13).AddMenu Me,"添加命令","添加命令","" menu(14).AddMenu Me,"关于","关于","" end sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Dim i As Integer For i = LBound(menu) To UBound(menu) Set menu(i) = Nothing Next Popup_Menu.Enabled = True Popup_Menu.Reset end sub '********本模块结束**********
VB编程资源大全（源码 其它3）
556,delay1.zip 源码设计中的延时功能(1KB)557,type_1.zip 趣味打字2.1(233KB)558,test1.zip asp编写动态网页计数器(1KB)559,hztosm.zip 汉字转声母完全源代码(90KB)560,formatfloppy.zip 格式化软盘源代码(13KB)561,freespace.zip 获取磁盘剩余空间(3KB)562,setscreen 设置屏幕分辨率(7KB)563,snapwindow.zip 一个抓图的小程序(14KB)564,hotrgn.zip 热区的应用(6KB)565,getserial.zip 读出驱动器序列号，可以制作加密安装盘(2KB)566,opencdrom.zip 可以程序控制打开或关闭CDROM，非常方便(2KB)567,getusername.zip 自动读取用户登陆名称，再进行密码验证(2KB)568,gethostname.zip 读取机器名称(2KB)569,printpic.zip 解决图形打印的问题(50KB)570,g029_pcl.zip拼图游戏(56KB)571,g028_octopus.zip一个简单的掌上游戏机的游戏,这个游戏机的内容是要逃过大章鱼的捕捉(408KB)572,g027_menace.zip仓库世家-推箱子的游戏(114KB)573,g026_breKthru.zip弹珠台游戏(41KB)574,g025_zhq.zip一个能考考你的智慧的智慧棋(17KB)575,g024_vb-sol.zipVB 的扑克牌游戏的源码(15KB)576,g023_picgame.zip一个好玩的拼图游戏(25KB)577,g021_zm015看着超级玛莉不停的追赶着你的鼠标，是不是很有意思呢？(25KB)578,g020_zm019一个拼图游戏，可以自己指定图片进行游戏(12KB)579,g019_zm011一个网络五子棋的源程序(并有聊天功能)(41KB)580,g018_zm010.zip中国象棋的源程序，支持网络作战(23KB)581,g0173维的breaKthrough游戏(8KB)582,g016.zip小蜜蜂射击游戏源程序, 不仅演示了 vb 的图形操作技巧,键盘操作,还演示了怎样使用 npmod32.dll(已包含,免费) 来播mod,s3m,mpp,med,xm,it,mdz,itz,xmz,s3z 等音乐格式文件(208KB)583,g015.zip旋转俄罗斯 1.0 demo 版的源程序，vb5 版存贮，稍加修改即适合于 vb4、vb3。里面有用 vb 处理俄罗斯方块的核心内容及简单注释(8KB)584,g014.zipbreakthrough游戏(保持小球在屏幕上跳动)源程序(50KB)585,g013.zip3维迷宫游戏的源程序(40KB)586,g012.zip射击(导弹)游戏的源程序(5KB)587,g011.zip生命游戏源程序(12KB)588,g010.zip一个精灵游戏源程序(33KB)589,g009.zip翻转棋游戏(64子, 每子正反面分别为黑白两色, 两人对弈)的源程序(29)590,g008.zip纸牌游戏源程序(45KB)591,g007.zip太空船游戏例子源程序(48KB)592,g006.zip用白雪做背面的俄罗斯方块（1.0版），自带EXE(224KB)593,g005.zip个人娱乐游戏，自带EXE(25KB)594,g004.zip个个人自娱乐的扑克牌游戏(57KB)595,g003.zip代表和平的娱乐游戏，自带EXE(12KB)596,g002.zip一个迷宫游戏，还有地图编辑器呢，完全源码(230KB)597,g001.zip模仿windows中的扫雷，自带EXE(38KB)
VB编程资源大全（源码 其它1）
556,delay1.zip 源码设计中的延时功能(1KB)557,type_1.zip 趣味打字2.1(233KB)558,test1.zip asp编写动态网页计数器(1KB)559,hztosm.zip 汉字转声母完全源代码(90KB)560,formatfloppy.zip 格式化软盘源代码(13KB)561,freespace.zip 获取磁盘剩余空间(3KB)562,setscreen 设置屏幕分辨率(7KB)563,snapwindow.zip 一个抓图的小程序(14KB)564,hotrgn.zip 热区的应用(6KB)565,getserial.zip 读出驱动器序列号，可以制作加密安装盘(2KB)566,opencdrom.zip 可以程序控制打开或关闭CDROM，非常方便(2KB)567,getusername.zip 自动读取用户登陆名称，再进行密码验证(2KB)568,gethostname.zip 读取机器名称(2KB)569,printpic.zip 解决图形打印的问题(50KB)570,g029_pcl.zip拼图游戏(56KB)571,g028_octopus.zip一个简单的掌上游戏机的游戏,这个游戏机的内容是要逃过大章鱼的捕捉(408KB)572,g027_menace.zip仓库世家-推箱子的游戏(114KB)573,g026_breKthru.zip弹珠台游戏(41KB)574,g025_zhq.zip一个能考考你的智慧的智慧棋(17KB)575,g024_vb-sol.zipVB 的扑克牌游戏的源码(15KB)576,g023_picgame.zip一个好玩的拼图游戏(25KB)577,g021_zm015看着超级玛莉不停的追赶着你的鼠标，是不是很有意思呢？(25KB)578,g020_zm019一个拼图游戏，可以自己指定图片进行游戏(12KB)579,g019_zm011一个网络五子棋的源程序(并有聊天功能)(41KB)580,g018_zm010.zip中国象棋的源程序，支持网络作战(23KB)581,g0173维的breaKthrough游戏(8KB)582,g016.zip小蜜蜂射击游戏源程序, 不仅演示了 vb 的图形操作技巧,键盘操作,还演示了怎样使用 npmod32.dll(已包含,免费) 来播mod,s3m,mpp,med,xm,it,mdz,itz,xmz,s3z 等音乐格式文件(208KB)583,g015.zip旋转俄罗斯 1.0 demo 版的源程序，vb5 版存贮，稍加修改即适合于 vb4、vb3。里面有用 vb 处理俄罗斯方块的核心内容及简单注释(8KB)584,g014.zipbreakthrough游戏(保持小球在屏幕上跳动)源程序(50KB)585,g013.zip3维迷宫游戏的源程序(40KB)586,g012.zip射击(导弹)游戏的源程序(5KB)587,g011.zip生命游戏源程序(12KB)588,g010.zip一个精灵游戏源程序(33KB)589,g009.zip翻转棋游戏(64子, 每子正反面分别为黑白两色, 两人对弈)的源程序(29)590,g008.zip纸牌游戏源程序(45KB)591,g007.zip太空船游戏例子源程序(48KB)592,g006.zip用白雪做背面的俄罗斯方块（1.0版），自带EXE(224KB)593,g005.zip个人娱乐游戏，自带EXE(25KB)594,g004.zip个个人自娱乐的扑克牌游戏(57KB)595,g003.zip代表和平的娱乐游戏，自带EXE(12KB)596,g002.zip一个迷宫游戏，还有地图编辑器呢，完全源码(230KB)597,g001.zip模仿windows中的扫雷，自带EXE(38KB)
VB编程资源大全（源码 其它2）
556,delay1.zip
源码设计中的延时功能(1KB)
557,type_1.zip
趣味打字2.1(233KB)
558,test1.zip
asp编写动态网页计数器(1KB)
559,hztosm.zip
汉字转声母完全源代码(90KB)
560,formatfloppy.zip
格式化软盘源代码(13KB)
561,freespace.zip
获取磁盘剩余空间(3KB)
562,setscreen
设置屏幕分辨率(7KB)
563,snapwindow.zip
一个抓图的小程序(14KB)
564,hotrgn.zip
热区的应用(6KB)
565,getserial.zip
读出驱动器序列号，可以制作加密安装盘(2KB)
566,opencdrom.zip
可以程序控制打开或关闭CDROM，非常方便(2KB)
567,getusername.zip
自动读取用户登陆名称，再进行密码验证(2KB)
568,gethostname.zip
读取机器名称(2KB)
569,printpic.zip
解决图形打印的问题(50KB)
570,g029_pcl.zip
拼图游戏(56KB)
571,g028_octopus.zip
一个简单的掌上游戏机的游戏,这个游戏机的内容是要逃过大章鱼的捕捉(408KB)
572,g027_menace.zip
仓库世家-推箱子的游戏(114KB)
573,g026_breKthru.zip
弹珠台游戏(41KB)
574,g025_zhq.zip
一个能考考你的智慧的智慧棋(17KB)
575,g024_vb-sol.zip
VB 的扑克牌游戏的源码(15KB)
576,g023_picgame.zip
一个好玩的拼图游戏(25KB)
577,g021_zm015
看着超级玛莉不停的追赶着你的鼠标，是不是很有意思呢？(25KB)
578,g020_zm019
一个拼图游戏，可以自己指定图片进行游戏(12KB)
579,g019_zm011
一个网络五子棋的源程序(并有聊天功能)(41KB)
580,g018_zm010.zip
中国象棋的源程序，支持网络作战(23KB)
581,g017
3维的breaKthrough游戏(8KB)
582,g016.zip
小蜜蜂射击游戏源程序, 不仅演示了 vb 的图形操作技巧,键盘操作,还演示了怎样使用 npmod32.dll(已包含,免费) 来播mod,s3m,mpp,med,xm,it,mdz,itz,xmz,s3z 等音乐格式文件(208KB)
583,g015.zip
旋转俄罗斯 1.0 demo 版的源程序，vb5 版存贮，稍加修改即适合于 vb4、vb3。里面有用 vb 处理俄罗斯方块的核心内容及简单注释(8KB)
584,g014.zip
breakthrough游戏(保持小球在屏幕上跳动)源程序(50KB)
585,g013.zip
3维迷宫游戏的源程序(40KB)
586,g012.zip
射击(导弹)游戏的源程序(5KB)
587,g011.zip
生命游戏源程序(12KB)
588,g010.zip
一个精灵游戏源程序(33KB)
589,g009.zip
翻转棋游戏(64子, 每子正反面分别为黑白两色, 两人对弈)的源程序(29)
590,g008.zip
纸牌游戏源程序(45KB)
591,g007.zip
太空船游戏例子源程序(48KB)
592,g006.zip
用白雪做背面的俄罗斯方块（1.0版），自带EXE(224KB)
593,g005.zip
个人娱乐游戏，自带EXE(25KB)
594,g004.zip
个个人自娱乐的扑克牌游戏(57KB)
595,g003.zip
代表和平的娱乐游戏，自带EXE(12KB)
596,g002.zip
一个迷宫游戏，还有地图编辑器呢，完全源码(230KB)
597,g001.zip
模仿windows中的扫雷，自带EXE(38KB)
598,p012_prtDB.zip
打印数据库表格(39KB)
599,p011_dbprint.zip
数据库打印的例子(7KB)
600,p010_print.zip
一个调用打印机的VB程序范例(8KB)
601,p009_vbSimple35.zip
打印预览(21KB)
602,p008_prview32.zip
在VB中用OLE服务实现打印预览的功能(87KB)
603,p007_prnprv3.zip
如何使用VB实现打印预览(32KB)
604,p006_prnView.zip
打印模拟(13KB)
605,p005_vbTip10.zip
避免 Print 时印出 空白的前置字元(2KB)
606,p004_spool.zip
发送脱机打印任务(5KB)
607,p003_orient.zip
改变缺省的打印方向(3KB)
608,p002.zip
在VB5/6中增加打印预览功能(78KB)
609,p001.zip
简单的打印文件的例子(5KB)
610,o046_4.zip
识别常数的简单四则运算(3KB)'
611,o045_dhsz.zip
象钟面一样有时针、分针和秒针(3KB)
612,o044_zm045.zip
一个非常酷的机器人的源程序，你可以自己制作你喜欢的机器人并保存起来，很有意思哦(137KB)
613,o043_004101102.zip
TreeView的基本操作(5KB)
614,o042.zip
一个比较完整的源代码
615,o041_waker.zip
定时提醒 1.0 (12KB)
616,o040_zm035.zip
彻底清除“I Love You”病毒并介绍了病毒的原理及特征。Cool(32KB)
617,o039_72.zip
鼠标计程器(23KB)
618,o038_love.zip
情书生成器源代码(161KB)
619,o037_shellex5.zip
能打开默认的文件夹和默认的网站(7KB)
620,o035_shchangenotify.zip
未公开的COOL函数据(12KB)
621,o034_rotfont.zip
用VB实现字体的旋转
622,o033_998162026.zip
制作安装程序常用的模块(2KB)
623,o032_play024.zip
对电子爱好者是一个不错的选择(7KB)
624,o031_Play39.zip
时间、空间大小等数据向字符串的很有用的转换(4KB)
625,o029_snow.zip
一个雪花飘落例子(3KB)
626,o028_zoomsys.zip
类似画图放大镜的东西(2KB)
627,o027_wiz2.zip
制作应用程序向导的例子(类似安装程序的界面)!(5KB)
628,o025_StopWatch.zip
“跑表”类 ,VB 提供的 Timer 控件的精度好象可以达到 1 毫秒，但实际上只能达到几十毫秒。此“跑表”类使用多媒体的定时器而真正提供精确到 1 毫秒的定时(1KB)
629,o024_timer.zip
这是一个VB6编写的数码钟(4KB)
630,o023_clock.zip
指针式的时钟(3KB)
631,o021_viewpw.zip
密码查看器(7KB)
632,o020_calendar.zip
一个小小的日历程序(4KB)
633,o019_getword.zip
读取鼠标所在位置的单词(5KB)
634,o018_up.zip
数字大写转换程序(8KB)
635,o017_zm020.zip
利用这个程序可以让你方便的管理你所收集的源程序，VBCODE网站50几周来排行第一的源程序。强烈推荐！ (200KB)
636,o016.zip
演示银河系的例子 (28KB)
637,o015.zip
计数器(10KB)
638,o014.zip
文件加密/解密的例子 (345KB)
639,o013.zip
将十亿以内的数字转换成文本文字(4KB)
640,o012.zip
十进制数转换成罗马数字(1KB)
641,o011.zip
16进制数转换成十进制, 16进制转换成二进制等(1KB)
642,o010.zip
转换二进制数为16进制数(1KB)
643,o009.zip
指定两个日期, 计算相隔的天数(2KB)
644,o008.zip
非常COOL的文字效果(9KB)
645,o007.zip
Ceaser转换文本加密技术,由Julius Ceaser提出 COOL(7KB)
646,o006.zip
允许你让EXE文件在用户第一次使用时输入用户名和序列号, 并将信息存储在EXE文件中(5KB)
647,o005.zip
简单的例子(4KB)
648,o004.zip
加密/解密字符串的例子(9KB)
649,o003.zip
密码存储程序(2KB)
650,o002.zip
用VB做的CGI程序，演示了如何做一个网上的电子交易系统(91KB)
651,vbNumerical11.htm
Least-Squares curve fitting by using an arbitrary order polynomial as approximating function.(11KB)
652,vbNumerical12.htm
Matrix Inversion by Gauss-Jordan Elimination with maximization of pivot elements.(12KB)
653,vbNumerical13.htm
Least-Squares curve fitting with statistical analysis by using an arbitrary order polynomial (17KB)
654,vbNumerical14.htm
valuate an integral by using Romberg integration. (9KB)
655,vbNumerical15.htm
Solve the matrix eigenvalue problem by using Hotelling's deflation method.(15KB)
656,vbNumerical16.htm
Solve the integral of discrete evenly and unevenly spaced points by using trapezoidal or Simpson's rule. (13KB)
657,vbNumerical17.htm
Evaluate the determinant of a square matrix by using Gauss Elimination with maximization
of pivot elements.(7KB)
658,vbNumerical18.htm
Solve a set of simultaneous linear equations including determinant calculation by Gauss-Jordan
Elimination with maximization of pivot elements.(5KB)
659,vbNumerical19.htm
Solve a set of simultaneous linear equations including determinant calculation by Gauss Elimination
with maximization of pivot elements.(5KB)
660,vbNumerical20.htm
Matrix Inversion including determinant calculation by Gauss-Jordan Elimination with
maximization of pivot elements.(5KB)
661,prnprv3.zip
在vb5/6中增加打印预览功能(78KB)
662,vbprint.zip
vb中使用打印功能的add-in(764KB)
663,spool.zip
打印文件的例子(5KB)
664,versioninfo.zip
从dll或exe文件中获得版本信息(3KB)
665,shellwait.zip
在程序中运行另一个exe程序直到它运行结束(1KB)
666,unloadforms.zip
卸装所有的forms(1KB)
667,startfile.zip
在程序中运行另一个exe程序(6KB)
668,killapp.zip
终止另一个程序(3KB)
669,jdsaver.zip
一个简单的屏幕保护程序(13KB)
670,ssaver.zip
在屏幕上卷滚文字的屏幕保护程序 (8KB)
671,scrsaver.zip
一个简单的屏幕保护程序(5KB)
672,scrnsavr.zip
两个屏幕保护程序(39KB)
673,saver.zip
一个简单的屏幕保护程序(7KB)
674,crypt.zip
密码存储程序(2KB)
675,enigma.zip
一个德国的enigma加密技术例子 cool(10KB)
676,ceaser.zip
ceaser转换文本加密技术,由julius ceaser提出 cool(7KB)
677,registry.zip
读和写注册表文件的例子(7KB)
678,xcopy.zip
模仿dos命令xcopy的功能(3KB)
679,winpaths.zip
得到计算机上windows目录和系统目录(3KB)
680,tray.zip
实现托盘程序(9KB)
681,drvspace.zip
显示磁盘的剩余空间(2KB)
682,keycheck.zip
键盘检测程序(5KB)
683, getdrives.zip
得到驱动器的详细资料(7KB)
684,getcompname.zip
得到计算机名称(2KB)
685,systeminfo.zip
显示详细的系统资料(11KB)
686,watchdir.zip
监控一个指定的目录, 当这个目录有文件删除或有文件增加, 监控程序将显示相关信息(4KB)
687,turnoff.zip
关机/重启动的程序(20KB)
688,controlpanel.zip
访问控制面板的方法(2KB)
689,screenres.zip
得到计算机屏幕的大小(2KB)
690,editregistry.zip
编辑注册表 (2KB)
691,stop.zip
锁定计算机的程序(5KB)
692,wbasket.zip
将文件移动到垃圾箱中(2KB)
693,opsys.zip
得到操作系统的信息(12KB)
694,ctaskmanager.zip
windows任务管理程序(12KB)
695,cntrlpnl.zip
访问控制面板(12KB)
696,copyscr.zip
拷贝屏幕到picture box(2KB)
697, registryb.zip
读注册表信息(5KB)
698,registry5.zip
读/写注册表(10KB)
699,hideshowtaskbar.zip
显示/隐藏任务条(3KB)
700,taskhide.zip
隐藏一个任务(2KB)
701,clipcurs.zip
限制鼠标的区域(3KB)
702, kidnap.zip
捆绑程序(8KB)
703,netuse.zip
演示连接/断开network(3KB)
704,winntsecurity.zip
关于windows nt安全性的程序(6KB)
705,code_format_disk.zip
格式化磁盘的例子(8KB)
706,01ss1632.zip
创建一个屏幕保护程序所用到的ole dll和使用例子(263KB)
707,cpocket.zip
统托盘(tray)控件(691KB)
708,tskvb4.zip
一个系统托盘(tray)例子(13KB)
709,scrnres.zip
使用windows api得到屏幕的大小(3KB)
710,taskswth.zip
调用api实现任务转换和得到当前活动任务名称(4KB)
711,vbhlp32.zip
vb helper:一个写帮助文件的dll(31KB)
712,loads.zip
将动态连接库预先装入内存以提高程序的运行速度(35KB)
713, toolsdll.zip
一个提供磁盘功能动态库, 包括确认文件是否存在, 磁盘空间等功能(132KB)
714,vbfindid.zip
找到窗口或控制的id及类信息(9KB)
715,rbbwin11.zip
在basic中执行一些特殊的指令(如重启计算机等)(1230KB)
716,drivetyp.zip
监测用户安装了何种类型的驱动器,包括"软驱","硬盘","cd-rom","网络驱动器"等(3KB)
717, inout.zip
如何在vb中调用i/o口的例子(10KB)
718,mouseleavetest.zip
在vb中定义了mousemove事件,但不能捕捉mouseleave事件,此程序交你如何捕捉mouseleave事件(8KB)
719,progman.zip
制作安装程序必备,此模块包含的sub及function能帮你做出专业的安装程序(2KB)
720,windows5.zip
如何得到当前windows的版本号(7KB)
721,group.zip
读取 win95 组的三种方法及组中建快捷键(15KB)
722,shutdown.zip
模拟关机程序, 作者:小乐(mailto:xiaole@telekbird.com.cn)(6KB)
723,associate.zip
建立文件关联, 例子演示把 .bar 文件与 notepad 建立关联(2KB)
724,磁盘空间.zip
磁盘使用情况(3KB)
725,bwindowontop.zip
使窗口显示在最前面的例子(1KB)
726,richtext.zip
编辑rtf文件的程序, 需要active threed control(30KB)
727,rtf.zip
演示rtf控制的功能(16KB)
728,mdi-temp.zip
实现多文档界面的记事本, 需要active threed control(29KB)
729,textedit.zip
类似记事本的简单文本编辑器(9KB)
730,toupper.zip
在textbox中输入大写文本(2KB)
731,wordover.zip
鼠标移动到richtext box中时查看单词(3KB)
732,editmenu.zip
在richtext box中增加右击菜单(5KB)
733,xmsnotepad.zip
xms记事本(23KB)
734,textefx.zip
非常cool的文字效果(9KB)
735,rtfprn.zip
打印richtext box中的内容(8KB)
736,lword.zip
一个简单的单词处理程序(46KB)
737,rotfont.zip
vb中的字都是水平的,可否想过作出有角度的字,在这里演示了作旋转的字的方法(4KB)
738,txtsrch.zip
在text中实现快速增量查询(4KB)
739,alphanumsortdll.zip
按字母和数字排序的例子(1527KB)
740,ccdemo.zip
演示调用windows的颜色对话框(258KB)
741,cfdemo.zip
演示调用windows的字体对话框(281KB)
742,reg221.zip
注册使用ocx的例子(51KB)
743,ropdemo.zip
演示windows api的光栅操作(277KB)
744, jkcgi.zip
使用dll创建cgi程序(181KB)
745,fsextext.zip
显示多种函数效果的例子(228KB)
746,shfileop.zip
显示win95 api的一些函数(4KB)
747,iconextr.zip
从动态库, 执行文件或ico文件中读取图标(3KB)
748,virtlogo.zip
显示logo的例子(8KB)
749,calendar.zip
日历程序(13KB)
750,aboutbox.zip
windows关于窗口(1KB)
751,vblib.zip
装入不同的form(44KB)
752,vbio32.zip
问端口的程序(17KB)
753,countdown.zip
计数器(10KB)
754,galaxy.zip
演示银河系的例子(28KB)
755,rocket.zip
小图形的快速移动(9KB)
756,hlitactx.zip
加亮鼠标所在的区域(4KB)
757,appbar4.zip
模拟windows 95/98的任务条(3KB)
758, keyboard5.zip
显示键盘信息(7KB)
759,listsrch.zip
在列表框中快速查找和定位子项(7KB)
760,quiksrch.zip
在列表框或组合框中查找子项(3KB)
761,vba.zip
莱卡数据处理VBA(203KB)
762,SysMonth.zip
调用系统日历(5KB)
763,haha.zip
屏幕旋转180度(10KB)
764,undocsh.zip
未公开的Shell.dll 函数(11KB)
765,mousedemo.zip
鼠标性能演示程序(47KB)
766,winpaper.zip
墙纸定时更换器程序(70KB)
767,game.zip
游戏(57KB)
768,destroy.zip
电脑安全卫士(46KB)
769,encrypt1.zip
文本文件加密器1 (54KB)
770,card.zip
名片管理(35KB)
771,cihsafe.zip
CIH病毒免疫程序(63KB)
772,wb1-zippack.zip
密码小管家(13KB)
773,heibai.zip
黑白棋(6KB)
774,imdshtdown.zip
一个倒计时的程序，时间到则关闭系统(9KB)
775,iconproc.zip
1个图标操作的技巧，1个图标有5种显示效果（正常、无准备、选择、等等） (14KB)
776,money.zip
货币的数字到中文换算(2KB)
VB基础类

7,763

社区成员

197,609

社区内容

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章