Ala2 VB

بسم الله الرحمن الرحيم السلام عليكم إخواني , وأخواتي ... وبعد هذا أول موضوع ثقيل لي , فأرجو إنه بإذن الله ينال إعجابكم ---------- مقدمة لمن هذا الموضوع ؟ هذا الموضوع للجميع , مبتدى / متوسط / خبير ---------- ما طبيعة الموضوع ؟ الموضوع مقسم إلى 3 أقسام : 1/ مواق…

بسم الله الرحمن الرحيم السلام عليكم جميعاً....وعساكم إن شاء الله بخير أنا الآن أبغى أعرف إجابات لهذه الأسئلة : 1/ كيف أستخدم الأداة tabStrip التي مع مجموعة الأدوات Microsoft Windows Common Controls 6.0 ? بحيث , أعرف أنشأ لسان جديد + أضع له اسم مختلف عن البقية …

كما قال تماما الأخ HnHn وجاري تجربة الموقع

التحكم في حركة الماوس : Private Type POINTAPI x As Long y As Long End Type Private Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Lo…

كود استعمال برنامج WinZip 8 في برنامجك : Function winZipit(ByVal source As String, ByVal target As String, ByVal zip As Boolean) zipIT = App.Path & "winzip32 -a" unzipIT = App.Path & "winzip32 -e " If zip = True Then Shell (zipIT & target & source) Else: Shell…

أهلاً وسهلاً بك .... ربط البرنامج بالإنترنت : وضع الأداة WebBroser , لفعل ذلك : Ctrl+T >> Microsoft Internet Controls << OK كود عرض صفحة : webbrowser1.Navigate ("Bagrname") كود إرسال رسالة SMS إلى جوال : Dim SMS As Simplewire.SMS Dim carrier As Simplewire.SMSC…

أخي العزيز , هل هو كان برنامج أم شرح (اللي كانت الشخصية تحرك فمها فيه) إن كان برنامج فأنا لا أعرف الطريقة إن كان شرح فهناك طرق عديدة لفعل ذلك رسومياً وليس برمجياً

السلام عليكم جميعاً عندي image1 أريد أن يزيد مقدار خاصية left له بقدار المتغير X حيث X = X + 100 وهذا هو الكود : Private Sub Timer1_Timer() Static X As Integer X = X + 100 Image1.Left = X If Image1.Left = 2400 Then Image1.Left = 120 End If End Sub حيث أن : tim…

شكراً أخي , وأرجو إضافة المزيد من الشرح والصور في المرات القادمة بإذن الله علاء VB

أخي , انا حتى الآن بأدور على دالة تلغي أجزاء معينة من النص وتستخلص الباقي , (إحنا في الهوا سوا) ههههههه

أخي انت ممكن تحط الآيات التي تريد أن ينقر عليها على شكل LABELS أو إنك تحط في حدث النقر موقع الآية , مثال : Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If X > 500 And Y > 300 Then MsgBox "OK" End Sub الكود السابق يع…

مش فاهمك أخي أرجو الإيضاح

المقارنة بين جملتين : أدرج زر أمر , وشلة مربعات نص الكود : Private Sub Command1_Click() Value = StrComp(Text1.Text, Text2.Text) If Value = -1 Then Label3.Caption = " value = -1 first string < second string" ElseIf Value = 1 Then Label3.Caption = " value = 1 fi…

لحل المعادلات (X+Y)^2 أدرج مربع نص وزر أمر الكود : Dim Dummy1() As String, Dummy2() As String 'split the equation in text1 Dim Pt1 As Integer, Pt2 As Integer '1st and 2nd part of equation Dim Symbol As String 'symbol + or - used in the equation Private Sub Com…

لجعل صورك بدرجة شفافية معينة : أنشأ 2 Picture Box الكود : Const AC_SRC_OVER = &H0 Private Type BLENDFUNCTION BlendOp As Byte BlendFlags As Byte SourceConstantAlpha As Byte AlphaFormat As Byte End Type Private Declare Function AlphaBlend Lib "msimg32.dll" (ByVa…

أخواني أنا قابلت مصمم البرنامج شخصياً وهو رجل سعودي اسمه محمد الغنيم وسأحاول وضع أكواد إن شاء تعالى

شكراً لكم جميعاً إخواني

تفضل يا أبو الشباب كيف تصنع برنامجاً لنطق الكلام من خلال الأداة Text To Speech

أقولك إنها سوف تسمح بالتحرير أخي الفاضل شكراً لك

أخي أنا عامل موضوع في توقيعي عن الاداة , ولكن لا أعرف كيف أختار اللغة أما بالنسبة للسرعة فتجدها في الخاصية Speed وفي السن تجده في الخاصية Age بالنسبة لإيقاف القراءة فاختر أمر Exit Sub ويمكن ربطه بـــ Timer Ala2 VB