DataObject
DataObject drag-and-drop . DataObject , , . DataObject.
| GetText | DataObject. : String = object.GetText |
| SetText | DataObject. : SetText(StoreData) - StoreData , DataObject |
| StartDrag | drag-and-drop DataObject. : = Object.StartDrag - drag-and-drop ( ) |
| GetText | DataObject. : = object.GetText - , , DataObject |
| PutInClipboard | DataObject |
| GetFromCiipboard | DataObject |
.
TextBox () (TextBox) (. 2.8). TextBox , , . , , ,
2.8
TextBox .
| Text | , |
| Visible | : True ( ) False ( ) |
| Enabled | : True ( ) False ( ) |
| Multiline | : True ( ) False ( ) |
| Wordwrap | : True ( ) False ( ) |
| AutoSize | : True ( , ) False ( ) |
| ScrollBars | . : fmScrollBarsNone ( ) fmScrollBarsHorizontal ( ) fmScrollBarsVertical ( ) fmScrollBarsBoth ( ) |
| SelLenght, SelStart SelText | (, ) |
| MaxLength | . 0, . |
| PasswordChar | , . , |
|
|
|
Label () (Label) (. 2.9). Label , , caption. , .
2.9
Label .
| Caption | , |
| Visible | : True ( ) False ( ) |
| Multiline | : True ( ) False ( ) |
| Wordwrap | : True ( ) False ( ) |
| AutoSize | : True ( , ) False ( ) |
ommandButton () (CommandButton) (. 2.10). ommandButton , , , . .
2.10
CmmandButton.
| Caption | , |
| Cancel | : True ( , . . <Esc> , ) False ( ) |
| Visible | : True ( ) False ( ) |
| Enabled | : True ( ) False ( ) |
| Accelerator | , <Alt> , . , CommandButton1. Accelerator = "" |
| Picture | . , CommandButton1. Picture = _ LoadPicture (": \mydoc\Kpy.bmp") LoadPicture () . |
| Default | , . . , , , <Enter> |
ListBox () (ListBox) (. 2.11). ListBox . , .
|
|
|
2.11
ListBox.
| Listlndex | . |
| ListCount | |
| Toplndex | |
| ColumnCount | |
| TextColumn | , Text |
| Enabled | : True ( ) False ( ) |
| Text | |
| List | , . : List(row, column) |
| RowSource | , |
| Control Source | (), |
| MultiSelect | . : fmMultiSelectSingle ( ); fmMultiSelectMulti ( , <>); fmMultiSelectExtended ( <Shift> ) |
| Selected | : True ( ) False ( ). , MultiSelect fmMultiSelectMulti fmMultiSelectExtended |
| ColumnWidths | . : ColumnWidths = String - String , . : With ListBox1 .ColumnCount = 3 .ColumnWidths = "20;30;30" End With |
| ColumnHeads | : True ( ) False ( ) |
| ListStyle | : fmListStyleplain ( ); fmListStyleOption ( ) |
| MatchEntry | . : fmMatchEntryNone ( ); fmMatchEntryFirstLetter( . , , ); fmMatchEntryComplete ( ) |
| BoundColumn | , Value. , BoundColumn 0, value , . . Listindex. BoundColumn 1 , Value , , BoundColumn |
ListBox.
| Clear | |
| Remove Item | . : Remove Item (index) index , |
| Add Item | . : Addltem ([ item [, varIndex]]) -item ( ), -varlndex |
2.12
| , (. 2.12) | With ListBox1 .AddItem .AddItem .AddItem .ListIndex = 0 End With | ||
| , | With ListBoxl .List = Array("","","") .Listlndex = 1 End With | ||
| a1: B4, . ( ) 1 | With ListBoxl .ColumnCount = 2 .RowSource = "A1:B4" .ControlSource = "1" .BoundColumn = 0 End With | ||
| , , | With ListBoxl .ColumnCount = 2 .Addltem "" .ListfO, 1) = "" .Addltem "" .Listfl, 1) = "" .Addltem "" .List (2, 1) = "" End With | ||
| , , | Dim A (2, 1) As String A(0, 0) = "" A(0, 1) = "" A(1, 0) = "" (1, 1) = "" A(2, 0) = "" A(2, 1) = "" With ListBox1 .ColumnCount = 2 .List = A End With | ||
|
|
|
Multiselect , . Selected , . . 2.13 . .
2.13
With ListBox1
.List = Array(1, 3, 4, 5, 6, 7, 8, 9)
.Listlndex = 0
.MultiSelect = fmMultiSelectMuIti
= 0
n = 0
For i = 0 .ListCount 1
If.Selected(i) = True Then
n = n + l
= +.List(i)
End If
Next I
End With
= / n
mb ( ) (ComboBox) (. 2.14). ComboBox . ListBox TextBox. ListBox, ombo, . , , , , TextBox.
ombo, Listlndex, ListCount, Enabled, List Clear, RemoveItem AddItem ListBox. , .
2.14
mb.
| DropButtonStyle | . : FmDropButtonStylePlain( ); FmDropButtonStyleArrowDisplays ( ); FmDropButtonStyleEllipsis ( ); FmDropButtonStyleReduce ( ) |
| ListRows | , |
| MatchRequired | : True ( , , . . ) False ( ) |
| MatchFound | : True ( , ) False ( ) |
|
|
|
