Download Aplikasi Membuat Dx Diag Pada Vb 6.0

Aplikasi Membuat Dx Diag Pada Vb 6.0 - Hey Kawan Relainc Andro. Kali ini ane mau ngasih tau gimana sih caranya buat DX DIAG make vb 6.0.

Mungkin teman teman tahu bahwa dxdiag itu adalah informasi mengenai tentang spesifikasi laptop atau personal computer milik anda.

MEMBUAT DXDIAG PADA VB 6.0
DXDIAG Pada VB 6.0 -RELAINC ANDRO-
bagaimana cara membuatnya, oke sekarang ane kasih ini sourcecodenya ajah langsung deh..

Option Explicit

Dim objDx As DirectX7
Dim objDraw7 As DirectDraw7
Dim objEnumModes As DirectDrawEnumModes


Private Sub cmdExit_Click()
    CleanUp
End Sub

Private Sub cmdSetDisplay_Click()
SetNewDisplayMode
End Sub

Private Sub Form_Load()
On Error GoTo ErrHandler:

Dim ddsd As DDSURFACEDESC2
Dim I As Long, lgCount As Long

Set objDx = New DirectX7
''Create DirectDraw object
Set objDraw7 = objDx.DirectDrawCreate("")

''Get the modes in the enum modes object
Set objEnumModes = objDraw7.GetDisplayModesEnum(DDEDM_DEFAULT, ddsd)

''Put the data in the listbox
lgCount = objEnumModes.GetCount()

For I = 1 To lgCount

    objEnumModes.GetItem I, ddsd
   
    lstDisplayModes.AddItem CStr(ddsd.lWidth) & "x" & CStr(ddsd.lHeight) & "x" & CStr(ddsd.ddpfPixelFormat.lRGBBitCount)
Next I

ErrHandler:

    Select Case Err.Number
   
        Case 0 ''No Errors
       
        Case Else
            Err.Raise Err.Number, Err.Source, Err.Description, Err.HelpContext, Err.HelpContext
            Call CleanUp
           
    End Select

End Sub

Private Sub CleanUp()

    objDraw7.RestoreDisplayMode
    Unload Me
    Set Form1 = Nothing
End Sub

Private Sub mnuFileExit_Click()
    cmdExit_Click
End Sub

''Set the display mode based on the current index. The display modes are saved in the
''objEnumModes object.
Private Function SetNewDisplayMode()
On Error GoTo ErrHandler

Dim ddsd As DDSURFACEDESC2
Dim I As Long
    ''Get the selected item
    I = lstDisplayModes.ListIndex
    If I = -1 Then
        MsgBox "Please select item in Listbox", vbOKOnly, "Error"
        Exit Function
    End If
    
    objEnumModes.GetItem (I + 1), ddsd
       
    ''Set cooperative level
    objDraw7.SetCooperativeLevel Me.hWnd, DDSCL_FULLSCREEN Or DDSCL_ALLOWMODEX Or DDSCL_EXCLUSIVE
   
    ''Set the display mode
    objDraw7.SetDisplayMode ddsd.lWidth, ddsd.lHeight, ddsd.ddpfPixelFormat.lRGBBitCount, 0, DDSDM_DEFAULT
   
    ''Draw the form
    Me.Refresh
   
ErrHandler:

    Select Case Err.Number
       Case 0 ''No Errors
       Case Else
       Err.Raise Err.Number, Err.Source, Err.Description, Err.HelpContext, Err.HelpContext
      Call CleanUp
   End Select
End Function

 Dan Jika ingin mendownload Sourcecode Project Aplikasi Bisa Download Disini :



Semoga Bermanfaat, jika ingin mengeshare di blog anda tolong sumber artikel di tulis di blog/website anda. Terima Kasih Salam RELAINC ANDRO
Previous
Next Post »
Post a Comment
Thanks for your comment