معلومة كل يوم

لأيقاف خاصية Auto Syntax Check وهي التي تظهر مثلا عند كتابة جملة IF ولم تكتمل تظهر نافذة توضح لك ان هناك خطأ في الكود

يمكن تجنب هذة النافذة عن طريق Tools > Options > Editor

ثم ازل العلامة من امام Auto Syntax Check

الان لن تزعجك هذة الرسالة وسيبقي الكود الذي بة خطاً ملون باللون الاحمر

معلومة جديدة ايضاً :)

مع اني افضل الرسائل في اسلوب التنبية

:)

اقتباس

بسم الله الرحمن الرحيم

هذا مثال لتكبير الفورم بكل ما يحتويه من ازرار وغير ذالك (برمجيا)

مع الكود سورس

منقول من مشاركة الاخ hichamchak

RESIZE FORM.rar

كود يجعل الفورم ياخذ مساحة الشاشه كامل ويعمل مع اي درجه للشاشه.. وكمان يخلي المحتويات من ازرار وما شابه في وسط الشاشه .. على شرط ان يكون داخل الفريم Frame .. في حالة المثال الموضح ادناه ..

Private Sub Form_Resize()
    Frame1.BorderStyle = vbBSNone
    Frame1.Move _
        (ScaleWidth - Frame1.Width) / 2, _
        (ScaleHeight - Frame1.Height) / 2
End Sub

ANSI كتب:

منقول من مشاركة الاخ hichamchak

←

شكرا لك اخي ANS

أضف خاصية MOUSE WHEEL الي محرر الكود الخاص بالفيجوال بيسك بهذا البرنامج بعد عمل الكومبيلر وشغلة عند تشغيل الفيجوال بيسك :rolleyes:

VB6_IDE_MOUSE _WHEEL.zip

لتقسيم سلسله نصية يمكن استخدام الدالة split

اضف 4 صندوق نص (textbox) و2 زر امر (commandbutton)

ضع الجملة التالية فى text1

hello*arab

و فى text3 اضف العلامة *

فى حادث زر الامر الاول كتب الكود

Text2.Text = Split(Text1.Text, Text3.Text)(0)

Text4.Text = Split(Text1.Text, Text3.Text)(1)

طبعا ده على اساس انى الجمله فيها فاصل واحد اللى هو * كل متزيد الفواه تعير الرقم اللى بين القوسين

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

وفى حدث الزر الثانى اكتب

text1.text=text2.text & text3.text &t ext4.text

معلش الشرح مش كويس لانى اول مرة اشرح فى منتدى فاى حد مش فاهم ممكن يقولى وانا اشرحوله تانى

او يراسلنى على الايميل

akramrt@yahoo.com

معلش طولت عليكم

ده كود تقدر تعمل الفورم حروف بس

<code>

Private Declare Function BeginPath Lib "gdi32" (ByVal hdc As Long) As Long

Private Declare Function EndPath Lib "gdi32" (ByVal hdc As Long) As Long

Private Declare Function PathToRegion Lib "gdi32" (ByVal hdc As Long) As Long

Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long

Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long

Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long

Private Sub Form_Click()

Unload Me

End Sub

Private Sub Form_Load()

Dim hRgn As Long

Const sText = "EAGLE3"

Me.FontName = "Andalus"

Me.FontSize = 55

Me.BackColor = vbBlue

BeginPath Me.hdc

TextOut Me.hdc, 0, 0, sText, Len(sText)

EndPath Me.hdc

hRgn = PathToRegion(Me.hdc)

SetWindowRgn Me.hWnd, hRgn, True

DeleteObject hRgn

End Sub

</code>

مشكور بس ممكن شرح للبرنامج