Ala2 VB

مكررررررررررر أخي وأرجو وضع الأكواد داخل مربع الكود ..... هكذا كود برمجي .... النهاية علاء VB

يعني حضرتك هتقارن نفسك بواحد تعبان ... وتيجي تقوللي إن الموضوع "بلاستفادة" ؟؟ يا سيد هيثم ... ربنا بيقول في كتابه الكريم : (( ولا تبخسوا الناس أشياءهم )) الأعراف انت كل اللي عملته ... قص , لصق ........ خلاص لو أنا قلتلك أنشأ لي مشروعاً كاملاً عن كل ما ذكرته ..…

أخي , شكراً لك على الموضوع الجميييييييييييييييل .. وبالتوفيق , وكان عندي سؤال : هل يمكن عمل حماية لبرنامجك من خلال الفاجوال , أم الفاجوال ضعيف في هذا المجال , وما الحل ؟؟ شكراً لك , ومبروك التثبيت

بسم الله الرحمن الرحيم السلام عليكم إخواني ... هذه أول مشاركة لي في قسم تطبيقات Office .. أنا غالباً أحتاج في مشاريعي البرمجية فتح ملف من الوورد أو الباوربوينت ولكن بشروط : أن يكون للقراءة فقط ... يعني لا يمكن التعديل أن تكون الصفحة لوحدها , يعني مفيش شريط أدو…

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

ما هي المساعدة ؟؟؟

أخي إذا أنت عاوز تفتح فورم من خلال الضغط على زر , فهذا الكود يصلح , لم أستطع وضعه في Sub Main .. أنشأ فورم 2 وضع هذا الكود في فورم 1 : Dim X As Integer Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = 88 Then X = X + 1 If X = 10 Then Form2.Show End…

استخدم الأداة : Microsoft Chart Control 6.0

انشاء زر أمر ومربع نص وقت التشغيل : Private WithEvents btnObj As CommandButton Private WithEvents txtObj As TextBox Private Sub btnObj_Click() On Error Resume Next Set txtObj = Controls.Add("VB.textbox", "txtObj") With txtObj .Visible = True .RightToleft = Tru…

معرفة السيريال نمبر لأحد الأقراص : Private Const MAX_FILENAME_LEN = 256 Private Declare Function GetVolumeInformation& Lib "kernel32" Alias "GetVolumeInformationA" _ (ByVal lpRootPathName As String, ByVal pVolumeNameBuffer As String, _ ByVal nVolumeNameSize As…

بالنسبة للاتصال بالإنترنت , شوف الكود التالي : Private Sub Form_Load() Dim sDuName As String sDuName = InputBox("ÃÏÎá ÇÓã ÇáÇÊÕÇá") If DisconnectDUN(sDuName) = True Then MsgBox "Êã ÞØÚ ÇáÇÊÕÇá" Else MsgBox "áÇ íæÌÏ ÇÊÕÇá ÈåÐÇ ÇáÇÓã" End If End End Sub Function…

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

أخي الفاضل أنا الآن قمت بجعله قالباً ووضعت كوداً شفافاً وتعبت وبعد شوية تيجي حضرتك وتقوللي إنني لم أفعل شيئاً أخي أنا أحترم رأيك ... إذا أنت ترى إنني لم أفعل شيء فهذا لأنك تعرف الكود

بسم الله الرحمن الرحيم السلام عليكم جميعاً .... طبعاً كلكم تعرفون القوالب المرفقة مع Visual Basic , مثل قالب حول , والاسبلاش سكريين , وتلميح اليوم , معرووووووووفة صح اليوم أخوكم علاء VB رمج قالب جديداً هذا القالب اسمه Ala2 VB Alpha Form هذا القالب مجرد قالب عا…

بس البرنامج ده كان فين من زمااااااااان ؟؟؟ البرنامج حلو وانت أحلى أخي الفاضل

استخدم الأداة OLE ولكنها ستظهر امللف من غير أدوات لذا استخدم الكود التالي : ("Shell ("WordFilePath

تفضل أخي الصورة توضح أكثر :

تفضل أخي , دي طريقة Visual Basic 6 مع إني لا أوافق على طرحك للموضوع هنا تم الرد على طلبك هنا : /index.ph...mp;#entry632333

كود إرسال رسالة بدون أدوات أو برامج : Dim Counter As Integer Private Sub Command1_Click() If txtFrom.Text <> "" And txtRcpt.Text <> "" And txtSubject.Text <> "" And txtBody.Text <> "" Then wskEmail.Connect "mail.hotmail.com", 25 Timer1.Enabled = True End If En…

أخي العزيز , بالنسبة لعملية النقل , أنت ممكن بأسهل طريقة , ترسل له الملف , وإليك الطريقة : 1/ ارفع الملف على موقع رفع وليكن : www,1ss1.com 2/ أرسل الرابط في رسالة , الطريقة موجودة في المنتدى , موضوع بعنوان : برنامج إرسال رسالة مباشرة والشرح VB - VB.net أو ما ي…