المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : ياشباب يامحترفين فيجوال بيسك ..... مساعدة



The Pirate
22-04-2005, 12:46 AM
السلام عليكم ......
معليش شباب اعذروني لاني باطلب طلبات صعبة شوي ( لاني سألت ناس كثير وماعرفوا )
لكن قلت مالها الا انتم ان شاء الله ......
طبعا الاسئلة في فيجوال بيسك العادي :
1- كيف اصنع ازرار يكون عليها صورة ... يعني زر مربع عادي لكن عليه صورة
2- كيف اضع صورة ولكن الذي يضغط عليها ينتقل لموقع انترنت
3- ( وهذا مشكلة شوي :biggrin: ) كيف اصنع برنامج لكلمة مرور احطه في جهازي في الدرايف D مثلا ( على فرض انه لدي اكثر من درايف ) او على اي درايف كان ... لكن بمجرد ان شخص يفتح الدرايف لن يستطيع فتحه الا بكلمة المرور ... يعني مثل برنامج حمايه للدرايف يكون محمي بهذا البرنامج ( لكن بملاحظة ان البرنامج لا يحتاج الى تنصيب ) يعني مباشر يوضع فبي الدرايف مباشرة بدون install

شكرا على صبركم شوي ولكن انتم لها .... :biggthump

الصقــر الجارح
22-04-2005, 06:45 PM
كيف اصنع ازرار يكون عليها صورة ... يعني زر مربع عادي لكن عليه صورة
لا اظن ان هذا ممكن وان كنت تقصد عمل bar مثل هذا
http://www.kw20.com/file/4rr4.GIF

فيمكنك ذلك بأستخدام mid form
http://www.kw20.com/file/ere4rr.gif



كيف اضع صورة ولكن الذي يضغط عليها ينتقل لموقع انترنت




ضع هذا في الـDeclarations أي في Moduler

'used for shelling out to the default web browser
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
Public Const conSwNormal = 1
'end

ضع هذا في command1

ShellExecute hwnd, "open", http://www.the--phantom.tk, vbNullString, vbNullString, conSwNormal
'end
كيف اصنع برنامج لكلمة مرور احطه في جهازي في الدرايف D مثلا
للاسف لم اجد طلبك ولكن هذا ممكن يفيدك هو برنامج لعمل باسورد على اى فلودر http://www.kw20.com/file/232323.jpgللتحميل كليك يمين وحفظ الهدف باسم (http://www.kw20.com/file/erer.rar)

oms
23-04-2005, 11:35 PM
أهلاً بك أخوي :
طلبك على ما أعتقد في فيجوال بيسك الإصدار السادس وأسئلتك محرجة شوي أجاوب على اللب بقدر
عليه طبعاً بالإستناد إلى خبرتي الطويلة في هذه اللغة :
1 - إذهب إلى الخاصية Style من خصائص الزر وإختر الخاصية 1- Graphical ثم بعدها بإستخدام الخاصية
Picture قم بإختيار الصورة التي تريدها .
2 - بإستخدام الأمر Shell كالتالي : قم بالذهاب إلى مجلد الـ Program Files ثم إختر الـ Path للإنترنت
إكسبرورر الموجود لديك في الجهاز وهو غالباً يكون موجود في الدليل :
C:\Program Files\Internet Explorer\IEXPLORE.EXE -- أو حسب القرص لديك هل هو سي أو غيره
ومن ثم قم بتنفيذ الجملة التالية :

Shell "D:\Program Files\Internet Explorer\IEXPLORE.EXE www.oms.com (http://www.oms.com)", vbNormalFocus

حيث أن هذا الكود مسؤول عن تشغيل الإكسبرورر والإنتقال إلى العنوان المطلوب .
طبعاً أنت تختار العنوان بعد إسم الدليل للإكسبرورر .

3 - هذه مشكلة ويمكن عمل مشروع التخرج فقط عن كيفية ذلك . لذلك سأعطيك طريقة أسهل لكي تقوم بتخزين
كلماتك السرية على جهاز -- يعني ولا حدا يقدر يتطلع إليها غيرك . وهي عن طريق التخزين في الريجيستري
بإستخدام الكلمتان GetSetting و SaveSetting كالتالي :
إستخدم الأمر SaveSetting للتخزين في الريجيستري كما في الجملة التالية :

SaveSetting "Application_Name", "Version 1.0", "Password", "123456"

حيث أول خانة من الباراميتر هي غالباً يكون إسم البرنامج الخاص بك والباراميتر الثاني يكون رقم الإصدار
والباراميتر الثالث هو المتغير المراد تخزينه والأخير القيمة للمتغير المراد تخزينه .

إستخدم الأمر GetSetting لأخذ قيمة من الريجيستري كما في الجملة التالية :

a = GetSetting("Application_Name", "Version 1.0", "Password")

يجب قبل ذلك وضع الريجيستري في متغير لأن المتغير سيحمل القيمة للمتغير الذي تم تخزين المعلومات فيه ،
وقيم الباراميتر الأول كما ذكرت لك والثاني والثالث .