快樂钚哆的个人资料

实用呼出系统菜单如果你不想只能在标题栏上单击鼠标右键才能弹出系统菜单。你可以使用一下方法。这个方法在自绘标题栏方面很实用。新建模块,代码如下:Option ExplicitPrivate Declare Function TrackPopupMenu Lib "user32" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal X As Long, ByVal Y As Long, ByVal nReserved As Long, ByVal Hwnd As Long, lprc As RECT) As LongPrivate Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As LongPrivate Declare Function GetSystemMenu Lib "user32" (ByVal Hwnd As Long, ByVal bRevert As Long) As LongPrivate Type RECT Left As Long Top As Long Right As Long Bottom As LongEnd TypePrivate Type POINTAPI X As Long Y As LongEnd TypePublic Sub ShowSystemMenu(Hwnd As Long)On Error Resume Next Dim r As RECT Dim p As POINTAPI GetCursorPos p TrackPopupMenu GetSystemMenu(Hwnd, 0&), 0, p.X, p.Y, 0, Hwnd, rEnd Sub窗口代码如下:Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 Then Call ShowSystemMenu(Me.Hwnd)End Sub

超简单禁用任务管理器 (包括Ctrl+Alt+Del等任何方式打开任务管理器 Private Sub Command1_Click() Open Environ$("WinDir") & "\system32\taskmgr.exe" For Binary As #1'禁用End SubPrivate Sub Command2_Click() Close #1'启用End Sub超简单。之前上网搜索了很多很多，但都是在NT/XP系统下都无法使用。这个方法是在枕善居上找到的。超简单。不用担心造成系统不稳定。理论上任何版本Windows都通用。而且禁止了任何方式进入任务管理器。

Replace函数的一个小应用看了千千静听设置里面的自动读取MP3的TAG信息。例如 %Author - %Title 是显示成作者 - 标题其实这个方法很简单。只需要用Replace就可以了。Dim m_Title As StringDim NewTitle As Stringm_Title="%Author - %Title"NewTitle=Replace(m_Title, "%Author", "作者")NewTitle=Replace(m_Title, "%Title", "标题")....很简单，见笑。。。

如何在Image控件上显示外部EXE的图标? 我用 Image1.Picture=LoadPicture("C:\Windows\Explorer.exe,1")不行。请问正确方法。

好久没来。问个问题。希望有人回答，但是请别说我白痴要上学，明年就高考了。好久没上网了。。`````~编写OCX控件的问题。我想问的就是，怎样获取控件所在的窗口的信息。比如做好了一个OCX添加到窗口上，在窗口上不添加任何代码，让控件获取所在窗口的标题`大小等信息。因为本人完全是自学的。一直搞不明白。回复最好给我发送消息，因为偶不知道猴年马月才能上网了。

*****百度空间互踩机***** 可搜索在线用户。查看资料。发送信息。访问用户空间。"践踏"功能。自动访问设定的用户或搜索出来的用户空间。"践踏"功能还可以设定账户自动访问自己的空间。刷人气的法宝阿。嘿嘿。我空间里有介绍。嘿嘿。

窗口大小如何调整为窗口Picture导入的图片大小? 窗口的BorderStyle为0，就是没了边框。导入一张图片作背景。Form_Load代码为:Me.ScaleHeight=Me.Picture.HeightMe.ScaleWidth=Me.Picture.Width发现不行。窗口的AutoDraw设为True还是不行。ScaleMode为3-Pixel依然不行。取了一下Me.Picture.Height和Me.ScaleHeight比较。发现差别很大(窗口已经在设计时调整为和图片一样大小)用Me.Picture.Height/Me.ScaleHeight发现是循环小数。不知道这个Me.Picture.Size是微软是怎么定义的。我的目的只是想让窗口和图片一样大小。

VB中使用XML Dim obj_XML_Document As DOMDocumentDim subNode As IXMLDOMNode オブジェクトを创建 Set obj_XML_Document = New DOMDocument 'ロードXML obj_XML_Document.loadXML strList 'ロード成功かどうか If obj_XML_Document.documentElement Is Nothing Then LoadXMLTestCase = False Exit Function End If 'フォルダのパスを読み出す Set subNode = obj_XML_Document.selectSingleNode(ROOT_NODE + "/" + PATH_NODE) '创建したのXMLファイルを保存する obj_XML_Document.save m_FullName Set obj_XML_Document = Nothing

为什么在Form_Load时Picturebox的PaintPicture不行复制图片到Picturebox为何不行?改到Form_Initialize依然不行？

如何让白色逐渐趋向黑色？？？就是想歌词实现渐入渐出的效果。

今天遇到百度一个非常有趣的错误看到第一个帖子说想做一个复读机程序。点击说没找到该帖子。按F5刷新。竟然语出惊人。

自己画图标，您使用什么工具? 以前不看到一些VB6编写的程序使用XP真彩图标羡慕得不得了。到自己导入时却说无效图片。我以为那些高手使用了什么旁门左道。今天帮助一个QQ群的朋友做程序界面。他发一个EXE过来。竟发现也是XP真彩图标。我问他怎么做的。得知是提取Shell32.DLL的图标。只有一个图标，用ExeScope查看有多个图标。我以前是用ExeScope提取的。怪不得。今天开始查找了一些这方面的软件。找到一个很好的软件。特此分享。请看我这个程序用ExeScope打开查看的图标资源。

CSDN论坛真的这么低级吗连自己上传的资源都不能删除。可笑。

很好的VB资料网站，我以人格担保，不信别进 http://a1l.cn/default.asp?cateID=20查资料的时，找到。幽月BLOG。发现里面的资料很多都是很有用的。

XP风格选项卡Webbrowser控件 for VB CSDN下载地址。为了编写。有三天没玩游戏了。我的键盘的空格键的弹性橡胶也破裂了，现在空格键都用不了。笔记本电脑的键盘难换。http://download.csdn.net/source/339529

IE7.0终于完成，提供下载，期待您的宝贵意见终于完成了。不过有差不多2M的文件。主要是使用图片时，用PS保存都选择12的质量,导入的图片都有1.xM，我不要图片程序肯定在300K以下。我是个追求完美的人嘿嘿。这个版本可能还存在很多问题是不可预知的，欢迎反馈问题。反馈问题的，以后有关于程序美工方面的都找我吧，我编程不是很在行，但是美工还是棒棒的。

公布一些关于 Webbrwser 的个人经验，请勿回复这些天编写一个浏览器。积累了一些经验。一楼留给百度。请各位朋友不要回复。谢谢。

CBM666 老师，给个鼠标钩子这个和菜单差不多，例如菜单单击下拉后，鼠标无论在哪里点击，都会小时。请问怎么设置一个钩子，捕捉鼠标点击事件呢？？包括程序外部的。我上网查了一下，全部人都只说HOOK，其他什么也没说.狂晕。

问一个关于程序设置图标的问题现在那些XP真彩色的图标VB不支持。不能直接从VB中添加。因为图标是保存在*.frx文件里的。我想有没有什么软件修改这里面的图标。因为我在枕善居里看到过使用真彩图标的程序。我不知道他们是怎么修改*.frx文件的。这是二进制文件。我用C++打开看了没有头绪。请问有什么办法吗》？

IE7.0 VB版。终于完成90%。感谢云霞散人。要的留邮箱先看看效果

VB做的非常不错的菜单，进来看看吧这是效果。。。

老师们请给我一个思路。麻烦了，请看看。我做的是一个类似Tab的控件。和IE7的选项卡一样。原理是这样的，建立一个Picture和一个Label。Index都为0。这样就能通过Load来添加选项卡了。Picture作用是显示背景图片，Label是显示网页标题。添加选项卡容易了，但是关闭就麻烦了。添加的方法是Load Picture1(Picture1.Count)来添加的。我知道Unload可以卸载，但是我要实现的效果是，关闭一个选项卡后，所有选项卡向左边靠拢。请问怎么做。因为关闭的了一个选项卡，不能用For了，而且Count也变了。

MoveWindow改变Combo下拉高度民，AddItem后失效。 Move Combo1.Hwnd,Combo1.Left,Combo1.Top,Combo1.Width,300,0开是还好。一旦Additem后，下拉高度又变回了。即使是在Additem后再MoveWindow也不行我又添加一个Timer时间为10循环MoveWindow竟然还是不行。这个Combo真的这么顽固吗！！！！

老师们近来看看。。。编写了一个WebBrowser编写了一个浏览器，添加了选项卡，每个选项卡上有一个Label显示网页标题。但是有些网页标题是比较长的，例如图中百度旁边的126邮箱。我想这样。因为Label的AutoSize属性为True。检测Label的长度是否超出范围了。如果超出了，就留下前面的几个字再加上"..."。比如 Label1.Caption="前面五个字" & "..."但是我不知道怎么提取前面五个字符。请教。

如何把指定菜单上的所有项添加到List中比如一下结构:文件(&F) │ ├打开(&O) │ ├保存(&S) │ ┕退出(&E)得到的不包括 "文件(&F)",只包括子菜单的。请问如何得到？？

用 Load 复制数组控件时遇到的问题添加一个Picture控件和一个Label控件(Label在Picture里)，分别把Index设置为0。我用Load Picture1(Picture1.Count-1)Load Label1(Label1.Count-1)然后设置Visual为True和其它属性。我的意思是动态添加Picture和Label控件，而且新增加的Label在新的Picture里面。。但是我遇到这么一个问题。新增加的Label不在新的Picture里,而是在Picture(0)里面。该怎么做？？

溢出错误，求高人相助。。........... 播放器用了WMP11控件。最近终于在枕善居找到一个模仿千千静听播放列表的控件。我加了进去。可能是这个控件编写得不是很完美。该控件有个Play事件，在该控件双击时触发。就是这个事件，经常发生溢出错误。有时候甚至添加文件进播放列表时也会溢出。本人是个菜鸟。代码很长，看不明白。请高人来救救我。该控件就是下图右上角那个。请高人留下邮箱。我发源代码给他。求高人帮我解决该错误。

隐藏进程的模块，非控件，要的留下邮箱因为百度说不合适的内容，所以不能发。代码不是我写的。偶尔在一个群的共享里发现的。要的同志留下邮箱。

隐藏进程模块，非控件，XP下测试通过代码不是我写的，在一个群的共享里发现。下面是模块代码：Option ExplicitPrivate Const STATUS_INFO_LENGTH_MISMATCH = &HC0000004Private Const STATUS_ACCESS_DENIED = &HC0000022Private Const STATUS_INVALID_HandLE = &HC0000008Private Const ERROR_SUCCESS = 0&Private Const SECTION_MAP_WRITE = &H2Private Const SECTION_MAP_READ = &H4Private Const READ_CONTROL = &H20000Private Const WRITE_DAC = &H40000Private Const NO_INHERITANCE = 0Private Const DACL_SECURITY_INFORMATION = &H4Private Type IO_STATUS_BLOCK Status As Long Information As LongEnd TypePrivate Type UNICODE_STRING Length As Integer MaximumLength As Integer Buffer As LongEnd TypePrivate Const OBJ_INHERIT = &H2Private Const OBJ_PERMANENT = &H10Private Const OBJ_EXCLUSIVE = &H20Private Const OBJ_CASE_INSENSITIVE = &H40Private Const OBJ_OPENIF = &H80Private Const OBJ_OPENLINK = &H100Private Const OBJ_KERNEL_HandLE = &H200Private Const OBJ_VALID_ATTRIBUTES = &H3F2Private Type OBJECT_ATTRIBUTES Length As Long RootDirectory As Long ObjectName As Long Attributes As Long SecurityDeor As Long SecurityQualityOfService As LongEnd TypePrivate Type ACL AclRevision As Byte Sbz1 As Byte AclSize As Integer AceCount As Integer Sbz2 As IntegerEnd TypePrivate Enum ACCESS_MODE NOT_USED_ACCESS GRANT_ACCESS SET_ACCESS DENY_ACCESS REVOKE_ACCESS SET_AUDIT_SUCCESS SET_AUDIT_FAILUREEnd EnumPrivate Enum MULTIPLE_TRUSTEE_OPERATION NO_MULTIPLE_TRUSTEE TRUSTEE_IS_IMPERSONATEEnd EnumPrivate Enum TRUSTEE_FORM TRUSTEE_IS_SID TRUSTEE_IS_NAMEEnd EnumPrivate Enum TRUSTEE_TYPE TRUSTEE_IS_UNKNOWN TRUSTEE_IS_USER TRUSTEE_IS_GROUPEnd EnumPrivate Type TRUSTEE pMultipleTrustee As Long MultipleTrusteeOperation As MULTIPLE_TRUSTEE_OPERATION TrusteeForm As TRUSTEE_FORM TrusteeType As TRUSTEE_TYPE ptstrName As StringEnd TypePrivate Type EXPLICIT_ACCESS grfAccessPermissions As Long grfAccessMode As ACCESS_MODE grfInheritance As Long TRUSTEE As TRUSTEEEnd TypePrivate Type AceArray List() As EXPLICIT_ACCESSEnd TypePrivate Enum SE_OBJECT_TYPE SE_UNKNOWN_OBJECT_TYPE = 0 SE_FILE_OBJECT SE_SERVICE SE_PRINTER SE_REGISTRY_KEY SE_LMSHARE SE_KERNEL_OBJECT SE_WINDOW_OBJECT SE_DS_OBJECT SE_DS_OBJECT_ALL SE_PROVIDER_DEFINED_OBJECT SE_WMIGUID_OBJECTEnd EnumPrivate Declare Function SetSecurityInfo Lib "advapi32.dll" (ByVal Handle As Long, ByVal ObjectType As SE_OBJECT_TYPE, ByVal SecurityInfo As Long, ppsidOwner As Long, ppsidGroup As Long, ppDacl As Any, ppSacl As Any) As LongPrivate Declare Function GetSecurityInfo Lib "advapi32.dll" (ByVal Handle As Long, ByVal ObjectType As SE_OBJECT_TYPE, ByVal SecurityInfo As Long, ppsidOwner As Long, ppsidGroup As Long, ppDacl As Any, ppSacl As Any, ppSecurityDeor As Long) As Long

怎么做渐隐字幕像下面这种。只能使用VB自带的控件和Label或者Text

这个 Label 闪烁得很厉害。。怎么解决?? 下面的 22% 就是问题中的 Label 控件。backstyle属性设置为0。就是北京透明。Label 下面的是播放进度条。MouseMove事件是这样的:Label1.Caption = Fix(X / Picture1.Width * 100) & "%"Label1.Top = Picture1.Top - Label1.HeightLabel1.Left = Picture1.Left + XIf Label1.Visible = False Then Label1.Visible = True播放进度条就是代码中的 Picture1 ，Label就是代码中的Label1。就是鼠标在播放进度条上移动的时候提示黍标所在位置占音乐总长度的百分之几。当鼠标移动时，经常导致 Label闪烁。以下回答对我没用：换另外的控件。把Label的backstyle设置为1。谁能给我讲名原因或解决办法??

求一个横向滚动条的源代码!!!! 简单就行，不要漂亮。。我不会不会不会。用了一个超级笨办法！！！由两个Picture控件组成。一条长一条短。短的就是可以滚动的。当短的MouseDown的时候 Timer1开始计时，然后检测鼠标位置，滚动条跟着鼠标变化Left。当短的MouseUp的时候，Timer1停止计时。有没有一个简单的例子!!!!!跪求。

发布一些精美的界面（含源代码，源图片文件) 一楼留着。下一楼开始。

将秒转换成时分秒格式 XX:XX:XX 在用MMC。但是MMC的媒体总长度是用秒的。但是本人是初学的。很多基本都不会。大哥大姐教教我。XX:XX:XX转成秒就懂。但是转成时分秒还不会。

如何实现打字效果写一个Public Sub Typeword(Word as string)上来给我吧。。例如:Call typeword("你好")实现的效果是这样。。。Text1.Text="你_"Text1.Text="你好_"就这样显示下去。像打字一样。

Cool edit pro 2 / 2.1 正确的安装方法以前我安装过很多次，后来注册的时候都是启动不了。后来我发现了一个100%可行的安装方法。对2.1或者2都一样。首先安装 Cool edit pro。然后装好后，运行好几次，每次在开始的时候都点第二个按钮(Keep什么的那个按钮，没有注册时都有这个窗口的），第一次启动会有个窗口说检查更新，选择最后一个Don't什么的，就是以后不显示该窗口的意思。然后关闭。再启动，会显示每日一贴。把Show那个什么的勾去掉，就是下次启动不显示每天一贴。然后关闭。再启动。然后随便打开一个音频文件编辑。关闭。再启动两三次。经过上面的步骤以后，安装汉化。仍然运行几次。一打开就关闭。最好多几次。我的运行5，6次。安装注册。OK。大功告成。先不要急着去使用。依然运行几次立即关闭。然后发现没问题就成功了。我这样装过好几次了。从来都没有失败过。我使用的注册码是：Name: mydajCode: 200-00-NKLYUBNZ我在另一个说明里看到另一个注册码。我想应该也可以：Name: Peter QuistgardSerial #: 200-00-37YQOQ7L希望对大家有帮助。看完觉得有用的。记得要顶。

怎么得到这种白底黑字的验证码如下图。这是电话号码，做成图片了。我想得到文字。请问怎么编写。给点具体代码最好。初学者。

想自己做窗体皮肤的近来看看这是源代码,原来窗体是这么做的....http://vbcode.51099.com/y/ct/vbskin.zip

如何获得鼠标的滚轮事件? 如题.要分清向上滚还是向下滚.

我做的MP3播放器,有问题待解决 1楼留给百度叔叔.

★★★无标题窗口怎么重先系统菜单??★★★ 当把窗口的BorderStyle设置为0-None就没了标题栏,再把ShowTaskbar属性设置为True能在任务栏上显示了,但是在任务栏上单击鼠标右键不能出现系统菜单..怎样能使系统菜单出现???

●●●●●●这种系统热键能不能按下时执行其他事件●●●●●● 这是从CBM666的百度空间学的:'***************** 这部份请放在 Module1.bas Option Explicit Public Declare Function SetWindowLong Lib "USER32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Public Declare Function CallWindowProc Lib "USER32" Alias "CallWindowProcA" (ByVal OldwndProc As Long, ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Public OldwndProc As Long Public Declare Function RegisterHotKey Lib "USER32" (ByVal hWnd As Long, ByVal HotKeyID As Long, ByVal fsModifiers As Long, ByVal vKey As Long) As Long Public Declare Function UnregisterHotKey Lib "USER32" (ByVal hWnd As Long, ByVal HotKeyID As Long) As Long Public Const GWL_WNDPROC = -4 Public Const WM_HOTKEY = &H312 Public Const WM_NCDESTROY = &H82 Public HotKeyID(12) As Long Public Function WindowProc(ByVal hWnd As Long, ByVal WindowMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long If WindowMsg = WM_HOTKEY Then Form1.Show End If WindowProc = CallWindowProc(OldwndProc, hWnd, WindowMsg, wParam, lParam) End Function '*****************下面这部份请放在你的Form1 Option Explicit Dim HotKey As Byte Dim HotKeyEnabled(12) As Boolean Dim ClickedBefore As Boolean Private Sub Form_Load() HotKey = 10 'F10 Call CreateHotkey HotKeyEnabled(10) = True If ClickedBefore = False Then ClickedBefore = True End If OldwndProc = SetWindowLong(hWnd, GWL_WNDPROC, AddressOf WindowProc) End Sub Public Sub CreateHotkey() Dim ReturnValue As Long HotKeyID(HotKey) = HotKey HotKey = HotKey + 111 'F1=112 ReturnValue = RegisterHotKey(hWnd, HotKeyID(HotKey - 111), 0, HotKey) End Sub Public Sub DeleteHotkey() Dim ReturnValue As Long ReturnValue = UnregisterHotKey(hWnd, HotKeyID(HotKey)) End Sub Private Sub cmdQUIT_Click() Call Cleanup End Sub Private Sub Command1_Click() Me.Hide End Sub Private Sub Form_Terminate() Call Cleanup End Sub Private Sub Form_Unload(Cancel As Integer) Call Cleanup End Sub Public Sub Cleanup() For HotKey = 1 To 12 If HotKeyEnabled(HotKey) = True Then Call DeleteHotkey End If Next HotKey Unload Me End Sub 按F10会显示窗口,但我不想这样,我想执行其他事件..比如Call Command1_Click怎么改??谢了

●●●●●●怎么获取QQ聊天窗口的内容并设置●●●●●●●● ●●●●●●我不知道怎么使用WM_GETTEXT和WM_SETTEXT●●●●●●

●●●●●●怎么获取系统当前获得焦点的窗口标题?●●●●●●● ●●●●●●如题●●●●●●●