مشكله التكست والأداهcommondialog1

مشاركة: واتساب X فيسبوك تيليجرام

#118 فبراير 2009 في 23:37 صاحب الموضوع

السلام عليكم ورحمه الله وبركاته

كيفكم أخواني؟

أنا عامل برنامج موظفين وفي البرنامج المسدج بوكس مش شغال

يعني مثلا أنا فى فورم معين عندى تكست أسمه أسم الموظف

أنا عامل مسدج بوكس أن لو التكست ده فاضي تظهر الرساله أن عفوا يجب كتابه الأسم والكود ألي كتبته هو

If Text1.Text = " " Then

MsgBox " أسف أكتب الاسم ", vbCritical + vbMsgBoxRight, " Error"

Exit Sub

ولكن لو التكست ده فاضى مبتظهرش الرساله دي ولكني كتبت حاجه وده الحال بالنسبه لكل التكستات

CommonDialog1وعندى كمان مشكله أنا عامل في نفس الفورم أداه لأستعراض صورة موظف والاداه ألي استخدمتها هي

ولكن لما أضغط زر حفظ لم تحفظ الصوره وانا مش عارف كود الحفظ

أرجوا المساعده

#219 فبراير 2009 في 08:37

If Text1.Text = "" Then
	   MsgBox " أسف أكتب الاسم ", vbCritical + vbMsgBoxRight, " Error"
	   Exit Sub
End If

تم تعديل هذه المشاركة بواسطة المبرمج أحمد في 19 فبراير 2009 في 08:38

سبحان الله وبحمده ... سبحان الله العظيم

#319 فبراير 2009 في 11:17

أخي بالنسبه لحفظ الصوره :

SavePicture Object.Image, FileName

بالنسبة لـ (Object.image) فهي مصدر الصوره إذا كانت موجوده داخل (pictureBox) أو داخل الفورم

مثال :

Sub Savepic(Pic As PictureBox, Cd1 As CommonDialog)
On Error Resume Next

Cd1.ShowSave
SavePicture Pic.Image, Cd1.FileName

End Sub

علما بأنه يجب وجود الأداة Microsoft CommonDialog على الفورم أو حتي تقوم بتحميلها داخل صندوق الأوات.

و السلام ختام .....

السلام على من إتبع السلام وخشي وجه ربه ذو الجلال والإكرام

عدد الزوار حالياً