文件名称：数据查询,通用性很强的查询
文件大小：1.12MB
文件格式：RAR
更新时间：2012-08-01 07:32:57
查询,通用性很强的查询
通用的查询,Private Sub Form1_load() ' 获得你的菜单的句柄 hMenu& = GetMenu(Form1.hwnd) ' 获得第一个子菜单的句柄 hSubMenu& = GetSubMenu(hMenu&, 0) ' 获得第一个菜单项 hID& = GetMenuItemID(hSubMenu&, 0) '加入位图 SetMenuItemBitmaps hMenu&, hID&, MF_BITMAP, _ Picture1.Picture, _ Picture1.Picture End Sub 上面的代码使菜单项为图片，如果你只希望菜单项的左边有一个小位图，而右边仍为文字。可以先在Picture1绘制图片，在利用Picture1.Print加上文字，然后用Picture1.Picture加入菜单项。 Option Explicit '【VB声明】 ' Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long '【说明】 ' 取得窗口中一个菜单的句柄 '【返回值】 ' Long，依附于指定窗口的一个菜单的句柄（如果有菜单）；否则返回零
【文件预览】：
查询模块
----Form1.frm(11KB)
----MSSCCPRJ.SCC(193B)
----Module1.bas(11KB)
----Project1.vbw(80B)
----data()
--------计量单00.dat(12KB)
--------汇总.dat(16KB)
--------计量单08.dat(13KB)
--------计量单09.dat(13KB)
--------计量单23.dat(12KB)
--------查询t.dat(14KB)
--------linshi.mdb(142KB)
--------计量单07.dat(8KB)
--------计量单19.dat(6KB)
--------计量单24.dat(11KB)
--------车辆管理.mdb(1.25MB)
--------汇总1.dat(18KB)
--------计量单01.dat(10KB)
--------计量单14.dat(6KB)
--------计量单17.dat(9KB)
--------计量单05.dat(11KB)
--------计量单10.dat(12KB)
--------计量单04.dat(11KB)
--------计量单12.dat(13KB)
--------日汇总.dat(7KB)
--------上衡记录.dat(8KB)
--------计量单20.dat(7KB)
--------计量单02.dat(12KB)
--------s3_inst.exe(4.3MB)
--------计量单22.dat(12KB)
--------计量单13.dat(10KB)
--------计量单03.dat(12KB)
--------查询.dat(14KB)
--------计量单18.dat(7KB)
--------计量单06.dat(8KB)
--------计量单16.dat(7KB)
--------计量单15.dat(10KB)
--------计量单11.dat(10KB)
--------计量单21.dat(12KB)
----Project1.vbp(3KB)
----xiaohui.sql(3KB)