common dialog

[DVV]

Почему в текстовое поле иногда вводяться какие-то не понятные символы(кодировка другая)
Обычно пр смене шрифта(common dialog(font)).

[A.A.Z.]

.Font.Charset = 204 'Кириллица

[DVV]

В common dilog какой параметр за это отвечает?

[tyomitch]

Никакой
Юзай CDlgEx от Оловянникова: http://vbrussian.com/Controls.asp?ID=19

[DVV]

Т.е в textbox'е могут вводиться непонятные символы?
Я имею в виду кодировку или что-то сделать можно?!

[tyomitch]

сказали же, присвой Text1.Font.Charset = 204

[DVV]

Хорошо,а если кто-нибудь использует другую кодировку!

[tyomitch]

Тогда вместо CommonDialog юзать CDlgEx

[DVV]

Спасибо за совет,скачал,посмотрел.А тут какой параметр за это отвечает.(кодировка).А вообще я хочу ,чтобы кодировка ,к-я выбрана в Font была такая же и в TextBox'е(как-бы привязка)

[tyomitch]

Гы, нету такого параметра
Ничего, сейчас сделаем привязку
Допиши в начало класса объявления:

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

Private Type Guid
    Data1 As Long
    Data2 As Integer
    Data3 As Integer
    Data4(0 To 7) As Byte
End Type
Private Type FONTDESC
    cbSizeofstruct As Long
    lpstrName As Long
    cySize As Currency
    sWeight As Integer
    sCharset As Integer
    fItalic As Long
    fUnderline As Long
    fStrikethrough As Long
End Type
Private Declare Function OleCreateFontIndirect Lib "olepro32" (pFontDesc As FONTDESC, riid As Guid, ppvObj As StdFont) As Long
Public Font As StdFont


Допиши в конец процедуры ShowFont, после строки "mFontName = Mid$(tbuf, 1, RetValue)":

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

        Dim fd As FONTDESC, IID_IDispatch As Guid
        With IID_IDispatch
           .Data1 = &H20400
           .Data4(0) = &HC0
           .Data4(7) = &H46
        End With
        With fd
           .cbSizeofstruct = Len(fd)
           .lpstrName = StrPtr(mFontName)
           .cySize = mFontSize
           .sWeight = LF.lfWeight
           .sCharset = LF.lfCharSet
           .fItalic = LF.lfItalic
           .fUnderline = LF.lfUnderline
           .fStrikethrough = LF.lfStrikeOut
        End With
        OleCreateFontIndirect fd, IID_IDispatch, Font


А в том месте, где юзаешь CDlgEx:

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

Set Text1.Font = CDlgEx1.Font


[DVV]

Огромное спасибо,но мне хотелось бы использовать Common dialog.Если знаешь как здесь делать привязочку напиши пожалуйста!

[tyomitch]

Огромное спасибо,но мне хотелось бы использовать Common dialog.Если знаешь как здесь делать привязочку напиши пожалуйста!

Совершенно точно, что нельзя. Там просто нет этой функциональности

[alibek]

Разве?
Давно не общался со стандартным Common Dialogs, но помоему там можно указать флаг, при котором задается Charset.

[tyomitch]

Его потом нельзя прочитать
Ну нету в CommonDialog свойства FontCharset

[tyomitch]

Вот, кстати, что ещё есть: http://vbrussian.com/Examples.asp?ID=86

[DVV]

Как можно выбрать сдесь папку,к-я открывается по умолчанию.(Showopen).Я такого параметра не нашёл.

[tyomitch]

InitDir

[DVV]

Да,но там нет такого параметра

[tyomitch]

Это не параметр, это свойство.

[DVV]

Хорошо свойство.Но так как его использовать?

[tyomitch]

CommonDialog1.InitDir = "C:\Windows"

[DVV]

Мне надо в CDlgEx использовать!

[Prickly]

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

private CdlgEx1 As New CdlgEx

private sub DIALOG_FOLDER()
dim str1 as string
CdlgEx1.Filter = "bmp|*.bmp|All files|*.*"
CdlgEx1.InitDir = "C:\"
CdlgEx1.ShowOpen
str1 = CdlgEx1.FileName 'str1 содержит выбранный файл
end sub

Все остальное по такому же принципу.

[DVV]

CdlgEx1.InitDir-такого св-ва нет!

[DVV]

Так как это свойство сделать?

[Sedge]

Вот только что посмотрел.
Там вместе с классом пример идет.
Есть такое свойство.
CdlgEx1.InitDir