- 博客(7)
- 收藏
- 关注
原创 控制左右声道
Code By 魑魅魍魉mailto:DemonStudio@hotmail.comPrivate 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 3193
原创 SetMenu的简单示例
Code By 魑魅魍魉 mailto:DemonStudio@hotmail.com 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 2109
原创 在VB中动态添加弹出菜单
Code By 魑魅魍魉mailto:DemonStudio@hotmail.comPrivate 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 2084
原创 在VB中制作VC中具有PUSHLIKE风格的复选框
Code By 魑魅魍魉mailto:DemonStudio@hotmail.comPrivate 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 1531
原创 更改标准消息框按钮、文字的简单方法
Code By 魑魅魍魉mailto:DemonStudio@hotmail.comPrivate 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 1582
原创 枚举窗口内的子窗口句柄、类名
Code By 魑魅魍魉mailto:DemonStudio@hotmail.comPrivate 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 2624
原创 取得字符串首字母
Code By 魑魅魍魉mailto:DemonStudio@hotmail.comPrivate 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 1527
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人