اذهب الي المحتوي
أوفيسنا

كيف تم عمل هذة القائمة قائمة السياق ( القائمة المختصرة - Shortcut menu )

jo_2010

بواسطه jo_2010
في قسم الأكسيس Access

 مشاركة
إذهب إلى أفضل إجابة Solved by ابو جودي,

الردود الموصى بها

jo_2010

jo_2010

قام بنشر
قام بنشر

الخبراء الافاضل

بعد التحية

وجدت هذا النموذج فى منتدنا الرائع منذ فترة ولا اعرف من صاحب هذة الفكرة لكن اود شرح كيف تم عملها وكيف ازيد او احذف من  هذة القائمة وكيف اطبقها فى برنامجى لكم الشكر

copy.mdb

رابط هذا التعليق
شارك
AlwaZeeR

AlwaZeeR

قام بنشر
قام بنشر

تم عملها برمجيا كاي قائمة مختصرة

لكن في القاعدة التي ارفقتها تم استيرادها بدون اوامر البرمجة الخاصة بها

يمكن اضافة وتعديل القائمة حسب الرغبة كالتالي: 

Sub CustomizeShortcutMenu()
    Dim cb As CommandBar
    Dim ctl As CommandBarControl

    ' الوصول إلى القائمة المختصرة الموجودة
    Set cb = Application.CommandBars("cop")

    ' إضافة عنصر جديد إلى القائمة المختصرة
    Set ctl = cb.Controls.Add(Type:=msoControlButton, Temporary:=True)
    With ctl
        .Caption = "New Menu Item"
        .OnAction = "MyCustomFunction"
    End With
End Sub

' دالة مخصصة
Sub MyCustomFunction()
    MsgBox "This is a custom function!"
End Sub

 

  • Like 2
رابط هذا التعليق
شارك
jo_2010

jo_2010

قام بنشر
  • الكاتب
قام بنشر
9 دقائق مضت, AlwaZeeR said:

تم عملها برمجيا كاي قائمة مختصرة

لكن في القاعدة التي ارفقتها تم استيرادها بدون اوامر البرمجة الخاصة بها

يمكن اضافة وتعديل القائمة حسب الرغبة كالتالي: 

Sub CustomizeShortcutMenu()
    Dim cb As CommandBar
    Dim ctl As CommandBarControl

    ' الوصول إلى القائمة المختصرة الموجودة
    Set cb = Application.CommandBars("cop")

    ' إضافة عنصر جديد إلى القائمة المختصرة
    Set ctl = cb.Controls.Add(Type:=msoControlButton, Temporary:=True)
    With ctl
        .Caption = "New Menu Item"
        .OnAction = "MyCustomFunction"
    End With
End Sub

' دالة مخصصة
Sub MyCustomFunction()
    MsgBox "This is a custom function!"
End Sub

 

لم تعثر على القائمة فى المرفق

والكود اللى حضرتك كتبتة كيف استفيد منة ممكن مرفق لو تكرمت 

وكيف اضيف للقائمة وكيف احدف منها  سامحنى على قلة خبرتى بالبرمجة وكيف استفد من المرفق السايق

رابط هذا التعليق
شارك
Foksh

Foksh

قام بنشر
قام بنشر

سأكشف لكم عن سر 👀

 

كنت قد بدأت منذ عدة أيام بإنشاء طريقة تساعد على عمل قوائم مختصرة للنماذج ، ولكنها أخذت مني وقتاً وجهداً كبيرين ، وتوقفت عند مرحلة إعادة تجميع الأفكار 😇

 

💡 قريباً النسخة الأولى 💡

  • Like 2
  • Thanks 1
  • Haha 1
رابط هذا التعليق
شارك
jo_2010

jo_2010

قام بنشر
  • الكاتب
قام بنشر
في 25‏/7‏/2024 at 15:09, ابو جودي said:

 

الخبير الفاضل برجاء المساعدة فى طلبى التحكم فى الاوامر واضافة الفواصل بين كل مجموعة اوامر

