[Помогите!] VB. Циклы!

[Moisei]

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

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

[Berserker007]

Цитата: Сообщение от Moisei Короче проблема в следующем - Мне нужно задать цикл, но так чтобы он проверял мне 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;
}
//---------------------------------------------------------------------------

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