Проблема с программой

[Spawn5]

1. найдите ошибку
Private Sub Command1_Click()
If Option1 = True Then
If Option2 = False Then
If Option3 = False Then
If check1 = False Then
If Check2 = False Then
If Check3 = False Then Label1 = "599999"
Picture1.Circle (1550, 2256), 1000, RGB(99, 20, 135)
Picture1.Circle (2970, 2256), 1000, RGB(40, 90, 10)
...........................
End If
End If
End If
End If
End If
end sub
выполняется только 1 -2 условия первых
2. Как можно вставить символы типа Ā. математич пересечение.

[VVitafresh]

Что такое Option1? Это переменная или контрол? Если это OptionButton, то так и пиши:

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

If Option1.Value  Then ....

Тоже касается и CheckBox'a

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

If Check1.Value = vbUnchecked Then ....

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

P.S. На форуме оформляй код в соответствующий тег [syntax="vb"]

[Spawn5]

Как можно вставить символы типа Ā,математич пересечение,^

[Хакер]

Куда вставить?

[Spawn5]

Элемент CheckBox
Свойство Caption вставить символы типа Ā,∩,^

[burik]

Надо найти код нужного символа в кодовой таблице. Вобщем кидаешь на форму 2 ListBox'а и CommandButton и пишешь код:

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


Private Sub Command1_Click()
    List1.Clear
    List2.Clear
    For i = 32 To 255
        List1.AddItem Chr(i)
        List2.AddItem i
    Next i
End Sub

Private Sub List1_Click()
    List2.ListIndex = List1.ListIndex
End Sub


Ищешь символ в первом ListBox'e щелкаешь по нему, в другом выделяется его код. берешь этот код и в нужном месте пишешь:

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


Chr(код)


[tyomitch]

В кириллическом чарсете этих символов не будет.

[burik]

Не подумал.. Но все равно код пригодится..

[iGrok]

Не подумал.. Но все равно код пригодится..

Угу.. А таблица символов виндовая уже не рулит, да? ,-)

[burik]

по мне так удобнее..

[Spawn5]

Как

[ACiD]

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

If Check1.Value Then label1.caption = "VB для чайников"

[Spawn5]

Спасибо.

[Spawn5]

как можно сделать, чтобы первое изображение исчезало, а после вкл чеквокса появлялось второе изображение?

[Хакер]

Spawn5
Что у тебя за извращение - постить код в качестве картинки?

[dr.MIG]

как можно сделать, чтобы первое изображение исчезало, а после вкл чеквокса появлялось второе изображение?

Picture1.Cls после включения "чеквокса" перед Picture1.Circle

И да, код в графическом формате - это излишний креатив

[Andrey Fedorov]

В кириллическом чарсете этих символов не будет.

Нужный CharSet можно выставить. Но не у CharSet-a (для него не сработает), а у Label, которую можно использовать в качестве подписи к Charset-у. Например:

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

Label1.Caption = "рОРПАЛЩШЩШ"
Label1.Font.Charset = 161

[Spawn5]

Как можно сделать, чтобы была буква в центре круга,
фон круга и при совпадении фона, например желтого и синего появился красный и буква С.

[Хакер]

Элементарно. Знание основ геометрии и не более.

Сейчас попробую описать подробно...

[Spawn5]

Можно ли так сделать [/quote]