Keresés: - C# programozás - PROHARDVER! Hozzászólások

Legfrissebb anyagok

PROHARDVER! témák

Mobilarena témák

IT café témák

GAMEPOD témák

LOGOUT témák

Keresés

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

#1480 mészi67 csendes tag ArchElf #1476

Új Válasz 2010-09-25 23:24:30 #1480
Ú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

válasz ArchElf #1476 üzenetére

Nagyon köszönöm az útmutatást, tanácsot.
#1474 mészi67 csendes tag ArchElf #1473

Új Válasz 2010-09-22 18:30:32 #1474
Ú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

válasz ArchElf #1473 üzenetére

Heló!
Végre vége a napi robotnak.
Igen, szeretném megnézni a te verziódat. A dinamikus kezeléssel még nem foglalkoztam de akkor most utána nézek a dolognak. Köszönöm hogy ennyi "buta" kérdéssel bombázhattalak.
#1472 mészi67 csendes tag ArchElf #1471

Új Válasz 2010-09-21 22:30:18 #1472
Ú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

válasz ArchElf #1471 üzenetére

Megpróbálok képet is feltenni hogy legyen fogalmad az egészről.
Visual Studio 2005-ben nyomulok.
A vonszolás azért kell hogy meghatározott helyre tehessem a vezérlőt, mert ugyebár nem minden ház alaprajza egyforma.
A téglalapok az alaprajzot szimbolizálják, a képdobozok pedig az alapmegerősítés helyét, a szövegdobozok pedig adatokat jelenítenek meg, pl. dátum, cölöpszám, méter stb. Dupla klikkre zummolom a szöveg dobozt.
A dinamikus kezeléssel erre gondoltál? Pl. egy másik prog. részlet:
Try o = Terv.OszlopName.Text p = Terv.JelName.Text megnez = 5000 Terv.Controls.Item(p).BringToFront() Terv.Controls.Item(o).Image = Image.FromFile("C:\Jet Grouting\Program\Képek\Cölöpök\FFUresNagy.bmp") c = Terv.Controls.Item(p).Left For k = 1 To 8.2 If c > k Then varj_ennyit = 60 End If System.Threading.Thread.Sleep(varj_ennyit) Terv.Controls.Item(p).Left = Terv.Controls.Item(p).Left + k Terv.Refresh() Next k
Sajna kép nem megy , csak worldben tudnám küldeni de azt sem tudom hogy tehetném fel.
#1470 mészi67 csendes tag ArchElf #1468

Új Válasz 2010-09-21 20:21:22 #1470
Ú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

válasz ArchElf #1468 üzenetére

