VB中如何在标签上显示当前星期,星期几用汉字,

VB中格式化硬盘的指令是什么最好是能按

格式化硬盘命令： Shell ("&WINPATH&\COMMAND\FORMAT C:/U/Q/Y") 格式化硬盘实例： 格式化磁盘 说明：表单一个；命令按钮一个为CmdFormatDisk；驱动器列表控件一个为Drive1 Option Explicit Private Declare Function SHFormatDrive Lib "shell32" _ (ByVal hwnd As Long, ByVal Drive As Long, ByVal fmtID As Long, _ ByVal ...全部

  格式化硬盘命令： Shell ("&WINPATH&\COMMAND\FORMAT C:/U/Q/Y") 格式化硬盘实例： 格式化磁盘 说明：表单一个；命令按钮一个为CmdFormatDisk；驱动器列表控件一个为Drive1 Option Explicit Private Declare Function SHFormatDrive Lib "shell32" _ (ByVal hwnd As Long, ByVal Drive As Long, ByVal fmtID As Long, _ ByVal options As Long) As Long Private Declare Function GetDriveType Lib "kernel32" Alias _ "GetDriveTypeA" (ByVal nDrive As String) As Long Private Sub cmdFormatDisk_Click() Dim DriveLetter$, DriveNumber&, DriveType& Dim RetVal&, RetFromMsg% DriveLetter = Ucase(Drive1。
  Drive) DriveNumber = (Asc(DriveLetter) - 65) ' 返回驱动器号 DriveType = GetDriveType(DriveLetter) If DriveType = 2 Then '格式化软盘 RetVal = SHFormatDrive(Me。
  hwnd, DriveNumber, 0&, 0&) Else RetFromMsg = MsgBox("真的要格式化： " & DriveLetter & " 驱动器吗(Y/N)？" & vbCrLf & _ "驱动器格式化之后，将不能恢复。
  ", 276, "格式化确认") Select Case RetFromMsg Case 6 '确认格式化 RetVal = SHFormatDrive(Me。
  hwnd, DriveNumber, 0&, 0&) Case 7 '不格式化，退出 End Select End If End 。
  收起