حاولت تعديل الاسماء الى عربى فى الوحدة النمطية وحاولت ازالة النقاط ووضع فواصل بين كل امر واخر ولم انجح كيف استطيع التحكم الكامل فى القائمة   لك خالص الشكر 

 

Untitled.png

myRight_Click.mdb

  • Thanks 1
رابط هذا التعليق
شارك
ابو جودي

ابو جودي

قام بنشر
قام بنشر
2 ساعات مضت, jo_2010 said:

التحكم فى الاوامر واضافة الفواصل

اتفضل يا استاذ يوسف :fff: :wink2: 

Option Compare Database
Option Explicit

' Constants for button states and control types
Public Const BUTTON_STATE_DOWN As Integer = -1
    ' BUTTON_STATE_DOWN: Represents the state where a button is pressed down or activated.
    ' Used to indicate that a button is in the pressed state.

Public Const BUTTON_STATE_UP As Integer = 0
    ' BUTTON_STATE_UP: Represents the state where a button is in its normal (not pressed) state.
    ' Used to indicate that a button is not pressed or activated.

Public Const CONTROL_TYPE_BUTTON As Integer = 1
    ' CONTROL_TYPE_BUTTON: Represents a button control type in a command bar or menu.
    ' Used to add buttons to a command bar or menu.

Public Const CONTROL_TYPE_EDIT As Integer = 2
    ' CONTROL_TYPE_EDIT: Represents an edit control type, such as a text box.
    ' Typically used to add an editable text field to a command bar or menu.

Public Const CONTROL_TYPE_COMBOBOX As Integer = 4
    ' CONTROL_TYPE_COMBOBOX: Represents a combo box control type in a command bar or menu.
    ' A combo box allows users to select from a list of options or enter a custom value.

Public Const CONTROL_TYPE_POPUP As Integer = 5
    ' CONTROL_TYPE_POPUP: Represents a popup menu or sub-menu control type.
    ' Used to create a dropdown menu or context menu in a command bar.

Public Const BAR_TYPE_POPUP As Integer = 5
    ' BAR_TYPE_POPUP: Represents a popup menu bar type.
    ' Used to create a new command bar that behaves as a popup menu (i.e., appears on right-click or when invoked).

' Variables for CommandBar and Controls
Public commandBar As Object ' Represents the custom command bar (popup menu)
Public commandButton As Object ' Represents each button/control added to the command bar
Public commandBarName As String ' Name of the custom command bar

' Subroutine to create and configure the custom command bar
Public Sub CreateCustomCommandBar()
    ' Ignore errors during creation or deletion of the command bar
    On Error Resume Next

    ' Define the name of the custom command bar
    commandBarName = "cmb_CustomMenu" ' Name of the custom command bar

    ' Delete the existing command bar with the same name, if any
    CommandBars(commandBarName).Delete
    If Err.Number <> 0 Then Err.Clear
    
    ' Add a new command bar (popup menu) with the specified name
    Set commandBar = CommandBars.Add(commandBarName, BAR_TYPE_POPUP, False, False)
    
    With commandBar
        ' Add Cut button
        Set commandButton = .Controls.Add(CONTROL_TYPE_BUTTON, 21, , , False)
        commandButton.Caption = "قص" ' Button caption
        commandButton.FaceId = 21 ' Icon for the Cut button
        
        ' Add Copy button
        Set commandButton = .Controls.Add(CONTROL_TYPE_BUTTON, 19, , , False)
        commandButton.BeginGroup = False ' Ensure items are grouped properly
        commandButton.Caption = "نسخ" ' Button caption
        commandButton.FaceId = 19 ' Icon for the Copy button
        
        ' Add Paste button
        Set commandButton = .Controls.Add(CONTROL_TYPE_BUTTON, 22, , , False)
        commandButton.BeginGroup = False ' Ensure items are grouped properly
        commandButton.Caption = "لصق" ' Button caption
        commandButton.FaceId = 22 ' Icon for the Paste button
        
        ' Add Sort Ascending button
        Set commandButton = .Controls.Add(CONTROL_TYPE_BUTTON, 210, , , False)
        commandButton.BeginGroup = True ' Start a new group for sorting buttons
        commandButton.Caption = "ترتيب تصاعدي" ' Button caption
        commandButton.FaceId = 210 ' Icon for the Sort Ascending button
        
        ' Add Sort Descending button
        Set commandButton = .Controls.Add(CONTROL_TYPE_BUTTON, 211, , , False)
        commandButton.BeginGroup = True ' Start a new group for sorting buttons
        commandButton.Caption = "ترتيب تنازلي" ' Button caption
        commandButton.FaceId = 211 ' Icon for the Sort Descending button
        
        ' Add Close Form/Report button
        Set commandButton = .Controls.Add(CONTROL_TYPE_BUTTON, 923, , , False) ' Updated to False
        commandButton.BeginGroup = True ' Start a new group
        commandButton.Caption = "إغلاق" ' Button caption
        commandButton.OnAction = "CloseCurrentItem" ' Call the CloseCurrentItem subroutine
        
    End With

    ' Clean up
    Set commandBar = Nothing
    Set commandButton = Nothing
