(03-04-19, 05:52 AM)اباذر كتب :
[b]elgokr[/b]
جزاك الله الف خيراًواتمنى لك كل التوفيق في جميع مجالات الحياةوشكرا على الدرس الاكثر من رائع وعلى اهتمامك بموضوعياسعدتني واتمنى لك السعادةبأذن الله تعالىمودتي
اللهم امين لى ولك وللجميع
فالشكر لله والحمد لله
والحمد لله على كل حال
تحياتى لك
وتمنياتى لك التوفيق
(03-04-19, 01:55 PM)sendbad100 كتب :وعليكم السلام ورحمة الله وبركاتة
الله يكتب اجرك مضاعفاويكتب لك في كل حرف الف حسنة وفي كل ثانية الف حسنة
تقضيها في مساعدة اخونك
+1
شكرا على كل ما تقدمهايها المبدع
اللهم امين لى ولك اخى الحبيب sendbad100
فالشكر لله والحمد لله
والحمد لله على كل حال
تحياتى لك
وتمنياتى لك التوفيق
(04-04-19, 02:49 AM)عبد العزيز البسكري كتب :السّلام عليكم و رحمة الله و بركاتهتسلم أخي و أستاذي الغالي "ELGOKR " على مشاركتنا المشروع .. بارك الله فيك ليوم الدين إن شاء اللهفقط لو تكرمت تشوفلي حل لهذه المشكلة بالصورة أدناه .. لم أعرف ما معناها و لم أتمكن من مساعدة الملفتحياتي و تقييماتي من غير ما أشوف لأنّي متأكد من روعتك و روعة أعمالك و إبداعاتك
وعليكم السلام ورحمة الله وبركاته
اخى الغالى عبد العزيز البسكري
تقبل الله منك الدعاء لى ولك وللجميع بامر الرحيم
بخصوص الصورة لو تلاحظ عدم وجود فى القائمة الجانبية [ References ]
ويبدو عدم ظهورها لان النسخة المستخدمة لديك لا تدعم Class Library
وقد يكون السبب بانك تستخدم نسخة Community
قد تحتاج الى اعادة تثبيت نسخة الفيجوال من جديد لحل مشكلة Class Library
ولتجنب الامر يمكنك استخدم كود المشروع كاملاً هنا
ويتم استخدام الكود فى ان تقوم بانشاء شاشة Class فى اى مشروع تستخدمه عامة
ومن ثم تتبع خطوات تنفيذ الكود كما فى الشرح بالاعلى ولكن بدون عمل Imports
الكود كاملاً
كود :
Imports System.Windows.Forms
Imports System.Drawing
Public Class msgView
' انشاء معرف لتكويس شاشة الفورم
Public MyForm As New Form()
' تحديد لغة النظام عربى / انجليزي الشفافية طريقة ظهور الرسالة اتجاه النص نص الرسالة الارتفاع العرض
Public Function msgWelcome(Width As Integer, Height As Integer, msgShow As String, RightLeft As Boolean, BottomRight As Boolean, Transparent As Double, Optional ArEn As String = "")
' انشاء معرف لاتمام تكويز زر
Dim MyxButn As New Button
' انشاء معرف لاتمام تكون نص
Dim msgText As New TextBox
' انشاء معرف الاحداثيات
Dim x, y As Integer
' اعطاء قيم المقاس
x = Width / 3.3 : y = 25
' تنفيذ مساحة الزر
MyxButn.Size = New Size(x, y)
' اعطاء قيم الاحداثيات
x = 10 : y = 28
' تحقق من لغظ نظام الجهاز عربي ام انه الانجليزية
If ArEn = "AR" OrElse ArEn = "ar" Then
' تنفيذ احداثيات الزر
MyxButn.Location = New Point(Width - (Width / 3.3) - x, Height - y)
Else
' تنفيذ احداثيات الزر
MyxButn.Location = New Point(x, Height - y)
End If
' نص رسالة الزر
MyxButn.Text = IIf(RightLeft, "&اغلاق", "&Close")
MyxButn.BringToFront()
' اعطاء قيم الاحداثيات
x = 10 : y = 10
' تنفيذ مساحة اطار نص الرسالة
msgText.Size = New Size(Width - (x * 2), Height - (y * 2) - 20)
' تنفيذ احداثيات الزر
msgText.Location = New Point(x, y)
' نص الرسالة
msgText.Text = msgShow
' اطار نص للقراء فقط
msgText.ReadOnly = True
' اطار النص متعدد الاسطر
msgText.Multiline = True
' تحديد اتجاه النص / عربي - انجليزي
msgText.RightToLeft = IIf(RightLeft, RightToLeft.Yes, RightToLeft.No)
' تعريف بتكوين شاشة فورم جديدة
MyForm = New Form()
' تنفيذ مساحة شاشة الفورم
MyForm.Size = New Size(Width, Height)
' جعل شاشة الفورم بدون اطار
MyForm.FormBorderStyle = FormBorderStyle.None
' التحقق لتحديد الحد الاقصي للشفافية
If Transparent >= 1 Then Transparent = 1
' التحقق لتحديد الحد الادنى للشفافية
If Transparent <= 0.1 Then Transparent = 0.1
' قيمة الشفافية
MyForm.Opacity = Transparent.ToString("0.0")
MyForm.Visible = True
' اضافة كلاً من الادوات التى تم تكوينها بشاشة الفورم
MyForm.Controls.Add(msgText)
MyForm.Controls.Add(MyxButn)
' جعل شاشة الفورم بالاعلى
MyForm.TopMost = True
' اظهار شاشة الفورم / الرسالة
MyForm.Show()
' انشاء تعريفي لحدث الزر
AddHandler MyxButn.Click, AddressOf MyxButnCloseForm
' تحقق من لغظ نظام الجهاز عربي ام انه الانجليزية
If ArEn = "AR" OrElse ArEn = "ar" Then
' التحقق من طريقة ظهور شاشة الفورم / الرسالة
If BottomRight Then
' ظهور الرسالة من الاسفل الى الاعلى
x = 0
y = Screen.PrimaryScreen.WorkingArea.Height
Do Until y = Screen.PrimaryScreen.WorkingArea.Height - MyForm.Height
y = y - 1
MyForm.Location = New Point(x, y)
Loop
Else
' ظهور الرسالة من اليسار الى اليمين
x = 0 - MyForm.Width
y = Screen.PrimaryScreen.WorkingArea.Height - MyForm.Height
Do Until x = 0
x = x + 1
MyForm.Location = New Point(x, y)
Loop
End If
Else
' التحقق من طريقة ظهور شاشة الفورم / الرسالة
If BottomRight Then
' ظهور الرسالة من الاسفل الى الاعلى
x = Screen.PrimaryScreen.WorkingArea.Width - MyForm.Width
y = Screen.PrimaryScreen.WorkingArea.Height
Do Until y = Screen.PrimaryScreen.WorkingArea.Height - MyForm.Height
y = y - 1
MyForm.Location = New Point(x, y)
Loop
Else
' ظهور الرسالة من اليمين الى اليسار
x = Screen.PrimaryScreen.WorkingArea.Width
y = Screen.PrimaryScreen.WorkingArea.Height - MyForm.Height
Do Until x = Screen.PrimaryScreen.WorkingArea.Width - MyForm.Width
x = x - 1
MyForm.Location = New Point(x, y)
Loop
End If
End If
Return True
End Function
Private Sub MyxButnCloseForm(sender As Object, e As EventArgs)
' كود حدث زر الاغلاق
MyForm.Visible = False
MyForm.Close()
End Sub
End Classفقط قم بوضع الكود داخل اطار الـ Class
تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى
لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى
لكل من يقوم بالمساهمةفى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
