📄 1806.html
字号:
<html> <head> <title>Re: 如何只显示CD-Rom Driver??</title> </head> <BODY BACKGROUND="" BGCOLOR="white" TEXT="black" LINK="red" VLINK="#808080" ALINK=""> <center> <h1>Re: 如何只显示CD-Rom Driver??</h1> </center><HR><p>Posted by <a href="mailto:a338479@ms3.hinet.net">小刘</a> on January 30, 1998 at 20:44:07:<p>In Reply to: <a href="1803.html"><b>如何只显示CD-Rom Driver??</b></a> posted by RPG之鬼 on January 30, 1998 at 19:17:21:<p>先宣告<br>Private Declare Function GetDriveType Lib "kernel32" Alias <br> "GetDriveTypeA" (ByVal nDrive As String) As Long<p>之后…<br>Private Sub Form_Load()<br>Dim I As Integer<br>Dim DriverPath As String<br>Dim ret As Long<p>For I = 0 To Drive1.ListCount<br> DriverPath = Left(Drive1.List(I), 2) + "\"<br> ret = GetDriveType(DriverPath)<br> If ret = 5 Then Drive1.ListIndex = I<br>Next I<br>Drive1.Enabled = False<p>End Sub<br>如果可以指定磁碟机的话，就把Loop拿掉。<p><br><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 1806--></ul><!--end: 1806--><br><HR><p></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -