Pharaonic_Guy

لو كمان عايزها بطريقة تقليدية جداا بعيدا عن الدوال .. Dim b() As Byte, s As String b = LoadResData(101, "CUSTOM") For i = 0 To UBound(b) s = s & Chr(b(i)) Next Text1 = s

انت مزعل نفسك ليه ؟؟ Text1.Text = StrConv(LoadResData(101, "CUSTOM"), vbUnicode)

طيب أخي حريف .. أشيل معاك الكلام اللي بيترمي شوية .. لأن أنا مقصود برده .. انا قرأت حكمه جميلة هنا في المنتدي تقول .. "هناك حد أدني للمعرفة قبل البدء في عمل شيء" نسيبنا من الجملة دي مع إنها مهمة وأقول ما أراه مفيد .. تستطيع التحدث إلي المهندس أسامة المقدم .. ل…

انت وصلتها لخناقة ليه بس .. ما تستهلش إنها توصل لكده اصلا ..

ونعم الاختلاف فعلا .. :s يعني كلمة أداة بقت خلاص لبست في أداة ActiveX Control .. وبقت من الكلمات المحرمة خلاص أننا نقول أداة ActiveX DLL .. مش لاقي حاجة أقولهالك غير عليك بقاموس مختار الصحاح .. باب البرمجيات .. جزء الأدوات ..

اللي انت عايزه يا علاء والله نمشيه علشان خاطر عيونك بجد .. بس برده يا ريت تراجع علي مفهوم الـ ActiveX ونوعية مشاريعه أو مفهوم الـ COM بصفة عامة من أي مرجع مناسب .. ومش عايزين نطول النقاش في هذا الأمر .. لأن هذا خارج صلب الموضوع ..

يا سيدي مفيش فرق .. ولا فيه وجهه نظر من أساسه .. فقط أذكر إن مكتبة DLL بالفيجوال بيسيك عبارة عن أداة ACTIVEX

هوه بقي فيه فرق في سنة 2007 علي أيديكوا بين (أداة) وبين (مكتبة DLL بالفيجوال بيسيك) .. وأنا مش واخد بالي ؟

أي شركة أعرفها .. بأي لغة برمجة عندما يتطرق جزء من عملها لـ Image Processing فتستخدم مكتبات جاهزة .. أخي حريف البرمجة بدون هذا الحشو الذي تتكلم عنه .. لم تكن لتصبح هذه اللغة أسهل لغة برمجة للمستخدم العادي .. وأنا لست مع الموضوع .. لأن ليس به جديد ..مجرد تجميع …

هذا موضوع أولي بالتثبيت لأهميته .. ويجب علي جميع قرائته في أي وقت قادم ..

طيب كويس والله إنها جات من أول مرة .. وتشكر علي الدعوة الجميلة ..

وبالنسبة لخادم بريد يدعم POP3 فانا في أثناء التصميم أعتمد علي خادم محلي علي الجهاز .. علشان السرعة والانجاز في الاتصال.. وكمان لما ندخل في موضوع المرفقات Attachments .. ولكن للتجربة الفعلية مع خادم بريد .. فقد قمت بحجز بريد علي موقع جواب www.gawab.com بياناته …

أخي aljeelany انا جاهز يا غالي .. وقد قمت بالبدء في المشروع وعمل الاستمبه الأولية اللي هنمشي عليها بعون الله .. من اتصالات والدخول بأكثر من يوزر .. وانا حولت المشروع من API لأداة وينسوك علشان خاطرك .. وقم بإضافتي علي الياهو nanosoftegypt للتحاور ولكي أرسل لك ا…

يمكنك معرفة فريق عمل الفيجوال بيسيك الاصدار الخامس أو السادس عن طريق إضافة عنصر إلي قائمة Help باسم Show VB Credits . وستظهر نافذة بخلفية وموسيقي جميلة .. وعرض لفريق العمل الكبير .. وهي قديمة بالتأكيد لكن فيه كتير لا يعرفوها .. وحتي أعتقد معرفتها لا تفيد بشيء …

ده انت عايزني أقعد شهرين أخ علاء أقسم في الأيقونات .. مش مهم التقسيم المهم تترفع .. وأيقونات حيوانات ورعب ايه بس اللي هيدخلها في البرمجة .. انت بتشوف أفلام أجنبي كتير علي فكرة .. ولكنها برده موجودة .. وبرده zshare به جميع المساويء .. تقسيم الملف .. عدم استكمال…

انت خلتني أفوق وما أنمش لإن الشفرة مرهقة شوية .. أولويات العمليات الحسابية في الشفرة التالية .. الضرب والقسمة .. ثم الجمع والطرح بمعني إن : Option Base 1 Private Sub Command1_Click() Dim op(4) As String, s As String Dim num() As String Dim opPos() As Integer D…

الكود التالي باستخدام DAO Dim db As Database, i As Integer Private Sub Command1_Click() Set db = OpenDatabase(App.Path & "\Data.mdb", False, False) For i = 0 To db.TableDefs.Count - 1 If db.TableDefs(i).Attributes = 0 Then Combo1.AddItem db.TableDefs(i).Name N…

فين جملة فتح الملف Open يا أخي.. ادخل نام .. شكل تركيزك راح كله النهاردة .. Dim a As String Dim f As String Dim Var As String a = "C:\1.txt" f = FreeFile Open a For Binary As f Var = Space(LOF(f)) Get #f, , Var Close f Text1.Text = Var

واضح جداا .. سأحاول عمل مثال قبل ما أنام

علي مهلك شوية أخي ابراهيم .. الراجل ما قلش لآ .. انتظر لما يدخل ..