Hirdetés

  2. Fórumok
  3. Szoftverfejlesztés
  4. C# programozás

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

  • #1470 mészi67 csendes tag ArchElf #1468
    Új Válasz #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

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