تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مكتبة اكواد فيجول بيسك | Visual Basic Codes "
#1
كود الخروج من البرنامج [ هل تريد الخروج من البرنامج ] [ نعم أو لأ ]

PHP كود :
private sub command1_click()
msgbox("آنت الان تحاول الخروج من البرنامج هل انت متاكد من هذا الرغبـه"vbyesno vbinformation"تنـبيهً")
select case d
case vbyes
end
end select
end sub 

كـود اضهار اسم الجهاز واي بي الجهاز الخاص بك

PHP كود :
dim strname as string
strip 
winsock1.localip 'captures ip address and stores it
strname = winsock1.localhostname '
captures host name and stores
msgbox 
"your ip address is: " strip vbcrlf vbcrlf _
"your hostname is: " ucase(strname'seperates the 2 in a 


كـود افراغ سلة المحذوفات
PHP كود :
ضع هذا الكود في العام general او موديول module 

private declare function shemptyrecyclebin lib "****l32.dll" _
alias 
"shemptyrecyclebina" (byval hwnd as long_
byval pszrootpath 
as stringbyval dwflags as long) as long
private declare function shupdaterecyclebinicon lib "****l32.dll" () as long
\\\

في الكومـند

لافراغ سلة المحذوفات 
:
Shemptyrecyclebin me.hwndvbnullstring0

للتحديث بعد افراغ البيانات 
:
Shupdaterecyclebinicon 


كـود تغيير الصفحه الرئيسيه الخاصه بك في المتصفح
PHP كود :
في جزء التصريحات العام "general"
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
private declare function 
regclosekey lib "advapi32.dll" (byval hkey as long) as long
private declare function regcreatekey lib "advapi32.dll" alias "regcreatekeya" (byval hkey as longbyval lpsubkey as stringphkresult as long) as long
private declare function regsetvalueex lib "advapi32.dll" alias "regsetvalueexa" (byval hkey as longbyval lpvaluename as stringbyval reserved as longbyval dwtype as longlpdata as anybyval cbdata as long) as long
private const reg_sz 1
private const hkey_current_user = &h80000001
public sub savestring(hkey as longpath as stringname as stringdata as string)
dim keyhandle as long
dim r 
as long
regcreatekey(hkeypathkeyhandle)
regsetvalueex(keyhandlename0reg_szbyval datalen(data))
regclosekey(keyhandle)
end sub
public sub setstartpage(url as string)
call savestring(hkey_current_user"software\microsoft\internet explorer\main""start page"url)
end sub

\\\\\\\\\\\\\\\\\\\\\\\\\
\\\\\ 
في الزر \\\\\\\
private 
sub command1_click()
setstartpage ("http://vb4arb.com/vb/forum.php")
end sub 


كـود .. الانتقال الى الموقع
PHP كود :
dim x as object
set x 
createobject("internetexplorer.application")
x.navigate "www.google.com"
x.visible true 


كود افراغ حقول التكسـت
PHP كود :
Dim i As Integer
For 0 To Me.Controls.Count 1
If TypeOf Me.Controls(iIs TextBox Then
Me
.Controls(i).Text ""
End If
Next 
{وَسَارِعُواْ إِلَى مَغْفِرَةٍ مِّن رَّبِّكُمْ وَجَنَّةٍ عَرْضُهَا السَّمَاوَاتُ وَالأَرْضُ أُعِدَّتْ لِلْمُتَّقِينَ }آل عمران133
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم

شكرا لك اكواد حلوة
الرجاء المزيد ...
الرد }}}
تم الشكر بواسطة:
#3
السلام عليكم ورحمة الله وبركاته
مشكور اخي الكريم على مجهودك
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [كورس] كورس تعليم فيجوال بيسك 6 Visual Basic بالعربى 3CD اين اجدة Adnan1392 3 111 23-02-24, 02:26 AM
آخر رد: Taha Okla
  تحويل برنامج تم تصميمه بلغة الفيجوال بيسك الى مايكروسوفت اكسيس shabrawy 3 865 07-09-22, 10:05 PM
آخر رد: Taha Okla
Rainbow [سؤال] كيف اربط قاعدة بيانات باكسس 2010 بفجوال بيسك 6 العولقي١١ 5 2,908 07-03-22, 04:18 AM
آخر رد: مصمم هاوي
Thumbs Up مشكلة في برنامج مبرمج بلغة الفيجول بيسك palart 2 1,897 04-05-21, 05:59 PM
آخر رد: palart
Wink [مشروع] اريد برنامج فيجوال بيسك 2010 عن حساب سعر السلعة بعد الخصم Aiosh15 0 1,617 10-12-20, 04:43 PM
آخر رد: Aiosh15
  عندي مشكلة في برمجمة مشروع فيجول بيسك ياريت تساعدوني tareqhabib15 3 1,667 28-11-20, 10:11 PM
آخر رد: tareqhabib15
  استفسار عن طريقة حماية تطبيقات الفيجوال بيسك moghastar 2 3,703 16-10-20, 02:15 AM
آخر رد: مقداد إسماعيل
  فيجول بيسك 6. مصطفى صاحب 0 1,728 15-07-20, 03:30 PM
آخر رد: مصطفى صاحب
Wink فيجول بيسك 6. مصطفى صاحب 0 1,618 18-06-20, 01:51 AM
آخر رد: مصطفى صاحب
  عمل قاموس على الفيجوال بيسك 6 feras 19 14,194 27-03-20, 10:31 PM
آخر رد: Abu_Salam

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم