Конференция VBStreets

**Death** » 25.03.2003 (Вт) 14:31

Есть небольшая проблема....Описываю...
В форме моей программы есть CommonDialog,чтобы открыть файл....рядом с этой кнопкой у меня TextBox....Я хочу,ятобы при выборе файла,весь путь до этого файла показывался в TextBox...Как это сделать? :?:

**RayShade** » 25.03.2003 (Вт) 15:17

Не надо создавать две одинаковые темы в разных разделах

Тебе уже ответили в Visual Basic

**Лёха_Virus** » 25.03.2003 (Вт) 18:31

вопрос немного другого плана, но чтоб новую тему не рамсить...
код новой строки в текстбоксе есть какой-нить, чтоб при его добалении типа: text1.text = "dddfsf" & ето_код - чтоб следующая строка писалась, так сказать, на новой блин строке
ну как типа на Си endl
зы. vbEnter, chr(48) не предлагать

**RayShade** » 25.03.2003 (Вт) 18:40

vbNewLine или vbCRLF

**Лёха_Virus** » 25.03.2003 (Вт) 18:51

О! пасибо вери мач

**Death** » 25.03.2003 (Вт) 19:14

Да...я вот еще хотел спросить...у меня в форме несколько тексбоксов....Один включен,а остальные все выклбчены.Я хочу,чтобы если в одном текстбоксе появлялся текст,то другие текстбоксы включались...Как это мона сделать :?:

**RayShade** » 25.03.2003 (Вт) 19:17

Обрабатывай его событие _Change() и в нем ставь другим боксам .Enabled = True и все.

**Death** » 25.03.2003 (Вт) 19:21

А чего насчет текста-то?
If text1.text="что сюда вставить" then
text2.enabled=true
end if
Помогите....что вместо того,чтоя написал надо вставить???

**RayShade** » 25.03.2003 (Вт) 19:29

if len(text1.text)>0 then

text2.enabled = true

end if

**sanches** » 25.03.2003 (Вт) 19:31

If Len(Text1.Text)>0 Then
Text2.Enabled=True
.....
End If
- есди ты про это :wink:

**RayShade** » 25.03.2003 (Вт) 19:33

Йес! Я на 2 минуты первее

**sanches** » 25.03.2003 (Вт) 19:49

(

То я удивился: вопрос простой, RatyShade на форуме??? А вон какой оказывается :lol:

)

**Лёха_Virus** » 26.03.2003 (Ср) 19:23

лучше написать
if text1.text <> "" then
....enabled = true
else
....enabled = false
endif

так если без второго условия при удалении текста, поля всё равно открытыми останутся, а так - вот

**Firestorm** » 26.03.2003 (Ср) 21:38

чё, кто меньше код напишет? :lol:

типа какой предлагают:

if text1.text <> "" then
text1.enabled = true
else:
text1.enabled= false
end if
(82 символа, без левых пробелов)
1.
if text1 <> "" then
text1.enabled = true
else
text1.enabled = false
end if

(по крайней мере на 5 символов уже меньше :lol:

)

2. представим их как две строчки (два if'а, но без else и end if):
if tеxt1<>"" then text1.enabled=true
if text1="" then text1.enabled=false

(эээ.... две строчки (74 символа) это тоже круто :lol:

)

3. попробуем еще укоротить... :twisted:

with text1
if text1<>"" then .enabled=true
if text1="" then .enabled=false

(эээ.... тут я прогнал... плюс 2 левых символа

)

4. обзовём text1 как t... еще меньше... :shock:

if t<>"" then t.enabled=true
if t="" then t.enabled=false
ИТОГ: 58 символов... вот мля теорему вывел

кто меньше?

p.s. вот что значит, када мне нечего делать :twisted:

**sanches** » 26.03.2003 (Ср) 22:46

хватит фигней страдать

**jetcom** » 27.03.2003 (Чт) 4:20

2Firestorm: Вообще-то, если о краткости, то все это можно написать в одну строчку If...Then...Else... (Не нужно объявлять два Ифа и отпадает за ненадобностью End if) :wink:

**Firestorm** » 27.03.2003 (Чт) 7:42

jetcom писал(а):2Firestorm: Вообще-то, если о краткости, то все это можно написать в одну строчку If...Then...Else... (Не нужно объявлять два Ифа и отпадает за ненадобностью End if)

да... сознаюсь... видал это...но как-то забыл про это...и при написании както вылетали ошибки... :roll:

**RayShade** » 27.03.2003 (Чт) 10:31

Вообщето самым коротким кодом будет text1.enabled = (len(text1.text)>0) :lol:

**Death** » 27.03.2003 (Чт) 10:48

Хочу спросить вот что...Как я и говорил у меня в форме есть TextBox'ы.Рядом с одним из них я сделал кнопку.Я хочу,чтобы при нажатии на эту кнопку появлялся MessageBox(MsgBox) с текстом,который написан в соседнем TextBox'е.Какой код надовставить?Подскажите,плз...

**RayShade** » 27.03.2003 (Чт) 11:04

private sub button_click()

msgbox text2.text

end sub

так наверное

**Death** » 27.03.2003 (Чт) 11:13

БОЛЬШУЩЕЕ СПАСИБО!!!!

**skiperski** » 27.03.2003 (Чт) 13:50

RayShade писал(а):Вообщето самым коротким кодом будет text1.enabled = (len(text1.text)>0)

Ещё короче:
text1.enabled = len(text1.text)

**RayShade** » 27.03.2003 (Чт) 15:02

А вот и нет!

True у нас имеет численное значение -1, а False - 0.

Поэтому твой код возымеет обратное действие. :lol:

**sanches** » 27.03.2003 (Чт) 19:44

мда.....

вот чем тут люди занимаются, когда делать нечего :wink:

**skiperski** » 27.03.2003 (Чт) 20:16

RayShade писал(а):А вот и нет!
True у нас имеет численное значение -1, а False - 0.
Поэтому твой код возымеет обратное действие.

А ты проверь. Ради интереса. Жду результатов тестирования.

sanches писал(а):мда..... вот чем тут люди занимаются, когда делать нечего

Тут еще и не тем занимаются!

**corgi** » 28.03.2003 (Пт) 10:05

false=0
true=not false
так что если булевой переменной присваевается какое либо значение то присвоется true если значение не 0

**RayShade** » 28.03.2003 (Пт) 10:33

И правда, True будет. Ну надо же какие чудеса на свете встречаются

Конференция VBStreets

Помогите разобраться с TextBox

Помогите разобраться с TextBox

туда же...

Кто сейчас на конференции