lمجموعة اكواد فيجوال بيسك 6

مجموعة مختارة من الأكواد

السلام عليكم ورحمة الله وبركاته


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  

يوضع على زر الأمر command
رقم 1 هو ترتيب الفورم في العرض



4- طريقة العودة للفورم السابق

ضع زر أمر على الفورم الحالي واكتب

كود PHP:

unload me 
form1.show  

5- كود طباعة كامل الفورم

كود PHP:

Private Sub Command1_Click() Form1.PrintForm 
Printer.EndDoc 
End Sub  

6- كود command السابق

كود PHP:

on error resume next 
adodc1.recordset.moveprevious if adodc1.recordset.bof then 
adodc1.recordset.movenext 
End If  

7- كود التالي

كود PHP:

On Error Resume Next 
adodc1.Recordset.Movenext If adodc1.Recordset.eof then 
adodc1.Recordset.Movelast 
End If  

8- كود الإضافة

كود PHP:

adodc1.recordset.addnew  

9- كود الحفظ

كود PHP:

on error resume next 
data1.recordset.update 
msgbox"تم حفظ البيانات بنجاح",vbokonly+vbmsgboxright+vbmsgboxrt1reading,"حفظ التعديلات"  

10- كود عدد السحلات في قاعدة البيانات المربوطة

كود PHP:

dim n 
rsstud.movelast 
n = rsstud.recordcuont 
rsstud.movefirst 
msgbox str(n), ,"عدد السجلات"