📄 folderbrowse.html

📁 自己做的水平不高见谅VB代码转换到html格式

💻 HTML

字号:

<HTML><HEAD><TITLE>Project1</TITLE></HEAD>
<BODY BGCOLOR="#FFFFFF" Text="#000000" LINK="#0000FF" VLINK="#000099" ALINK="#00FF00">
</FONT><B><FONT SIZE=5 COLOR="#008080">FolderBrowse.bas</B></FONT><FONT SIZE=2>
<BR><BR><HR><BR>
<br><FONT SIZE=3 COLOR="#008080">Public Function BrowseCallbackProc(ByVal hWnd As Long, ByVal uMsg As Long, ByVal lParam As Long, ByVal lpData As Long) As Long</B></FONT><br>
<br><FONT SIZE=3 COLOR="#008080">Public Function BrowseForFolder(hOwnerWnd As Long, Optional ByVal sInstruct As String, Optional vSelPath As Variant, Optional vTopFolder As Variant) As String</B></FONT><br>
<br><FONT SIZE=3 COLOR="#008080">Public Function FarProc(lpProcName As Long) As Long</B></FONT><br>
<BR></FONT></BODY></HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -