Люди помоги плиз .....у меня такая проблема : у меня на форме два textbox`a и одна кнопка ...
кнопка когда на ниё кликаешь должно появиться слово " привет" .......но мне надо что бы это слово появлялось в том textbox"е в котором я нахожусь!!!!

Помести на форму два TextBox по имени Text (с разными Index) и кнопку.

Код

Dim pointer As Integer Private Sub Command1_Click() Text(pointer).Text = "Привет!" End Sub Private Sub Text_LostFocus(Index As Integer) pointer = Index End Sub

Делаешь переменную, в которой будет содержаться имя активного текстбокса. Каждму из ник в собітии focus (или как там еще?) прописываешь присвоение этой переменной определенного имени. При клике на кнопке проверяешь значение переменной.

у меня ещё есть кнопка которая должна очищать сожержимое всех textbox ....но так как у меня
2 textbox`a с одинаковым именем ...то он показует ошибку... .....чё делать...

Код

Private Sub Command1_Click() Dim n As Object For Each n In Text n.Text = "" Next End Sub

пасибо... БОЛЬШОЕ ...но у меня ещё вопрос.....когда я написал в ручьную какоето слово в textbox а потом нажал клавишу которая добовляет слово " привет" .. и у меня то что я напечатал ...поменялось все на " привет " ...мне надо что бы к тому что есть добовлялось слово "привет"

ВСЁ БОЛЬШОЕ СПАСИБО,,,,,,я РАзобрался...

а как мне прибавить то что у меня в 1 textbox + 2 textbox = 3 textbox

тоисть например если я ввожу число в 1 textbox "1" а во втором 2 textbox " 2" то в третем должно получиться "3"

Если тебе надо приьавить строки, то пишешь:
text3.text = text1.text & text2.text

Если числа, то:

text3.text = text1.text + text2.text

Вот так!!!!!!!!

у меня textbox первый и второй называеться одинаково у них только разные Index()

text(3).text = text(1).text + text(2).text

оно не прибовляет а одно соединяет с другим.....например :
text(1).text = 1 а в text(2).text = 2 то в text(3).text получанться "12"

Элементарно: text(3).text = text(1).text & text(2).text

Цитата(Vadok @ 23.12.2003, 00:01)

а как мне прибавить то что у меня в 1 textbox + 2 textbox = 3 textbox тоисть например если я ввожу число в 1 textbox "1" а во втором 2 textbox " 2" то в третем должно получиться "3"

Так что все-таки надо?

kostik_16, ты сам пробовал, что написал?
shilnik, вопрос поставлен понятно, в след. раз сначала думать, а потом писать.
Товарищи я в этой теме уже нашел 3 бесполезных ответа.
Мы здесь не для того чтобы набирать очки за ответы, а для того чтобы помогать друг другу.

Вот то, что человек хотел:

Код

Text(2) = CInt(Text(0)) + CInt(Text(1))

cardinal да это то что нужно...пасибо......тему можно уже закрыть......

Это сообщение отредактировал(а) Vadok - 23.12.2003, 19:57

Цитата

Вот то, что человек хотел: Код Text(2) = CInt(Text(0)) + CInt(Text(1))

Я так не думаю. В этом коде есть ошибка
Дело в том, что при text(1)="" произойдет ошибка
Попробуйте так:

Код

Text(2)=Val(Text(0))+Val(Text(1))

Цитата

Я так не думаю. В этом коде есть ошибка

Пока ее там нет .
Человек спроосил:

Цитата

если я ввожу число в 1 textbox "1" а во втором 2 textbox " 2" то в третем должно получиться "3"

