السلام عليكم....
معليش جتني ضروف اشغلتني شوي
المهم... لقد طورت المربع الى المرحلة الثانية..تونااااااااااااا
الشيء المهم فيه انني وضعت موديل تنسخه ثم تلصقه .... بالطبع الافضل ان تفهمه كاملاً....ثم تقوم بعمليات بسيطة لإنشاء المربعات....
ملاحظة /
هذا المربع وغيره غير عملي ومفيد حتى نصل الى DX .
خطوات الانشاء :
1-اضف موديل واكتب فيه
كود:
Option Explicit
Public Number As Integer
Public Sub box_shape(top As Long, left As Long, buttom As Long, right As Long, R As Integer, G As Integer, B As Integer)
Form1.Hide
Form1.Text1.top = top: Form1.Text1.left = left: Form1.Text1.Height = buttom: Form1.Text1.Width = right
Form1.Text1.BackColor = RGB(R, G, B)
Form1.Width = right - left
Form1.Height = buttom - top
Form1.Show
End Sub
Public Sub display(word As String, R As Integer, G As Integer, B As Integer)
Static txt_len As String
Static txt As String
Static p As Integer
Static txt_num As Integer
txt_len = Len(word)
If (txt_num < txt_len) Then
txt_num = txt_num + 1
txt = Mid(word, txt_num, 1)
Form1.Text1.Text = Form1.Text1.Text & txt
Else
If (p < 4) Then
p = p + 1
Form1.Text1.Text = Form1.Text1.Text & "."
Else
p = 0
txt_num = 0
txt = ""
Form1.Text1.Text = ""
Number = Number + 1
End If
End If
Form1.Text1.ForeColor = RGB(R, G, B)
End Sub
2- الان في الفورم :
اولاً : نحدد خصائص الفورم
مثال :
كود:
Private Sub Form_Load()
Call box_shape(0, -20, 2000, 4000, 20, 100, 20)
End Sub
من اليسار :
في الوسيطة الاولى ادخلنا "0" وهي تحدد أعلى المربع
في الوسيطة الثانية ادخلنا "20-" وهي تحدد يسار المريع
في الوسيطة الثالثة ادخلنا "2000" وهي تحدد طول المربع
في الوسطية الرابعة ادلخنا "4000" وهي تحدد عرض المربع
في الوسيطة الخامسة والسادسة والسابعة ثمل لون مربع الحوار بنظام RGB
ثانياً : نضع هذا الكود لتقليل وتسريع الكتابة
كود:
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 37: Timer1.Interval = 50
Case 39: Timer1.Interval = 200
End Select
End Sub
ثالثاً : الان داخل التايمر نكتب هذا الكود لعرض الكلمات التي نريدها بالعدد الذي نريده
كود:
Private Sub Timer1_Timer()
Select Case Number
Case 0
Call display(" مثال على مربع محادثات زي اللي في الار بي جي... اذا تبي تغير سرعة الكلام اضغط زر اليمين واذا تبي تنقص السرعة اضغط اليسار", 100, 20, 100)
Case 1
Call display(" برمجة يزيد الدليقان", 200, 20, 60)
Case 2
Call display(" البرمجة افكار ولن تستطيع البرمجة بالنظر الى الأمثلة... صدقني لازم تحاول تبرمج معتمداً على نفسك", 0, 50, 100)
Case 3
Call display(" فليس السؤال كيف أعمل كذا؟ ولاكن ما هو الكود لعملية كذا", 50, 0, 30)
Case 4
Timer1.Enabled = False ' لتوفير الذاكرة
End Select
End Sub
الوسيطة الاولى هي النص المراد اضهاره
بقية الوسائط(عددها ثلاث) لتحديد لون النص بنظام RGB .
في اخر حالة(Case) اجعلها لتوقيف التايمر كما فعلت في المثال وذلك لتوفير الذاكرة .