طريقه وضع زر الاشتراك في اليوتيوب في مدونتك
السلام عليكم ورحمه الله وبركاته
عزيزي القارئ ،، سنتعلم في هذا الدرس إضافة مربع الإشتراك في القناة إلى مدونتك وبذلك لا يضطر الزائر أن يغادر مدونتك للاشتراك في القناة بل يمكنه ذلك وبكل سهولة من خلال مدونتك وبضغطة زر واحدة.
إليك الطريقة:
من لوحة التحكم ----- التخطيط ----- اضافة اداة --------- تختار html/java script
ثم تضع هذا الكود
<script src="https://apis.google.com/js/plusone.js"></script>
<div class="g-ytsubscribe" data-channelid="YsOVoRs_cqdpp6kIY9orEg" data-layout="full"></div>
<div class="g-ytsubscribe" data-channelid="YsOVoRs_cqdpp6kIY9orEg" data-layout="full"></div>
ولاتنسي ان تغير هذا الجزء YsOVoRs_cqdpp6kIY9orEg الي اسم المستخدم الخاص بك
ويمكنك الحصول علي اسم المستخدم من هنـــا
وفقكم الله
التنقل بين السجلات في الجدول
السلام عليكم ورحمه الله وبركاته
لذلك سنشرح طريقه الانتقال من خلال رقم السجل في الداتا تيبل
الفكره بأختصار سنقوم بعمل متغير عام من النوع الرقمي Integer وسنضع به رقم السجل الحالي وبهذا نستطيع التنقل بين السجلات من خلال رقم السجل الحالي .
ربما تقول الان لماذا لا نعتمد علي طرق مباشره للتنقل بين السجلات ؟؟
بكل بساطه سأجيب عليك اهم شئ لتصبح مبرمج هو ان يكون لديك افكار مختلفه لتنفيذ الكود وليس روتين في تكرار الاكود
واعتقد ان هذه الفكره ستفيدك في استخدامها في اشياء اخري ..
نبدأ بتنفيذ الكود:
سنقوم بأضافه اربع Button (الاول - التالي - السابق - الاخير )
واداه Label لنكتب بها رقم السجل
نقوم بالتصريح عن متغير عام في الفورم
Dim x As Integer = 0
حتي نسهل علي انفسنا سنقوم بعمل اجراء واحد لنستخدمه مع جميع ازرار الانتقال
Private Sub rowSelection() If DataGridView1.RowCount = 0 Then Label4.Text = "0 of 0 " : Exit Sub With DataGridView1 ' الغاء التحديد في الجريد .ClearSelection() 'تحديد السجل حسب الرقم .Rows(x).Selected = True 'التركيز (الانتقال) الي السجل المعروض .FirstDisplayedScrollingRowIndex = x TextBox1.Text = .Rows(x).Cells(0).Value.ToString TextBox2.Text = .Rows(x).Cells(1).Value.ToString TextBox3.Text = .Rows(x).Cells(2).Value.ToString Label4.Text = x + 1 & " of " & dt.Rows.Count End With End Sub
كود السجل الاول
x = 0 rowSelection()
كود السجل السابق
If x > 0 Then x -= 1 rowSelection() End If
كود السجل التالي
If x < dt.Rows.Count - 1 Then x += 1 rowSelection() End If
كود السجل الاخير
x = dt.Rows.Count - 1 rowSelection()
واخير نضيف هذه السطر في اخر الاجراء Loadgrid حتي تتحدث ارقام السجلات مع عمليات الاضافه والحذف
rowSelection()
وبهذا نكون تعلمنا طريقه التنقل بين السجلات
لتحميل المثال اضغط هـــنـا