Программирование
Веб программирование

Свойства visual basic

 
 

Текстовое поле:

  1. Alignment - Это свойство задает способ отабражения текста в текстовом поле. По умолчанию, свойство равно "0", т.е. текст отображается с лева на право, если установить значение "1", то текст будет отображаться с право на лево, если значение сделать "2" - то по центру. 
  2. Appearance - С помощью этого свойства можно изменять внешний вид текстового поля, делать текст. поле или вдавленным, или плоским. 
  3. BackColor - Цвет фона текстового поля
  4. BorderStyle - Это свойство Убирает или ставит рамку. Значение "0" - с рамкой, "1" - без рамки
  5. Font - шрифт
  6. Multuline - Это самое известное свойство, оно нужно для переключения в однострочный и многострочный режим (может это как - нибуть по другому называется, но т.к. я где - то услышал умное слово, то и решил им воспользоваться). Если стоит False - то однострочный режим, True - многострочный.
  7. MaxLenght - это ограничитель вводимых символов. Например, если ты там напишешь 2 - то сможешь ввести только 2 символа. Вот так.
  8. ScrollBars - это свойство нужно для установки скруллбаров (полос прокрутки). 
  9. ToolTipText - Введенный сюда текст будет появлятся в виде подсказки, при наведении на текст. поле текст.

Метка:

Все теже свойства, что и в текстовом поле +:

  1. BackStyle - это свойство делает фон у метки прозрачным, очень полезное свойство
  2. AutoSize - Это свойство автоматически регулирует размер метки.

А теперь события. При двойном клике по текстовому полю, создается процедура Text1_Change(). В какой - то части я говорил что это переводится как изменение. Так вот, при каждом изменении содержимого текстового поля, будет выполняться какое - то действия. И чтоб ты убедился что я не вру, сделаем программу. На форму кинь текстовое поле и метку. При вводе текста в текстовое поле, надпись метки будет меняться. Код:

Private Sub Text1_Change()
Label1.Caption = Text1.Text
End Sub

Есть вопросы? Спроси на нашем форуме!!
Вероничка [19.05.2011 16:03]

а как же метка...(((

Тестовичок [20.11.2011 13:47]

И где остальные свойства?!

Samou4120 [08.03.2013 21:58]

На новую форму киньте:
Одно текстовое поле (побольше)(в свойствах MultiLine поставьте на True),
одну метку и 14 кнопок.
Код:

Private Sub Command1Click()
Text1.Alignment = 0
End Sub

Private Sub Command10
Click()
Text1.BorderStyle = 1
End Sub

Private Sub Command11Click()
Text1.Font = "Fixedsys"
End Sub

Private Sub Command12
Click()
Text1.Font = "MS Reference Sans Serif"
End Sub

Private Sub Command13Click()
Text1.Font = "MS Sans Serif"
End Sub

Private Sub Command14
Click()
Unload Me
End Sub

Private Sub Command2Click()
Text1.Alignment = 1
End Sub

Private Sub Command3
Click()
Text1.Alignment = 2
End Sub

Private Sub Command4Click()
Text1.Appearance = 0
End Sub

Private Sub Command5
Click()
Text1.Appearance = 1
End Sub

Private Sub Command6Click()
Text1.BackColor = &H80000010
End Sub

Private Sub Command7
Click()
Text1.BackColor = &H80000011
End Sub

Private Sub Command8Click()
Text1.BackColor = &H80000005
End Sub

Private Sub Command9
Click()
Text1.BorderStyle = 0
End Sub

Private Sub FormLoad()

'даем всем всплывающие подсказки
Command1.ToolTipText = "Alignment = 0"
Command2.ToolTipText = "Alignment = 1"
Command3.ToolTipText = "Alignment = 2"
Command4.ToolTipText = "Appearance = 0"
Command5.ToolTipText = "Appearance = 1"
Command6.ToolTipText = "BackColor = &H80000010"
Command7.ToolTipText = "BackColor = &H80000011"
Command8.ToolTipText = "BackColor = &H80000005"
Command9.ToolTipText = "BorderStyle = 0"
Command10.ToolTipText = "BorderStyle = 1"
Command11.ToolTipText = "Fixedsys"
Command12.ToolTipText = "MS Reference Sans Serif"
Command13.ToolTipText = "MS Sans Serif"
Command14.ToolTipText = "Unload Me"
Text1.ToolTipText = "Это текстовое окно."
Label1.ToolTipText = "Это метка"

'даем кнопкам названия
Command1.Caption = "Текст слева"
Command2.Caption = "Текст справа"
Command3.Caption = "Текст по центру"
Command4.Caption = "Плоское поле"
Command5.Caption = "Вдавленное поле"
Command6.Caption = "Серый фон"
Command7.Caption = "Бежевый фон"
Command8.Caption = "Белый фон"
Command9.Caption = "Нету рамки"
Command10.Caption = "Есть рамка"
Command11.Caption = "Системный шрифт"
Command12.Caption = "Мягкий шрифт"
Command13.Caption = "Шрифт по умолчанию"
Command14.Caption = "Выход"

End Sub

Private Sub Text1
Change()
Label1.Caption = Text1.Text
End Sub



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.