VBNet - Форум - Поправте меня

Вопрос: Поправте меня Добавлено: 18.01.06 18:18

Автор вопроса: Tsar

я самоучка, литеруры ни какой не имею работаю методом тыка, языка не знаю.
создал что-то, но почемуто не хочет работать, хотя в VB7 работает, помогите . Поправте меня

Dim string1 As String
        Dim string2 As String
        Dim string3 As String
        Dim string4 As String
        Dim string5 As String
        Dim string6 As String
        'фамилия
        string5 = TextBox2.Text
        string6 = string5.Substring(0, 6)
        Label9.Text = string6
        'Имя
        string1 = TextBox3.Text
        string2 = string1.Substring(0, 1)
        Label6.Text = string2
        'отчество
        string3 = TextBox4.Text
        string4 = string3.Substring(0, 1)
        Label7.Text = string4

суть заключется втом что в конечном итоге в одну из ячеек EXSEL вводятся инициалы.
Ответить

Ответы Всего ответов: 4

Номер ответа: 1 Автор ответа: Дмит Вопросов: 11 Ответов: 160	Web-сайт: dimit.pochta.ru Профиль \| Цитата \| #1	Добавлено: 19.01.06 15:43
	В VBA нет конструкции string6 = string5.Substring(0, 6) Что Вы хотели, вырезать часть строки? Ответить

Номер ответа: 2 Автор ответа: mc-black ICQ: 308-534-060 Вопросов: 20 Ответов: 1860	Web-сайт: mc-black.narod.ru/dzp.htm Профиль \| Цитата \| #2	Добавлено: 19.01.06 17:23
	.Substring - это в JavaScript string6 = Mid$(string5, 0, 6) Ответить

Номер ответа: 3 Автор ответа: Tsar Вопросов: 4 Ответов: 14	Профиль \| Цитата \| #3	Добавлено: 20.01.06 23:55
	Вообщем решение почти нашел что искал ,на этом сайте в примерах-категории раздедала-Exsel- Общие и т.д. В принципе это то чтоя ищу............... но к сожалению пробовал закинуть этот код в свою прог....... ,но из этого ни ... не получилось, опять ошибки не знание языка и т.д Люди подкинте идею и и т.д. ............... ... Накачал на раб .. комп. огромное колличество разных примеров по работе с Exsel , но ни чего нужного и подобного не нашел............ Однако...... А первоначальный вопрос считаю задан не правильно- это не из э.. Практически нашел решение , но нужны госпада Ваши решения и мнения Думаю данный вопрос имеют мнногие нач... пол...... Нам "" нужны подсказки и примеры - которые можно дербанить.. Всем с уважением -Tsar Ответить

Номер ответа: 4 Автор ответа: Tsar Вопросов: 4 Ответов: 14	Профиль \| Цитата \| #4	Добавлено: 21.01.06 00:02
	чти то что мне надо Ввод текста в верхнем регистре. Принудительный ввод текста в верхнем регистре. -------------------------------------------------------------------------------- Private Sub Worksheet_Change(ByVal Target As Excel.Range) 'Target это диапозон, который изменяется If Target.Column = 2 Then'Если это вторая колонка, к примеру 'дальше проверяем статус заполнения, дабы не вызывать себя рекурсивно If Not (Target.Text = UCase(Target.Text)) Then Target = UCase(Target.Text)'и, если мы ещё не перевели все в верхний регистр, то переводим End If End If End Sub Ответить

Страница: 1 |