Строковые функции VB Я их специально не поместил в первую часть, т.к. они нам пригодятся при создании календаря. Для начала создай новый проект, на форму кинь 3 текстовых поля и 3 кнопки. Len(Слово) - считает сколько символов в слове. В созданном проекте воспользуемся кнопкой 1: Private Sub Command1_Click() Text1.Text = Len(Text2.Text) End Sub Private Sub Command1_Click() Text1.Text = Len("Visual Basic") End Sub 2. Left(Слово, Длина) - эта функция служит для вырезания подстроки. В созданном проекте воспользуемся кнопкой 2: Private Sub Command2_Click() Text2.Text = Left("Visual Basic", 6) End Sub 3. Mid(Слово, Позиция, Длина) - это функция нужна также как и Left для вырезания, но у Left будет вырезаться с самого первого символа, а в Mid можно задать позицию. В созданном проекте воспользуемся кнопкой 3: Private Sub Command3_Click() Text1.Text = Mid("VisualBasic", 7, 5) End Sub 4. vbCrLf - Забытая всеми Константа перевода строки, вместо нее можно использовать: "Chr (13) + Chr (10)". Пример: На форму кинь кнопку, и текст. поле(свойство Multiline = True), код: Private Sub Command1_Click() Text1.Text = "Функция перевода" + vbCrLf + "строки" End Sub Здесь, фраза "Функция перевода" будет на одной строке, а слово "строки" на другой.
|