كيفية طباعة فورم بدون ما تظهر الأزرار اللي فيه ؟!

مرحبا أخي

إجابة السوال الأول = في كوماند الطباعة ضع الكود التالي

Coammand1.visible=false
form1.printform
command1.visible=true

يعني تخفي الزرار أول شي ومن ثم تقوم بطباعة الفورم ثم تظهر الزرار ثانياً .

إجابة السؤال الثاني = نفس الكود الذي تضعه في كوماند خروج ويظهر رسالة للمستخدم ..

ضعه في الفورم في الحدث Unload

يعني لما تضغط دبل كلك على الفورم يفتح شاشة الكود الخاصة بالفورم والحدث الإفتراضي Load

أختر الحدث Unload وضع الكود به .. تحياتي

ولكن أخي العزيز بالنسبة للسؤال الثاني وهو إظهار رسالة لتأكيد الخروج عند ضغط على زر الخروج من الفورم

لايمكن كتابة كود إظهار الرسالة msgbox في حدث unload لأن مهما كان اختيار المستخدم موافق أو لا سيتم سيقع حدث أغلاق الفورم وبالتالي إغلاق البرنامج إذا كان هذا الفورم الفورم الرئيسي للبرنامج لذا لا يمكن إيقاف حدث الإغلاق وهذه أحد عيوب فيجوال بيسك

من الممكن التغلب على هذا العيب من خلال استخدام دوال ال api كالآتي

نقوم بإنشاء موديل جديد نسميه handler نكتب داخله الأكواد التالية

 Private Declare Function setwindowlong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function callwindowproc Lib "user32" Alias "CallWindowProcA" (ByVal ip As Long, ByVal hwnd As Long, ByVal msg As Long, ByVal wparam As Long, ByVal lparam As Long) As Long
Private Const gh = -4
Private gw As Long
Private ip As Long
Public Function windowproc(ByVal hwnd As Long, ByVal umsg As Long, ByVal wparam As Long, ByVal lparam As Long) As Long
Debug.Print hwnd, umsg, wparam, lparam
If umsg = 161 And wparam = 20 Then
If MsgBox("åá ÊÑíÏ ÈÇáÊÃßíÏ ÇáÎÑæÌ ãä ÇáÈÑäÇãÌ", vbOKCancel, "") = vbOK Then
unhook
Unload Form1
End If
End If
windowproc = callwindowproc(ip, hwnd, umsg, wparam, lparam)
End Function
Public Sub sethook()
ip = setwindowlong(gw, gh, AddressOf windowproc)
End Sub
Public Sub unhook()
setwindowlong gw, gh, ip
End Sub
Public Sub gwnd(ByVal hwnd As Long)
gw = hwnd
End Sub

وفي الفورم نكتب الكود التالي :

 Private Sub Form_Load()
gwnd (Me.hwnd)
Call sethook
End Sub

تستطيع انشاء فورم بحجم مسج بوكس وتكتب فيها بالعربي وفي حدث unload اكتب :

frmmsg.show
me.hide

في فورم المسج اجعل زران (نعم , لا )

كود زر نعم

اقتباس

unload frmmain

unload me

كود زر لا

me.hide
frmmain.show

مرحبا

يعطيكم العافية أخواني

وجزيل الشكر لك أخوي { محمدvb }

الكود الخاص بزر الطباعة اللي افدتني به ، نفع معي ومشى 100% :D

بس عندي ملاحظة : بعض الأجهزة التي تعطيها امر طباعة، لا يحدث معها شيء، لا تبين ولا تعطيك اشارة بأنها بالفعل تلقت أمر الطباعة

هل يوجد كود معين يقوم بالتأكد إذا تم طباعة المستند أو لا ... ومن ثم يبلغك بأن العملية نجحت أو أن هناك عطل ما بالطابعة ؟!!

وبالنسبة لإجابة السؤال الخاص بالخروج ، فكما قال أخونا { the programmer 1 } بأنه لا ينفع بحدث unload

ولكن أخي { the programmer 1 } الا يوجد طريقة أخرى غير التي ذكرتها بدل استخدام دوال ال api

فأنا اعتقد أنه ربما توجد طريقة أخرى أكثر بساطة :rolleyes:

أخي { مبرمج مبتدا } اشكرك على تفاعلك ومشاركتك .. إلا أن صنع فورم مسج لا اعتقد بأنه برمجة احترافية، ويمكن ملاحظة الفرق بسهولة ;)

اشكركم أخوتي على تفاعلكم ...

ومازال السؤال الثاني قائم

مرحباً شباب ..

كأن الموضوع برد :D

حد يعطينا حل سؤال:

كيف يتأكد البرنامج من وجود طابعة عند إعطاء أمر الطباعة، وفي حالة عدم وجود طابعة ( الطابعة مغلقة أو عطلانة أو غير موصلة ، إلخ ... ) يعطي رسالة ؟!!!

السؤال الذي مازال قائم أيضاً هو : زر الـX الذي تطلع رسالة تأكيد الخروج ، عندما يتم الضغط عليه لإغلاق البرنامج ؟!!

ودمتم بعافية

Public Function PrinterExist() As Boolean

On Error GoTo Err_Trap
Dim i As Integer

i = Printers.Count

If i <> 0 Then
		PrinterExist = True
	Else
		PrinterExist = False
End If

Exit Function
Err_Trap:
PrinterExist = False

End Function

فقط بدل حدث Unload ب Query Unload

وبذلك لك التحكم الكامل فى الاغلاق

أخي { msayed2004 }

ما مشى معي الكود، فهل شرحته لي.. أو وضحته أكثر من ناحية أين الرسالة اللي تطلع تبين للمستخدم بأن الطابعة قد تكون في أحد الحالات التالية:-

1- غير متصلة No Connecting

2- مغلقة Off-Line

3 - معطلة Disable

4- الطابعة لا تستجيب نظراً لتعارض إعدادات التقرير الصادر مع اعدادات الطابعة Conflict Setting

كأن تكون اعدادات طباعة التقرير بالشكل الأفقي (العرض) والطابعة اعداداتها بالشكل الرأسي ( بالطول)

بالنسبة للزر X

إليكم الملف المرفق، يوضح الكود البسيط الذي أضعه لتأكيد الخروج من أي برنامج أعمله.

Private Sub CmdExit_Click()
   Dim ex As String
	ex = MsgBox("!! هل تريد الخروج من البرنامج ؟", vbMsgBoxRight + vbYesNo + vbQuestion, "!! تأكيد خروج")
	If ex = vbYes Then
		End
	End If
End Sub

ولأني أريد نفس الرسالة تصدر عند الضغط على زر الـX أشار الأخ { ASDen } إلى أن أضع نفس الكود في حدث UnloadQuery وضعته بالشكل التالي:-

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  Dim ex As String
	ex = MsgBox("!! هل تريد الخروج من البرنامج؟ ", vbMsgBoxRight + vbYesNo + vbQuestion, "!! تأكيد خروج")
	If ex = vbYes Then
		End
	End If
End Sub

هو صح مشى ... بس حتى لو ضغط على الزر No يتم إغلاق البرنامج، فكيف يمكن تجنب هذا الخطأ ؟!!!

ExitMsgBox.rar

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  Dim ex As String
	ex = MsgBox("!! هل تريد الخروج من البرنامج؟ ", vbMsgBoxRight + vbYesNo + vbQuestion, "!! تأكيد خروج")
	If ex = vbYes Then
				End
		Else
				Cancel = True ' <------------------------------------------
	End If
End Sub

أنت طلبت كود لمعرفة أن كان فيه Printer و لا لأ مش ده كله.

راجع الـ API Guide يمكن تلاقى دوال تفيدك.

msayed2004 كتب:

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  Dim ex As String
	ex = MsgBox("!! هل تريد الخروج من البرنامج؟ ", vbMsgBoxRight + vbYesNo + vbQuestion, "!! تأكيد خروج")
	If ex = vbYes Then
				End
		Else
				Cancel = True' <------------------------------------------
	End If
End Sub

أنت طلبت كود لمعرفة أن كان فيه Printer و لا لأ مش ده كله.

راجع الـ API Guide يمكن تلاقى دوال تفيدك.

يعطيك الله العافية أخوي الحبيب { msayed2004 }

أشكرك جزيل الشكر، على حل لغز زر الـX :D

إمكن يالغالي .. تقول : زودتها !!!!

بس أنا كنت ذاكر هالسؤال الخاص بزر الـX على أنه سؤال دخيل بأول الموضوع ;) .

وزي ما أنت قلت أنا أبحث عن كود إذا كانت الطابعة متوفرة أو لا .. وهذا ما أريد معرفته بالوقت الحالي

لأن برنامجي ، عندما يعطي أمر الطباعة، ولا يجد الطابعة أراه يسكت ولا حس ولا خبر ( فلا أدري هل بالفعل أمر الطباعة راح ولا علق !!! )

وببعض الأجهزة تطلع رسالة بجنب الساعة بأن هناك خطأ في الطباعة Printing Error

بس ما يوضح شو سبب الخطأ !!!

فهل يمكنك مساعدتي بذلك .. ولك كل الشكر وخالص الدعاء بإذن الله تعالى.

اشكرك أخي الحبيب { msayed2004 }

بس إذا ما في بنفسك ضيقة .. ممكن تعطيني نبذة مختصرة عن الأكواد بـPrinter Status

حيث أني أجهل : أين اضعها بالضبط ؟ وما هو دورها بالضبط ؟