+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [سؤال] كيف اربط زر commandButton ببرنامج اكسل ؟؟ (/showthread.php?tid=2838)
كيف اربط زر commandButton ببرنامج اكسل ؟؟ - راشــــــــد - 11-05-14
بسم الله الرحمن الرحيم
السلام عليكم ورحمه الله وبركاتة
اخواني لدي استفسارات ان شاء الله ستكون بسيطه ومن عنده علم يرد جزاكم الله خيرا وبارك فيكم ,,
يرجى العلم اني اعمل على برنامج فيجوال بيسك 6
1) اريد كود يربط زر( كوماند commandButton ) لفتح صورة مباشرةً.
2) اريد كود يربط زر( كوماند commandButton ) بملف اكسل ليفتحه مباشرة.
3) هل من الممكن ربط زر ( ليبل label ) بصورة وان كان نعم ماهو الكود !؟
4) كيف اجعل ايقونة البرنامج عند الساعة حتى وان كان البرنامج غير مفتوح !؟
5) ماهي الطريقة لجعل شريط خاص للتنقل للاسفل وللاعلى داخل البرنامج !؟
6) عند تكبير البرنامج في الشاشة كاملة كيف اجعل محتويات البرنامج من نصوص وازرار تتوسط الشاشة اي لاتكون في اعلى البرنامج على اليسار (يكون في اعلى البرنامج على اليسار لان عملنا في برنامج فيوجوال بيسك كان بدايته من الاعلى من جهة اليسار) فكيف نجعل مكونات البرنامج تتوسط الشاشة عند تكبير البرنامج !؟
هذا ماعندي بارك الله فيكم ووفقكم لما يحبه ويرضاه
RE: كيف اربط زر commandButton ببرنامج اكسل ؟؟ - راشــــــــد - 12-05-14
15 مشاهدة وولا رد
RE: كيف اربط زر commandButton ببرنامج اكسل ؟؟ - راشــــــــد - 13-05-14
upppp
RE: كيف اربط زر commandButton ببرنامج اكسل ؟؟ - vbnet - 14-05-14
-
بالنسبة لـ (1) و (2) إذا كان المقصد فتح ملف صورة أو ملف إكسل بواسطة البرنامج الإفتراضي له
كود :
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
Private Sub Command1_Click()
ShellExecute hWnd, "open", "C:\flowers.jpg", vbNullString, vbNullString, 1
ShellExecute hWnd, "open", "C:\book1.xls", vbNullString, vbNullString, 1
End Sub