Microsoft Office Excel ® Kod Kılavuzu

Microsoft Office Excel® Code Guide

10 Eylül 2011 Cumartesi

vsFlexArray Explorer [5]




'UserForm1


'A. Available References List
'1) Name: VBA, Description: Visual Basic For Applications, FullPath: C:\Program Files (x86)\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL
'2) Name: Excel, Description: Microsoft Excel 11.0 Object Library, FullPath: C:\Program Files (x86)\Microsoft Office\OFFICE11\EXCEL.EXE
'3) Name: stdole, Description: OLE Automation, FullPath: C:\Windows\SysWOW64\stdole2.tlb
'4) Name: Office, Description: Microsoft Office 11.0 Object Library, FullPath: C:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE11\MSO.DLL
'5) Name: MSForms, Description: Microsoft Forms 2.0 Object Library, FullPath: C:\Windows\SysWOW64\FM20.DLL
'6) Name: MSComctlLib, Description: Microsoft Windows Common Controls 6.0 (SP6), FullPath: C:\Windows\SysWOW64\MSCOMCTL.OCX
'7) Name: SHDocVw, Description: Microsoft Internet Controls, FullPath: C:\Windows\SysWOW64\ieframe.dll
'8) Name: vsFlexLib, Description: :-) VideoSoft vsFlex3 Controls, FullPath: C:\Windows\SysWOW64\VSFLEX3.OCX
'B. Available Tools List
'1) İmage1, Label1, Label2
'2) Label3, vsFlexArray1
'3) Label4, WebBrowser1
'4) Label5, WebBrowser2
Option Explicit
Private i As Single, ii As Single
Private hRow As Double, hCol As Double
Private Durum As Double
Private Bellek(1 To 28, 1 To 11)
Private Population As Double, Square As Double
Private EkranTipi As New Class1
Private Sub UserForm_Initialize()
On Error Resume Next
Me.Caption = "[PBİD®] vsFlexArray Explorer [5]"
Application.Visible = False
Call Bellek_Kur
Call Ekran_Duzenle
Durum = 1
Set EkranTipi.Ekran1 = Me
Call AB_Kur
End Sub
Private Sub UserForm_Resize()
On Error Resume Next
If Durum = 0 Then Exit Sub
vsFlexArray1.Height = Me.InsideHeight - vsFlexArray1.Top - 6
Label4.Width = Me.InsideWidth - Label4.Left - 6
With WebBrowser1
If WebBrowser2.Visible = True Then
.Height = (vsFlexArray1.Height / 2)
Else
.Height = vsFlexArray1.Height
End If
.Width = Label4.Width
End With
With Label5
.Top = WebBrowser1.Height + WebBrowser1.Top
.Width = Label4.Width
End With
With WebBrowser2
.Top = Label5.Top + 12
.Height = Me.InsideHeight - .Top - 6
.Width = Label4.Width
End With
End Sub
Private Sub UserForm_Terminate()
On Error Resume Next
Application.Visible = True
End Sub
Private Sub vsFlexArray1_SelChange()
On Error Resume Next
hRow = vsFlexArray1.Row
hCol = vsFlexArray1.Col
If (hCol = 1 Or hCol = 2 Or hCol = 3) And hRow > 0 Then
Label4.Caption = " " & Bellek(hRow, 3) & "; " & Bellek(hRow, 4)
WebBrowser1.Navigate "about:blank"
DoEvents
WebBrowser1.Navigate Bellek(hRow, 4)
DoEvents
Label5.Visible = True
Label5.Caption = " " & Bellek(hRow, 3) & "; " & Bellek(hRow, 11)
WebBrowser2.Navigate "about:blank"
DoEvents
WebBrowser2.Visible = True
WebBrowser2.Navigate Bellek(hRow, 11)
DoEvents
ElseIf hCol = 7 And hRow > 0 Then
Label4.Caption = " " & Bellek(hRow, 9) & "; " & Bellek(hRow, 10)
WebBrowser1.Navigate "about:blank"
DoEvents
WebBrowser1.Navigate Bellek(hRow, 10)
DoEvents
Label5.Visible = False
Label5.Caption = " "
WebBrowser2.Navigate "about:blank"
DoEvents
WebBrowser2.Visible = False
DoEvents
Else
Label4.Caption = " "
WebBrowser1.Navigate "about:blank"
DoEvents
Label5.Visible = True
Label5.Caption = " "
WebBrowser2.Navigate "about:blank"
DoEvents
WebBrowser2.Visible = True
DoEvents
End If
Call UserForm_Resize
End Sub
Private Sub Ekran_Duzenle()
On Error Resume Next
With Me
.BackColor = vbWhite
.Height = 360
.Width = 572
.Picture = Resim(URL1)
.PictureAlignment = fmPictureAlignmentCenter
.PictureSizeMode = fmPictureSizeModeClip
.PictureTiling = True
.SpecialEffect = fmSpecialEffectFlat
With Image1
.Top = 6
.Left = 6
.Height = 24
.Width = 24
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleSingle
.BorderColor = vbBlue
.Picture = Resim(URL2)
.PictureAlignment = fmPictureAlignmentCenter
.PictureSizeMode = fmPictureSizeModeClip
.PictureTiling = False
End With
With Label1
.Left = 36
.Top = 6
.Height = 12
.Width = 240
.Caption = "Mustafa ULUSARAÇ"
.BorderStyle = fmBorderStyleNone
.SpecialEffect = fmSpecialEffectFlat
.BackStyle = fmBackStyleTransparent
.Font.Bold = True
.Font.Name = "Arial"
.ForeColor = vbBlue
End With
With Label2
.Left = 36
.Top = 18
.Height = 12
.Width = 240
.Caption = "01ulusarac@superonline.com"
.BorderStyle = fmBorderStyleNone
.SpecialEffect = fmSpecialEffectFlat
.BackStyle = fmBackStyleTransparent
.Font.Bold = True
.Font.Name = "Arial"
.ForeColor = vbBlue
End With
With Label3
.Left = 6
.Top = 36
.Height = 12
.Width = 360
.Caption = "Avrupa Birliği Ülkeleri"
.BorderStyle = fmBorderStyleNone
.SpecialEffect = fmSpecialEffectEtched
.BackStyle = fmBackStyleTransparent
.Font.Bold = True
.Font.Name = "Arial"
.ForeColor = vbBlue
.Font.Underline = True
.TextAlign = fmTextAlignCenter
End With
With vsFlexArray1
.Top = 48
.Left = 6
.Height = Me.InsideHeight - .Top - 6
.Width = 360
.Editable = False
.Enabled = True
.ExtendLastCol = True 'False
.FillStyle = flexFillSingle
.Gridlines = flexGridFlat
.MultiTotals = False
.Refresh
.SelectionMode = flexSelectionFree
.SubtotalPosition = flexSTAbove
.Appearance = flexFlat
.BorderStyle = 1
.AllowUserResizing = flexResizeColumns
.WordWrap = False
.ScrollTrack = False
.TextStyleFixed = flexTextRaised
.BackColorFixed = &H8000000F
.BackColor = vbWhite
.BackColorFixed = VBA.RGB(220, 220, 220)
.ColAlignment(0) = flexAlignCenterCenter
.FixedCols = 1
.FixedRows = 1
.Cols = .FixedCols + 7
.Rows = .FixedRows + 28
.ColFormat(5) = "#,###"
.ColFormat(6) = "#,###"
.ColWidth(0) = 24 * 20
.ColWidth(1) = 24 * 20
.ColWidth(2) = 60 * 20
.ColWidth(3) = 144 * 20
.ColWidth(4) = 30 * 20
.ColWidth(5) = 60 * 20
.ColWidth(6) = 48 * 20
.ColWidth(7) = 96 * 20
End With
With Label4
.Left = 366
.Top = 36
.Height = 12
.Width = Me.InsideWidth - .Width - 6
.Caption = "Avrupa Birliği Ülkeleri Web Adresleri"
.BorderStyle = fmBorderStyleNone
.SpecialEffect = fmSpecialEffectEtched
.BackStyle = fmBackStyleTransparent
.Font.Bold = True
.Font.Name = "Arial"
.ForeColor = vbBlue
.Font.Underline = True
.TextAlign = fmTextAlignCenter
End With
With WebBrowser1
.Left = 366
.Top = 48
.Height = vsFlexArray1.Height / 2
.Width = Label4.Width
.Navigate "about:blank"
DoEvents
End With
With Label5
.Left = 366
.Top = WebBrowser1.Top + WebBrowser1.Height
.Height = 12
.Width = Label4.Width
.Caption = "Avrupa Birliği Ülkeleri Web Adresleri"
.BorderStyle = fmBorderStyleNone
.SpecialEffect = fmSpecialEffectEtched
.BackStyle = fmBackStyleTransparent
.Font.Bold = True
.Font.Name = "Arial"
.ForeColor = vbBlue
.Font.Underline = True
.TextAlign = fmTextAlignCenter
End With
With WebBrowser2
.Left = 366
.Top = Label5.Top + 12
.Height = Me.InsideHeight - .Top - 6
.Width = Label5.Width
.Navigate "about:blank"
DoEvents
End With
End With
End Sub
Private Sub Bellek_Kur()
On Error Resume Next
Population = 0
Square = 0
Bellek(1, 1) = 1
Bellek(1, 2) = "https://www.cia.gov/library/publications/the-world-factbook/graphics/flags/large/au-lgflag.gif"
Bellek(1, 3) = "Austria"
Bellek(1, 4) = "http://tr.wikipedia.org/wiki/Avusturya"
Bellek(1, 5) = "Republic of Austria"
Bellek(1, 6) = 1995
Bellek(1, 7) = 8316487
Bellek(1, 8) = 83871
Bellek(1, 9) = "Vienna"
Bellek(1, 10) = "http://tr.wikipedia.org/wiki/Viyana": Population = Population + Bellek(1, 7)
Bellek(1, 11) = "https://www.cia.gov/library/publications/the-world-factbook/geos/au.html"
Population = Population + Bellek(1, 7)
Square = Square + Bellek(1, 8)
Bellek(2, 1) = 2
Bellek(2, 2) = "https://www.cia.gov/library/publications/the-world-factbook/graphics/flags/large/be-lgflag.gif"
Bellek(2, 3) = "Belgium"
Bellek(2, 4) = "http://tr.wikipedia.org/wiki/Bel%C3%A7ika"
Bellek(2, 5) = "Kingdom of Belgium"
Bellek(2, 6) = 1951
Bellek(2, 7) = 10584534
Bellek(2, 8) = 30528
Bellek(2, 9) = "Brussels"
Bellek(2, 10) = "http://tr.wikipedia.org/wiki/Br%C3%Bcksel"
Bellek(2, 11) = "https://www.cia.gov/library/publications/the-world-factbook/geos/be.html"
Population = Population + Bellek(2, 7)
Square = Square + Bellek(2, 8)
Bellek(3, 1) = 3
Bellek(3, 2) = "https://www.cia.gov/library/publications/the-world-factbook/graphics/flags/large/bu-lgflag.gif"
Bellek(3, 3) = "Bulgaria"
Bellek(3, 4) = "http://tr.wikipedia.org/wiki/Bulgaristan"
Bellek(3, 5) = "Republic of Bulgaria"
Bellek(3, 6) = 2007
Bellek(3, 7) = 7679290
Bellek(3, 8) = 110912
Bellek(3, 9) = "Sofia"
Bellek(3, 10) = "http://tr.wikipedia.org/wiki/Sofya"
Bellek(3, 11) = "https://www.cia.gov/library/publications/the-world-factbook/geos/cy.html"
Population = Population + Bellek(3, 7)
Square = Square + Bellek(3, 8)
Bellek(4, 1) = 4
Bellek(4, 2) = "https://www.cia.gov/library/publications/the-world-factbook/graphics/flags/large/cy-lgflag.gif"
Bellek(4, 3) = "Cyprus"
Bellek(4, 4) = "http://tr.wikipedia.org/wiki/K%C4%B1br%C4%B1s_Cumhuriyeti"
Bellek(4, 5) = "Republic of Cyprus & Turkish Republic of Northern Cyprus"
Bellek(4, 6) = 2004
Bellek(4, 7) = 766400
Bellek(4, 8) = 9251
Bellek(4, 9) = "Nicosia & Lefkoşa"
Bellek(4, 10) = "http://tr.wikipedia.org/wiki/Lefko%C5%9Fa"
Bellek(4, 11) = "https://www.cia.gov/library/publications/the-world-factbook/geos/cy.html"
Population = Population + Bellek(4, 7)
Square = Square + Bellek(4, 8)
Bellek(5, 1) = 5
Bellek(5, 2) = "https://www.cia.gov/library/publications/the-world-factbook/graphics/flags/large/ez-lgflag.gif"
Bellek(5, 3) = "Czech Republic"
Bellek(5, 4) = "http://tr.wikipedia.org/wiki/%C3%87ek_Cumhuriyeti"
Bellek(5, 5) = "Czech Republic"
Bellek(5, 6) = 2004
Bellek(5, 7) = 10306709
Bellek(5, 8) = 78866
Bellek(5, 9) = "Prag"
Bellek(5, 10) = "http://tr.wikipedia.org/wiki/Prag"
Bellek(5, 11) = "https://www.cia.gov/library/publications/the-world-factbook/geos/ez.html"
Population = Population + Bellek(5, 7)
Square = Square + Bellek(5, 8)
Bellek(6, 1) = 6
Bellek(6, 2) = "https://www.cia.gov/library/publications/the-world-factbook/graphics/flags/large/da-lgflag.gif"
Bellek(6, 3) = "Denmark"
Bellek(6, 4) = "http://tr.wikipedia.org/wiki/Danimarka"
Bellek(6, 5) = "Kingdom of Denmark"
Bellek(6, 6) = 1973
Bellek(6, 7) = 5457415
Bellek(6, 8) = 43094
Bellek(6, 9) = "Copenhagen"
Bellek(6, 10) = "http://tr.wikipedia.org/wiki/Kopenhag"
Bellek(6, 11) = "https://www.cia.gov/library/publications/the-world-factbook/geos/da.html"
Population = Population + Bellek(6, 7)
Square = Square + Bellek(6, 8)
Bellek(7, 1) = 7
Bellek(7, 2) = "https://www.cia.gov/library/publications/the-world-factbook/graphics/flags/large/en-lgflag.gif"
Bellek(7, 3) = "Estonia"
Bellek(7, 4) = "http://tr.wikipedia.org/wiki/Estonya"
Bellek(7, 5) = "Republic of Estonia"
Bellek(7, 6) = 2004
Bellek(7, 7) = 1342409
Bellek(7, 8) = 45226
Bellek(7, 9) = "Tallinn"
Bellek(7, 10) = "http://tr.wikipedia.org/wiki/Tallinn"
Bellek(7, 11) = "https://www.cia.gov/library/publications/the-world-factbook/geos/en.html"
Population = Population + Bellek(7, 7)
Square = Square + Bellek(7, 8)
Bellek(8, 1) = 8
Bellek(8, 2) = "https://www.cia.gov/library/publications/the-world-factbook/graphics/flags/large/fi-lgflag.gif"
Bellek(8, 3) = "Finland"
Bellek(8, 4) = "http://tr.wikipedia.org/wiki/Finlandiya"
Bellek(8, 5) = "Republic of Finland"
Bellek(8, 6) = 1995
Bellek(8, 7) = 5289128
Bellek(8, 8) = 338145
Bellek(8, 9) = "Helsinki"
Bellek(8, 10) = "http://tr.wikipedia.org/wiki/Helsinki"
Bellek(8, 11) = "https://www.cia.gov/library/publications/the-world-factbook/geos/fi.html"
Population = Population + Bellek(8, 7)
Square = Square + Bellek(8, 8)
Bellek(9, 1) = 9
Bellek(9, 2) = "https://www.cia.gov/library/publications/the-world-factbook/graphics/flags/large/fr-lgflag.gif"
Bellek(9, 3) = "France"
Bellek(9, 4) = "http://tr.wikipedia.org/wiki/Fransa"
Bellek(9, 5) = "French Republic"
Bellek(9, 6) = 1951
Bellek(9, 7) = 63392140
Bellek(9, 8) = 547030
Bellek(9, 9) = "Paris"
Bellek(9, 10) = "http://tr.wikipedia.org/wiki/Paris"
Bellek(9, 11) = "https://www.cia.gov/library/publications/the-world-factbook/geos/fr.html"
Population = Population + Bellek(9, 7)
Square = Square + Bellek(9, 8)
Bellek(10, 1) = 10
Bellek(10, 2) = "https://www.cia.gov/library/publications/the-world-factbook/graphics/flags/large/gm-lgflag.gif"
Bellek(10, 3) = "Germany"
Bellek(10, 4) = "http://tr.wikipedia.org/wiki/Almanya"
Bellek(10, 5) = "Federal Republic of Germany"
Bellek(10, 6) = 1951
Bellek(10, 7) = 82314906
Bellek(10, 8) = 357050
Bellek(10, 9) = "Berlin"
Bellek(10, 10) = "http://tr.wikipedia.org/wiki/Berlin"
Bellek(10, 11) = "https://www.cia.gov/library/publications/the-world-factbook/geos/gm.html"
Population = Population + Bellek(10, 7)
Square = Square + Bellek(10, 8)
Bellek(11, 1) = 11
Bellek(11, 2) = "https://www.cia.gov/library/publications/the-world-factbook/graphics/flags/large/gr-lgflag.gif"
Bellek(11, 3) = "Greece"
Bellek(11, 4) = "http://tr.wikipedia.org/wiki/Yunanistan"
Bellek(11, 5) = "Hellenic Republic"
Bellek(11, 6) = 1981
Bellek(11, 7) = 11125179
Bellek(11, 8) = 131990
Bellek(11, 9) = "Atina"
Bellek(11, 10) = "http://tr.wikipedia.org/wiki/Atina"
Bellek(11, 11) = "https://www.cia.gov/library/publications/the-world-factbook/geos/gr.html"
Population = Population + Bellek(11, 7)
Square = Square + Bellek(11, 8)
Bellek(12, 1) = 12
Bellek(12, 2) = "https://www.cia.gov/library/publications/the-world-factbook/graphics/flags/large/hu-lgflag.gif"
Bellek(12, 3) = "Hungary"
Bellek(12, 4) = "http://tr.wikipedia.org/wiki/Macaristan"
Bellek(12, 5) = "Republic of Hungary"
Bellek(12, 6) = 2004
Bellek(12, 7) = 10066158
Bellek(12, 8) = 93030
Bellek(12, 9) = "Budapeşte"
Bellek(12, 10) = "http://tr.wikipedia.org/wiki/Budape%C5%9Fte"
Bellek(12, 11) = "https://www.cia.gov/library/publications/the-world-factbook/geos/hu.html"
Population = Population + Bellek(12, 7)
Square = Square + Bellek(12, 8)
Bellek(13, 1) = 13
Bellek(13, 2) = "https://www.cia.gov/library/publications/the-world-factbook/graphics/flags/large/ei-lgflag.gif"
Bellek(13, 3) = "Ireland"
Bellek(13, 4) = "http://tr.wikipedia.org/wiki/%C4%B0rlanda_Cumhuriyeti"
Bellek(13, 5) = ""
Bellek(13, 6) = 1973
Bellek(13, 7) = 4239848
Bellek(13, 8) = 70273
Bellek(13, 9) = "Dublin"
Bellek(13, 10) = "http://tr.wikipedia.org/wiki/Dublin"
Bellek(13, 11) = "https://www.cia.gov/library/publications/the-world-factbook/geos/ei.html"
Population = Population + Bellek(13, 7)
Square = Square + Bellek(13, 8)
Bellek(14, 1) = 14
Bellek(14, 2) = "https://www.cia.gov/library/publications/the-world-factbook/graphics/flags/large/it-lgflag.gif"
Bellek(14, 3) = "Italy"
Bellek(14, 4) = "http://tr.wikipedia.org/wiki/%C4%B0talya"
Bellek(14, 5) = "Italian Republic"
Bellek(14, 6) = 1951
Bellek(14, 7) = 59131287
Bellek(14, 8) = 301318
Bellek(14, 9) = "Rome"
Bellek(14, 10) = "http://tr.wikipedia.org/wiki/Roma"
Bellek(14, 11) = "https://www.cia.gov/library/publications/the-world-factbook/geos/it.html"
Population = Population + Bellek(14, 7)
Square = Square + Bellek(14, 8)
Bellek(15, 1) = 15
Bellek(15, 2) = "https://www.cia.gov/library/publications/the-world-factbook/graphics/flags/large/lg-lgflag.gif"
Bellek(15, 3) = "Latvia"
Bellek(15, 4) = "http://tr.wikipedia.org/wiki/Letonya"
Bellek(15, 5) = "Republic of Latvia"
Bellek(15, 6) = 2004
Bellek(15, 7) = 2281305
Bellek(15, 8) = 64589
Bellek(15, 9) = "Riga"
Bellek(15, 10) = "http://tr.wikipedia.org/wiki/Riga"
Bellek(15, 11) = "https://www.cia.gov/library/publications/the-world-factbook/geos/lg.html"
Population = Population + Bellek(15, 7)
Square = Square + Bellek(15, 8)
Bellek(16, 1) = 16
Bellek(16, 2) = "https://www.cia.gov/library/publications/the-world-factbook/graphics/flags/large/lh-lgflag.gif"
Bellek(16, 3) = "Lithuania"
Bellek(16, 4) = "http://tr.wikipedia.org/wiki/Litvanya"
Bellek(16, 5) = "Republic of Lithuania"
Bellek(16, 6) = 2004
Bellek(16, 7) = 3373991
Bellek(16, 8) = 65303
Bellek(16, 9) = "Vilnius"
Bellek(16, 10) = "http://tr.wikipedia.org/wiki/Vilnius"
Bellek(16, 11) = "https://www.cia.gov/library/publications/the-world-factbook/geos/lh.html"
Population = Population + Bellek(16, 7)
Square = Square + Bellek(16, 8)
Bellek(17, 1) = 17
Bellek(17, 2) = "https://www.cia.gov/library/publications/the-world-factbook/graphics/flags/large/lu-lgflag.gif"
Bellek(17, 3) = "Luxembourg"
Bellek(17, 4) = "http://tr.wikipedia.org/wiki/L%C3%Bcksemburg"
Bellek(17, 5) = "Grand Duchy of Luxembourg"
Bellek(17, 6) = 1951
Bellek(17, 7) = 476200
Bellek(17, 8) = 2586
Bellek(17, 9) = "Luxembourg"
Bellek(17, 10) = "http://tr.wikipedia.org/wiki/L%C3%Bcksemburg"
Bellek(17, 11) = "https://www.cia.gov/library/publications/the-world-factbook/geos/lu.html"
Population = Population + Bellek(17, 7)
Square = Square + Bellek(17, 8)
Bellek(18, 1) = 18
Bellek(18, 2) = "https://www.cia.gov/library/publications/the-world-factbook/graphics/flags/large/mt-lgflag.gif"
Bellek(18, 3) = "Malta"
Bellek(18, 4) = "http://tr.wikipedia.org/wiki/Malta"
Bellek(18, 5) = "Malta Cumhuriyeti"
Bellek(18, 6) = 2004
Bellek(18, 7) = 404962
Bellek(18, 8) = 316
Bellek(18, 9) = "Valletta"
Bellek(18, 10) = "http://tr.wikipedia.org/wiki/Valletta"
Bellek(18, 11) = "https://www.cia.gov/library/publications/the-world-factbook/geos/mt.html"
Population = Population + Bellek(18, 7)
Square = Square + Bellek(18, 8)
Bellek(19, 1) = 19
Bellek(19, 2) = "https://www.cia.gov/library/publications/the-world-factbook/graphics/flags/large/nl-lgflag.gif"
Bellek(19, 3) = "Netherlands"
Bellek(19, 4) = "http://tr.wikipedia.org/wiki/Hollanda"
Bellek(19, 5) = "Kingdom of the Netherlands"
Bellek(19, 6) = 1951
Bellek(19, 7) = 16372715
Bellek(19, 8) = 41526
Bellek(19, 9) = "Amsterdam"
Bellek(19, 10) = "http://tr.wikipedia.org/wiki/Amsterdam"
Bellek(19, 11) = "https://www.cia.gov/library/publications/the-world-factbook/geos/nl.html"
Population = Population + Bellek(19, 7)
Square = Square + Bellek(19, 8)
Bellek(20, 1) = 20
Bellek(20, 2) = "https://www.cia.gov/library/publications/the-world-factbook/graphics/flags/large/pl-lgflag.gif"
Bellek(20, 3) = "Poland"
Bellek(20, 4) = "http://tr.wikipedia.org/wiki/Polonya"
Bellek(20, 5) = "Republic of Poland"
Bellek(20, 6) = 2004
Bellek(20, 7) = 38635144
Bellek(20, 8) = 312683
Bellek(20, 9) = "Warsaw"
Bellek(20, 10) = "http://tr.wikipedia.org/wiki/Var%C5%9Fova"
Bellek(20, 11) = "https://www.cia.gov/library/publications/the-world-factbook/geos/pl.html"
Population = Population + Bellek(20, 7)
Square = Square + Bellek(20, 8)
Bellek(21, 1) = 21
Bellek(21, 2) = "https://www.cia.gov/library/publications/the-world-factbook/graphics/flags/large/po-lgflag.gif"
Bellek(21, 3) = "Portugal"
Bellek(21, 4) = "http://tr.wikipedia.org/wiki/Portekiz"
Bellek(21, 5) = "Portuguese Republic"
Bellek(21, 6) = 1986
Bellek(21, 7) = 10599095
Bellek(21, 8) = 92391
Bellek(21, 9) = "Lisbon"
Bellek(21, 10) = "http://tr.wikipedia.org/wiki/Lizbon"
Bellek(21, 11) = "https://www.cia.gov/library/publications/the-world-factbook/geos/po.html"
Population = Population + Bellek(21, 7)
Square = Square + Bellek(21, 8)
Bellek(22, 1) = 22
Bellek(22, 2) = "https://www.cia.gov/library/publications/the-world-factbook/graphics/flags/large/ro-lgflag.gif"
Bellek(22, 3) = "Romania"
Bellek(22, 4) = "http://tr.wikipedia.org/wiki/Romanya"
Bellek(22, 5) = ""
Bellek(22, 6) = 2007
Bellek(22, 7) = 21565119
Bellek(22, 8) = 238391
Bellek(22, 9) = "Bükreş"
Bellek(22, 10) = "http://tr.wikipedia.org/wiki/B%C3%BCkre%C5%9F"
Bellek(22, 11) = "https://www.cia.gov/library/publications/the-world-factbook/geos/ro.html"
Population = Population + Bellek(22, 7)
Square = Square + Bellek(22, 8)
Bellek(23, 1) = 23
Bellek(23, 2) = "https://www.cia.gov/library/publications/the-world-factbook/graphics/flags/large/lo-lgflag.gif"
Bellek(23, 3) = "Slovakia"
Bellek(23, 4) = "http://tr.wikipedia.org/wiki/Slovakya"
Bellek(23, 5) = "Slovak Republic"
Bellek(23, 6) = 2004
Bellek(23, 7) = 5396168
Bellek(23, 8) = 49037
Bellek(23, 9) = "Bratislava"
Bellek(23, 10) = "http://tr.wikipedia.org/wiki/Bratislava"
Bellek(23, 11) = "https://www.cia.gov/library/publications/the-world-factbook/geos/lo.html"
Population = Population + Bellek(23, 7)
Square = Square + Bellek(23, 8)
Bellek(24, 1) = 24
Bellek(24, 2) = "https://www.cia.gov/library/publications/the-world-factbook/graphics/flags/large/si-lgflag.gif"
Bellek(24, 3) = "Slovenia"
Bellek(24, 4) = "http://tr.wikipedia.org/wiki/Slovenya"
Bellek(24, 5) = "Republic of Slovenia"
Bellek(24, 6) = 2004
Bellek(24, 7) = 2013597
Bellek(24, 8) = 20273
Bellek(24, 9) = "Ljubljana"
Bellek(24, 10) = "http://tr.wikipedia.org/wiki/Ljubljana"
Bellek(24, 11) = "https://www.cia.gov/library/publications/the-world-factbook/geos/si.html"
Population = Population + Bellek(24, 7)
Square = Square + Bellek(24, 8)
Bellek(25, 1) = 25
Bellek(25, 2) = "https://www.cia.gov/library/publications/the-world-factbook/graphics/flags/large/sp-lgflag.gif"
Bellek(25, 3) = "Spain"
Bellek(25, 4) = "http://tr.wikipedia.org/wiki/%C4%B0spanya"
Bellek(25, 5) = "Kingdom of Spain"
Bellek(25, 6) = 1986
Bellek(25, 7) = 45116894
Bellek(25, 8) = 506030
Bellek(25, 9) = "Madrid"
Bellek(25, 10) = "http://tr.wikipedia.org/wiki/Madrid"
Bellek(25, 11) = "https://www.cia.gov/library/publications/the-world-factbook/geos/sp.html"
Population = Population + Bellek(25, 7)
Square = Square + Bellek(25, 8)
Bellek(26, 1) = 26
Bellek(26, 2) = "https://www.cia.gov/library/publications/the-world-factbook/graphics/flags/large/sw-lgflag.gif"
Bellek(26, 3) = "Sweden"
Bellek(26, 4) = "http://tr.wikipedia.org/wiki/%C4%B0sve%C3%A7"
Bellek(26, 5) = "Kingdom of Sweden"
Bellek(26, 6) = 1995
Bellek(26, 7) = 9142817
Bellek(26, 8) = 449964
Bellek(26, 9) = "Stockholm"
Bellek(26, 10) = "http://tr.wikipedia.org/wiki/Stokholm"
Bellek(26, 11) = "https://www.cia.gov/library/publications/the-world-factbook/geos/sw.html"
Population = Population + Bellek(26, 7)
Square = Square + Bellek(26, 8)
Bellek(27, 1) = 27
Bellek(27, 2) = "https://www.cia.gov/library/publications/the-world-factbook/graphics/flags/large/uk-lgflag.gif"
Bellek(27, 3) = "United Kingdom"
Bellek(27, 4) = "http://tr.wikipedia.org/wiki/Birle%C5%9Fik_Krall%C4%B1k"
Bellek(27, 5) = "United Kingdom of Great Britain and Northern Ireland"
Bellek(27, 6) = 1973
Bellek(27, 7) = 60587300
Bellek(27, 8) = 244820
Bellek(27, 9) = "London"
Bellek(27, 10) = "http://tr.wikipedia.org/wiki/Londra"
Bellek(27, 11) = "https://www.cia.gov/library/publications/the-world-factbook/geos/uk.html"
Population = Population + Bellek(27, 7)
Square = Square + Bellek(27, 8)
Bellek(28, 1) = "Top"
Bellek(28, 2) = "https://www.cia.gov/library/publications/the-world-factbook/graphics/flags/large/ee-lgflag.gif"
Bellek(28, 3) = "European Union"
Bellek(28, 4) = "http://tr.wikipedia.org/wiki/Avrupa_Birli%C4%9Fi"
Bellek(28, 5) = "European Union"
Bellek(28, 6) = 1951
Bellek(28, 7) = Population
Bellek(28, 8) = Square
Bellek(28, 9) = "Brussels, Strasbourg, Luxembourg"
Bellek(28, 10) = "http://tr.wikipedia.org/wiki/Br%C3%Bcksel"
Bellek(28, 11) = "https://www.cia.gov/library/publications/the-world-factbook/geos/ee.html"
End Sub
Private Sub AB_Kur()
On Error Resume Next
With vsFlexArray1
.TextMatrix(0, 0) = "No"
.TextMatrix(0, 1) = "Flag"
.TextMatrix(0, 2) = "Devlet"
.TextMatrix(0, 3) = "Resmi Adı"
.TextMatrix(0, 4) = "Kabul"
.TextMatrix(0, 5) = "Nüfus"
.TextMatrix(0, 6) = "Alan (km²)"
.TextMatrix(0, 7) = "Başkent"
For i = 1 To 28
.TextMatrix(i, 0) = Bellek(i, 1)
.Row = i: .Col = 1: .RowHeight(i) = 24 * 20
Set .CellPicture = Resim(Bellek(i, 2))
.CellPictureAlignment = flexPicAlignCenterCenter
.CellPictureAlignment = flexPicAlignStretch
.WordWrap = True
.TextMatrix(i, 2) = Bellek(i, 3) '4 .TextMatrix(i, 3) = Bellek(i, 5)
.TextMatrix(i, 4) = Bellek(i, 6)
.TextMatrix(i, 5) = Bellek(i, 7)
.TextMatrix(i, 6) = Bellek(i, 8)
.TextMatrix(i, 7) = Bellek(i, 9) '10
Next i
For i = 0 To 7
For ii = 0 To 28
If ii = 0 Then .Row = 0: .Col = i: .CellBackColor = VBA.RGB(220, 220, 220): .CellFontBold = True: .CellTextStyle = flexTextRaised
If ii = 28 Then .Row = 28: .Col = i: .CellBackColor = VBA.RGB(220, 220, 220): .CellFontBold = True: .CellTextStyle = flexTextRaised
If i = 0 Then .Row = ii: .Col = 0: .CellBackColor = VBA.RGB(220, 220, 220): .CellFontBold = True: .CellTextStyle = flexTextRaised
Next ii
Next i
End With
End Sub


