شريط ازارير التنقل بين السجلات

أولا نعرف BindingManagerBase

Dim T As BindingManagerBase

T = Me.BindingContext(DataSetName, "Table Name")

' للتنقل سجل للأمام

T.Position = T.Position + 1

' نعرف ليبل لإظهار المطلوب

lable1.Text = "السجل رقم " & T.Position + 1 & " من " & T.Count

والسلام عليكم

Label و 2 Buttons

او TextBox و 2 Buttons و لكن غير خصائص الTextBox الى ReadOnly

و ايضا في اي من الTextBox او الLabel اجعل الTextAlign يساوي Center

جزاك الله خير اخوي مقبل

بينما اجهز مثال تفاجأت بانك سبقتني ""No Problem "

طبعا يكون العرض في حدث TextChanged لل TextBox رقم الباركود مثلا

او يكون مكرر في حدث الكليك للازارير

الاول والاخير والتالي والسابق

وبالتوفيق