Joforn

1. Private Sub WriteDocument()
   
2.   Const HTMLText As String = "<html><head><meta http-equiv=""content-type"" content=""text/html; charset=utf-8"" />" & _
   
3.                              "<title>Joforn</title></head><body text-align:center>Joforn*Ron</body></html>"
   
4.   With WebBrowser1
   
5.     .Navigate "about:blank"
   
6.     Do
   
7.       DoEvents
   
8.     Loop While .ReadyState <> READYSTATE_COMPLETE
   
9.     With .Document
   
10.       .Open
    
11.       .write HTMLText
    
12.       .Close
    
13.     End With
    
14.   End With
    
15. End Sub

½Æ»s¥N½X

Joforn

¤W­±ªºµ{¦¡¬O¥Î¨Ó­×§ïDocumentªº¡A¦pªG¬O­×§ïºô­¶¤¤³¡¤Àªº¤¸¯À¡A¥u»Ý­n§ä¨ì­n­×§ïªº¹ï¶H¡AµM«á¦A¶i¦æ¾A·íªº­×§ï´N¥i¥H¤F¡C