源码
文章平均质量分 68
DemonLoveLizzy
这个作者很懒,什么都没留下…
展开
-
更改标准消息框按钮、文字的简单方法
Code By 魑魅魍魉mailto:[email protected] Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Fu原创 2004-09-08 01:07:00 · 1550 阅读 · 0 评论 -
在VB中制作VC中具有PUSHLIKE风格的复选框
Code By 魑魅魍魉mailto:[email protected] Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPriv原创 2004-09-08 01:18:00 · 1508 阅读 · 0 评论 -
SetMenu的简单示例
Code By 魑魅魍魉 mailto:[email protected] Private Declare Function SetMenu Lib "user32" _(ByVal hwnd As Long, _ByVal hMenu As Long) _As Long Private Declare Function GetMenu Li原创 2004-09-08 01:43:00 · 2074 阅读 · 0 评论 -
在VB中动态添加弹出菜单
Code By 魑魅魍魉mailto:[email protected] Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Lo原创 2004-09-08 01:27:00 · 2041 阅读 · 0 评论 -
取得字符串首字母
Code By 魑魅魍魉mailto:[email protected] Function PYin(ByVal Str As String) As StringDim mLen As Long, mLong As Long, PY As StringmLen = Len(Str)For mLong = 1 To mLenSelect Case Asc(Mid$(St原创 2004-09-07 06:34:00 · 1504 阅读 · 0 评论 -
枚举窗口内的子窗口句柄、类名
Code By 魑魅魍魉mailto:[email protected] Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As LongPrivate Declare Function GetClassName Lib "user32" Alias "原创 2004-09-07 21:20:00 · 2556 阅读 · 0 评论 -
控制左右声道
Code By 魑魅魍魉mailto:[email protected] Declare Function waveOutGetVolume Lib "winmm.dll" (ByVal uDeviceID As Long, lpdwVolume As Long) As LongPrivate Declare Function waveOutSetVolume L原创 2004-09-19 18:26:00 · 3171 阅读 · 0 评论