Наверное я вам надоел ---Еще раз про TexttoSpeach

[max-aziat]

Наверное я вам надоел своими глупыми вопросами ?!
но если не трудно мож подскажете как мне быть.

короче проблема такова : мне надо когда на эл.управлениея наводиш мишкой он говорил какой это элемент .
я сделал так: в собитии мавс мув каждого элемента

Text1.Text = ""
Text1.Text = эл.управления .ToolTipText
TTS1.Speak Text1.Text

когда наводится миш на эл.управ. то говорит (ну произносит ) кокой это элемент , но когда наводиш на другой уже глючит
так мож кто знает как это сделать или может кто то сталкывался с такой проблемой...

[Zero_Bit]

Глючит - понятие растяжимое
А MouseMove файрится не только когда мышь попадает на контрол, а при любом движении указателя по оному. То есть, провёл ты мышью по контролу и сгенерил добрый десяток маусмувов...

[Александр Дмитриев]

Попоробуй сделать по-нормальному:

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

TTS1.Speak эл.управления.ToolTipText


а то я с ума схожу, как ты написал ; а если уж надо Text1, тогда рекомендовал бы вставить DoEvents, чтобы у контрола нормально успело поменяться свойство. Сделай какой-нибудь флаг, с помощью которого управляй тем, чтобы при наведении на контрол он принимал, к примеру, значение тэга элемента, и в следующий раз при наведении на него уже ничего не происходило; при наведении на Container управления чтоб он тоже что-то принимал...

[SHURUP]

вариант:

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

Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    speakToolTip Text1
End Sub

Private Sub speakToolTip(ByRef obj As Object)
    Static prntCtrl As String
    If obj.Name = prntCtrl Then Exit Sub
    prntCtrl = obj.Name
    TextToSpeech1.StopSpeaking
    TextToSpeech1.speak obj.ToolTipText
End Sub