'Module1


Option Explicit
Public Declare Function CLSIDFromString Lib "ole32" (ByVal lpstrCLSID As Long, lpCLSID As Any) As Long
Public 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
Public IPic(15) As Byte
Public Const ClsID As Variant = "{7BF80980-BF32-101A-8BBB-00AA00300CAB}"
Public Const URL1 As String = "http://2.bp.blogspot.com/-G3KDFVP7V0Q/TcUhtYtMifI/AAAAAAAACw0/Ta6mFpFJtZ8/s1600/39.bmp"
Public Const URL2 As String = "http://2.bp.blogspot.com/_hsHTxo_5L8E/S78EbvJyhRI/AAAAAAAACS0/txbOQ1qubg8/s1600/PB%C4%B0D_jpg.jpg"
Public URL As String
Sub Form_Aç() 'Open UserForm
On Error Resume Next
Load UserForm1
End Sub
Public Function Resim(URL) As Picture 'Picture load frome web address...
On Error Resume Next
CLSIDFromString StrPtr(ClsID), IPic(0)
OleLoadPicturePath StrPtr(URL), 0&, 0&, 0&, IPic(0), Resim
End Function
'Sub References_List()
' On Error Resume Next
' Dim Eleman, No
' No = 1
' For Each Eleman In ThisWorkbook.VBProject.References
' Sheets(1).Cells(No, 1) = No & ") Name: "
' Sheets(1).Cells(No, 2) = Eleman.Name
' Sheets(1).Cells(No, 3) = ", Description: "
' Sheets(1).Cells(No, 4) = Eleman.Description
' Sheets(1).Cells(No, 5) = ", FullPath: "
' Sheets(1).Cells(No, 6) = Eleman.FullPath
' No = No + 1
' Next Eleman
'End Sub


