Microsoft Office Excel ® Kod Kılavuzu

Microsoft Office Excel® Code Guide

4 Nisan 2010 Pazar

Registry Access Functions




'UserForm1

'A) Download Reference (Free)

'B) Windows XP® Office 2003® Normal Referance List
'Visual Basic For Applications
'Microsoft Excel 11.0 Object Library
'OLE Automation
'Microsoft Office 11.0 Object Library
'Microsoft Forms 2.0 Object Library
'Registry Access Functions; [C:\WINDOWS\system32\regtool5.dll][http://www.dlldll.com/regtool5.dll_download.html]
'C) UserForm1'e Eklenen Araçlar (Add Tools)
'Frame1
'Frame1\Image1, Label1, Label2
'ListBox1
Private Const HKEY_CLASSES_ROOT = &H80000000
Private Const HKEY_CURRENT_CONFIG = &H80000005
Private Const HKEY_CURRENT_USER = &H80000001
Private Const HKEY_DYN_DATA = &H80000006
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Const HKEY_PERFORMANCE_DATA = &H80000004
Private Const HKEY_USERS = &H80000003
Private Aranan As Long
Private i As Single
Private Reg As New Registry
Private Data As String
Private Sub UserForm_Initialize()

On Error Resume Next
Me.Caption = "[PBİD®] Registry Access Functions"
Call EkranDüzenle
For i = 0 To 6000
Aranan = Reg.GetKeyValue(HKEY_CURRENT_USER, "SOFTWARE\Microsoft\Internet Explorer\TypedURLs\", CStr("url" & i), Data)
If Aranan Then ListBox1.AddItem Data
Next i
End Sub
Private Sub EkranDüzenle()

On Error Resume Next
With Me
.Height = 348
.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 ListBox1
.Left = 6
.Top = 36
.Height = 294
.Width = 466
.SpecialEffect = fmSpecialEffectEtched
.ForeColor = &H404000
.BorderStyle = fmBorderStyleNone
.BackColor = vbWhite
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