Microsoft Office Excel ® Kod Kılavuzu

Microsoft Office Excel® Code Guide

20 Haziran 2011 Pazartesi

To Read The Raw (Digital Format) File System





 'UserForm1

'A) Windows XP® Office 2003® Normal Referance List
     'Name: VBA, Description: Visual Basic For Applications, FullPath: C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL'Name: Excel, Description: Microsoft Excel 11.0 Object Library, FullPath: C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE'Name: stdole, Description: OLE Automation, FullPath: C:\WINDOWS\system32\stdole2.tlb
     'Name: Office, Description: Microsoft Office 11.0 Object Library, FullPath: C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLL'Name: MSForms, Description: Microsoft Forms 2.0 Object Library, FullPath: C:\WINDOWS\system32\FM20.DLL
     'Name: DIRECTORSHOCKWAVELib, Description: Shockwave ActiveX Control, FullPath: C:\WINDOWS\system32\Adobe\Director\SwDir.dll [Picture1:1] (Ctrl + T; Shockwave ActiveX Control)
'B) UserForm1'e Eklenen Araçlar (Add Tools)
     'Image1, Label1, Label2
     'ShockwaveCtl1 [Picture:2]
'C) Raw Image Format (
http://en.wikipedia.org/wiki/Raw_image_format)
     'ADOBE [*.dng]
     'ARRIFLEX [*.ari]
     'CANON [*.crw, *.cr2]
     'CASIO [*.bay]
     'EPSON [*.erf]
     'FUJI [*.raf]
     'HASSELBLAD [*.3fr]
     'IMACON [*.fff]
     'KODAK [*.dcs, *.dcr, *.drf, *.k25, *.kdc, *.tif]
     'LEAF [*.mos]
     'LEICA [*.raw, *.rwl, *.dng]
     'LOGITECH [*.pxn]
     'MAMIYA [*.mef]
     'MINOLTA [*.mrw]
     'NIKON [*.nef, *.nrw]
     'OLYMPUS [*.orf]
     'PANASONIC [*.raw, *.rw2]
     'PENTAX [*.ptx, *.pef]
     'PHASE ONE [*.cap, *.tif, *.iiq, *.eip]
     'RAWZOR [*.rwz]
     'RED [*.r3d]
     'SIGMA [*.r3f]
     'SONY [*.arw, *.srf, *.sr2]

Private Declare Function CLSIDFromString Lib "ole32" (ByVal lpstrCLSID As Long, lpCLSID As Any) As Long
Private Declare Function OleLoadPicturePath Lib "oleaut32" (ByVal szURLorPath As Long, ByVal punkCaller As Long, ByVal dwReserved As Long, ByVal clrReserved As OLE_COLOR, ByRef riid As Any, ByRef ppvRet As Any) As Long
Private IPic(15) As Byte
Private Const ClsID As Variant = "{7BF80980-BF32-101A-8BBB-00AA00300CAB}" 'It may take a few seconds, please wait.Private Const URL1 As String = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/S7rn6KHVfNI/AAAAAAAACRs/fxVMg9YGzb4/s1600/VectorBackround.jpg" 'Microsoft Office Excel® Kod KılavuzuPrivate
Sub UserForm_Initialize()
     On Error Resume Next
     Dim Eleman, i
     Me.Caption = "[PBİD®]To Read The Raw (Digital Format) File System"
     Call EkranDüzenle
End Sub
Private Sub UserForm_Activate()

     On Error Resume Next
     With ShockwaveCtl1
          .AutoStart = True
          .GotoMovie .SRC
          .Play
     End With
End Sub
Private Sub UserForm_Terminate()

     On Error Resume Next
     ShockwaveCtl1.SRC = ""
End Sub
Private Function Resim(URL) As Picture

     On Error Resume Next
     CLSIDFromString StrPtr(ClsID), IPic(0)
     OleLoadPicturePath StrPtr(URL), 0&, 0&, 0&, IPic(0), Resim
End Function
Private Sub EkranDüzenle()

     On Error Resume Next
     With Me
          .Height = 295
          .Width = 316
          .BackColor = vbWhite
          .Picture = Resim(URL1)
          .PictureAlignment = fmPictureAlignmentTopLeft
          .PictureSizeMode = fmPictureSizeModeClip
          .PictureTiling = False
          .SpecialEffect = fmSpecialEffectFlat
          .BackColor = vbWhite
          With Image1
                .BackStyle = fmBackStyleTransparent
                .BorderColor = &HFF0000
                .BorderStyle = fmBorderStyleSingle
                .Top = 6
                .Left = 6
                .Height = 24
                .Width = 24
                .Picture = LoadPicture("C:\Documents and Settings\ULUSARAÇ\Belgelerim\Mustafa ULUSARAÇ\ExcelÖrnekler\PBİD.ico")
          End With
          With Label1
               .Caption = " " & "Mustafa ULUSARAÇ"
               .BackStyle = fmBackStyleTransparent
               .BorderStyle = fmBorderStyleNone
               .SpecialEffect = fmSpecialEffectFlat
               .Left = 30
               .Top = 6
               .Height = 12
               .Width = 198
               .Font.Bold = True
               .ForeColor = &HFF0000
          End With
          With Label2
               .Caption = " " & "
01ulusarac@superonline.com"
               .BackStyle = fmBackStyleTransparent
               .BorderStyle = fmBorderStyleNone
               .SpecialEffect = fmSpecialEffectFlat
               .Left = 30
               .Top = 18
               .Height = 12
               .Width = 198
               .Font.Bold = True
               .ForeColor = &HFF0000
          End With
          With ShockwaveCtl1
               '.SRC = "C:\WINDOWS\system32\Adobe\Shockwave 11\shockwave_Projector_Loader.dcr"
               .SRC = "
http://static.howstuffworks.com/director/paintball-gun.dcr"
               .Top = 36
               .Left = 6
               .Width = 300
               .Height = 229
          End With
     End With
End Sub

Hiç yorum yok:

Blog Arşivi

Bu gadget'ta bir hata oluştu

Bu Blogda Ara

Contributor

Contributor
Mustafa ULUSARAÇ İstanbul, TÜRKİYE
free counters
T. C. Central Bank Indicative Exchange Rates
Currency Exchange Rate Widget,Currency Converter Widget
Borsa İstanbul