زقزوق

شكرا VODOO على الرد السريع و سوف اجرب هذة الطريقه و إن شاء الله تنجح.

اريد طريقه تعمل مع كل النوافز لاخفاء البرنامج من الtask manager بس تكون طريقه متجربه مع تحياتى..........لكم جميعا

السلام عليكم اريد كود لمعرفه مساحه اى ملف بحيث عند تحديد ملف من الاداه FILE يظهر لى المساحه فى TEXTBOX وشكرا جزيلا ..

اشكرك اخى voodo من كل قلبى

السلام عليكم اريد مثال مشروح عن تبادل الملفات باستخدام الwinsok ولكم منى جزيل الشكر ..... كما اريد شكر العضو (voodo ) و ( ماجد1) على مجهودهم على المنتده.....

اشكرك اخى ovoodo على مساعدتك لى واتمنى لك كل خير

اشكرك اخى VOODO على الرد السريع ولكن المشكله ليست بهذه السهوله اننى اريد ان اضعها بالكود وليس يدويا فاذا تستطيع اذكر لى الطريقه و الكود و اخيرا اشكرك على مساعدتك للاخرين مع تحياتى ............

السلام عليكم جميعا.. لقد قمت بعمل برنامج مستخدما مكتبه smsicq.dll ولكن اواجه شىء من الاحباط لاننى بعد ما انتهيت من عمل البرنامج وجدت ان هذه الاداه تحتاج الى تفعيلها بوضعها فى regedit قبل اى شىء لكى يعمل البرنامج بشكل صحيح , وقمت بعده محاولات لاضافتها تلقائيا و…

اهلا بيك يا medo تعتبر هذه الداله من دوال النصوص يعنى ايه؟ تقوم بعمليه مسح الفراغات اى المسافاتspace من النص مثلا ( " label1.caption=trim(" medo ترجع label1.caption=medo سوف تفهمها اكثر من خلال الدوال الاشقاء لها ltrim , rtrim ( " label1.caption=rtrim(" medo ت…

Winsock1.SendData "MAIL FROM:" & text2 & vbNewLine Winsock1.SendData "RCPT TO:" & Text3 & vbNewLine Winsock1.SendData "DATA" & vbNewLine Dim MSG As String MSG = "From:" & Text2 & vbNewLine & "Date: " & _ Now & vbNewLine & "To:" & Text3 & vbNewLine & _ "Subject…

In a form put Mapi session object = MapiSess MapiMsg object = MapiMsg CheckBox = Check1 CommandButton = cmdSend Private Sub cmdSend_Click() With MapiSess .UserName = "Amit" 'Your Profile Name .DownLoadMail = False .NewSession = True .SignOn End With With MapiM…

Private Sub Command1_Click() Dim d As Date d = Val(Text1.Text) If IsDate(d) Then Select Case Weekday(d) Case 1: Text2.Text = "SUN" Case 2: Text2.Text = "MON" Case 3: Text2.Text = "TUE" Case 4: Text2.Text = "WED" Case 5: Text2.Text = "THE" Case 6: Text2.Text = …

اذا كنت تريد مجموعه من الكتب الالكترونيه الجيده عن الفجول بيسك ارسل اللى على البريد وسوف يصلك pirooo1@hotmail.com

عيب عليك لما تقتبس موضوع وانت عارف كويس

انا اسف جدا لايمكن عمل ذالك ولا اى مبرمج مهما كان وانا اتحده انا مش بعجزك بس علشان ميضعشى وقتك لانك عايز الحاسب يتعرف على صوره عمرو ما شفها ولا عندو خلفيه عنها لانك عند ادخال الصوره فهى بالنسبه له فى النظام الثنائى الوان ولكن انا عندى فكرة ممكن تسعدك راسلنى عل…

الخلاصه : انت عايز تاخذ بعض السطور و الاخرى لا مظبوط اتعامل مع دوال النصوص انشاء صندوق نص غنى وخلى النص الموجود فى الملف يظهر فيه بشكل مخفى واستخدم الدوال فى التحديد left right ltrim rtrim trim mid instr فى تحديد الجمله اللى انت عايزها

اذا اردت كتب او مجلدات الكترونيه او اكواد مقالات لكى تضعها فى موقعك انا فى الخدمه

اكواد (زقزوق) السريعة و ألمفهومه كيف يمكنك مليء القائمة المنسدلهcommbobox بجميع أنواع الخطوط fonts و إحجام الخطوط size عمليه سهله وعبيطه جدا. 1- إنشاء عنصرين commbobox 2- اكتب الكود التالي في حدث تحميل النموذج form_load() Private Sub Form_Load() Dim i As Integ…

Private Sub Command1_Click() Dim X Dim DialUpConnectName As String 'قم بتحديد اسم الاتصال الذي تود الاتصال به DialUpConnectName = "Sts" X = Shell("rundll32.exe rnaui.dll,RnaDial " & DialUpConnectName, 1) DoEvents 'في حال اردت ارسال كلمة السر ايضا قم باضافتها ف…

Private Sub Command1_Click() Shell "vb6.exe /make C:\ProgramsProject.vbp C:\ProgramsProject.exe" End Sub piroo1@hotmail.com