• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

ssayed111

اعضاء جدد
  • عدد المشاركات

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

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

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

0 عادي

عن ssayed111

  • الرتبة
    عضو جديد
  1.   السلام عليكم ورحمة الله وبركاتهارجو من الزملاء الكرام توضيح فكرة اضافة صفحة عند استخدام اداة PrintDocumentوكيفية تحديد صفحه معينه وتوجيه جزء من النص لها مثلا في حالة طباعة داتا جريد على اكثر من صفحهاحتاج مثلا طباعة عنوان في الصفحه الاولى وطباعة جمله للصفحه الثانيه او الأخيره مثلابصفه عامه افهم كيف اتعامل مع صفحه واحده من حيث الكتابه في موقع معين لكن عندما احتاج أكثر من صفحهفإنني لا افهم آليه عملها او التعامل معها برمجيالذا ارجو توضيح فكرة عملها بصفه عامة (من حيث طريقة وموقع اضافة e.HasMorePages = True )وخاصةمثلا عند الحاجه في التعامل مع مثل هذا الكود ( لا يهمني هذا الكود تحديدا بقدر احتياجي لفهم الفكرة) اذا احتاج اكثر من صفحه    Dim CellTopPos As Integer = PrintDocument1.PrinterSettings.DefaultPageSettings.Margins.Top For Row = 0 To DataGridView1.RowCount - 1 Dim CellLeftPos As Integer = PrintDocument1.PrinterSettings.DefaultPageSettings.Margins.Left For Cell = 0 To DataGridView1.ColumnCount - 1 Dim CellValue As String = DataGridView1.Rows(Row).Cells(Cell).Value.ToString() Dim CellWidth = DataGridView1.Rows(Row).Cells(Cell).Size.Width + 50 Dim CellHeight = DataGridView1.Rows(Row).Cells(Cell).Size.Height Dim Brush As New SolidBrush(Color.Black) e.Graphics.DrawString(CellValue, New Font("Century Gothic", 10), Brush, CellLeftPos, CellTopPos) e.Graphics.DrawRectangle(Pens.Black, CellLeftPos, CellTopPos, CellWidth, CellHeight) CellLeftPos += CellWidth Next CellTopPos += DataGridView1.Rows(Row).Cells(0).Size.Height  
  2. السلام عليكم ورحمة الله وبركاته الاعضاء الكرام كيف استطيع ان اسجل الصوت من الميك واشغل الصوت بنفس الوقت بحيث ما اتحدث به في الميك يخرج من سماعة الكمبيوتر وقت التحدث  لا احتاج لحفظ الصوت على الجهاز على هيئة ملف ويف او خلاقه اتمنى منكم المساعدة في ذلك من خلالvb.net
  3. السلام عليكم ورحمة الله وبركاته في المثال المرفق كود لطباعة الداتا جريد ارجو المساعدة على تطويره بحيث يطبع لون خلفية الصف او الخلية  print_dg.rar
  4. السلام عليكم ورحمة الله وبركاته لدي مشروع فيجوال 2013 واريد ان اصنع ملف تنصيب شامل النت فرام وورك وباقي ملفات البرنامج . في السابق كنت اعمل على فيجوال 2008 وكنت استطيع ان اصنع ملف تنصيب به شامل النت فرام وورك والكريستال ريبورت وخلافه اما في الاصدار الجديد لا يمكنني ذلك
  5. السلام عليكم ورحمة الله وبركاته جهاز العمل لدي به SQL Server2005        بينما جهازي الخاص به      SQL Server2012         وكثيرا ما تطرني الظروف لنقل قاعدة البيانات لجهازي لاستكمال بعض الاعمال تواجهني رسالة خطأ عند عمل attach فما الحل    
  6. السلام عليكم ورحمة الله وبركاته هل استطيع عمل محادثة فديوا او صوتيه بحيث ارسل ملف الصوت الى قاعدة البيانات ومنها يتسلمه الصرف الآخر وذلك بدون تقطيع خاصه على الشبكه الداخليه  
  7. السلام عليكم ::: اية رأيك تستخدم الداتا جريد وتعمل العمود الاول الاسماء والثاني من نوع زر وبذلك تتمكن من وضع الشرط حسب الاسم ان كانت الفكرة تناسبك انا مستعد لمساعدتك اما طلبك استخدم الخاصية text بمغنى Button1.text="محمد"
  8. السلام عليكم ورحمة الله وبركاته ارجوا من الاعضاء الكرام  شرح طريقة استخدام الاداة فى تنفيذ هذا الكود con.Close()   con.Open()   Dim dataset12 As New DataSet   Dim dataadap12 As New OleDbDataAdapter("select * from tab_duc where ID_main=" & ID_MAIN.Text & " ", con)         dataadap12.Fill(dataset12)   If dataset12.Tables(0).Rows.Count > 0 Then   For i = 0 To dataset12.Tables(0).Rows.Count - 1     DataGridView1.Rows.Add()   DataGridView1.Rows(i).Cells(0).Value = dataset12.Tables(0).Rows(i).Item("id")   DataGridView1.Rows(i).Cells(1).Value = dataset12.Tables(0).Rows(i).Item("k_duc") next end if
  9. ابحث عن داله استطيع بها معرفة ايام الشهر الهجري من تقويم ميكروسفت لاتمكن من عمل دالة لطرح التاريخ الهجري
  10. تعجز  الكلمات على شكرك فأـنت حللت لى مشكلة كبيرة كل ما استطيع قوله جزاك الله عني كل خير في الدنيا والآخرة  وبارك لك في علمك
  11.  السلام عليكم ورخمة الله وبركاته__ __ لدي سيرفر شبكة محليه به جدول فواتير هل من الممكت ان اجعل به حق تاريخ يأخذ من السيفر التاريخ الذي تم اضافة السجل او الفاتورة أقصد ان يقوم السيكوال سيرفر نفسه باضافة الحقل اتوماتيك وفت اضافة السجل كما في الترقيم التلقائي اما عن طريق الفجوال فلا استطيع من امنع المستخدم من التلاعب بتاريخ الجهاز (جهاز العميل) ومنع المستخدم من تغيير التاريخ غير عمليه دائما
  12. كيف يمكنني ان اعبئ عمود في الداتا جريد بجميع الصور في مجلد معين والعمود الآخر اسم الصورة ان امكن ولكم جزيل الشكر
  13. كيف استخدم هذا الكود

    ممكن لو تكرمت تعرفني ايه شكل الكود في حالة where   وازاي اقدر استدعيه
  14. كيف استخدم هذا الكود

    بارك الله فيك وجعله في ميزان حسناتك
  15. Public Sub FILLCOMBOBOXITEMS1(ByVal TABLE As String, ByVal FIELD As String, ByVal COMBO As Object)         On Error Resume Next         Dim I As Integer         Dim DS As New DataSet         Dim str As String = "SELECT DISTINCT " & FIELD & " FROM " & TABLE         Dim ADP As New SqlDataAdapter(str, con)         DS.Clear()         ADP.Fill(DS, "TBL")         COMBO.Items.Clear()         For I = 0 To DS.Tables("TBL").Rows.Count - 1             COMBO.Items.Add(DS.Tables("TBL").Rows(I).Item(0))         Next I         ADP.Dispose()     End Sub   الاعضاء الكرام لدي هذا الكود في الموديول ارجو منكم تفضلا توضيح كيف استخدمه في فورم لتعبئة combobox1 مثلا ولكم جزيل الشكر cod.txt