改变当前盘符
Private Sub Command1_Click()
ChDrive Drive1.List(Drive1.ListIndex)
Unload Me
Load Form2
Form2.Show
Drive1.Refresh
End Sub
本文提供了一个使用Visual Basic编写的简单示例代码,用于在Windows环境中更改当前工作目录的盘符。通过此代码,用户可以指定新的驱动器盘符,并在完成更改后刷新驱动器列表。
改变当前盘符
Private Sub Command1_Click()
ChDrive Drive1.List(Drive1.ListIndex)
Unload Me
Load Form2
Form2.Show
Drive1.Refresh
End Sub
1万+

被折叠的 条评论
为什么被折叠?