⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 smp.html

📁 一个将VB代码转换为html文件的程序！
💻 HTML
字号:
🔍 
<html><body bgcolor=white text=black><pre>
<FONT COLOR='#000088'>Private </FONT>Type blah
    name <FONT COLOR='#000088'>As </FONT>String
    plan <FONT COLOR='#000088'>As </FONT>String
    goal <FONT COLOR='#000088'>As </FONT>String
    number <FONT COLOR='#000088'>As </FONT>Integer
<FONT COLOR='#000088'>End </FONT>Type


<FONT COLOR='#000088'>Private Sub </FONT>Form_Load()
    <FONT COLOR='#000088'>Dim </FONT>b <FONT COLOR='#000088'>As </FONT>blah
    b.name = "Just some guy"
    b.plan = "eat yummies and get fat like sumo wrestler so all the asian girls will want me ;)"
    b.goal = "find a decent job that actually pays me for my skills and abilities :-\"
    b.number = 3
    
    f = FreeFile
    <FONT COLOR='#000088'>Open </FONT>"c:\blah.txt" <FONT COLOR='#000088'>For Binary As </FONT>f
    <FONT COLOR='#000088'>Put </FONT>f, , b
    <FONT COLOR='#000088'>Close </FONT>f
    
    <FONT COLOR='#000088'>Dim </FONT>ha <FONT COLOR='#000088'>As </FONT>blah
    <FONT COLOR='#000088'>Open </FONT>"c:\blah.txt" <FONT COLOR='#000088'>For Binary As </FONT>f
    <FONT COLOR='#000088'>Get </FONT>f, , ha
    <FONT COLOR='#000088'>Close </FONT>f
    
    MsgBox "<FONT COLOR='#000088'>Object </FONT>data read in from saved file:" &amp; vbCrLf &amp; vbCrLf &amp; _
             "blah.name = " &amp; ha.name &amp; vbCrLf &amp; _
             "blah.plan = " &amp; ha.plan &amp; vbCrLf &amp; _
             "blah.goal = " &amp; ha.goal &amp; vbCrLf &amp; _
             "blah.number=" &amp; ha.number
             
<FONT COLOR='#000088'>End </FONT>Sub

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -