عبد الله فتحي

شكرا أخي، كنت أدور على شيء زي كده من زمان.(f)(f)(f)

شكراً أخي حسام (f) وشكراً أخي الحسن (f) على تشجيعكم(f)

بسم الله الرحمن الرحيم السادة أعضاء المنتدى السلام عليكم ورحمة الله وبركاته هناك سؤال يحيرني، أرجو ممن يعرف إجابته أن يرد علي: 1: كيف يمكن أن أختار سطر بعينه في الملف، وأضعه في متغير ، مثلا إذا ضغط على زر يقوم الفيجول بفتح ملف الـ Autoexec.bat ويبحث عن سطر يبد…

جزاك الله خيراً

وإذا كنت تريد المستخدم هو الذي يحدد المكان بإمكانك ذلك عن طريق الكود التالي: Private Sub Command1_Click() FileCopy "c:Autoexec.bat", Text1.text End Sub ضع مربع نص Text Box لكي يكتب المستخدم فيه مكان النسخ

أخي العزيز: حسام (f) راجع الكود رقم 17 في الرابط التالي (f) ولا تنسى التصويت(f) http://www.arabteam2000.com/vb/showthread....45&pagenumber=2 أخوك: عبد الله

شكراً أخي محمد(f)، وأخي سعد(f)، وأرجوا من الله عز وجل أن يوفق الجميع(f)

فهرس الأكواد السابقة (1) لمعرفة اسم اليوم (f) (2) لمعرفة اسم الشهر (f) (3) لإضافة نص متحرك (f) (4) هل الجهاز متصل بالإنترنت (f) (5) التأكد من وجود ملف (f) (6) حجم الملف بالبايت (f) (7) وقت تشغيل الويندوز (f) (8) تشغيل ملف صوتـMDIــي (f) (9) ملف فيديو في صورة (…

(f)الكود السبعون(f) لإضافة حدث عند الضغط على زر الماوس الأيمن Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) IF BUTTON=2 THEN msgbox "الزر الأيمن للماوس" END IF End Sub

(f)الكود التاسع والستون(f) لعكس اتجاه النص Public Function reversestring(revstr As String) As String Dim doreverse As Long reversestring = "" For doreverse = Len(revstr) To 1 Step -1 reversestring = reversestring & Mid$(revstr, doreverse, 1) Next End Function …

(f)الكود الثامن والستون(f) رسم خطين متقاطعين حسب حركة الماوس Private Sub Form_MouseMove(Button As Integer, Shift As Integer, _ X As Single, Y As Single) Me.Cls Line (X, 0)-(X, Me.ScaleHeight), vbRed Line (0, Y)-(Me.ScaleWidth, Y), vbGreen End Sub

راجع موضوعي: ( تصويت : أكواد للمبتدئين)

الله يوفقك ويوفقنا ويوفق كل شباب المسلمين!(f)

بسم الله الرحمن الرحيم (f)(f)(f) بعد التحية: كلنا تحت أمرك أبو عدنان، وأي مساعدة تريدها إحنا ما راح نتأخر(gift). ابدأ بقراءة الملف التالي bookamrmagdy.zip

(f)الكود السابع والستون(f) لتحريك الفورم عن طريق الماوس ضع هذا الكود في الموديول Declare Function ReleaseCapture Lib "user32" () As Long Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Lon…

(f)الكود السادس والستون(f) التأكد من عمل البرنامج من على الـ CD-ROM Private Declare Function GetDriveType Lib "kernel32.dll" Alias "GetDriveTypeA" _ (ByVal nDrive As String) As Long Private Sub Form_Load() Dim driveType As Long driveType = GetDriveType(Mid(App…

(f)الكود الخامس والستون(f) لتحريك صورة مع مؤشر الماوس Option Explicit Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Picture1.Move X - 200, Y - 200 End Sub

(f)الكود الرابع والستون(f) حساب عدد حروف TextBox Private Sub Command1_Click() MsgBox ("عدد الحروف = " + Str(Len(Text1.Text))) End Sub

(f)الكود الثالث والستون(f) تغيير خصائص ملف Private Sub COMMAND1_CLICK() SetAttr "C:data.txt", vbHidden SetAttr "C:data.txt", vbReadOnly SetAttr "C:data.txt", vbArchive End Sub

(f)الكود الثاني والستون(f) لترجمة النجوم *** في كلمات السر إلى حروف عادية Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Lon…