DemonLoveLizzy-优快云博客

原创 unloadmode 参数返回值

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) If UnloadMode = vbFormControlMenu Then Cancel = TrueEnd Subunloadmode 参数返回下列值：常数值描述 vbFormControlMenu 0 用户从窗体上的“控件”菜单中选择

2004-12-11 14:07:00 1433

原创控制左右声道

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 3233

原创 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 2152

原创在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 2137

原创在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 1552

原创更改标准消息框按钮、文字的简单方法

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 1603

原创枚举窗口内的子窗口句柄、类名

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 2690

原创取得字符串首字母

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 1546

原创内存

SetProcessWorkingSetSizeThe SetProcessWorkingSetSize function sets the minimum and maximum working set sizes for the specified process.BOOL SetProcessWorkingSetSize( HANDLE hProcess, SIZE_T dwMi

2004-08-23 20:55:00 980

DemonLoveLizzy的专栏