درس توليد عنصر Textمن عنصر Text آخر

السلام عليكم ورحمة الله وبركاته

أسعد الله أوقاتكم بكل خير

ها أنا أعود إليكم من جديد حاملا في جعبتي موضع درس مهم جدا خاصة لمصممي برامج المحاسبة ...

هذا الدرس هو عبارة عن كيفية توليد عنصر Text من عنصر Text آخر وهذا الطريقة مهمة في عمل الفواتير وادراج مخزون أو مصروفات .

ونبدأ بسم الله هذا الدرس :

أولا الطلبات:

موضحة في الصور التالية

ثانياً : قم يلصق هذه الاكواد كما هي :

'-------------------- توضع في Genral --------------------
Dim I As Integer 'For Counter The Loaded Object
Dim No As Integer 'No Of Clicks Of Scroll For One Object Loaded
Dim Space As Integer 'Space Between Object Loaded
Dim Stp As Integer 'For Top Of First Object Loaded
Dim L As Integer 'Indicator For Max And Min

'---------------------------------------------------
Private Sub Command1_Click()

No = 50
Space = 5
Stp = 285
I = I + 1
Load Text1(I)
Load Text3(I)
Load Text4(I)
Load Text2(I)
Text1(I).Move Text1(I - 1).Left, Text1(I - 1).Top + Text1(I - 1).Height + Space
Text3(I).Move Text3(I - 1).Left, Text3(I - 1).Top + Text3(I - 1).Height + Space
Text4(I).Move Text4(I - 1).Left, Text4(I - 1).Top + Text4(I - 1).Height + Space
Text2(I).Move Text2(I - 1).Left, Text2(I - 1).Top + Text2(I - 1).Height + Space
If Text1(I).Top + Text1(I - 1).Height + 120 < Picture1.Top + Picture1.Height Then
If Text3(I).Top + Text3(I - 1).Height + 120 < Picture1.Top + Picture1.Height Then
If Text4(I).Top + Text4(I - 1).Height + 120 < Picture1.Top + Picture1.Height Then
If Text2(I).Top + Text2(I - 1).Height + 120 < Picture1.Top + Picture1.Height Then
VScroll1.Min = (I + 1) * No
VScroll1.Max = (I + 1) * No
VScroll1.LargeChange = (I + 1) * No
Else
If VScroll1.Max < 1000000 Then VScroll1.Max = (I + 1) * No: L = -1
If VScroll1.Min < 1000000 And VScroll1.Max > 500000 Then VScroll1.Min = (I + 1) * No: L = 1
End If
Text1(I).Visible = True
Text3(I).Visible = True
Text4(I).Visible = True
Text2(I).Visible = True
'------------- ممكن أن تحذف الكود التالي وهو لترقيم الحقول -------------------
Text1(I).Text = I
Text3(I).Text = I
Text4(I).Text = I
Text2(I).Text = I
'---------------------- إلى هنا ---------------------------------
End If
End If
End If
End Sub



Private Sub Form_Load()
VScroll1.Max = VScroll1.Min
End Sub

Private Sub VScroll1_Change()
Call SCL
End Sub

Private Sub VScroll1_Scroll()
Call SCL
End Sub

Private Sub SCL()
Text1(0).Top = ((VScroll1.Visible - VScroll1.Max) / No) * (Text1(0).Height + Space) * L + Stp
Call MVE
End Sub
Private Sub MVE()
For X = 1 To I
Text1(X).Move Text1(X - 1).Left, Text1(X - 1).Top + Text1(X - 1).Height + Space
Next X
End Sub

أرجو ان أكون قد أفدتكم في هذا الدرس والسلام عليكم

أخوكم .::. AzzD .::.