自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(9)
  • 收藏
  • 关注

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

原创 控制左右声道

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 3179

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

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

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

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

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 1568

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

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 2598

原创 取得字符串首字母

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 1518

原创 内存

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 941

空空如也

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除