- 博客(4)
- 收藏
- 关注
原创 获取进程列表
Option Explicit OnPrivate Const MAX_PATH As Integer = 260Private Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, ByVal lProcessID As Lo
2006-09-05 18:55:00 911
原创 API-PolylineTo绘制曲线
Option ExplicitDim X As Double Private Type POINTAPI X As Long y As Long End TypePrivate Declare Function PolylineTo Lib "gdi32" (ByVal hdc As Long, ByVal lppt As POINTAPI, ByV
2006-09-05 18:28:00 1626
原创 通过获取菜单的Rect来映射相关的菜单事件
建立一个menu1的菜单,并建立menu1的子菜单menu2 Private Type POINTAPI x As Long y As Long End Type Private Type RECT Left As Long Top As Long Right As Long
2006-09-05 18:24:00 1045
原创 自动完成的TextBox,类似Windows的运行框
Option Explicit OnPublic Enum SHAutoCompleteFlags SHACF_DEFAULT = &H0 SHACF_FILESYSTEM = &H1 SHACF_URLHISTORY = &H2 SHACF_URLMRU = &H4 SHACF_USETAB = &H8 SHACF_URLALL = (SHACF_URLH
2006-09-05 18:13:00 893
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人