عرض مشاركة واحدة
  #4  
قديم 13-02-2012, 10:23 PM
tomjerry741 tomjerry741 غير متواجد حالياً
موقوف
 
تاريخ التسجيل: Sep 2010
العمر: 40
المشاركات: 431
معدل تقييم المستوى: 0
tomjerry741 is on a distinguished road
Icon113

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

اضغط على الصورة للتكبير






--------------------------------------------





-----------------------------------------





--------------------------------------


10-





---------------------------------.




11-









--------------------------------------------










---------------------------------------------------

.


12-






--------------------------------------------


13-

------------------------------------

14-
والان دعونا نضع كود برمجى مثلا

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

ستجد اول سطر مكتوب هو

Public Class Form1
كل ما عليك الان هو ان تنسخ هذا الكود وتضعه اعلى السطر السابق

Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Drawing
Imports System.IO
Imports System.Runtime.CompilerServices
Imports System.Security.Cryptography
Imports System.Text
Imports Microsoft.VisualBasic
Imports Microsoft.VisualBasic.CompilerServices
Imports System.Windows.Forms
كما سترى بالصورة التالية ولكننى افضل ان تقوم انت بكتابه الكود يدويا بالكيبورد حتى لا تحدث الاخطاء
كما سترى الان بالصورة التالية
Imports System
اضغط للتكبير


ساقوم بشرح الكود لاحقا

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

عقب كل تغيير فى البرمجة == عليك بحفظ المشورع او الضغط على زر اف 5 التالى F5 من لوحة المفاتيح


-------------------------------------------------


15-

نعود الى نافذة التصميم "gui" الاسااسية بالتصميم ونضغط على الزر الاول والذى غيرنا اسمه الى كلمة سكان

ونضغط علية دبل كليك بالماوس ثم فى نافذة البرمجة نضيف هذا الكود

ListBox1.Items.Clear()
ListBox2.Items.Clear()
TabControl1.SelectTab(1)
Try
For Each strDir As String In
System.IO.Directory.GetDirectories(FolderBrowserDi alog1.SelectedPath)
FolderBrowserDialog1.ShowDialog()
For Each strFile As String In System.IO.Directory.GetFiles(strDir)

ListBox1.Items.Add(strFile)

Next

Next
Catch ex As Exception
End Try

Timer1.Start()
كما سترى -- اضغط الصورة للتكبير واكتب الكود يدويا


سلام مؤقت الان سوف انام الان -- ونكمل فى وقت لاحق
-----------------------


16-
رد مع اقتباس