PDA

Просмотр полной версии : [Помогите!] VB. Циклы!


Moisei
06.09.2010, 10:53
Короче проблема в следующем - Мне нужно задать цикл, но так чтобы он проверял мне CheckBox1 - CheckBox16 т.е. нужно что-то типо For next , но с проверкой на .checked

Кто знает ответ? Прошу помочь?

Berserker007
24.09.2010, 23:44
Короче проблема в следующем - Мне нужно задать цикл, но так чтобы он проверял мне CheckBox1 - CheckBox16 т.е. нужно что-то типо For next , но с проверкой на .checked

Кто знает ответ? Прошу помочь?

зависит от длины CheckBox1->Caption

//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{long NewStyle;
//-----------
NewStyle = GetWindowLong(CheckBox1->Handle, GWL_STYLE) | BS_MULTILINE;
//-------------------------------- //-----------
SetWindowLong(CheckBox1->Handle, GWL_STYLE, NewStyle);


CheckBox1->Caption = "Адин тва трри чытыри файф!";
CheckBox1->ShowHint = true;
CheckBox1->Hint = CheckBox1->Caption;
}
//---------------------------------------------------------------------------



ну и от высоты, конечно!

//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
long NewStyle;
//-----------
NewStyle = GetWindowLong(CheckBox1->Handle, GWL_STYLE) | BS_MULTILINE;
//-------------------------------- //-----------
SetWindowLong(CheckBox1->Handle, GWL_STYLE, NewStyle);

CheckBox1->Left = 20;
CheckBox1->Top = 30;
CheckBox1->Width = 240;
CheckBox1->Height = 240;//высота!!!
//----------------------

CheckBox1->Caption = "Может кто из знатаков с++ builder подскажет в следующем вопросе. А интерисует меня как мне зделать так чтобы текст в CheckBox записывался в две или три строки как в Statictext, при попытке нажать enter появляются какие то странные символы. И еще хотелось бы при наведение на компонент CheckBox всплывало не большое окошко с какой либо информацией";


CheckBox1->ShowHint = true;
CheckBox1->Hint = CheckBox1->Caption;
}
//---------------------------------------------------------------------------

думаю заслежил спасибо :notme: