_Voodoo_

السلام عليكم Snd.zip

جرب التعديلات اللى ادخلتها علي المشروع project1.zip

مثال اخر reg.zip

ايه وجه الاختلاف بينها وبين الرسالة الاخرى اللى طلبتها من قبل؟؟

بالنسبة لتضمين الصورة بالفورم من جدول الخصائص للفورم توجد خاصية تسمى Picture وبجانبها زر اضغط علية ستجد مربع فتح ملف وما عليك الا اختيار الصورة

قم بعمل تصغيير للبرنامج وسيختفي ويظهر بجوار الساعة tray.zip

جرب هذا المشروع test.zip

جرب هذا المشروع msg.zip

لقد قمت بعمل التغييرات على المشروع test.zip

شكرا على الترشيح يا اخوانى و إن شاء الله اكون عند حسن ظنكم بي

اخي هذه الفكرة جميلة جدا و مستعد اشارك معك في جزء برمجة ال Mail Server

هذه الرسالة بتظهر علي اي سطر بالتحديد؟؟ حاول تجرب الكود علي windows 98

جرب هذا الكود msg.zip

Private Sub cmdClick_Click() Dim Icount As Integer Dim endpoint As Integer endpoint = InputBox("Enter the ending point") For Icount = 1 To endpoint If (Icount = endpoint) Or (Icount = 1) Then txtDisplay = txtDisplay & String(endpoint, "#") Else txtDisplay = tx…

Function nCount(NodePath As String) As Long Dim ChrCount As Long Dim ChrPos As Long ChrPos = InStr(ChrPos + 1, NodePath, TreeView1.PathSeparator, vbTextCompare) Do While ChrPos <> 0 ChrCount = ChrCount + 1 ChrPos = InStr(ChrPos + 1, NodePath, TreeView1.PathSep…

المشكلة بكود صفحة الانترنت فبها خطأن الاول هو الجهة التى ترسل لهل البيانات <form action="http://www.geocities.com/thugz_cryz.html" method="post" > في هذا الكود ترسل البيانات الي سيرفر geocities وليس جهاز السيرفر بالمعمل وكل ما عليك هو تغيير http://www.geocitie…

كود الفورم Option Explicit Const CCFORMNAME = 32 Const CCDEVICENAME = 32 Private Type DEVMODE dmDeviceName As String * CCDEVICENAME dmSpecVersion As Integer dmDriverVersion As Integer dmSize As Integer dmDriverExtra As Integer dmFields As Long dmOrientation As…

بالنسبة لمشكلة كتابة البيانات بالعربي يمكنك حلها يتتغيير الكود في الفورم و الصفحة الي كود الفورم Option Explicit Dim Connections As Integer Private Sub Form_Load() Connections = 1 Winsock1(0).Close 'اختيار المنفذ 80 الذي يعمل علية المتصفح Winsock1(0).LocalPort…

Option Explicit ' Dim Drv$ Const drive_removable = 2 Const drive_fixed = 3 Const drive_remote = 4 Const drive_cdrom = 5 Const drive_ramdisk = 6 ' Private Sub Command1_Click() Call Shell("explorer " & Drv, vbMaximizedFocus) End Sub ' Private Sub Form_Load() Dim…

يكون لديك جهاز يعمل بصورة مستمرة كسيرفر و عليك شراء اسم نطاق لكي يقوم المستخدم بكتابة اسم النطاق بالمتصفح بدلا من http://127.0.0.1/1.htm فيكون مثلا http://www.arabteam2000.com/1.htm والباقي اعداد البرنامج لكى يعمل علي السيرفر لارسال و استقبال البيانات