变系统菜单为自己的菜单VB源码程序 - vb源码程序 - 谷速源码
下载频道> 资源分类> 编程语言> VB源码> 变系统菜单为自己的菜单VB源码程序

标题：变系统菜单为自己的菜单VB源码程序
分享到：

所属分类: VB源码 资源类型： 文件大小: 5.18 KB 上传时间: 2016-01-20 23:06:24 下载次数: 6 资源积分：1分 提 供 者: vb源码代做 20160120110607886
内容：
变系统菜单为自己的菜单VB源码程序，程序员在编程的过程中可以参考学习使用，希望对IT程序员有用，此源码程序简单易懂、方便阅读，有很好的学习价值！
部分代码如下：
VERSION 5.00
Begin VB.Form FrmMain 
   Caption         =   "窗口消息"
   ClientHeight    =   3285
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   3285
   ScaleWidth      =   4680
   ShowInTaskbar   =   0   'False
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "请在窗口标题上按下鼠标右键"
      Height          =   180
      Left            =   1200
      TabIndex        =   0
      Top             =   1185
      Width           =   2340
   End
   Begin VB.Menu MnuFile 
      Caption         =   "文件"
      Visible         =   0   'False
      Begin VB.Menu MenuItem1 
         Caption         =   "MenuItem1"
      End
      Begin VB.Menu MenuItem2 
         Caption         =   "MenuItem2"
      End
      Begin VB.Menu MenuItem3 
         Caption         =   "MenuItem3"
      End
      Begin VB.Menu MenuItem4 
         Caption         =   "MenuItem4"
      End
   End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
 
Public Sub ProcMsg(ByVal hWnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long, Result As Long)
 
    On Error Resume Next
    Select Case uMsg
        Case WM_NCRBUTTONUP
            PopupMenu MnuFile
    End Select
End Sub
 
Private Sub Form_Load()
    On Error Resume Next
    Label1.Left = (Me.ScaleWidth - Label1.Width) / 2
    Label1.Top = (Me.ScaleHeight - Label1.Height) / 2
    Call SetWindowLong(Me.hWnd, GWL_EXSTYLE, CLng(WS_EX_PALETTEWINDOW))
    SubClass Me.hWnd
    MdiMain.Picture1.BorderStyle = 0
End Sub
 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Call SetParent(Me.hWnd, MdiMain.hWnd)
    MdiMain.Picture1.Visible = False
End Sub
 
Private Sub UnSubClass()
    Dim hWndCur As Long
    hWndCur = Me.hWnd
    If NextProcs Then
        SetWindowLong hWndCur, GWL_WNDPROC, NextProcs
        NextProcs = 0
    End If
End Sub
 
Private Sub SubClass(hWnd As Long)
    On Error Resume Next
    NextProcs = SetWindowLong(hWnd, GWL_WNDPROC, AddressOf WindowProc)
End Sub
 
Private Sub Form_Resize()
    Label1.Left = (Me.ScaleWidth - Label1.Width) / 2
    Label1.Top = (Me.ScaleHeight - Label1.Height) / 2
End Sub
 

文件列表（点击上边下载按钮，如果是垃圾文件请在下面评价差评或者投诉）:

变系统菜单为自己的菜单VB源码程序/
变系统菜单为自己的菜单VB源码程序/AppBar.vbw
变系统菜单为自己的菜单VB源码程序/FrmMain.frm
变系统菜单为自己的菜单VB源码程序/GetWndMsg.vbp
变系统菜单为自己的菜单VB源码程序/GetWndMsg.vbw
变系统菜单为自己的菜单VB源码程序/MSSCCPRJ.SCC
变系统菜单为自己的菜单VB源码程序/MdiMain.frm
变系统菜单为自己的菜单VB源码程序/SubMain.bas
变系统菜单为自己的菜单VB源码程序/谷速说明.txt

关键词： 菜单 源码 程序

相关推荐

编程语言下载排行

Top_arrow
回到顶部

友情链接

matlab源码 网站源码 编程语言 网络编程 手机通讯编程 KUNAG 官网 KUNAG 电商 更多
联系方式| 版权声明| 招聘信息| 广告服务| 银行汇款| 法律顾问| 兼职技术| 付款方式| 关于我们|
网站客服网站客服 程序员兼职招聘 程序员兼职招聘
沪ICP备19040327号-3
公安备案号：沪公网安备 31011802003874号
库纳格流体控制系统（上海）有限公司 版权所有
Copyright © 1999-2014, GUSUCODE.COM, All Rights Reserved