09-03-20, 10:22 PM
كود :
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Dim html As String = "<html><head><meta http-equiv=Content-Type content=text/html; charset=UTF-8></head><body><h2 style=text-align: center;> </h2><h3 style=text-align: center;></h3><h3 style=text-align: center;></h3><h3 style=text-align: center;></h3><h2 style=text-align: center;><strong><img src=https://www.google.com/images/branding/googlelogo/1x/googlelogo_color_272x92dp.png alt= width=600 height=400></strong></h2><h3 style=text-align: center;></h3><h3 style=text-align: center;></h3><h3 style=text-align: center;>testtttttttttttttttttttttttttttt</h3><h3 style=text-align: center;></h3><h3 style=text-align: center;></h3><h3 style=text-align: center;></h3><h3 style=text-align: center;></h3><h3 style=text-align: center;></h3><h4 style=text-align: center;><span style=background-color: #ffffff;"">test</span></h4>""</body></html>"
My.Computer.FileSystem.WriteAllText("NewFile.html", html, False, Encoding.UTF8)
End Sub