日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

VB.NET編程語言是一個功能強大的，支持類的所有特性的編程語言，其應用范圍廣泛，除了能對數(shù)據(jù)庫，Excel表，文件等進行操作，還能對移動設(shè)備進行相應的操作。在這里大家就可以了解到VB.NET磁盤格式化的具體實現(xiàn)方法，讓大家了解這一語言的功能的強大。#t#

磁盤是數(shù)據(jù)的常用載體，我們的軟件可能會提供用戶將數(shù)據(jù)備份到磁盤上的功能。為避免磁盤上有帶有病毒的文件，最安全的辦法就是提醒用戶將磁盤格式化。

Visual Basic可以通過調(diào)用API函數(shù)格式化一個磁盤，無論是磁盤還是硬盤。

打開一個新的項目(project1) ，如果你沒有更改過缺省模式，那么Visual Basic會自動添加一個form1文件，在form1上添加一個命令控件，將下面的代碼拷入。

 
 
 
  
  
  
Option Explicit   
  
  
  
Private Declare Function SHFormatDrive Lib"shell32"_   
  
  
  
( ByVal Hend AS Long,_   
  
  
  
ByVal Drive AS Long,_   
  
  
  
ByVal FormatID AS Long,_   
  
  
  
ByVal Options AS Long) as Long   
  
  
  
Private Sub FormatDisk(intDrive as integer,blnQuickFormat as Boolean)   
  
  
  
dim lngReturn As Long；   
  
  
  
if (blnQuickFormat) then   
  
  
  
lngReturn= SHFormatDrive(0,intDrive,0&,1&)   
  
  
  
else   
  
  
  
lngReturn= SHFormatDrive(0,intDrive,0&,0&)   
  
  
  
end if   
  
  
  
end Sub   
  
  
  
Private Sub Command1_Click()   
  
  
  
call FormatDisk(0,True)   
  
  
  
End Sub  
 
 

運行此程序，就可以實現(xiàn)VB.NET磁盤格式化這一功能。

這里有必要提醒讀者注意的是，F(xiàn)ormatDisk函數(shù)的***個變量很重要，他的值是0,1,2時代表格式化的分別是：A、B、C盤。

注意：讀者使用此VB.NET磁盤格式化的程序作練習的時候千萬不要用硬盤作實驗，筆者不為可能發(fā)生的錯誤和損失負責。

本文名稱：VB.NET磁盤格式化小心使用
當前鏈接：http://m.5511xx.com/article/dhdigio.html