End Sub

' Subroutine to close the currently active form or report
Public Sub CloseCurrentItem()
    ' Ignore errors if no form or report is open
'    On Error Resume Next
    
    Dim obj As Object
    
    ' Close the active form if it exists
    For Each obj In Forms
        If obj.Name = Screen.ActiveForm.Name Then
            DoCmd.Close acForm, obj.Name
            Exit Sub
        End If
    Next obj
    
    ' Close the active report if it exists
    For Each obj In Reports
        If obj.Name = Screen.ActiveReport.Name Then
            DoCmd.Close acReport, obj.Name
            Exit Sub
        End If
    Next obj
    
    ' If no form or report is active, show a message
    MsgBox "There is no active form or report to close.", vbExclamation
    
    ' Clean up
    Err.Clear
End Sub


 

 بخصوص الفاصل  غير القيمة البولينية من false  الى true  فقط فى السطر الذى تريده لعمل الفاصل بين الاوامر فى قائمة السياق 

commandButton.BeginGroup = False ' Group items under this button

 


من محرر الاوامر للمرة الاولى اعمل  Run  للدالة : CreateCustomCommandBar

وفى النموذج خلى ShortcutMenuBar =  cmb_CustomMenu

 

 

  • Like 1
رابط هذا التعليق
شارك
ابو جودي

ابو جودي

قام بنشر
قام بنشر

ملحوظة انا اضفت كود الى قائمة السياق لاغلاق ايا كان تقرير او نموذج :wink2:

وذلك لاضفاء المرونة التامة لاستخدام نفس قائمة السياق ان اردنا مع اى نموذج او تقرير دون كتابة العديد من الاكواد 

امممممم

طبعا نصيحتى الذهبية انا قدمت اليك الكود مستخدما الاحرف العربية داخل المحرر وهذا ما لا احبذه

انصحك وان اردت استخدام اللغة العربية تحويلها من خلال التطبيق التالى 
وبذلك تكون الاكواد بالطربقة المثلى داخل الموديول بالشكل التالى 
  

Option Compare Database
Option Explicit

' Constants for button states and control types
Public Const BUTTON_STATE_DOWN As Integer = -1
    ' BUTTON_STATE_DOWN: Represents the state where a button is pressed down or activated.
    ' Used to indicate that a button is in the pressed state.

Public Const BUTTON_STATE_UP As Integer = 0
    ' BUTTON_STATE_UP: Represents the state where a button is in its normal (not pressed) state.
    ' Used to indicate that a button is not pressed or activated.

Public Const CONTROL_TYPE_BUTTON As Integer = 1
    ' CONTROL_TYPE_BUTTON: Represents a button control type in a command bar or menu.
    ' Used to add buttons to a command bar or menu.

Public Const CONTROL_TYPE_EDIT As Integer = 2
    ' CONTROL_TYPE_EDIT: Represents an edit control type, such as a text box.
    ' Typically used to add an editable text field to a command bar or menu.