'Class1


Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal Pencere_Düzeni As Long, ByVal Mesaj As Long, ByVal Değişken1 As Long, Değişken2 As Any) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal Class_Adı As String, ByVal Ekran_Adı As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal Pencere As Long, ByVal Koordinat As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal Pencere_Düzeni As Long, ByVal Koordinat As Long, ByVal Yeni_Boyut As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal Pencere As Long, ByVal Eylem As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal Pencere As Long) As Long
Public Property Set Ekran1(Ekran As Object)
On Error Resume Next
Simge_Yarat Ekran, FindWindow(vbNullString, Ekran.Caption), Ekran.Image1.Picture
SetWindowLong FindWindow(vbNullString, Ekran.Caption), (-16), GetWindowLong(FindWindow(vbNullString, Ekran.Caption), (-16)) Or &H80000 Or &H20000 Or &H10000
ShowWindow FindWindow(vbNullString, Ekran.Caption), 3
DrawMenuBar FindWindow(vbNullString, Ekran.Caption)
End Property
Private Function Simge_Yarat(Form As Object, Başlık As Long, EkranSimge As Long)
On Error Resume Next
Call SendMessage(Başlık, &H80, 0&, ByVal EkranSimge)
Call SendMessage(Başlık, &H80, 1&, ByVal EkranSimge)
End Function

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