Label, блин...

[Jew]

Добрый вечер! звиняйте что тревожу, но меня тревожит вопрос: а что, у Label нет свойства FOCUS, если есть, то как прописать его. Очень нужно!!! Спасибо всем кто ответил!

[Yurich]

Вроде нельзя, по крайней мере средствами VB. Label не рассчитан на ввод, потому фокусировать в него нечего. Может бывалые что-нить подскажут.

[moderator]

А зачем? Для ввода текста нужно использовать TextBox.

[DimPos]

Если в лейбл можно будет вводить то получится текстбокс ,но когда очень хочется то можно

[-=VUD=-]

Во-во-во... Ты у текстбокса borderstyle нулем поставь...

[Jew]

Хорошо. Буду с вами откровенен.
Текстбоксы занимают много памяти, а у меня програмуля ну просто напичкана формами и подразумевает использование полей для ввода данных и отображения введенных данных. Для экономии памяти можно использовать Лейбл, а для ввода использовать всего один ТексБокс при потере фокуса Sub Label1_LostFocus() инфа из текстбокса передается на этот Лейбл и ТБ перемещается на следующий Лейбл. Но в том и проблема, что Лейбл не теряет ФОКУС

[Фролов Сергей]

даже без лейблов. Создаешь класс CMyLabel который рисует текст прямо на форму - а обработчики всяких кликов и табуляций - прямо формой - и текстбокс по ней же таскать.

[Cyrax]

Хорошо. Буду с вами откровенен.
Текстбоксы занимают много памяти, а у меня програмуля ну просто напичкана формами и подразумевает использование полей для ввода данных и отображения введенных данных. Для экономии памяти можно использовать Лейбл, а для ввода использовать всего один ТексБокс при потере фокуса Sub Label1_LostFocus() инфа из текстбокса передается на этот Лейбл и ТБ перемещается на следующий Лейбл. Но в том и проблема, что Лейбл не теряет ФОКУС

а почему бы тогда не использовать какой-нибудь грид?
тогда и интерфейс более аккуратный получится...

[Александр Андреев]

У лейбла нет hWnd. Поэтому ему нельзя дать фокус ввода. Он предназначен только для отображения текста. Поэтому и забирает мало ресурсов.

[Jew]

даже без лейблов. Создаешь класс CMyLabel который рисует текст прямо на форму - а обработчики всяких кликов и табуляций - прямо формой - и текстбокс по ней же таскать.

Спасибо за совет, но может (если не трудно) примерный код нарисуешь... ведь я не программер, я только учусь

[Фролов Сергей]

по хорошему - mLabel -надо класс сделать - чтоб нормально рисовался

создай форму и Textbox - назови Text1:)

вот код (у формы поставь KeyPreview = True, AutoRedraw = True)

Option Explicit

Private Type MyLabelType
Caption As String
Left As Single
Width As Single
Top As Single
Height As Single
End Type

Private mLabel() As MyLabelType
Private curIndex As Integer

Private Sub InitLabels()
Dim i As Integer
ReDim mLabel(1 To
For i = 1 To 8
mLabel(i).Caption = "Label" & i
mLabel(i).Left = 300
mLabel(i).Top = i * 600
mLabel(i).Width = 500 * i
mLabel(i).Height = 400
DrawLabel i
Next
curIndex = 8
Form_KeyPress Asc(vbTab)
End Sub

Private Sub DrawLabel(ByVal Index As Integer)
Me.CurrentX = mLabel(Index).Left
Me.CurrentY = mLabel(Index).Top
Me.Print mLabel(Index).Caption
Me.Line (mLabel(Index).Left, mLabel(Index).Top)-(mLabel(Index).Left + mLabel(Index).Width, mLabel(Index).Top + mLabel(Index).Height), , B
End Sub

Private Sub Form_Activate()
InitLabels
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = Asc(vbTab) Then
mLabel(curIndex).Caption = Text1.Text
curIndex = curIndex + 1
If curIndex = 9 Then curIndex = 1
Text1.Top = mLabel(curIndex).Top
Text1.Left = mLabel(curIndex).Left
Text1.Width = mLabel(curIndex).Width
Text1.Height = mLabel(curIndex).Height
Text1.Text = mLabel(curIndex).Caption
Text1.SelStart = 0
Text1.SelLength = Len(mLabel(curIndex).Caption)
End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.Top = mLabel(1).Top
Text1.Left = mLabel(1).Left
Text1.Width = mLabel(1).Width
Text1.Height = mLabel(1).Height
curIndex = 1
End Sub

я думаю идея ясна