Microsoft Office Excel ® Kod Kılavuzu

Microsoft Office Excel® Code Guide

5 Nisan 2010 Pazartesi

ShockwaveFlash1 Animation




'UserForm1

'A) Windows XP® Office 2003® Normal Referance List

'Visual Basic For Applications; [C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL]
'Microsoft Excel 11.0 Object Library; [C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE]
'OLE Automation; [C:\WINDOWS\system32\stdole2.tlb]
'Microsoft Office 11.0 Object Library; [C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLL]
'Microsoft Forms 2.0 Object Library; [C:\WINDOWS\system32\FM20.DLL]
'Shockwave Flash; [C:\WINDOWS\system32\Macromed\Flash\Flash10e.ocx]

'B) UserForm1'e Eklenen Araçlar (Add Tools)

'Frame1
'Frame1\Image1, Label1, Label2
'Combobox1, ShockwaveFlash1

Option Explicit
Dim i As Single
Dim swfDosya As String
Private Sub UserForm_Initialize()

On Error Resume Next
Me.Caption = "[PBİD®] ShockwaveFlash1 Animation"
Call EkranDüzenle
Call swfDosyaYükle

End Sub
Private Sub ComboBox1_Change()

On Error Resume Next
swfDosya = ComboBox1.Value
With ShockwaveFlash1

.AlignMode = 0
.AllowFullScreen = True
.ControlTipText = "www.brainybetty.com"
.IsPlaying
.Loop = True
.Playing = True
.Quality = 2
.Movie = swfDosya
.Play

End With

End Sub
Private Sub ComboBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

On Error Resume Next
With ComboBox1

.DropButtonStyle = fmDropButtonStyleArrow
.ShowDropButtonWhen = fmShowDropButtonWhenAlways

End With

End Sub
Private Sub ShockwaveFlash1_OnReadyStateChange(ByVal newState As Long)

On Error Resume Next
With ComboBox1

.DropButtonStyle = fmDropButtonStyleArrow
.ShowDropButtonWhen = fmShowDropButtonWhenNever

End With

End Sub
Private Sub EkranDüzenle()

On Error Resume Next
With Me

.Height = 360
.Width = 480
.BackColor = vbWhite
With Frame1

.Caption = ""
.Top = 0
.Left = 0
.Height = 36
.Width = Me.InsideWidth
.Picture = LoadPicture("C:\Documents and Settings\ULUSARAÇ\Belgelerim\Mustafa ULUSARAÇ\ExcelÖrnekler\VectorBackround.jpg")
.PictureAlignment = fmPictureAlignmentCenter
.PictureSizeMode = fmPictureSizeModeStretch
.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

End With
With ComboBox1

.DropButtonStyle = fmDropButtonStyleArrow
.ShowDropButtonWhen = fmShowDropButtonWhenNever
.AutoSize = False
.BackStyle = fmBackStyleTransparent
.BorderColor = &H80000001
.BorderStyle = fmBorderStyleSingle
.ForeColor = &H80000001
.SpecialEffect = fmSpecialEffectFlat
.Left = 6
.Top = 36
.Height = 18
.Width = 466

End With
With ShockwaveFlash1

.Left = 6
.Top = 54
.Height = 258
.Width = 466

End With

End With

End Sub
Sub swfDosyaYükle()

On Error Resume Next
With ComboBox1

.Clear
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/waves.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/Roller.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/tooltips.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/penguins.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/nan.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/line4.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/idea.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/fordtext2.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/circvortex.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/blurfadescale2002.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/bizasusual.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/analog.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/3dparticle.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/3DCube.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/2002Goals_Initiatives.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/blownaway.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/bluedotline.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/bubbles.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/Colors1.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/fish.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/bolas2.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/coloroptix2002.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/dotcube.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/gearspin.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/july4.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/line5.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/nan2001.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/pokemon.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/Rubik.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/spiral.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/Trailcust.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/wavy_keyboard.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/FloatingRaindrops.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/planeatnight.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/girl2002.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/random.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/curtain.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/brainbettydotcom.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/curtainswelcome.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/edgen_scrolling_landscape_flashkit.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/GeoWave.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/lightwave.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/lines.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/oldblue.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/pool.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/sample8_2001.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/starwars.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/true_blur.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/welcome.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/expandingwindow.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/2001.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/3dballcube.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/BarSlideVarient2.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/BBdef.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/circus.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/CUTTINGCOSTSNEON.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/lightwave2.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/mirror.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/orbiter.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/radiant-aarji.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/samplewelcomewmusic.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/tensionchain.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/tubes1.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/zoom.swf"
.AddItem "http://www.brainybetty.com/FlashandSWish/FLash/spinning%20gray%20tiles.swf"

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