Несколько несложных вопросов.

[Matew]

1. Как распологать контролы на второй, третьей и т.д. закладке ТабСтрипов?(я вот никак не пойму )
2.Подскажите, как мне программно выводть текст с нужной мне по счету строки в текст боксе(или ричтекстбоксе)?
3.У меня остался не решенным вопрос, как сохранить например прямоугольник(рект) нарисованный на пикчербоксе с помощью апи функции в формат БМП?(со всем пикчербоксом)
4.И не по теме: как мне поменять пароль в форуме?

[Tarik]

1. Никак Tabstrip - это не контейнер. Поэтому тебе нужно создать Frame'ов по количеству вкладок, отлавливать индекс активной вкладки при Click и показывать/скрывать нужный фрейм.
2.

Код: Выделить всё

function getline(glNumber as integer, glfile as string) as string
dim i as integer
dim tmpstr as string
open glfile for input as #1
do while not eof(1)
line input #1, tmpstr
i=i+1
if i=glnumber then
     glnumber=tmpstr
     exit do
loop
close
exit function


3. А зачем API? Picture1.SavePicture не подходит?
4. В Профиле
Функция возвращает строку по номеру.

[Matew]

1,2,4-спасибо
3-SavePicture сохраняет только то, что сделано LoadPicture т.е. фоновую картинку, а мне надо, что бы сохранило то, что я сам сверху нарисовал программно(типа полигоны и лайны всякие). Я уже до того дошел, что сымитировал нажатие альт принтскрин , но он сохраняет всю форму

[Matew]

Ща глянул код на второй вопрос. Там запись в файл, а мне надо на много проще . Надо просто в текст бокс (в свойство текст) загнать строку не с первой, а с нужной мне строки. Например в первую загнать "а" во вторую "б" и т.д.(типа после а нажат энтер).

[tyomitch]

1,2,4-спасибо
3-SavePicture сохраняет только то, что сделано LoadPicture т.е. фоновую картинку, а мне надо, что бы сохранило то, что я сам сверху нарисовал программно(типа полигоны и лайны всякие). Я уже до того дошел, что сымитировал нажатие альт принтскрин , но он сохраняет всю форму

AutoRedraw в True поставь, заработает.

[tyomitch]

Ща глянул код на второй вопрос. Там запись в файл, а мне надо на много проще . Надо просто в текст бокс (в свойство текст) загнать строку не с первой, а с нужной мне строки. Например в первую загнать "а" во вторую "б" и т.д.(типа после а нажат энтер).

Text1.Text = "a" & vbCrLf & "b"

[Matew]

И все? Так просто? Я в это не верю Спасибо!

[Tarik]

А я-то думал

[Matew]

У меня появился вытекающий вопрос: можно ли зациклить строку, что бы переносило на следующую строку? Примерно вот так-

Код: Выделить всё

for i=1 to n
tetx1.text= "a" & vbCrLf &
next i

[tyomitch]

Не вполне понял, что тебе нужно.
Объясни подробнее - телепаты, как водится, в отпуске

[Tarik]

Так и делай, только & в конце убери

Код: Выделить всё

for i=1 to n
tetx1.text= "a" & vbCrLf
next i


Только тогда после прохода цикла в конце текста будет перевод на новую строку. Чтобы его убрать, сделай

Код: Выделить всё

text1.text=left$(text1.text,len(text1.text)-2)


[alibek]

Не -2, а -Len(vbCrLf).

[Matew]

Я просто осел и сам до всего сразу не догадался . Мне надо было просто:
text1.text=text1.text & "i" & vbCrLf
Вот и все
Всем большое спасибо за участие!