开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > 浏览器 > 查看源码
mDrawMenu.bas
资源名称：IE_VB.rar　[点击查看]
上传用户：davilee3
上传日期：2015-04-22
资源大小：986k
文件大小：5k
源码类别：

浏览器

开发平台：

Visual Basic

mDrawMenu.bas：源码内容
  1. Attribute VB_Name = "mDrawMenu"
  2. Option Explicit
  4. '###############################################
  5. 'Public MeOldWndProc As Long '旧的窗体消息处理程序地址
  6. Public SMenus As New CCSMenu '菜单集合
  7. Public IcoImgList As ImageList '菜单图标的ImageList
  9. '注册菜单
  10. Public Function RstMenu(MenuUpID As Long, MenuID As Long, _
  11.     Optional Key As String, _
  12.     Optional ByVal IcoIndex As Variant, _
  13.     Optional ByVal IcoSelIndex As Variant = -1, _
  14.     Optional ByVal IcoDisIndex As Variant = -1, _
  15.     Optional ByPosition As Long = 1, _
  16.     Optional Tag$ _
  17.     ) As ClsSMenu
  18.     
  19.     
  20.     Dim TempCSM As ClsSMenu
  21.     Dim TempMII As MENUITEMINFO
  22.     Dim StrByt(0 To 256) As Byte
  23.     
  24.     TempMII.cbSize = 44 '结构大小为44字节
  25.     TempMII.fMask = MIIM_ID Or MIIM_STATE Or MIIM_TYPE Or MIIM_DATA '要取得的数据项目
  26.     TempMII.dwTypeData = VarPtr(StrByt(0)) '菜单文字存储地址
  27.     TempMII.cch = UBound(StrByt) '菜单文字长度
  28.     
  29.     '如果返回0（不成功）则退出
  30.     If GetMenuItemInfo(MenuUpID, MenuID, ByPosition, TempMII) = 0 Then Exit Function
  31.     
  32.     Set TempCSM = SMenus.Add(Key)  '添加项目
  33.     TempCSM.Tag = Tag
  34.     
  35.     TempCSM.IcoIndex = IcoImgList.ListImages(IcoIndex).index  '给图标索引赋值
  36.     If IcoSelIndex < 0 Then
  37.         TempCSM.IcoSelIndex = TempCSM.IcoIndex ' IcoIndex
  38.     Else
  39.         TempCSM.IcoSelIndex = IcoImgList.ListImages(IcoSelIndex).index
  40.     End If
  41.     If IcoDisIndex < 0 Then
  42.         TempCSM.IcoDisableIndex = TempCSM.IcoIndex 'IcoIndex
  43.     Else
  44.         TempCSM.IcoDisableIndex = IcoImgList.ListImages(IcoDisIndex).index
  45.     End If
  46.     
  47.     TempCSM.MeUpID = MenuUpID '菜单上级句柄
  48.     TempCSM.MeID = TempMII.wID '菜单句柄
  49.     TempCSM.Text = StrConv(LeftB(StrByt, TempMII.cch), vbUnicode) '菜单文字
  50.     If TempMII.fState And MFS_CHECKED Then TempCSM.Check = True 'Check属性
  51.     If TempMII.fState And MFT_RADIOCHECK Then TempCSM.Radio = True 'Radio属性
  52.     If TempMII.fState And (MFS_DISABLED Or MFS_GRAYED) Then TempCSM.Enabled = False 'Enabled属性
  53.     
  54.     TempMII.cbSize = 44 '结构大小为44字节
  55.     TempMII.fMask = MIIM_TYPE '要改变的数据项目
  56.     TempMII.dwTypeData = VarPtr(StrByt(0)) '菜单文字存储地址
  57.     TempMII.fType = TempMII.fType Or MFT_OWNERDRAW '改为 自画 属性
  58.     Call SetMenuItemInfo(MenuUpID, MenuID, ByPosition, TempMII)     '设置菜单
  59.     
  60.     Set RstMenu = TempCSM '返回值
  61.     Set TempCSM = Nothing
  62.     
  63. End Function
  66. '确定ImageList中有没有Index指定的图片
  67. Public Function ImgListMapTrue(pImgList As ImageList, index As Long) As Boolean
  68.     If pImgList Is Nothing Then ImgListMapTrue = False: Exit Function
  69.     If index < 1 Or index > pImgList.ListImages.Count Then ImgListMapTrue = False: Exit Function
  70.     ImgListMapTrue = True
  71. End Function
  74. '绘制网格
  75. Public Sub FillWG(hdc As Long, _
  76.         X1 As Long, Y1 As Long, _
  77.         X2 As Long, Y2 As Long, _
  78.         Mode As Integer, C As Long)
  79.     Dim i As Integer, j As Integer
  80.     Dim I1 As Integer, J1 As Integer
  81.     
  82.     If Mode < 0 Then '25%
  83.         For i = Y1 To Y2 Step 2
  84.             For j = X1 To X2 Step 4
  85.                 For I1 = 0 To 1
  86.                     For J1 = 0 To 3
  87.                         If i + I1 <= Y2 And j + J1 <= X2 Then
  88.                             If ((I1 = 0 And J1 = 0) Or (I1 = 1 And J1 = 2)) Then
  89.                                 SetPixelV hdc, j + J1, (i + I1), C
  90.                                 
  91.                             Else
  92.                             End If
  93.                         End If
  94.                         
  95.                     Next J1
  96.                     
  97.                 Next I1
  98.                 
  99.             Next j
  100.             
  101.         Next i
  102.         
  103.     ElseIf Mode = 0 Then '50%
  104.         For i = Y1 To Y2
  105.             For j = X1 To X2
  106.                 If (i - Y1 + j - X1) And 1 Then
  107.                 Else
  108.                     SetPixelV hdc, j, i, C
  109.                     
  110.                 End If
  111.                 
  112.             Next j
  113.             
  114.         Next i
  115.         
  116.     Else '75%
  117.         For i = Y1 To Y2 Step 2
  118.             For j = X1 To X2 Step 4
  119.                 For I1 = 0 To 1
  120.                     For J1 = 0 To 3
  121.                         If i + I1 <= Y2 And j + J1 <= X2 Then
  122.                             If ((I1 = 1 And J1 = 1) Or (I1 = 0 And J1 = 3)) And (i + I1 <= Y2 And j + J1 <= X2) Then
  123.                             Else
  124.                                 SetPixelV hdc, j + J1, (i + I1), C
  125.                                 
  126.                             End If
  127.                         End If
  128.                         
  129.                     Next J1
  130.                     
  131.                 Next I1
  132.                 
  133.             Next j
  134.             
  135.         Next i
  136.         
  137.     End If
  138.     
  139. End Sub