نعم يمكنك إستدعاء من Button1_click وايضا يمكنك الإستدعاء من Private sub أو من sub فقط ^_^ألا يمكن أن أستدعي من Button1_click إلى أي شيء أخر بدلا من وضعها في الPublic؟؟؟
حدد الفورم في مساحة العمل على الفيجوال ثم اضغط على زر Ctrl + E في لوحة المفاتيح ثم ستظهر لك نافذة عمل القوائم على الفورمولكن كيف أقوم بعمل Menu؟هل هي إحدى الأدوات؟
هل تقصد انه عند الضغط على زر التصغير مثلا يقوم بعمل الأوامر التي تريد ولايعمل تصغير للفورم أم انه سيقوم بتصغير الفورم مع عمل الأوامر الخاصة بك؟كنت أقصد أنه عند النقر على تلك الأزرار ينفذ تعليمات أخرى أنا أحددها...
هذه الأوامر للتحكم بكامل خصائص الملف وأعتقد أنها مفهومة ^_^*كيف أتحكم بخصائص ملف خارجي؟
كود:SetAttr "C:\wahdain.txt", vbNormal SetAttr "C:\wahdain.txt", vbHidden SetAttr "C:\wahdain.txt", vbReadOnly SetAttr "C:\wahdain.txt", vbArchive SetAttr "C:\wahdain.txt", vbSystem
إذا واجهت صعوبة في فهم أحدها سأشرحه لك ^^"
كود إستيراد ملف على textbox هو:*أرجو منك كتابة كود استيراد الملف بالكامل
كود:Open "C:\wahdain.txt" For Input As #1 Text1.Text = Input(LOF(1), 1) Close #1
نفس الكود إذا كنت تريد الإستيراد إلى label أما إذا كنت تريد الإستيرد في ComboBox أو في ListBox فهناك كود آخر لهذه العملية ^_^
ضع هذا الكود في الجنرال للفورمكيف أرسل بريد إلكتروني عن طريق نقرة زر؟
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1
وكود إظهار صندوق إرسال رسالة هو:ShellExecute Me.hwnd, vbNullString, "mailto:Mazen@Wahdain.Com", vbNullString, "C:\", SW_SHOWNORMAL
لا أعلم ^_^*كيف يمكن أن أزيد أزرارا على الـControl Box كما يوجد في IDM؟
رد مع اقتباس

المفضلات