Я ему и ответил, а для того чтобы все всегда работало так как хочется надо проверять содержание TextBox`ов и соответственно реагировать.
p.s.

Код

Text(2)=Val(Text(0))+Val(Text(1))

car + dinal = 0

Все верно! Так и должно быть, а ты попробуй в своем примере что-нибудь написать...
Сразу скажет Error. А все потому, что Text(1)="". А дабы не делать проверку на "" и на IsNumeric мой вариант оптимален
А если хочешь, чтобы получилось Cardinal , надо так:

Код

Text(2)=Text(0) & Text(1)

А дабы ваще оригинально было, стоит вначале проверить Text(0) и Text(1) на IsNumeric, а потом вабрать метод сложения

Цитата

car + dinal = 0

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

Цитата

А дабы не делать проверку на "" и на IsNumeric мой вариант оптимален

В том то и дело, что делать ее надо, а все остальное - это плохой стиль программирования (мое личное мнение) потому, что в длинной проге мы потом долго будем искать возникновение ошибки (если забудем о встроеной нами отличной подставе). Мы допустили, что пользователь не ввел никакого значения, а потом удивляемся почему наш пентюк полчаса трещал и выдал результат, который нас не удовлетворяет. Ну опечатался пользователь и ввел 76н6 + 54 и что за результат он получит? Вообще надо пользоваться компонентом Microsoft Masked Edit Control в таких ситуациях.

Цитата

А если хочешь, чтобы получилось Cardinal , надо так...

Спасибо!

Ну в чем проблема?

Код

If IsNumeric(Text(0)) And IsNumeric(Text1(1)) Then   Text(2)=Text(0)+Text(1)   Else   Text(2)=Text(0) & Text(1) End If

блин всё и так работало ...чё вы опять начинаете

лутше...помогите над темой " Сохранение" ....

Black_Star, не ты меня не понял. Проблемы тут нет - просто или у тебя калькулятор или у тебя слеплялка текста , а смысла в двух вещах одновременно я не вижу. Поэтому один из случаев надо исключать либо с помощью "маски", либо сообщением об ошибке.
Vadok, ну ты блин даешь! Я даже тему в FAQ открыл:
http://forum.vingrad.ru/index.php?act=ST&f=33&t=16498
Тебе уже все объяснили!
Если ты хочешь, чтобы за тебя все сделали, то пиши в раздел "Работа"

cardinal да там всё только через АРИ функции.... мне всё равно что через ini что через dat всё равно ...просто надо что бы прога читала то что написано в том файле в который она сохроняет...и всё ..там не нужны АПИ функиции ...

Цитата

там не нужны АПИ функиции

Нужны, не нужны... Какая разница? Результат важен, а он будет именно такой как ты хочешь. Я не понимаю почему ты так боишься API. Ну сложно по началу, но дак так всегда.
Ну а если не хочешь API, то используй Write, Print, Read, Get или Put - что тебе больше нравиться. Как уже давно было написано на форуме - надо только поискать.

Цитата

Нужны, не нужны... Какая разница? Результат важен!

Полность поддерживаю !!!

cardinal я пишу проги ...методом изучения....и до АПИ функций я ещё не дошёл...

Подскажите как мне сделать следующее:


Private Sub TextBox1_Change()
??????????? - необходимо чтобы значение textbox записывалось в ячейку А1 на листе1
End Sub

Цитата(cardinal @ 23.12.2003, 16:37)

Text(2) = CInt(Text(0)) + CInt(Text(1))

Цитата(cardinal @ 8.1.2004, 23:31)

Text(2)=Val(Text(0))+Val(Text(1))

Господа, у текстбокса есть свойство Value...

Цитата(Akina @ 15.12.2004, 11:53)

Цитата(cardinal @ 23.12.2003, 16:37) Text(2) = CInt(Text(0)) + CInt(Text(1)) Цитата(cardinal @ 8.1.2004, 23:31) Text(2)=Val(Text(0))+Val(Text(1)) Господа, у текстбокса есть свойство Value...

Akina, мы говорим о VB6?
С каких это пор у текстбокса есть свойство Value?

Да и вообще теме год как исполнился, может соберемся и отметим?
Модератор: Пожалуйста, один топик - один вопрос.