Label – Etiket-V.Basic-(Kaynak1)

Label - Özellikler



Alignment

Appearance

AutoSize

BackColor

BackStyle

BorderStyle

Caption

Container

DataChanged

DataField

DataFormat

DataMember

DataSource

DragIcon

DragMode


Enabled

Font

FontBold

FontItalic

FontName

FontSize

MousePointer

Name

FontStrikethru

FontUnderline

ForeColor

Height

Index

Left

LinkItem

LinkMode


LinkNotify

LinkTimeout

LinkTopic

MouseIcon

OleDropMode

Parent

RightToLeft

TabIndex

Tag

ToolTipText

Top

UseMnemonic

Visible

WhatsThisHelpID

Width

WordWrap





Alignment : Metnin Label içerisinde yazılış yeri

(0 - Left Justify, 1 - Right Justify, 2 - Center)

AutoSize : Label büyüklüğünün otomatik olarak metin boyutlarına getirilmesi

BorderStyle : Label çerçevesi (1 - Fixed Single, 0 - None)

WordWrap : AutoSize'da yazının alta kaydırılması






Label - Olaylar





Change

Click

DblClick

DragDrop

DragOver

LinkClose


LinkError

LinkNotify

LinkOpen

MouseDown

MouseMove

MouseUp


OleCompleteDrag

OleDragDrop

OleDragOver

OleGiveFeedBack

OleSetData

OleStartDrag



Change : Caption'un değişmesi



Label - Yöntemler





Drag

LinkExecute

LinkPoke


LinkRequest

LinkSend

Move


OleDrag

Refresh

ShowWhatsThis

Zorder



Dikine Uzayan Label


Private Sub Form_Load()

Dim temp As String

With Label1 ‘ Label1 ‘in özellikleri ayarlanıyor

.Alignment = 2

.AutoSize = True

.FontSize = 18

.FontBold = True

.Caption = "DİKİNE"

End With

For i = 1 To Len(Label1) ‘ Her bir harf için satır başı yapılıyor

temp = temp & Mid$(Label1, i, 1) & vbCrLf

Next

Label1 = temp

temp = ""

With Label2 ‘ Label2 özellikleri ayarlanıyor

.Alignment = 2

.AutoSize = True

.FontSize = 18

.FontBold = True

.Caption = "LABEL"

End With

For i = 1 To Len(Label2) ‘ Her bir harf için satır başı yapılıyor

temp = temp & Mid$(Label2, i, 1) & vbCrLf

Next

Label2 = temp

End Sub