Вопрос № 42027: Подскажите пожалуйста, как определить какая из вкладок выбрана в группе вкладок на форме.Заранее спасибо....Вопрос № 42041: Добрый день.
Помогите пожалуйста решить небольшую задачу на VB:
Есть предложение, нужно в каждом слове поменять местами 1-ю и последнюю букву.
Заранее благодарна....Вопрос № 42072: Здравствуйте! Имеется следующая задача: в конце строки вставить картинку, причем картинка должна иметь положение="за текстом". Делаю так:
Set pic = Selection.InlineShapes.AddPicture("E:1.jpg", False, True,Selection.Rang...
Вопрос № 42.027
Подскажите пожалуйста, как определить какая из вкладок выбрана в группе вкладок на форме.Заранее спасибо.
Отправлен: 04.05.2006, 11:35
Вопрос задала: TTT (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Genyaa
Здравствуйте, TTT!
Свойство SelectedItem возвращает текущую страницу или объект в группе вкладок... если конечно я правильно понял о чем идет речь.
В приложении простейший пример. Параметр обработчика события Index также возвращает номер страницы (вкладки).
Приложение:
--------- Всякое решение плодит новые проблемы.
Ответ отправил: Genyaa (статус: 4-ый класс)
Ответ отправлен: 04.05.2006, 12:38
Отвечает: AlexanderZh
Здравствуйте, TTT!
У каждой закладки есть свойство Index (или Value), соответственно это значение и принимает объект MultiPage (или TabStrip)
Ответ отправил: AlexanderZh (статус: 6-ой класс)
Ответ отправлен: 04.05.2006, 12:40
Вопрос № 42.041
Добрый день.
Помогите пожалуйста решить небольшую задачу на VB:
Есть предложение, нужно в каждом слове поменять местами 1-ю и последнюю букву.
Заранее благодарна.
Отправлен: 04.05.2006, 13:18
Вопрос задала: Iris (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Филатов Евгений Геннадьевич
Здравствуйте, Iris!
Помещаем на форме Form1 объект Text1, куда будем вносить данные.
Под ним Label1, где выводится результат.
В код формы помещаем
Private Sub Form_Load( )
Form1.Label1 = ""
Form1.Text1 = ""
End Sub
Private Sub Text1_Change( )
If Len(Trim(Form1.Text1 ) ) > 1 Then
'сначала проверяем, чтобы длина строки была не менее 2 символов.
Form1.Label1 = Right(Trim(Form1.Text1 ), 1 ) & Mid(Trim(Form1.Text1 ), 2, Len(Trim(Form1.Text1 ) ) - 2 ) & Left(Trim(Form1.Text1 ), 1 )
'сначала подсчитывается результат операции, а затем он заносится в переменную.
Else
Form1.Label1 = ""
End If
End Sub
Отвечает: PsySex
Здравствуйте, Iris!
В дополнению к предыдущему ответу.
Предыдущий пример работает только если введено одно слово. Следующий пример обрабатывает все слова в предложении. На форме размещаем Text1,Label1,Command1.
====================================================
Option Explicit
Private Sub Command1_Click()
Dim strText As String
Dim vWord As Variant
Dim vWords As Variant
Dim strWord As String
Dim strNewText As String
strText = Trim(Text1.Text)
strNewText = ""
If Len(strText) > 1 Then
vWords = Split(strText, Chr(32)) '32-space
For Each vWord In vWords
strWord = CStr(vWord)
strWord = Right(strWord, 1) & Mid(strWord, 2, Len(strWord) - 2) & Left(strWord, 1)
strNewText = strNewText + strWord + Chr(32)
Next
strNewText = RTrim(strNewText) 'обрезка лишнего пробела
End If
Label1.Caption = strNewText
End Sub
====================================================
Ответ отправил: PsySex (статус: Студент)
Ответ отправлен: 04.05.2006, 14:56
Вопрос № 42.072
Здравствуйте! Имеется следующая задача: в конце строки вставить картинку, причем картинка должна иметь положение="за текстом". Делаю так:
Но при выполнениии pic.ConvertToShape картинка перемещается в произвольное место. Что можно сделать? Может быть как-то можно узнать координаты курсора?
Отправлен: 04.05.2006, 18:04
Вопрос задал: Alexius (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Genyaa
Здравствуйте, Alexius!
Может просто не нужно "терять объект из виду"? (см. Приложение)
Приложение:
--------- Всякое решение плодит новые проблемы.
Ответ отправил: Genyaa (статус: 4-ый класс)
Ответ отправлен: 04.05.2006, 19:00 Оценка за ответ: 5 Комментарий оценки: Смотри минифорум
