Sub ShowImage(ImageName as string)
Dim ff As Integer
Dim a As String
a="<html><head><title>Mazdai polneishii</title></head>" & vbCrLf & _
"<frameset rows=100% cols=100% framespacing=0 frameborder=NO border=0>" & vbCrLf _
" <frame src=" & Chr(34) & ImageName & " name=framez scrolling=NO noresize></frameset></html>"
ff = FreeFile
MkDir App.Path & "\temp"
Open App.Path & "\temp\index.htm" For Output as #ff
Print #ff, a
Close #ff
brwWebBrowser.Navigate App.Path & "\temp\index.htm"
Kill App.Path & "\temp\index.htm"
RmDir App.Path & "\temp"
End Sub
<html>
<body leftmargin=0 rightmargin=0>
<img src="1.gif">
</body>
</html>
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 4