- Nem indul és mi a baja a gépemnek topik
- Milyen TV-t vegyek?
- Milyen billentyűzetet vegyek?
- Milyen processzort vegyek?
- Az árnyak közül lépett spotfénybe az MSI 16 GB-os grafikus kártyája
- NVIDIA GeForce RTX 4060 / 4070 S/Ti/TiS (AD104/103)
- Milyen videókártyát?
- Multimédiás / PC-s hangfalszettek (2.0, 2.1, 5.1)
- AMD Navi Radeon™ RX 6xxx sorozat
- E-book olvasók
Hirdetés
-
Hardverek pünkösdre
ph E-book olvasók, komponensek és perifériák kerültek hétvégi összeállításunkba.
-
A tüntetések ellenére is bővítheti német gyárát a Tesla
it Hiába a nagy tüntetések, a helyi önkormányzat rábólintott a Tesla német gyárbővítésére.
-
Retro Kocka Kuckó 2024
lo Megint eltelt egy esztendő, ezért mögyünk retrokockulni Vásárhelyre! Gyere velünk gyereknapon!
Új hozzászólás Aktív témák
-
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
● ha kódot szúrsz be, használd a PROGRAMKÓD formázási funkciót!
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: Alpha Laptopszerviz Kft.
Város: Pécs