Új hozzászólás Aktív témák

• #1465 mészi67 csendes tag

  Új Válasz 2010-09-17 12:26:06 #1465

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  mészi67

  csendes tag

  Azt hittem többen vannak ezen a fórumon akik VB.NET-tel foglalkoznak.
  Na mindegy.
  Sikerült megoldani a problémát egy másik fórum ötletével. A gond az volt hogy a beolvasott fájlt lock-olja a keret rendszer és ezért nem lehet felül írni.
  Felteszem a jó példa programot,hátha valakinek lesz ilyen gondja. Igaz nem a legszebb de működik.

  Public Class Form1
  
  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  Dim Fn As String
  Fn = "Bp. IX. Lónyay u. 38"
  
  Me.PictureBox1.BackgroundImage = Image.FromFile("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF0.bmp")
  Me.PictureBox1.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF0temporary.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
  Me.PictureBox1.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF0temporary1.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
  
  End Sub
  
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  Dim Fn As String
  Fn = "Bp. IX. Lónyay u. 38"
  Me.PictureBox1.BackgroundImage = Image.FromFile("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF0temporary1.bmp")
  
  End Sub
  
  Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  
  Dim Fn As String
  Fn = "Bp. IX. Lónyay u. 38"
  
  System.IO.File.Delete("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF0.bmp")
  
  System.IO.File.Move("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF0temporary.bmp", "C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF0.bmp")
  
  System.IO.File.Delete("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF0temporary.bmp")
  
  End Sub
  End Class

Új hozzászólás Aktív témák