PictureBox leeren

Alle Fragen zur Programmierung, die nicht in die speziellen Themen passen
roemi
Site Admin
Beiträge: 425
Registriert: So 11. Dez 2005, 20:05
Wohnort: Hanau / Germany
Kontaktdaten:

Re: PictureBox leeren

Beitrag von roemi » Sa 9. Mär 2019, 11:52

Sodele,

erstmal das gambas code
  If v_image_tmp.Length Then    
    v_image_out = v_image_tmp[0] & ".png"
  
    i = i.Load(v_image)
    a = i.width
    b = i.height
   
    If a > 200 Or b > 280 Then
      
      Shell "composite -resize 200x280 -compose Over -gravity center " & v_image & " " & v_backimage & " " & verz_download & v_image_out Wait
      
    Else
      
      Shell "composite -compose Over -gravity center " & v_image & " " & v_backimage & " " & verz_download & v_image_out Wait
      
    Endif
    
    PictureBox1.Picture = Picture[verz_download & v_image_out]
  
    v_image_del = Split(GridView2[v_row, 0].Text, ".")
    If v_image_del[1] <> "png" Then
      Try Kill verz_download & GridView2[v_row, 0].Text
      PictureBox1.Picture = Flush
      bto_refresh_Click()
    Endif
  
    '
    
    lbl_picture.text = v_image_out
  End If
Den Anhang schaue ich mit dann an ... bitte aber etwas Geduld ... derzeit wenig Zeit.

Danke Dir
Römi (seit 1989 bekennender Bergradfahrer und professioneller Biertrinker)
http://www.roemi.de

Antworten

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 1 Gast