اذهب الي المحتوي
بحث مخصص من جوجل فى أوفيسنا
Custom Search

SEMO.Pa3x

الخبراء
  • Content Count

    190
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    3

SEMO.Pa3x last won the day on أبريل 18

SEMO.Pa3x had the most liked content!

السمعه بالموقع

93 Excellent

5 متابعين

عن العضو SEMO.Pa3x

  • الإسم الفعلي
    الإســم

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    Designer, Programmer
  • بلد الإقامة
    العراق
  • الإهتمامات
    التصميم والبرمجة

اخر الزوار

512 زياره للملف الشخصي
  1. السلام عليكم, لكثرة سؤال الاخوان حول موضوع الصلاحيات, تفضلو قمت بعمل مثال صغير لكم. Permissions.accdb
  2. نفس الكلام اخي, صممه على شكل Form العملية ابسط مما تتخيل.
  3. كيف ممكن نساعدك اذا كنا لا نملك جهاز البصمة؟؟
  4. Public Class CenteredComboBox Inherits ComboBox Sub New() Me.DrawMode = Windows.Forms.DrawMode.OwnerDrawFixed Me.DropDownStyle = ComboBoxStyle.DropDownList End Sub Private Sub CenteredComboBox_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles Me.DrawItem e.DrawBackground() Dim txt As String = "" If e.Index >= 0 Then txt = Me.Items(e.Index).ToString TextRenderer.DrawText(e.Graphics, txt, e.Font, e.Bounds, e.ForeColor, TextFormatFlags.HorizontalCenter) e.DrawFocusRectangle() End Sub End Class ضع الاكواد في كلاس واعمل كومبايل، وستظهر لك اداة كومبوبوكس جديدة قم بإستخدامها وستجد ان النص اصبح في الوسط بالتوفيق للجميع.
  5. عليكم السلام. شوف هالموضوع. https://www.sitepoint.com/using-an-access-database-with-php/ و
  6. ارفق لنا قاعدة البيانات لكي نتمكن من مساعدتك.
  7. عليكم السلام. طلبك ممكن وبكل بساطة. اولا: الطريقة الاولى بدون Windows API Dim cmgr As String cmgr = "مسار البرنامج الذي تريد تشغيله" 'مثال '‪cmgr = "C:\WINDOWS\system32\mspaint.exe" Call Shell(cmgr, vbMaximizedFocus) ثانياً: الطريقة الثانية بإستخدام Windows API بواسطة دالة ShellExecuteA Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, _ ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, _ ByVal lpDirectory As String, ByVal lpnShowCmd As Long) As Long Public Sub ShellEx(ByVal Path As String, Optional ByVal Parameters As String, Optional ByVal HideWindow As Boolean) If Dir(Path) > "" Then ShellExecute 0, "open", Path, Parameters, "", IIf(HideWindow, 0, 1) End If End Sub 'run executable ShellEx "c:\mytool.exe" 'open file with default app ShellEx "c:\someimage.jpg" 'open explorer window ShellEx "c:\" هذا شرح مفصل عنها https://www.vb-helper.com/howto_shellexecute.html
  8. Please note that Access 2010 64-bit requires SP1 or later. Access 2007 requires SP2 or later
  9. ملف غير مكتمل التحميل. اعد تحميله.
  10. عليكم السلام, يرجى مراجعة قوانين القسم قبل كتابة موضوع جديد. ممنوعات : تعرض المشاركة للالغاء الفوري 3. يفضل عدم طلب عمل برنامج فهذا المنتدي للتبادل العلمي و ليس للبحث عن البرامج الجاهزة ، و لكن ابدأ بالعمل و اطرح المشاكل التي تواجهك ( بعد البحث فى المنتدي منعا للتكرار ). و ما سبق طرحه من برامج يمكنك الوصول اليها باستخدام البحث ، و يفضل ألا تخصص مشاركة لهذا الغرض و إن كان ذلك متاح لكن ممنوع الالحاح فى ذلك .
  11. انقر على الحقل الذي يظهر به الرقم العشري. ثم اذهب الى نافذة الخصائص ثم الى حقل التنسيق واكتب به ##,#
×
×
  • اضف...