الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف أ عمل حفظ للصورة ؟

مغلق
بدأه vbdania في 22 مايو 2005 · 4 رد · 611 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

هدا الكود اخدته من برنامج وهو شغال كويس في البرنامج لكن لمن انسخه و احطه في مشرعي ما بضبط

بس بفتح مربع الحوار لكن مابحدد نوع الصورة و لمن احفظ الصورة ما بتنحفظ يا ريت اللي بعرف السبب

يقلي الخطأ

Private Sub cmdSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSave.Click
        
        If picMain.Image Is Nothing Then
            MsgBox("Drop an image file first !", MsgBoxStyle.Exclamation Or MsgBoxStyle.ApplicationModal, "No Image")
            Return
        End If
        dlgSave.ShowDialog()
        If dlgSave.FileName = "" Then Return
        Dim imgFormat As Imaging.ImageFormat
        If (dlgSave.FileName.EndsWith("png")) Then imgFormat = Imaging.ImageFormat.Png
        If (dlgSave.FileName.EndsWith("jpg")) Then imgFormat = Imaging.ImageFormat.Jpeg
        If (dlgSave.FileName.EndsWith("bmp")) Then imgFormat = Imaging.ImageFormat.Bmp
        If (dlgSave.FileName.EndsWith("gif")) Then imgFormat = Imaging.ImageFormat.Gif
        If (dlgSave.FileName.EndsWith("tga")) Then imgFormat = Imaging.ImageFormat.Tiff
        Try
            picMain.Image.Save(dlgSave.FileName, imgFormat)
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical Or MsgBoxStyle.ApplicationModal, "Error")
        End Try
#2

هذا لأنك لم تقم بتحديد نوع الملف أثناء الحفظ، جرب و ضع هذا السطر قبل الـ dlgSave.ShowDialog

dlgSave.Filter = "JPG File (*.jpg)|*.png|PNG (*.png)|*.png"

رأس الحكمة الإيمان بالله

#3

شكرا الك كتير كتيييييييييييييييييير جربت الكود و نفع :rolleyes: :rolleyes:

بس عندي سؤال تاني ياريت ما اكون غلبتك :

في شخص اعطاني كود عشان احرك picturebox وتكون الصورة مرتبطة بحركة الماوس بس الكود ما اشتغل

الكود:Private Sub p3_DragDrop(ByVal sender As Object, ByVal e As

System.Windows.Forms.DragEventArgs) Handles p3.DragDrop

p3.AllowDrop = True

If p3.Left < 2500 Then

p3.Left = 2500

ElseIf p3.Left < 3000 Then

p3.Left = 3000

End If

End Sub

وياريت لو عندك طريقة تانية تقلي ايش اعمل؟

#4

لا أفهم بالضبط ماذا تقصد، هل تريد تحريك الصورة عندما يتم الضغط عليها بالماوس و من ثم سحبها الى أي مكان على الفورم؟؟ لو كان هذا ما تقصده، قم بتجربة هذا الكود:

    Private X As Single
    Private Y As Single
    Private mblnMouseDown As Boolean

    Private Sub picMain_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles picMain.MouseDown
        mblnMouseDown = True
        Me.picMain.Cursor = Cursors.SizeAll
        X = e.X
        Y = e.Y
    End Sub

    Private Sub picMain_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles picMain.MouseMove
        If mblnMouseDown Then
            Me.picMain.Left = Me.picMain.Left + (e.X - X)
            Me.picMain.Top = Me.picMain.Top + (e.Y - Y)
        End If
    End Sub

    Private Sub picMain_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles picMain.MouseUp
        mblnMouseDown = False
        Me.picMain.Cursor = Cursors.Default
    End Sub

هذا الكود عمله كالآتي:

عندما تقوم بالضغط على الصورة بالماوس و تحريكه في أي مكان على الفورم يقوم بالاحتفاظ بالصورة و من ثم تركها على أي مكان بالفورم لتستقر في هذا المكان الجديد، مثل بالضبط عندما تقوم بتحريك الـ Control بالماوس على الفورم أثناء الـ Design Time في بيئة الـ Visual Studio.Net .

أرجو أن يكون هذا ما تقصده.. :unsure:

رأس الحكمة الإيمان بالله

#5

شكرا الك يا اخ محمد و جزاك الله الف خير و جعله في ميزان حسناتك ان شاء الله

الكود هدا هو اللى صارلي بدور عليه من شهر جربته و ضبط بس ضل شي صغير معلش حغلبك

انا حاطة 12 صورة داخل grupbox و بدي هادي الصور ما تتحرك الا داخل grupbox مع العلم انه في خانة فاضية في صندوق المجموعة بحيث اسحب الصورة الاولى في هدا الممان و الصورة التانية في مكان الاولى وهكذا زي لعبة ترتيب مربعات الصور بحيث انه الصور ماتنسحب على بعض ولا على باقي الفورم و انا عندي مقاس صندوق المجموعة كالتالي :

x=56

y=72

و مقاس كل صورة هو

x=168

y=16

ياريت تكمل جميلك معاية و تجاوبني لاني لازم فعلا اسلم المشروع يوم الاربعاء و انا بصراحة مش متمكنة في برامج الالعاب و التحريك و البرمجة بشكل عام.

هذا الموضوع مغلق.

مواضيع مشابهة