مـكـتـبـه اكـواد الفـيـجـوال بـيـسـك 6 [مـتـجـدد بـآسـتـمـرار]

الموضوع في 'قسم فيجوال بيسك - Visual Basic 6' بواسطة Scorpio Hamodeh, بتاريخ ‏2 فبراير 2013.

  1. Scorpio Hamodeh

    Scorpio Hamodeh New Member

    x
    [​IMG]


    بـسـم [الـلـه] الـرحـمـن الرحـيـم والـصـلاة والـسـلام عـلـى [اشـرف] المـرسـلـيـن
    سـيـدنـا [مـحـمـد] صـل الـلـه عـلـيـه وسـلـم
    اخـبـارك يـا [صـقـور] اتـمـنى لـكـم دوم الصـحـه والعـافـيـه
    امـا بـعـد . . . ~



    [​IMG]

    سـنـطـرح الـيـوم [اكـواد] فـيـجـوال بـيـسـك
    طـبـعـا هـاذ المـوضـوع [مـفـتـوح] للـجـمـيـع
    كـل واحـد يـحـط [كـود] بـعـرفـوا
    يـحـطـو بـنـعـمـل [مـكـتـبـه]
    :SnipeR (63)::SnipeR (63)::SnipeR (63)::SnipeR (63):
    تـنـبـيـه : (يـمـنـع طـرح مـشـاركـه بـدون اكـواد مـثـل مـشـكـور - رووعه فـقـط اكـواد )

    نـبـدأ عـلـى بـركـة [الـلـه] :


    [​IMG]

    منع استخدام المسافة

    كود:
    private sub text1_keypress(keyascii as integer)
    if keyascii = 32 then
    keyascii = 0
    end if
    end sub
    
    [​IMG]

    جعل الفورم شفاف

    في الفورم

    كود:
    Private Sub Form_Load()
    SetWindowLong hwnd , GWL_EXSTYLE , GetWindowLong(hwnd , GWL_EXSTYLE) Or WS_EX_LAYERED
    SetLayeredWindowAttributes hwnd , 0 , 128 , LWA_ALPHA
    End Sub
    
    في الجنرال

    كود:
    Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long , ByVal nIndex As Long , ByVal dwNewLong As Long) As Long
    Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long , ByVal nIndex As Long) As Long
    Const LWA_ALPHA = 2
    Const GWL_EXSTYLE = (-20)
    Const WS_EX_LAYERED = &H80000
    [​IMG]

    طريقة جميلة لإغلاق الفورم

    كود:
    Sub SlideWindow(frmSlide As Form, iSpeed As Integer)
    While frmSlide.Left + frmSlide.Width < Screen.Width
    DoEvents
    frmSlide.Left = frmSlide.Left + iSpeed
    Wend
    While frmSlide.Top - frmSlide.Height < Screen.Height
    DoEvents
    frmSlide.Top = frmSlide.Top + iSpeed
    Wend
    Unload frmSlide
    End Sub
    Private Sub Command1_Click()
    Call SlideWindow(Form1, 100)
    End Sub
    [​IMG]

    فتح الفورم بشكل جميل

    كود:
    Sub Explode(form1 As Form)
    form1.Width = 0
    form1.Height = 0
    form1.Show
    For x = 0 To 5000 Step 1
    form1.Width = x
    form1.Height = x
    With form1
    .Left = (Screen.Width - .Width) / 2
    .Top = (Screen.Height - .Height) / 2
    End With
    Next
    
    End Sub
    Private Sub Form_Load()
    Explode Me
    End Sub
    [​IMG]

    لإيقاف الماوس ولوحة المفاتيح عن العمل لمدة معينة

    كود:
    Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
    Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
        
    Private Sub Form_Activate()
        DoEvents
        BlockInput True
        Sleep 1000
        BlockInput False
    End Sub
    [​IMG]

    بـكـفـي :SnipeR (75):
    يـلا ورجـونـا ابـداعـاتـكـم



     
  2. رد: مـكـتـبـه اكـواد الفـيـجـوال بـيـسـك 6 [مـتـجـدد بـآسـتـمـرار]

    #




    - تسلم الايـادى يا غالى بجد اكواد رائعه وتفيد الجميع , وخاصه المبتدئين -
    - فى انتظار المزيد من التميز والابداع المتواضع -
    - تحياتى لك بالتوفيق دائما -
     

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

Users found this page by searching for:

  1. تنزيل مكتبة أكواد فيجوال بيسك