洒家不戒女色的个人资料

[求助]弹出菜单的问题 Public Sub PopupMenuAPI(ByVal hWnd As Long, ByVal MenuIndex As Long) '弹出菜单 Dim MenuHandle As Long '菜单句柄 Dim PopupMenuHandle As Long '弹出子菜单句柄 MenuHandle = GetMenu(hWnd) PopupMenuHandle = GetSubMenu(MenuHandle, MenuIndex) GetCursorPos MyPOINT TrackPopupMenu& PopupMenuHandle, TPM_LEFTALIGN, MyPOINT.X, MyPOINT.Y, 0, hWnd, MyRECT End Sub 我想用API弹出一个已在窗体建立好的菜单,写了这段程序,当窗体上的菜单项为可见的时候可以弹出指定的菜单,当菜单项设为不可见的时候就无法弹出菜单了,在PopupMenuHandle = GetSubMenu(MenuHandle, MenuIndex)这一句PopupMenuHandle 得到的值就为0了,请教各位如何能用API和窗体的hwnd弹出该窗体上已经建立并设置为不可见的菜单,谢谢

[求助]用hwnd获取窗体背景图现在写一个usercontrol 需要用到该usercontrol所放置的容器的背景图用usercontrol.ContainerHwnd属性能取到其所在容器的句柄我用GetDC(hwnd)来去容器的背景图但是取到的图是包括了该容器内所画的所有控件的一张图现在就有一个句柄怎么才能取到这个容器的背景图就是picture属性导入的那张图求高手讲解一下

[求助]透明啊半透明啊DC场景啊什么的... 我也不知道这样行不行,就说个想法,请高手赐教目的是这样的,一个图片,带有maskcolor区域,我想把maskcolor以外的区域的图像半透明的显示到别的地方.透明背景和半透明显示的API我知道,用一个API创建的DC场景倒过,但是组合不出这种效果.那位英雄有办法,求帮助啊...

[求教]能否通过hwnd来判断控件类型能否通过hwnd来判断控件类型

VB读取USB的问题最近在学习VB的USB通信...下了一个例程是HID协议的...能连接上设备...但是在设备没有收数据的时候...也就是说缓存为空的时候...程序也读出一堆00...读取数据涉及到的语句也就是这两句吧...各位高手能不能指点一下...如何让缓存为空的时候...程序不读数据 ReadHandle = CreateFile(DevicePathName, (GENERIC_READ Or GENERIC_WRITE), (FILE_SHARE_READ Or FILE_SHARE_WRITE), Security, OPEN_EXISTING, FILE_FLAG_OVERLAPPED, 0) Result = ReadFile(ReadHandle, ReadBuffer(0), CLng(Capabilities.InputReportByteLength), NumberOfBytesRead, HIDOverlapped)

[求助]窗体刷新有一个下拉框,获取DELETE键的动作,然后删除一个下拉项目,但是删除后,会有一个下拉框的残影在窗体上. 如原来是 aaa 删除了bbb之后就成了 aaa bbb ccc ccc ddd ddd ddd <--图像残影之后用窗体和下拉框的Refresh方法都不能消除,请教如何消除残影

[求助]MSHFlexGrid如何删除指定列 MSHFlexGrid如何删除指定列...请教各位路过的高手

[求助] VB创建带密码的ACCESS数据库用ADOX能不能创建带密码的ACCESS数据库...各位路过的大侠帮忙解答解答...

人品测试第四次..CopyMemory拼接数组的问题一楼

大哥..我发个求助帖咋秒删了有什么规矩要遵守吗

[求助] VB用random方式读写文件的问题写了一段程序大概是这样 [新建一个random方式文件,并写了一些数据] [显示出原本数据]----(A) (B) [对该文件内数据操作比较,会产生记录相互交换的效果](C) [显示出整理后的数据]----(D) 直接执行的时候,(A),(D)处打印出来的结果是一样的,查看文件,数据并没有变化,就好像没有执行(C)段的代码一样,从(A)到(C)中间是顺序执行的,没有任何判断如果逐步跟踪的话,每一步执行都是对的,并且跟踪出来(D)处打印的结果是期望结果后来在(B)处加一个空循环延时,延时到一定长度时,能执行出期望结果,延时不够则不行请教一下各位高手这是为什么

[求助]最密集的获取鼠标在全屏幕位置的方法在鼠标的运动过程中,能取到最多的坐标点

捞了个整..成为本吧第2000名关注者... 这啥那啥啥...

