Visual Basic 6 مكتبة اكواد فيجول بيسك 6 Visual Basic 6 Codes

الموضوع في 'قسم فيجوال بيسك 6 و لغة Delphi' بواسطة VeRoS_Dz, بتاريخ ‏24 يناير 2014.

كاتب الموضوع : VeRoS_Dz المشاهدات : 3,459 الردود : 33 ‏24 يناير 2014
  1. غير متصل

    ali Alsalih
    rank
    Developer

    عضو منذ:
    ‏7 يونيو 2012
    عدد المشاركات:
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:

    رد: مكتبة اكواد فيجول بيسك 6 Visual Basic 6 Codes

    كود لجعل الفورم في المقدمه form on top

    كــــــــــــود الموديل

    كود PHP:
    Public lwHandles() As Long
    Public As Long
    Public Path As String

    Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
    Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As LongByVal yPoint As Long) As Long
    Private Type POINTAPI
            x 
    As Long
            y 
    As Long
    End Type

    Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long

    Private Declare Function sGetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As LongByVal lpClassName As StringByVal nMaxCount As Long) As Long

    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As LongByVal wMsg As LongByVal wParam As LonglParam As Any) As Long
    Private Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" (ByVal hwnd As LongByVal wMsg As LongByVal wParam As LongByVal lParam As String) As Long
    Private Const WM_GETTEXTLENGTH = &HE
    Private Const WM_GETTEXT = &HD

    Private Declare Function CloseHandle Lib "Kernel32.dll" (ByVal Handle As Long) As Long
    Private Declare Function OpenProcess Lib "Kernel32.dll" (ByVal dwDesiredAccessas As LongByVal bInheritHandle As LongByVal dwProcId As Long) As Long
    Private Declare Function GetModuleFileNameExA Lib "psapi.dll" (ByVal hProcess As LongByVal hModule As LongByVal ModuleName As StringByVal nSize As Long) As Long
    Private Declare Function EnumProcessModules Lib "psapi.dll" (ByVal hProcess As LongByRef lphModule As LongByVal cb As LongByRef cbNeeded As Long) As Long
    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As StringByVal lpWindowName As String) As Long
    Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As LonglpdwProcessId As Long) As Long
    Private Const PROCESS_QUERY_INFORMATION 1024
    Private Const PROCESS_VM_READ 16
    Private Const MAX_PATH 260

    Private Declare Function DrawIcon Lib "user32" (ByVal hDC As LongByVal x As LongByVal y As LongByVal hIcon As Long) As Long
    Private Declare Function ExtractIcon Lib "<font color="#FF0000">*</font><font color="#FF0000">*</font><font color="#FF0000">*</font><font color="#FF0000">*</font>l32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long

    Private Declare Function Setwindowpos Lib "user32" Alias "SetWindowPos" (ByVal hwnd As LongByVal hWndInsertAfter As LongByVal x As LongByVal y As LongByVal cx As LongByVal cy As LongByVal wFlags As Long) As Long
    Public Const HWND_TOPMOST = -1
    Public Const SWP_NOMOVE = &H2
    Public Const SWP_NOSIZE = &H1
    Public Const HWND_NOTOPMOST = -2
    Public Const LB_ITEMFROMPOINT = &H1A9

    Public Sub GethWnd()
        
    Dim p As POINTAPI
        GetCursorPos p
        ReDim lwHandles
    (0) As Long
        lwHandles
    (0) = WindowFromPoint(p.xp.y)
        
    Call HandleSearch
        Call GetWindowFileName
    End Sub

    Public Sub HandleSearch()
        
    0
        
    Do While GetParent(lwHandles(l)) <> 0
        
    If GetParent(lwHandles(l)) <> 0 Then
            l 
    1
            ReDim Preserve lwHandles
    (l) As Long
            lwHandles
    (l) = GetParent(lwHandles(1))
        
    End If
        
    Loop
    End Sub

    Public Function GetClassname(ByVal hwnd As Long) As String
        Dim retVal 
    As Long
        Dim sClassName 
    As String
        sClassName 
    SPACE$(260)
        
    retVal sGetClassName(hwndsClassName260)
        
    GetClassname Left(sClassNameretVal)
    End Function

    Public Function 
    GetWinText(hwnd As Long) As String
        Dim WindowText 
    As String
        Dim retVal 
    As Long
        Dim WindowTextLen 
    As Long
        WindowTextLen 
    SendMessage(hwndWM_GETTEXTLENGTHByVal CLng(0), ByVal CLng(0)) + 1
        WindowText 
    SPACE(WindowTextLen)
        
    retVal SendMessageByString(hwndWM_GETTEXTWindowTextLenWindowText)
        
    GetWinText Left(WindowTextretVal)
    End Function

    Public Function 
    GetWindowFileName()
        
    Dim ProcessID As Long
        Dim hProcess 
    As Long
        Dim lRet 
    As Long
        Dim Modules
    (1 To 200) As Long
        Dim cbNeeded 
    As Long
        Dim FileName 
    As String
        Dim nSize 
    As Long
        
        GetWindowThreadProcessId lwHandles
    (0), ProcessID
        hProcess 
    OpenProcess(PROCESS_QUERY_INFORMATION Or PROCESS_VM_READ0ProcessID)
        
    lRet EnumProcessModules(hProcessModules(1), 200cbNeeded)
        
    FileName SPACE$(MAX_PATH)
        
    nSize 500
        lRet 
    GetModuleFileNameExA(hProcessModules(1), FileNamenSize)
        
    Path FileName
    End 
    Function

    Public Function 
    lExtractIcon(IconHDC As Long)
        
    return1& = ExtractIcon(lwHandles(0), Path0)
        
    return2& = DrawIcon(IconHDC00return1&)
    End Function

    Public Function 
    SetWinPos(iPos As Integerlhwnd As Long) As Boolean
        Dim lwinpos 
    As Long
        iPos 
    1

        Select 
    Case iPos
            
    Case 1
                lwinpos 
    HWND_TOPMOST
        End Select
        
    If Setwindowpos(lhwndlwinpos0000SWP_NOMOVE SWP_NOSIZEThen
            SetWinPos 
    True
        End 
    If
    End Function
    كـــــود هذا في الفورم

    كود PHP:
    Dim B As Boolean

    SetWinPos(1Me.hwnd)
     


  2. غير متصل

    ali Alsalih
    rank
    Developer

    عضو منذ:
    ‏7 يونيو 2012
    عدد المشاركات:
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:

    رد: مكتبة اكواد فيجول بيسك 6 Visual Basic 6 Codes

    كود لعكس الفورم

    كود PHP:
    Private Sub Form_Load()
    Dim Ctrl As Control
    On Error Resume Next
    For Each Ctrl In Controls
    If TypeOf Ctrl Is Line Then
    Ctrl
    .X1 Ctrl.Container.ScaleWidth Ctrl.X1
    Ctrl
    .X2 Ctrl.Container.ScaleWidth Ctrl.X2
    Else
    Ctrl.Left Ctrl.Container.ScaleWidth Ctrl.Left Ctrl.Width
    End 
    If
    If 
    Ctrl.Alignment 1 Then
    Ctrl
    .Alignment 0
    ElseIf Ctrl.Alignment 0 Then
    Ctrl
    .Alignment 1
    End 
    If
    Ctrl.RightToLeft True
    Next
    RightToLeft 
    True
    Err
    .Clear
    End Sub
     


  3. غير متصل

    ali Alsalih
    rank
    Developer

    عضو منذ:
    ‏7 يونيو 2012
    عدد المشاركات:
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:

    رد: مكتبة اكواد فيجول بيسك 6 Visual Basic 6 Codes

    كود جعل الجملة عمودية

    كود PHP:
    Private Sub Form_Activate()
    Dim s As String
    For 1 To Len(Label1)
    Mid$(Label1i1) & vbCrLf
    Next
    Label1 
    s
    End Sub 
     


  4. غير متصل

    ali Alsalih
    rank
    Developer

    عضو منذ:
    ‏7 يونيو 2012
    عدد المشاركات:
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:

    رد: مكتبة اكواد فيجول بيسك 6 Visual Basic 6 Codes

    كود اخفاء مؤشر الفأرة في تطبيق الفيجول بيسك :
    قسم التعاريف

    كود PHP:
    Private Declare Function ShowCursor Lib "user32" _
    (ByVal bShow As Long) As Long
    اخفاء 
    :
    ShowCursor(False)
    اظهار :
    ShowCursor(True
     


  5. غير متصل

    ali Alsalih
    rank
    Developer

    عضو منذ:
    ‏7 يونيو 2012
    عدد المشاركات:
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:

    رد: مكتبة اكواد فيجول بيسك 6 Visual Basic 6 Codes

    كود تحديد دقت عرض الشاشة

    كود PHP:
    Dim xAs Integer
    Screen.Width 15
    Screen.Height 15
    If 640 And 480 Then MsgBox ("640 * 480")
    If 
    800 And 600 Then MsgBox ("800 * 600")
    If 
    1024 And 768 Then MsgBox ("1024 * 768"
     


  6. غير متصل

    ali Alsalih
    rank
    Developer

    عضو منذ:
    ‏7 يونيو 2012
    عدد المشاركات:
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:

    رد: مكتبة اكواد فيجول بيسك 6 Visual Basic 6 Codes

    تأجيل تنفيذ الكود لفترة معينة

    كود PHP:
    Public Sub Delay(HowLong As Date)
    TempTime DateAdd("s"HowLongNow)
    While 
    TempTime Now
    DoEvents
    Wend
    End Sub

    Private Sub Command1_Click()
    Delay 5
    MsgBox 
    "Test"
    End Sub 
     


  7. غير متصل

    ali Alsalih
    rank
    Developer

    عضو منذ:
    ‏7 يونيو 2012
    عدد المشاركات:
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:

    رد: مكتبة اكواد فيجول بيسك 6 Visual Basic 6 Codes

    منع تشغيل أكثر من نسخة من البرنامج

    كود PHP:
    Private Sub Form_Load()
    If 
    App.PrevInstance True Then
    MsgBox 
    "لا يمكن تشغيل أكثر من نسخة من البرنامج"
    Unload Me
    Exit Sub
    End 
    If
    End Sub 
     


  8. غير متصل

    ali Alsalih
    rank
    Developer

    عضو منذ:
    ‏7 يونيو 2012
    عدد المشاركات:
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:

    رد: مكتبة اكواد فيجول بيسك 6 Visual Basic 6 Codes

    حساب عدد حروف مربع نص

    كود PHP:
    Private Sub Command1_Click()
    MsgBox ("عدد الحروف = " Str(Len(Text1.Text)))
    End Sub 
     


  9. غير متصل

    ali Alsalih
    rank
    Developer

    عضو منذ:
    ‏7 يونيو 2012
    عدد المشاركات:
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:

    رد: مكتبة اكواد فيجول بيسك 6 Visual Basic 6 Codes

    تحريك الفورم عن طريق الماوس

    كود PHP:
    Private Sub Form_MouseDown(Button As IntegerShift As IntegerAs SingleAs Single)
    ReleaseCapture
    SendMessage hwnd
    WM_NCLBUTTONDOWNHTCAPTION0&
    End Sub 
    ونكتب في موديل Modell

    كود PHP:
    Declare Function ReleaseCapture Lib "user32" () As Long
    Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As LongByVal wMsg As LongByVal wParam As LonglParam As Any) As Long
    Public Const HTCAPTION 2
    Public Const WM_NCLBUTTONDOWN = &HA1 
     


  10. غير متصل

    ali Alsalih
    rank
    Developer

    عضو منذ:
    ‏7 يونيو 2012
    عدد المشاركات:
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:

    رد: مكتبة اكواد فيجول بيسك 6 Visual Basic 6 Codes

    منع نسخ أو لصق أي ملف ..في الـ Autorun لحماية برنامجك من النسخ.

    كود PHP:
    Private Sub Form_Load()
    Timer1.Interval 1
    End Sub

    Private Sub Timer1_Timer()
    Clipboard.GetText
    If Len(R) = 0 Then
    Clipboard
    .Clear
    End 
    If
    End Sub 
     


مشاركة هذه الصفحة

جاري تحميل الصفحة...