Public Const CONTROL_TYPE_COMBOBOX As Integer = 4
    ' CONTROL_TYPE_COMBOBOX: Represents a combo box control type in a command bar or menu.
    ' A combo box allows users to select from a list of options or enter a custom value.

Public Const CONTROL_TYPE_POPUP As Integer = 5
    ' CONTROL_TYPE_POPUP: Represents a popup menu or sub-menu control type.
    ' Used to create a dropdown menu or context menu in a command bar.

Public Const BAR_TYPE_POPUP As Integer = 5
    ' BAR_TYPE_POPUP: Represents a popup menu bar type.
    ' Used to create a new command bar that behaves as a popup menu (i.e., appears on right-click or when invoked).

' Variables for CommandBar and Controls
Public commandBar As Object ' Represents the custom command bar (popup menu)
Public commandButton As Object ' Represents each button/control added to the command bar
Public commandBarName As String ' Name of the custom command bar

' Subroutine to create and configure the custom command bar
Public Sub CreateCustomCommandBar()
    ' Ignore errors during creation or deletion of the command bar
    On Error Resume Next

    ' Define the name of the custom command bar
    commandBarName = "cmb_CustomMenu" ' Name of the custom command bar

    ' Delete the existing command bar with the same name, if any
    CommandBars(commandBarName).Delete
    If Err.Number <> 0 Then Err.Clear
    
    ' Add a new command bar (popup menu) with the specified name
    Set commandBar = CommandBars.Add(commandBarName, BAR_TYPE_POPUP, False, False)
    
    With commandBar
        ' Add Cut button
        Set commandButton = .Controls.Add(CONTROL_TYPE_BUTTON, 21, , , False)
        ' Button caption >>--> Cut
        commandButton.Caption = ChrW(1602) & ChrW(1589)
        commandButton.FaceId = 21 ' Icon for the Cut button
        
        ' Add Copy button
        Set commandButton = .Controls.Add(CONTROL_TYPE_BUTTON, 19, , , False)
        commandButton.BeginGroup = False ' Ensure items are grouped properly
        ' Button caption >>--> Copy
        commandButton.Caption = ChrW(1606) & ChrW(1587) & ChrW(1582)
        commandButton.FaceId = 19 ' Icon for the Copy button
        
        ' Add Paste button
        Set commandButton = .Controls.Add(CONTROL_TYPE_BUTTON, 22, , , False)
        commandButton.BeginGroup = False ' Ensure items are grouped properly
        ' Button caption >>--> Paste
        commandButton.Caption = ChrW(1604) & ChrW(1589) & ChrW(1602)
        commandButton.FaceId = 22 ' Icon for the Paste button
        
        ' Add Sort Ascending button
        Set commandButton = .Controls.Add(CONTROL_TYPE_BUTTON, 210, , , False)
        commandButton.BeginGroup = True ' Start a new group for sorting buttons
        ' Button caption >>--> Sort Ascending
        commandButton.Caption = ChrW(1578) & ChrW(1585) & ChrW(1578) & ChrW(1610) & ChrW(1576) & ChrW(32) & ChrW(1578) & ChrW(1589) & ChrW(1575) & ChrW(1593) & ChrW(1583) & ChrW(1610)
        commandButton.FaceId = 210 ' Icon for the Sort Ascending button
        
        ' Add Sort Descending button
        Set commandButton = .Controls.Add(CONTROL_TYPE_BUTTON, 211, , , False)
        commandButton.BeginGroup = True ' Start a new group for sorting buttons
        ' Button caption >>--> Sort Descending
        commandButton.Caption = ChrW(1578) & ChrW(1585) & ChrW(1578) & ChrW(1610) & ChrW(1576) & ChrW(32) & ChrW(1578) & ChrW(1606) & ChrW(1575) & ChrW(1586) & ChrW(1604) & ChrW(1610)
        commandButton.FaceId = 211 ' Icon for the Sort Descending button
        
        ' Add Close Form/Report button
        Set commandButton = .Controls.Add(CONTROL_TYPE_BUTTON, 923, , , False) ' Updated to False
        commandButton.BeginGroup = True ' Start a new group
        ' Button caption >>--> Close
        commandButton.Caption = ChrW(1573) & ChrW(1594) & ChrW(1604) & ChrW(1575) & ChrW(1602)
        commandButton.OnAction = "CloseCurrentItem" ' Call the CloseCurrentItem subroutine
        
    End With

    ' Clean up
    Set commandBar = Nothing
    Set commandButton = Nothing
