Ala2 VB

بسم الله الرحمن الرحيم السلام عليكم جميعاً عندي سؤال : كيف مثلاً أفتح عرض باور بيونت أو وورد أو ببليشر أو غيره كصفحة فقط , ولا يوجد شريط أدوات أو غيره أي للقراءة فقط , ويستحيل التعديل يمكن فعل ذلك بالـ OLE أو بالدالة Shell لكن الملف سيفتح على شكل ملف , فكيف يم…

شكراً أخي العزيز , بس إذا مثلاً كان عرض الفورم = 5000 واللابل المتحرك تعدى هذه القيمة فماذا سيحصل , يجب كتابة : if lbl1.left = 5000 Then exit Sub أو If lbl1.left = 5000 Then timer1.enabled = False عدا ذلك فالموضوع رائع , وملاحظة , وهي إن التركيب FOR سيعمل بسرع…

كود لتوليد فورم جديد : Private Sub Command1_Click() Dim Form As New form1 Load Form Form.Visible = True Form.Command1.Enabled = False Form.Caption = "arafa" Form.MousePointer = 2 End Sub أخي للأسف حاولت زيادة رقم في الكابشون تبع الفورم الجديد لكن لا جدوى , أنظ…

عارف أخي , بس لم أجد القيمة في الرجستري المسؤولة عن تغيير اللغة , أنا لقيت قيم تغيير الدولة , العملة , نظام التاريخ والوقت .... لكن اللغة ربما مشفرة , تحتاج واحد دارس رجستري كويس عشان يطلعها

أخي , أنا بحثت في الرجستري عن قيمة اللغة بجميع الصيغ لكن لم أجد

متزعلش كده أخي , انا دورت , لقيت كود بس بيفتح لوحة الخيارات الأقليمية وخيارات اللغة : Private Sub command1_Click() Dim rs As Double rs = Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl") End Sub

كيف أقسمه أخي الكريم ؟؟؟ صعبة العملية , مستحيل أقسمه لأنه "كتلة واحدة" ولا يمكنني رفعه لأنه كبير ويطول في الرفع و أنا لا مؤاخذة عايش في العصر الحجري وباستخدام الدايل أب هههههههههههههه عالعموم ... أخي , بالنسبة لحكاية اللغة دي , فهتعملك شوية قلق , لازم تدخل الر…

تشكر أخي , وأرجو المزيد من شرحك الممتع للأداة OLE بشكل عام لأنها كبيرة ومفيدة جداً

أخي , أنا أعرف كيف تحذف محتويات ملف الكوكيز : Kill "c:\windows\desktop\vb\*.*" وممكن إنك تستخدم الكود التالي لفتح الملف نفسه : shell ("C:\Documents and Settings\Administrator\Cookies\Cookiefile.txt") شكراً

ده كود يضع سطح المكتب في نموذج (يفضل إن تجعل ارتفاع وعرض النموذج = ارتفاع و عرض سطح المكتب) Private Declare Function PaintDesktop Lib "user32" _ (ByVal hdc As Long) As Long Private Sub Command1_Click() PaintDesktop Form1.hdc End Sub , وأرجو الإيضاح أكثر إن لم …

أخي , شكراً لكم , لكن أنا عندي 1500 تقريباً كيف هأرفعهم , يعني أنا متقدم نوعاً ما على تلك المكتبة أشكركم على المرور وأنتظر المزيد من الطلبات إخواني الأعزاء

بسم الله الرحمن الرحيم السلام عليكم جميعاً إخواني الآن أنا عندي عدة مكتبات اكواد فيها أكواد بالآلاف والله والله والله ... عندي مكتبة أكواد بها 1118 كوداً , مهولة وعملاقة , صح ؟؟ حوالي 4 ميجا بايت !!! فلم أستطع رفعها أو وضع جميع الأكواد ... لذا فأنا إن شاء الله…

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

أخي , انت ليش ما تستعمل WEBBROWSER إذا كنت تريد فتح صفحة الهتمل , الكود : WebBrowser1.Navigate ("www.htmlbage.com") -*-*-*-*-*-*-*-*--*-*-*-*-*-*-*-*-*--*-*-*-*-**-*-*-** استخراج النصوص من ملف HTML : Sub StripHTML(Filename As String) Dim FFile, FrFile, i As In…

أعتقد أخي والله أعلم إنك لازم تنشأ دالة MSGBOX جديدة بنفسك أخي عاشق الفاجوال , المثال لا يفتح

أنا عندي كود يدمج صورتين في واحد بـــ Visual Basic 6.0 وله تأثير جميل أيضاً عند دمج الصورتين : أنشأ في البداية 3 Picture Box + زر أمر واحد وضع الكود التالي Private Declare Function SetPixelV Lib "gdi32.dll" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long,…

أخي , أنا أعرف الطريقة في Visual Basic وهذا هو المشروع تحميل المشروع

أخي , أرجو منك كتابة الموضوع عربي لمزيد من التفاعل

هل تريد يعني إنك تختار عنصر من List ويظهر في Text1 الكود : Private Sub Command1_Click() Text1.Text = List1.Text End Sub

http://www.psdland.com/lesson.php?id=112 هذا رابط لما تريد أخي , ومعلش على التأخير