dotNETportal.cz

Zdarec lidi,

řeším malinký problémek a to je vložení Labelu na obrázek... Vždy se mi nacpe za něj a přenesení do popředí mi nejde.

Na upřesněnou jedu v VB 6.

Za Vaše nápady díky Karel Láska

Nevím, jak je to ve VB6 ale ve VB.NET můžete napsat text přímo do obrázku (teď nevm, jestli je to dobře ale nějak tak to je):

Dim grp As Drawing.Graphics
Dim Bitmap As New Drawing.Bitmap(PictureBox1.Width, PictureBox1.Height)
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
grp = Graphics.FromImage(Bitmap)
grp.DrawImage(System.Drawing.Graphics.FromImage("C:\i.jpg"), 0, 0)
End Sub

     Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint 
         e.Graphics.DrawImage(Bitmap, 0, 0) 
     End Sub 

Sub VaseMetodaKdePiseteText(text As String)
        Dim mujfont As New System.Drawing.Font("Arial", 15, Drawing.FontStyle.Regular, Drawing.GraphicsUnit.Pixel)
        grp.DrawString(text, mujfont, System.Drawing.Brushes.White, 0, 0)
End Sub

A jen tak. VB.NET je lepší :-).

Oprava toho kódu:

Public Class Form1

    Dim grp As Drawing.Graphics
    Dim Bitmap As Drawing.Bitmap
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        Bitmap = New Drawing.Bitmap(PictureBox1.Width, PictureBox1.Height)
        grp = Graphics.FromImage(Bitmap)
        grp.DrawImage(Image.FromFile("C:\obraz.jpg"), 0, 0)

    End Sub

    Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
        NapisText("Ahoj", 0, 0)
        NapisText("Jak se máš?", 0, 20)
        e.Graphics.DrawImage(Bitmap, 0, 0)

    End Sub

    Sub NapisText(ByVal text As String, ByVal x As Integer, ByVal y As Int32)
        Dim mujfont As New System.Drawing.Font("Arial", 15, Drawing.FontStyle.Regular, Drawing.GraphicsUnit.Pixel)
        grp.DrawString(text, mujfont, System.Drawing.Brushes.White, x, y)
    End Sub


End Class

Dekuji za odpoved, uz sem na to kapl....

Vkladal jsem to vedle obrazku a pak nasouval do nej, ale ja musim vlozit do obrazku :-)

Jinak ale diky moc....

Az budu premejslet o pokracovani, kouknu co to vlastne je :-D