End Sub

' Subroutine to close the currently active form or report
Public Sub CloseCurrentItem()
    ' Ignore errors if no form or report is open
'    On Error Resume Next
    
    Dim obj As Object
    
    ' Close the active form if it exists
    For Each obj In Forms
        If obj.Name = Screen.ActiveForm.Name Then
            DoCmd.Close acForm, obj.Name
            Exit Sub
        End If
    Next obj
    
    ' Close the active report if it exists
    For Each obj In Reports
        If obj.Name = Screen.ActiveReport.Name Then
            DoCmd.Close acReport, obj.Name
            Exit Sub
        End If
    Next obj
    
    ' If no form or report is active, show a message
    MsgBox "There is no active form or report to close.", vbExclamation
    
    ' Clean up
    Err.Clear
End Sub

 

Converter Arabic and Unicode (v. 3).accdb

  • Like 1
رابط هذا التعليق
شارك
jo_2010

jo_2010

قام بنشر
  • الكاتب
قام بنشر
2 ساعات مضت, ابو جودي said:

اتفضل يا استاذ يوسف :fff: :wink2: 

Option Compare Database
Option Explicit

' Constants for button states and control types
Public Const BUTTON_STATE_DOWN As Integer = -1
    ' BUTTON_STATE_DOWN: Represents the state where a button is pressed down or activated.
    ' Used to indicate that a button is in the pressed state.

Public Const BUTTON_STATE_UP As Integer = 0
    ' BUTTON_STATE_UP: Represents the state where a button is in its normal (not pressed) state.
    ' Used to indicate that a button is not pressed or activated.

Public Const CONTROL_TYPE_BUTTON As Integer = 1
    ' CONTROL_TYPE_BUTTON: Represents a button control type in a command bar or menu.
    ' Used to add buttons to a command bar or menu.

Public Const CONTROL_TYPE_EDIT As Integer = 2
    ' CONTROL_TYPE_EDIT: Represents an edit control type, such as a text box.
    ' Typically used to add an editable text field to a command bar or menu.

Public Const CONTROL_TYPE_COMBOBOX As Integer = 4
    ' CONTROL_TYPE_COMBOBOX: Represents a combo box control type in a command bar or menu.
    ' A combo box allows users to select from a list of options or enter a custom value.

Public Const CONTROL_TYPE_POPUP As Integer = 5
    ' CONTROL_TYPE_POPUP: Represents a popup menu or sub-menu control type.
    ' Used to create a dropdown menu or context menu in a command bar.

Public Const BAR_TYPE_POPUP As Integer = 5
    ' BAR_TYPE_POPUP: Represents a popup menu bar type.
    ' Used to create a new command bar that behaves as a popup menu (i.e., appears on right-click or when invoked).

' Variables for CommandBar and Controls
Public commandBar As Object ' Represents the custom command bar (popup menu)
Public commandButton As Object ' Represents each button/control added to the command bar
Public commandBarName As String ' Name of the custom command bar

