|
如何控制系统音量 2002-12-08 |
'thanks to Rick Ratayczak of Future Works Media (rickr@execpc.com)'save file and rename them to [name].BASAttribute VB_Name = "MIXER"'****************************************************************************'* This constant holds the value of the ...[全部内容] |
|
采用递归算法删除带有多级子目录的目录 2002-12-08 |
Option ExplicitPrivate Sub Command1_Click()Dim strPathName As StringstrPathName = ""strPathName = InputBox("请输入需要删除的文件夹名称∶", "删除文件夹")If strPathName = "" Then Exit SubOn Error GoTo ErrorHandleSetAttr strPathName, vbNormal '此行主要是...[全部内容] |
|
用vb调用系统输入法 2002-09-30 |
'例1:取得目前所有的输入法Private Declare Function GetKeyboardLayoutList Lib "user32" _ (ByVal nBuff As Long, lpList As Long) As LongPrivate Declare Function ImmGetDescription Lib "imm32.dll" _ Alias...[全部内容] |
|
用vb调用系统输入法 2002-09-30 |
'例1:取得目前所有的输入法Private Declare Function GetKeyboardLayoutList Lib "user32" _ (ByVal nBuff As Long, lpList As Long) As LongPrivate Declare Function ImmGetDescription Lib "imm32.dll" _ Alias...[全部内容] |
|
获取CPU的ID 2002-09-13 |
'引用Microsoft VMI s cripting 1.1 Library'在窗体上建一个Text,命名为Text1,并且'Text1.MultiLine = True下面是全部代码Private Sub GetProcessorID() Dim a As SWbemServices Dim b As SWbemObjectSet Dim c As SWbemObject Dim d As SWbemPro...[全部内容] |
|
获取CPU的ID 2002-09-13 |
'引用Microsoft VMI s cripting 1.1 Library'在窗体上建一个Text,命名为Text1,并且'Text1.MultiLine = True下面是全部代码Private Sub GetProcessorID() Dim a As SWbemServices Dim b As SWbemObjectSet Dim c As SWbemObject Dim d As SWbemPro...[全部内容] |