[راشــــــــد]

بسم الله الرحمن الرحيم

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


يرجى العلم اني اعمل على برنامج فيجوال بيسك 6

1) اريد كود يربط زر( كوماند commandButton ) لفتح صورة مباشرةً.
2) اريد كود يربط زر( كوماند commandButton ) بملف اكسل ليفتحه مباشرة.
3) هل من الممكن ربط زر ( ليبل label ) بصورة وان كان نعم ماهو الكود !؟
4) كيف اجعل ايقونة البرنامج عند الساعة حتى وان كان البرنامج غير مفتوح !؟
5) ماهي الطريقة لجعل شريط خاص للتنقل للاسفل وللاعلى داخل البرنامج !؟
6) عند تكبير البرنامج في الشاشة كاملة كيف اجعل محتويات البرنامج من نصوص وازرار تتوسط الشاشة اي لاتكون في اعلى البرنامج على اليسار (يكون في اعلى البرنامج على اليسار لان عملنا في برنامج فيوجوال بيسك كان بدايته من الاعلى من جهة اليسار) فكيف نجعل مكونات البرنامج تتوسط الشاشة عند تكبير البرنامج !؟


هذا ماعندي بارك الله فيكم ووفقكم لما يحبه ويرضاه

[راشــــــــد]

15 مشاهدة وولا رد

[راشــــــــد]

upppp

[vbnet]

-
بالنسبة لـ (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