+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : مكتبة اكواد فيجول بيسك | Visual Basic Codes " (/showthread.php?tid=9707)
مكتبة اكواد فيجول بيسك | Visual Basic Codes " - derbaliammar - 21-07-13
كود الخروج من البرنامج [ هل تريد الخروج من البرنامج ] [ نعم أو لأ ]
PHP كود :
private sub command1_click()
d = 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 string, byval dwflags as long) as long
private declare function shupdaterecyclebinicon lib "****l32.dll" () as long
\\\
في الكومـند
لافراغ سلة المحذوفات :
Shemptyrecyclebin me.hwnd, vbnullstring, 0
للتحديث بعد افراغ البيانات :
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 long, byval lpsubkey as string, phkresult as long) as long
private declare function regsetvalueex lib "advapi32.dll" alias "regsetvalueexa" (byval hkey as long, byval lpvaluename as string, byval reserved as long, byval dwtype as long, lpdata as any, byval cbdata as long) as long
private const reg_sz = 1
private const hkey_current_user = &h80000001
public sub savestring(hkey as long, path as string, name as string, data as string)
dim keyhandle as long
dim r as long
r = regcreatekey(hkey, path, keyhandle)
r = regsetvalueex(keyhandle, name, 0, reg_sz, byval data, len(data))
r = 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 i = 0 To Me.Controls.Count - 1
If TypeOf Me.Controls(i) Is TextBox Then
Me.Controls(i).Text = ""
End If
Next
مكتبة اكواد فيجول بيسك | Visual Basic Codes " - pcfbs2000 - 25-07-13
السلام عليكم
شكرا لك اكواد حلوة
الرجاء المزيد ...
RE: مكتبة اكواد فيجول بيسك | Visual Basic Codes " - Whled2020 - 21-01-24
السلام عليكم ورحمة الله وبركاته
مشكور اخي الكريم على مجهودك