Devil World

data base یا بانک اطلاعاتی : وقتی میخواهیم خارج از برنامه ی خود و یا هنگامی که برنامه بسته است اطلاعاتی را ذخیره کنیم از بانک اطلاعاتی استفاده میکنیم.

این بانک از یک سری جدول تشکیل شده(table)که اطلاعات را درخود ذخیره می کنند وشما با قرار دادن مقادیر دلخواه می توانید اطلاعات را روی جدول پیاده کنید.

برای مثال می خواهیم شماره تلفن دوستانمان را ذخیره کنیم. مانند شکل دو ستون به نامهای 'name'و'phone'و  تعدادی سطر در جدول قرار دارد که با اسم وشماره تلفن پر شده است.

 توجه!! تعداد ستون ها ثابت و تعداد سطر ها به اندازه ی دلخواه است.

{ جونه این بغل دستیم نظر بدید }

جان من نظر بدین...

Option Explicit
Private Declare Function SetSysColors Lib "user32" (ByVal nChanges As Long, lpSysColor As Long, lpColorValues As Long) As Long
Private Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long
Dim OrginalColor As Long
Dim NewColor(0) As Long
Dim IndexArray(0) As Long
Private Const COLOR_BTNTEXT = 18

Private Sub Command1_Click()
    IndexArray(0) = COLOR_BTNTEXT
    NewColor(0) = QBColor(Int(Rnd * 16))
    SetSysColors 1, IndexArray(0), NewColor(0)
End Sub

Private Sub Command2_Click()
    IndexArray(0) = COLOR_BTNTEXT
    NewColor(0) = OrginalColor
    SetSysColors 1, IndexArray(0), NewColor(0)
End Sub

Private Sub Form_Load()
    OrginalColor = GetSysColor(COLOR_BTNTEXT)
    Command1.Caption = "Change Color"
    Command2.Caption = "Reset Color"
    Randomize
End Sub

این هم مرتب کردن دسکتاب جون من نظر بدین

Private Const LVA_ALLIGNLEFT = &H1
Private Const LVM_ARRANGE = &H1016
Private Const GW_CHILD = 5
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Sub Command1_Click()
Dim lnghWnd As Long
Dim lngReturn As Long
lnghWnd = FindWindow("Program", vbNullString)
lnghWnd = GetWindow(lnghWnd, GW_CHILD)
lnghWnd = GetWindow(lnghWnd, GW_CHILD)
lngReturn = SendMessage(lnghWnd, LVM_ARRANGE, LVA_ALLIGNLEFT, 0)
End Sub