Ja a hibaüzenet a tervmentésekor lép fel. Ez lemaradt az előbbi üziről.
Module UjTervMentes Public Sub TervSave() Dim Fn As String, Fn1 As Integer Fn = UjMunka.txtCim.Text Terv.Kilep.Enabled = True Terv.FF0.Image.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF0.bmp", System.Drawing.Imaging.ImageFormat.Bmp) Terv.FF1.Image.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF1.bmp", System.Drawing.Imaging.ImageFormat.Bmp) Terv.FF2.Image.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF2.bmp", System.Drawing.Imaging.ImageFormat.Bmp) Terv.FF3.Image.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF3.bmp", System.Drawing.Imaging.ImageFormat.Bmp) Terv.FF4.Image.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF4.bmp", System.Drawing.Imaging.ImageFormat.Bmp) 'Terv.FF5.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF5.bmp", System.Drawing.Imaging.ImageFormat.Bmp) 'Terv.FF6.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF6.bmp", System.Drawing.Imaging.ImageFormat.Bmp) 'Terv.FF7.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF7.bmp", System.Drawing.Imaging.ImageFormat.Bmp) 'Terv.FF8.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF8.bmp", System.Drawing.Imaging.ImageFormat.Bmp) 'Terv.FF9.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF9.bmp", System.Drawing.Imaging.ImageFormat.Bmp) 'Terv.FF10.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF10.bmp", System.Drawing.Imaging.ImageFormat.Bmp) 'Terv.FF11.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF11.bmp", System.Drawing.Imaging.ImageFormat.Bmp) 'Terv.FF12.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF12.bmp", System.Drawing.Imaging.ImageFormat.Bmp) 'Terv.FF13.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF13.bmp", System.Drawing.Imaging.ImageFormat.Bmp) 'Terv.FF14.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF14.bmp", System.Drawing.Imaging.ImageFormat.Bmp) 'Terv.FF15.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF15.bmp", System.Drawing.Imaging.ImageFormat.Bmp) 'Terv.FF16.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF16.bmp", System.Drawing.Imaging.ImageFormat.Bmp) 'Terv.FF17.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF17.bmp", System.Drawing.Imaging.ImageFormat.Bmp) 'Terv.FF18.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF18.bmp", System.Drawing.Imaging.ImageFormat.Bmp) 'Terv.FA0.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FA0.bmp", System.Drawing.Imaging.ImageFormat.Bmp) 'Terv.FA1.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FA1.bmp", System.Drawing.Imaging.ImageFormat.Bmp) 'Terv.FA2.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FA2.bmp", System.Drawing.Imaging.ImageFormat.Bmp) 'Terv.FA3.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FA3.bmp", System.Drawing.Imaging.ImageFormat.Bmp) 'Terv.FA4.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FA4.bmp", System.Drawing.Imaging.ImageFormat.Bmp) 'Terv.FA5.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FA5.bmp", System.Drawing.Imaging.ImageFormat.Bmp) 'Terv.FA6.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FA6.bmp", System.Drawing.Imaging.ImageFormat.Bmp) 'Terv.FA7.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FA7.bmp", System.Drawing.Imaging.ImageFormat.Bmp) 'Terv.FA8.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FA8.bmp", System.Drawing.Imaging.ImageFormat.Bmp) 'Terv.FA9.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FA9.bmp", System.Drawing.Imaging.ImageFormat.Bmp) 'Terv.FA10.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FA10.bmp", System.Drawing.Imaging.ImageFormat.Bmp) 'Terv.FA11.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FA11.bmp", System.Drawing.Imaging.ImageFormat.Bmp) 'Terv.FA12.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FA12.bmp", System.Drawing.Imaging.ImageFormat.Bmp) 'Terv.FA13.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FA13.bmp", System.Drawing.Imaging.ImageFormat.Bmp) 'Terv.FA14.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FA14.bmp", System.Drawing.Imaging.ImageFormat.Bmp) 'Terv.FA15.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FA15.bmp", System.Drawing.Imaging.ImageFormat.Bmp) 'Terv.FA16.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FA16.bmp", System.Drawing.Imaging.ImageFormat.Bmp) 'Terv.FA17.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FA17.bmp", System.Drawing.Imaging.ImageFormat.Bmp) 'Terv.FA18.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FA18.bmp", System.Drawing.Imaging.ImageFormat.Bmp) 'Terv.VJ0.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\VJ0.bmp", System.Drawing.Imaging.ImageFormat.Bmp) 'Terv.VJ1.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\VJ1.bmp", System.Drawing.Imaging.ImageFormat.Bmp) 'Terv.VJ2.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\VJ2.bmp", System.Drawing.Imaging.ImageFormat.Bmp) 'Terv.VJ3.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\VJ3.bmp", System.Drawing.Imaging.ImageFormat.Bmp) 'Terv.VJ4.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\VJ4.bmp", System.Drawing.Imaging.ImageFormat.Bmp) 'Terv.VJ5.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\VJ5.bmp", System.Drawing.Imaging.ImageFormat.Bmp) 'Terv.VJ6.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\VJ6.bmp", System.Drawing.Imaging.ImageFormat.Bmp) 'Terv.VJ7.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\VJ7.bmp", System.Drawing.Imaging.ImageFormat.Bmp) 'Terv.VJ8.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\VJ8.bmp", System.Drawing.Imaging.ImageFormat.Bmp) 'Terv.VJ9.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\VJ9.bmp", System.Drawing.Imaging.ImageFormat.Bmp) 'Terv.VB0.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\VB0.bmp", System.Drawing.Imaging.ImageFormat.Bmp) 'Terv.VB1.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\VB1.bmp", System.Drawing.Imaging.ImageFormat.Bmp) 'Terv.VB2.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\VB2.bmp", System.Drawing.Imaging.ImageFormat.Bmp) 'Terv.VB3.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\VB3.bmp", System.Drawing.Imaging.ImageFormat.Bmp) 'Terv.VB4.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\VB4.bmp", System.Drawing.Imaging.ImageFormat.Bmp) 'Terv.VB5.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\VB5.bmp", System.Drawing.Imaging.ImageFormat.Bmp) 'Terv.VB6.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\VB6.bmp", System.Drawing.Imaging.ImageFormat.Bmp) 'Terv.VB7.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\VB7.bmp", System.Drawing.Imaging.ImageFormat.Bmp) 'Terv.VB8.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\VB8.bmp", System.Drawing.Imaging.ImageFormat.Bmp) 'Terv.VB9.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\VB9.bmp", System.Drawing.Imaging.ImageFormat.Bmp) End If End Sub End Module
#1469 mészi67 csendes tag ArchElf #1468

Új Válasz 2010-09-21 20:11:17 #1469
Ú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

válasz ArchElf #1468 üzenetére

Szia!
Köszönöm hogy válaszoltál.
Ez egy tervrajz kezelő progi lenne. PictureBox-okban tárolok bizonyos rajzelemeket amik F1,F2, F3 gombok megnyomására megváltoznak. Ezért felül szeretném írni az előző állapotukat. Jelen pillanatban 56 db PictureBox van a formon, ami akár 120-ig is elmehet számításaim szerint. Egy db PictureBox-szal jól működik de az 56 db-nál már nem.
Egy kis kód a valós programból:
Private Sub Terv_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim Fn As String Fn = UjMunka.txtCim.Text Me.FF0.Image = Image.FromFile("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF0.bmp") Me.FF1.Image = Image.FromFile("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF1.bmp") Me.FF2.Image = Image.FromFile("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF2.bmp") Me.FF3.Image = Image.FromFile("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF3.bmp") Me.FF4.Image = Image.FromFile("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF4.bmp") Me.FF5.BackgroundImage = Image.FromFile("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF5.bmp") Me.FF6.BackgroundImage = Image.FromFile("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF6.bmp") Me.FF7.BackgroundImage = Image.FromFile("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF7.bmp") Me.FF8.BackgroundImage = Image.FromFile("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF8.bmp") Me.FF9.BackgroundImage = Image.FromFile("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF9.bmp") Me.FF10.BackgroundImage = Image.FromFile("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF10.bmp") Me.FF11.BackgroundImage = Image.FromFile("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF11.bmp") Me.FF12.BackgroundImage = Image.FromFile("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF12.bmp") Me.FF13.BackgroundImage = Image.FromFile("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF13.bmp") Me.FF14.BackgroundImage = Image.FromFile("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF14.bmp") Me.FF15.BackgroundImage = Image.FromFile("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF15.bmp") Me.FF16.BackgroundImage = Image.FromFile("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF16.bmp") Me.FF17.BackgroundImage = Image.FromFile("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF17.bmp") Me.FF18.BackgroundImage = Image.FromFile("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF18.bmp") IdeiglenesMentes() Me.AllowDrop = True KiValasztas.Top = 800 End If End Sub Private Sub FF0_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles FF0.MouseDown mozoghat = True pX = e.X pY = e.Y End Sub Private Sub FF0_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles FF0.MouseMove If mozoghat = True Then Me.FF0.Left = Me.FF0.Left + e.X - pX Me.FF0.Top = Me.FF0.Top + e.Y - pY Me.JelFF0.Left = Me.JelFF0.Left + e.X - pX Me.JelFF0.Top = Me.JelFF0.Top + e.Y - pY End If Me.OszlopName.Text = "FF0" Me.JelName.Text = "JelFF0" End Sub Private Sub FF0_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles FF0.MouseUp mozoghat = False End Sub Private Sub JelFF0_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles JelFF0.KeyDown Dim Fn As String Fn = UjMunka.txtCim.Text If e.KeyCode = Keys.F2 Then Me.FF0.Image = Program.My.Resources.FFUresKesz 'Image.FromFile("C:\Jet Grouting\Program\Képek\Cölöpök\FFUresKesz.bmp") My.Computer.FileSystem.DeleteFile("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF0.bmp") ElseIf e.KeyCode = Keys.F1 Then Me.FF0.Image = Program.My.Resources.FFUresKiv 'Image.FromFile("C:\Jet Grouting\Program\Képek\Cölöpök\FFUresKiv.bmp") My.Computer.FileSystem.DeleteFile("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF0.bmp") ElseIf e.KeyCode = Keys.F3 And Keys.U Then Me.FF0.Image = Program.My.Resources.FFures 'Image.FromFile("C:\Jet Grouting\Program\Képek\Cölöpök\FFures.bmp") My.Computer.FileSystem.DeleteFile("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF0.bmp") End If End Sub Private Sub JelFF0_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles JelFF0.MouseDown MegnezJelet() End Sub Private Sub JelFF0_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles JelFF0.MouseEnter Me.JelName.Text = "JelFF0" Me.OszlopName.Text = "FF0" End Sub Module IdeiglenesBmp Public Sub IdeiglenesMentes() Dim Fn As String Fn = UjMunka.txtCim.Text Terv.FF0.Image.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF0temporary.bmp", System.Drawing.Imaging.ImageFormat.Bmp) Terv.FF0.Image.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF0temporary1.bmp", System.Drawing.Imaging.ImageFormat.Bmp) Terv.FF1.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF1temporary.bmp", System.Drawing.Imaging.ImageFormat.Bmp) Terv.FF1.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF1temporary1.bmp", System.Drawing.Imaging.ImageFormat.Bmp) Terv.FF2.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF2temporary.bmp", System.Drawing.Imaging.ImageFormat.Bmp) Terv.FF2.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF2temporary1.bmp", System.Drawing.Imaging.ImageFormat.Bmp) Terv.FF3.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF3temporary.bmp", System.Drawing.Imaging.ImageFormat.Bmp) Terv.FF3.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF3temporary1.bmp", System.Drawing.Imaging.ImageFormat.Bmp) Terv.FF4.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF4temporary.bmp", System.Drawing.Imaging.ImageFormat.Bmp) Terv.FF4.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF4temporary1.bmp", System.Drawing.Imaging.ImageFormat.Bmp) Terv.FF5.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF5temporary.bmp", System.Drawing.Imaging.ImageFormat.Bmp) Terv.FF5.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF5temporary1.bmp", System.Drawing.Imaging.ImageFormat.Bmp) Terv.FF6.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF6temporary.bmp", System.Drawing.Imaging.ImageFormat.Bmp) Terv.FF6.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF6temporary1.bmp", System.Drawing.Imaging.ImageFormat.Bmp) Terv.FF7.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF7temporary.bmp", System.Drawing.Imaging.ImageFormat.Bmp) Terv.FF7.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF7temporary1.bmp", System.Drawing.Imaging.ImageFormat.Bmp) Terv.FF8.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF8temporary.bmp", System.Drawing.Imaging.ImageFormat.Bmp) Terv.FF8.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF8temporary1.bmp", System.Drawing.Imaging.ImageFormat.Bmp) Terv.FF9.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF9temporary.bmp", System.Drawing.Imaging.ImageFormat.Bmp) Terv.FF9.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF9temporary1.bmp", System.Drawing.Imaging.ImageFormat.Bmp) Terv.FF10.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF10temporary.bmp", System.Drawing.Imaging.ImageFormat.Bmp) Terv.FF10.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF10temporary1.bmp", System.Drawing.Imaging.ImageFormat.Bmp) Terv.FF11.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF11temporary.bmp", System.Drawing.Imaging.ImageFormat.Bmp) Terv.FF11.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF11temporary1.bmp", System.Drawing.Imaging.ImageFormat.Bmp) Terv.FF12.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF12temporary.bmp", System.Drawing.Imaging.ImageFormat.Bmp) Terv.FF12.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF12temporary1.bmp", System.Drawing.Imaging.ImageFormat.Bmp) Terv.FF13.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF13temporary.bmp", System.Drawing.Imaging.ImageFormat.Bmp) Terv.FF13.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF13temporary1.bmp", System.Drawing.Imaging.ImageFormat.Bmp) Terv.FF14.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF14temporary.bmp", System.Drawing.Imaging.ImageFormat.Bmp) Terv.FF14.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF14temporary1.bmp", System.Drawing.Imaging.ImageFormat.Bmp) Terv.FF15.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF15temporary.bmp", System.Drawing.Imaging.ImageFormat.Bmp) Terv.FF15.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF15temporary1.bmp", System.Drawing.Imaging.ImageFormat.Bmp) Terv.FF16.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF16temporary.bmp", System.Drawing.Imaging.ImageFormat.Bmp) Terv.FF16.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF16temporary1.bmp", System.Drawing.Imaging.ImageFormat.Bmp) Terv.FF17.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF17temporary.bmp", System.Drawing.Imaging.ImageFormat.Bmp) Terv.FF17.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF17temporary1.bmp", System.Drawing.Imaging.ImageFormat.Bmp) Terv.FF18.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF18temporary.bmp", System.Drawing.Imaging.ImageFormat.Bmp) Terv.FF18.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF18temporary1.bmp", System.Drawing.Imaging.ImageFormat.Bmp) End Sub End Module
A hiba üzenet:
A generic error occurred in GDI+.
Állítólag a keretrendszer zárolja a fájlt, de biztos vagyok benne hogy van megoldás, amit én nem tudok megolgani a hobbi szintemmel.
A BackgroundImage csak a próbálgatás miatt van benne.
Ha egy kis példa kóddal segítenél a tudatlanságomon, örülnék.
Köszi
#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
#1464 mészi67 csendes tag

Új Válasz 2010-09-15 19:20:24 #1464
Ú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

Sziasztok!
Könyvből tanulgatom a VB.Net programozást. Van egy picturebox a form-on amibe fájlból töltöm be a képet. Amikor megváltozik picturebox tartalma akkor újra el kellene menteni de sajnos hibára fut.
Me.FF0.BackgroundImage = Image.FromFile("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF0.bmp") Terv.FF0.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF0.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
Valaki tud valami okosságot a probléma megoldására?
Előre is köszönöm.