豆豆网 > 技术应用 > 程序设计 > Visual Basic > 正文

VB入门技巧50例(二)

豆豆网技术应用频道 2007年05月18日社区交流

关键字： Office助手 VB.net2005 VB.NET窗体 VB访问数据库 Visual Basic 9 Visual Basic 9.0

本文详细介绍VB入门技巧50例(二)

　　26.冒泡排序如下：

Sub BubbleSort(List() As Double)
Dim First As Double, Last As Double
Dim i As Integer, j As Integer
Dim Temp As Double
First = LBound(List)
Last = UBound(List)
For i = First To Last - 1
For j = i + 1 To Last
If List(i) > List(j) Then
Temp = List(j)
List(j) = List(i)
List(i) = Temp
End If
Next j
Next i
End Sub

　　27.清空回收站

Private Declare Function SHEmptyRecycleBin Lib "shell32.dll" Alias _
"SHEmptyRecycleBinA" (ByVal hwnd As Long, ByVal pszRootPath As String, _
ByVal dwFlags As Long) As Long
Private Declare Function SHUpdateRecycleBinIcon Lib "shell32.dll" () As Long
Private Const SHERB_NOCONFIRMATION = &H1
Private Const SHERB_NOPROGRESSUI = &H2
Private Const SHERB_NOSOUND = &H4
Private Sub Command1_Click()
Dim retval As Long　' return value
　　retval = SHEmptyRecycleBin(RecycleBin.hwnd, "", SHERB_NOPROGRESSUI) ' 清空回收站, 确认
　　' 若有错误出现，则返回回收站图示
　　　　If retval <> 0 Then　' error
　　　　retval = SHUpdateRecycleBinIcon()
　　End If
End Sub
Private Sub Command2_Click()
　　Dim retval As Long　' return value
　　' 清空回收站, 不确认
　　retval = SHEmptyRecycleBin(RecycleBin.hwnd, "", SHERB_NOCONFIRMATION)
　　　' 若有错误出现，则返回回收站图示
　　If retval <> 0 Then　' error
　　　　retval = SHUpdateRecycleBinIcon()
　　End If
　　Command1_Click
End Sub

　　28.获得系统文件夹的路径

12 3 4 下一页

责编：豆豆技术应用

点击发表评论

正在加载评论...