' Subroutine to create and configure the custom command bar
Public Sub CreateCustomCommandBar()
    ' Ignore errors during creation or deletion of the command bar
    On Error Resume Next

    ' Define the name of the custom command bar
    commandBarName = "cmb_CustomMenu" ' Name of the custom command bar

    ' Delete the existing command bar with the same name, if any
    CommandBars(commandBarName).Delete
    If Err.Number <> 0 Then Err.Clear
    
    ' Add a new command bar (popup menu) with the specified name
    Set commandBar = CommandBars.Add(commandBarName, BAR_TYPE_POPUP, False, False)
    
    With commandBar
        ' Add Cut button
        Set commandButton = .Controls.Add(CONTROL_TYPE_BUTTON, 21, , , False)
        commandButton.Caption = "قص" ' Button caption
        commandButton.FaceId = 21 ' Icon for the Cut button
        
        ' Add Copy button
        Set commandButton = .Controls.Add(CONTROL_TYPE_BUTTON, 19, , , False)
        commandButton.BeginGroup = False ' Ensure items are grouped properly
        commandButton.Caption = "نسخ" ' Button caption
        commandButton.FaceId = 19 ' Icon for the Copy button
        
        ' Add Paste button
        Set commandButton = .Controls.Add(CONTROL_TYPE_BUTTON, 22, , , False)
        commandButton.BeginGroup = False ' Ensure items are grouped properly
        commandButton.Caption = "لصق" ' Button caption
        commandButton.FaceId = 22 ' Icon for the Paste button
        
        ' Add Sort Ascending button
        Set commandButton = .Controls.Add(CONTROL_TYPE_BUTTON, 210, , , False)
        commandButton.BeginGroup = True ' Start a new group for sorting buttons
        commandButton.Caption = "ترتيب تصاعدي" ' Button caption
        commandButton.FaceId = 210 ' Icon for the Sort Ascending button
        
        ' Add Sort Descending button
        Set commandButton = .Controls.Add(CONTROL_TYPE_BUTTON, 211, , , False)
        commandButton.BeginGroup = True ' Start a new group for sorting buttons
        commandButton.Caption = "ترتيب تنازلي" ' Button caption
        commandButton.FaceId = 211 ' Icon for the Sort Descending button
        
        ' Add Close Form/Report button
        Set commandButton = .Controls.Add(CONTROL_TYPE_BUTTON, 923, , , False) ' Updated to False
        commandButton.BeginGroup = True ' Start a new group
        commandButton.Caption = "إغلاق" ' Button caption
        commandButton.OnAction = "CloseCurrentItem" ' Call the CloseCurrentItem subroutine
        
    End With

    ' Clean up
    Set commandBar = Nothing
    Set commandButton = Nothing
End Sub

' Subroutine to close the currently active form or report
Public Sub CloseCurrentItem()
    ' Ignore errors if no form or report is open
'    On Error Resume Next
    
    Dim obj As Object
    
    ' Close the active form if it exists
    For Each obj In Forms
        If obj.Name = Screen.ActiveForm.Name Then
            DoCmd.Close acForm, obj.Name
            Exit Sub
        End If
    Next obj
    
    ' Close the active report if it exists
    For Each obj In Reports
        If obj.Name = Screen.ActiveReport.Name Then
            DoCmd.Close acReport, obj.Name
            Exit Sub
        End If
    Next obj
    
    ' If no form or report is active, show a message
    MsgBox "There is no active form or report to close.", vbExclamation
    
    ' Clean up
    Err.Clear
End Sub


 

 بخصوص الفاصل  غير القيمة البولينية من false  الى true  فقط فى السطر الذى تريده لعمل الفاصل بين الاوامر فى قائمة السياق 

commandButton.BeginGroup = False ' Group items under this button

 


من محرر الاوامر للمرة الاولى اعمل  Run  للدالة : CreateCustomCommandBar

وفى النموذج خلى ShortcutMenuBar =  cmb_CustomMenu

 

 

معلمى الفاضل

سامحنى على جهلى وقلة خبرتى عملت مديول جديد واضفت فية كود حضرتك

ولكن مف الاسف لم تظهر القائمة اليك القاعدة للتعديل عليها

Untitled.png

myRight_Click.mdb

رابط هذا التعليق
شارك
ابو جودي

ابو جودي

قام بنشر
قام بنشر
13 ساعات مضت, ابو جودي said:

من محرر الاوامر للمرة الاولى اعمل  Run  للدالة : CreateCustomCommandBar

انت يا صديقى لم تفعل الخطوة السابقة
انتظر انا اقوم بعمل فكرة تتخطى هذه المشكلة لو تمت سوف اوافيكم بها
الفكره  سوف تقوم هى بطريقة الية بعمل كل شئ دون اى تدخل من المستخدم

