شبكة الحن

مجموعة مختارة من الأكواد السلام عليكم ورحمة الله وبركاته 1- إضافة رابط على الأداه Label أضف هذا الكود في قسم التصريحات كود PHP: 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   ثم أضف label وضع عليها الكود التالي  كود PHP: link  =  ShellExecute ( hwnd ,  "Open" ,  " http://elhontec.blogspot.com/ " , & O0 , & O0 ,  SW_NORMAL )   استبدل  http://elhontec.blogspot.com/ بالرابط الذي تريد 2- كود إفراغ text box من جميع البيانات التي بداخله ضع هذا الكود على command في حدث Click  كود PHP: dim ctl  as  control  for  each ctl in controls  if  typeof ctl is textbox then  ctl . text  =  ""  end  if  next ctl   3- لإظهار الفورم form كود PHP: Form2 . Show 1   يوض