[求助]有没有大哥搞过P2P的,那个"打洞"具体怎么操作最近搞一个点对点通信的程序,看了一些P2P的资料,可惜源码段基本都是VC的,看得一头雾水,那个由服务器在网关上"打洞"具体是怎么个搞法,有没有大哥能赐教一二,先谢谢了

[求助] VB如何动态加载卸载窗体窗体具体数目不明...用一个创建一个...关一个销毁一个...咋搞...求教各位高手

[求助] Text和MonthView的操作逻辑用text和monthview做时间选择在text_Click事件中让monthview出现在monthview_DateClick事件中把值赋给text 在text的什么事件中让monthview消失呢...

[求助] 连接数据库不能正确返回记录数目一个SQL语句在SQLServer的查询分析器中执行,可以返回正确的记录,但是在VB用ADODB建立的连接中却始终返回recordcount=-1。出问题的代码如下: strSQL = "SELECT * FROM (SELECT TOP " & ListCount & " ID,PhotoPath,Name,Sex,BrithDate,Tel FROM PerInfo " & _ "WHERE ID<" & FirstID & " ORDER BY ID DESC) AS A ORDER BY A.ID ASC" myRS.Open strSQL, myConn, 1, 3, -1 If myRS.RecordCount > 0 Then 就在这里,RecordCount始终=-1，我用strSQL字符串命令在SQLServer的查询分析器中执行返回8条记录,请问这是咋回事儿. SQL语句:SELECT * FROM (SELECT TOP 8 ID,PhotoPath,Name,Sex,BrithDate,Tel FROM PerInfo WHERE ID<12302 ORDER BY ID DESC) AS A ORDER BY A.ID ASC 如果我把If myRS.RecordCount > 0 Then判断条件去掉,程序能顺利往下执行,并且能返回正确的记录...晕....

[求助] 连接数据库不能正确返回记录数目一个SQL语句在SQLServer的查询分析器中执行,可以返回正确的记录,但是在VB用ADODB建立的连接中却始终返回recordcount=-1。出问题的代码如下: strSQL = "SELECT * FROM (SELECT TOP " & ListCount & " ID,PhotoPath,Name,Sex,BrithDate,Tel FROM PerInfo " & _ "WHERE ID<" & FirstID & " ORDER BY ID DESC) AS A ORDER BY A.ID ASC" myRS.Open strSQL, myConn, 1, 3, -1 If myRS.RecordCount > 0 Then 就在这里,RecordCount始终=-1，我用strSQL字符串命令在SQLServer的查询分析器中执行返回8条记录,请问这是咋回事儿. SQL语句:SELECT * FROM (SELECT TOP 8 ID,PhotoPath,Name,Sex,BrithDate,Tel FROM PerInfo WHERE ID<12302 ORDER BY ID DESC) AS A ORDER BY A.ID ASC

VB 如何在函数中使用hDC 将hdc作为一个参数传给一个函数...那么这个函数应该如何使用hdc来建立操作这个图像设备呢...请高手们不吝赐教

求助VB显示图片的问题窗体设置一个图片框用于显示头像照片,该图片框大小固定,允许用户从本地加载头像照片,且不限定照片尺寸,求教如何使用这个固定大小的图片框完整的显示不定尺寸的照片呢,高手能否给个思路.

VB如何传递颜色参数做一个画图形的过程,但是不知道颜色参数如何传递,请各位大侠不吝赐教

【求助】帮我想几个图标四个图标分别代表【功能】【参数】【报表】【其它】。。在此谢谢大家我发现我这脑子真是不够抽象。。

【求教】给Date类型数据赋值除了用Cdate转化字符串之外还有哪些方法

【求助】某区域分割为若干矩形小区域设某区域分割为若干矩形小区域，各区域边界坐标已知，如何判定某点是否在某区域内或不在任何区域内？给个思路就行。。。

求一个判断鼠标离开控件的好方法假设控件排列非常紧密，并且鼠标以较快的速度滑过。。。

求助我将Form的BorderSytle设置为0，然后制作了两个弹出菜单，运行后，窗体的边框又出现了，并且在之后再也回不到无边框状态，请教各位高手咋弄我的目的是 1.窗体无边框 2.能使用弹出菜单老郁闷了。。老伤感了。。。

VB--请教如何设置控件的各处颜色各种控件，除了能设置背景色之外，有办法设置其边框线条的颜色么，改了背景色之后，那两条一灰一白的边框线条看着太突兀了，请教各位高手。