Как установить фоновое изображение панели

Question

Я пытаюсь установить фоновое изображение панели следующим способом

Dim bmp As New Bitmap(1500, 2500) 
    Dim g As Graphics = System.Drawing.Graphics.FromImage(bmp) 
    DrawTimeScale(g) 
    g.Flush() 
    Dim img_converter As New ImageConverter() 
    Dim bytes As Byte() = DirectCast(img_converter.ConvertTo(bmp, GetType(Byte())), Byte()) 
    File.WriteAllBytes(Server.MapPath("~/Images/OT.jpeg"), bytes) 
    pnl001.BackColor = Color.White 
    pnl001.BackImageUrl = "~/Images/OT.jpeg" 
    pnl001.Attributes.Add("style", "background-repeat:no-repeat") 

Но, как показывает код, мне нужно, чтобы показать изображение каждый раз, когда в server..how может я установить BMP в качестве фонового изображения directly..as это может создать проблемы при развертывании на сервере

Answer 1

Try This One

Imports System.Runtime.InteropServices 
Public Class Form1 
    Dim bmp As Bitmap 
    Private Sub Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint 
    e.Graphics.DrawImage(bmp, New Rectangle(20, 20, Panel1.Width - 20, Panel1.Height - 20), New Rectangle(0, 0, bmp.Width, bmp.Height), GraphicsUnit.Pixel) 
End Sub 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
    Using s As System.IO.Stream = New System.IO.FileStream("E:\temp\bmp\right.bmp", IO.FileMode.Open, IO.FileAccess.Read) 
     bmp = Bitmap.FromStream(s) 
    End Using 
    Panel1.BorderStyle = BorderStyle.Fixed3D 
End Sub 
End Class 

Надежда Это помогает вам