VBNet - Форум - MSFlexGrid

Вопрос: MSFlexGrid Добавлено: 24.01.03 03:52

Автор вопроса: Justas | Web-сайт: justas.newmail.ru | ICQ: 259418212

Привет всем!
Есть 2 вопроса:
1. Есть MSFlexGrid и база аксесовская. В таблице есть булево поле.
При отображении таблицы в гриде, булево поле отображается как 0 или 1, а сильно хочется что бы было отображалось как “есть” и ”Нет” или вообще галочками (как в CheckBox). Можно конечно перебирать содержимое ячеек и если “0” ставить “Нет”, но хотелось бы попроще.
Может у MSFlexGrid свойство есть на эту тему???

2. Чисто академический интерес:
Хочу овальное окно, пишу:
Private Sub Form_Load()
Dim region As Long
region = CreateEllipticRgn(0, 0, 200, 200)
SetWindowRgn me.hWnd, region, True
DeleteObject region
End Sub
Всё хорошо, окно овальное.
Шаг второй, хочу например, круглый виндовый калькулятор.
Пишу:
Private Sub Form_Load()
Dim region As Long
Dim hendl As Long
hendl = FindWindow(vbNullString, "Калькулятор")
region = CreateEllipticRgn(0, 0, 200, 200)
SetWindowRgn hendl, region, True
DeleteObject region
End Sub
И калькулятор, против всех ожиданий, остаётся квадратным, а хочется круглый. Как???

Ответить

Ответы Всего ответов: 3

Номер ответа: 1
Автор ответа:

vig11

ICQ: 213777061

Вопросов: 21
Ответов: 159

Профиль | | #1

Добавлено: 29.01.03 10:58

1)Данные в MsFlexGrid я заношу отдельно в каждую ячейку, поэтому сделал бы

If True Then
ячейка.Техт = " V"
Else
ячейка.Техт = ""
End If
Заодно вопрос, а к MsFlexGrid можно подключать сразу весь RecordSet?

2) Я создание эллипсовидного окна решаю так. Делаю это по нажатии кнопки cmdButton.

Public Sub cmdButton_Click()

    Static blnClipped As Boolean
    Dim lngRegion As Long
    Dim lngResult As Long
    Dim lngX1 As Long, lngX2 As Long, lngY1 As Long, lngY2 As Long
    Dim lngXoff As Long, lngYoff As Long

    If blnClipped Then
        'Restore Window to Normal
        lngResult = SetWindowRgn(Me.hwnd, 0&, True)
        'Change Button Caption
        cmdEraseForm.Caption = "Clip Me!"
    Else
        'Define the Region to Clip
        'If number biggest clip change place to left
        lngX1 = Int((Me.Width / 3.05) / Screen.TwipsPerPixelX)
        'If number biggest clip change place to top
        lngY1 = Int((Me.Height / 1.15) / Screen.TwipsPerPixelY)
        'If number biggest clip change area to small at zir X
        lngX2 = lngX1 + Int((Me.Width / 3) / Screen.TwipsPerPixelX)
        'If number biggest clip change area to small at zir Y
        lngY2 = lngY1 + Int((Me.Height / 11.5) / Screen.TwipsPerPixelY)

        'Now we must introduce an offset to compensate for the fact that
        'the title bar and frame have been removed and the region is defined relative
        'to the client area and not the entire window.
        lngXoff = GetSystemMetrics(SM_CXFRAME)
        lngYoff = GetSystemMetrics(SM_CYFRAME) + GetSystemMetrics(SM_CYCAPTION)


        'Offset the Region
        lngX1 = lngX1 + lngXoff
        lngX2 = lngX2 + lngXoff
        lngY1 = lngY1 + lngYoff
        lngY2 = lngY2 + lngYoff

        'Create the Region
        lngRegion = CreateEllipticRgn(lngX1, lngY1, lngX2, lngY2)

        'Clip it!
        lngResult = SetWindowRgn(Me.hwnd, lngRegion, True)

        'Change Button Caption
        cmdEraseForm.Caption = "Restore Me!"
                 SetForegroundWindow GetAncestor(ThisDrawing.Application.ActiveDocument.hwnd, 2)
    End If

'Toggle the state
blnClipped = Not blnClipped

End Sub

Ответить

Номер ответа: 2
Автор ответа:

Evgeni

ICQ: 14051980

Вопросов: 3
Ответов: 11

Профиль | | #2

Добавлено: 29.01.03 21:32

Если выборку делать SQL-запросом то все просто с первым вопросом

select AVAILABLE = case available when 1 then 'да' when 0 then 'нет' end , CLOSED = case available when 1 then 'да' when 0 then 'нет' end

Ответить

Номер ответа: 3 Автор ответа: Justas ICQ: 259418212 Вопросов: 24 Ответов: 325	Web-сайт: justas.newmail.ru Профиль \| \| #3	Добавлено: 30.01.03 00:11
	Большое всем спасибо! Ответить

Страница: 1 |