رابط هذا التعليق
شارك
  • أفضل إجابة
ابو جودي

ابو جودي

قام بنشر
  • أفضل إجابة
قام بنشر
في 25‏/7‏/2024 at 15:08, Foksh said:

سأكشف لكم عن سر 👀

منتظر بلهفة مشتاق

في 25‏/7‏/2024 at 15:08, Foksh said:

كنت قد بدأت منذ عدة أيام بإنشاء طريقة تساعد على عمل قوائم مختصرة للنماذج ، ولكنها أخذت مني وقتاً وجهداً كبيرين ، وتوقفت عند مرحلة إعادة تجميع الأفكار 😇

💡 قريباً النسخة الأولى 💡

ربما اكون  لك داعما فى تجميع الافكار اهديكم بنات افكارى فى المشاركة التالية التى سوف انوه عنها لاحقا فى نهاية هذه المشاركة:fff:

 

وانت يا استاذ يوسف 

15 ساعات مضت, jo_2010 said:

لكن مف الاسف لم تظهر القائمة اليك

اليك الحل من وجهة نظرى المتواضعة ليسهل نقل الاكواد الى اى قاعدة

تقريبا جمعت كل الاكواد الممكنة فى موديول واحد وانظر بنفسك الى المرفق فى : 

المشاركة الآتية من هنا

 

افدم اعتذارى لفتح موضوع جديد ليكون شامل وواف بالشرح ليكون اثراء ومرجعا يسهل العثور عليه

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك
  • ابو جودي changed the title to كيف تم عمل هذة القائمة قائمة السياق ( القائمة المختصرة - Shortcut menu )
ابو جودي

ابو جودي

قام بنشر
قام بنشر
في 28‏/7‏/2024 at 19:36, jo_2010 said:

ولكن مف الاسف لم تظهر القائمة اليك القاعدة للتعديل عليها

يعنى ع الاقل رد تقول الدنيا تمام واللا لاء

رابط هذا التعليق
شارك
jo_2010

jo_2010

قام بنشر
  • الكاتب
قام بنشر
17 ساعات مضت, ابو جودي said:

يعنى ع الاقل رد تقول الدنيا تمام واللا لاء

استاذى الفاضل انا اخترت حضرتك كافضل اجابة 

رابط هذا التعليق
شارك
ابو جودي

ابو جودي

قام بنشر
قام بنشر
3 ساعات مضت, jo_2010 said:

انا اخترت حضرتك كافضل اجابة

انا مش فارق عندى اختيار افضل اجابة من عدمها 

انا اللى فارق عندى الموضوع سهل بالنسبة لك والافكار وصلت لك وفهمت الاكواد وكل شئ تمام معاك ؟؟؟
انا عارف ان انت من الناس اللى بتبحث عن المعلومات وتحب تتعلم مش من الناس اللى مجرد عندهم مشكلة تريد حلها وخلاص 

رابط هذا التعليق
شارك
jo_2010

jo_2010

قام بنشر
  • الكاتب
قام بنشر
في 1‏/8‏/2024 at 12:53, ابو جودي said:

انا مش فارق عندى اختيار افضل اجابة من عدمها 

انا اللى فارق عندى الموضوع سهل بالنسبة لك والافكار وصلت لك وفهمت الاكواد وكل شئ تمام معاك ؟؟؟
انا عارف ان انت من الناس اللى بتبحث عن المعلومات وتحب تتعلم مش من الناس اللى مجرد عندهم مشكلة تريد حلها وخلاص 

شكرا لحضرتك 

وشكرا لكلامك عنى اللي يعتبرة وسام على صدر ى 

خالص الشكر لحضرتك

انت عامل زي الدكتور اللي بيكتب العلاج

ومش بيكتفى بهذا لكنة يتابع حالة المريض اتحسنت علي العلاج اللي كتبة ولا لا شكرا لك

  • Thanks 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 مشاركة
الذهاب الي قائمه المواضيع

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information

  I accept