![Изображение](http://viter-alex.narod.ru/img/screenshots/scrsht2009-11-30_002353.png)
Не хочется использовать балоны, из-за их нерасторопности
Использовать ещё одну форму тоже не хочется.
Никогда об этом не слышал... Знаю, что подсказка эта может иметь ширину с весь экран, причем совершенно спокойно. Разве нет?viter.alex писал(а):Длина текста всплывающей подсказки для NotifyIcon ограничена 64-мя символами.
Imports System.Reflection
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
NotifyIcon1.Text = Microsoft.VisualBasic.Space(500)
Catch ex As ArgumentOutOfRangeException
Dim t As Type = NotifyIcon1.GetType
t.GetField("text", BindingFlags.Instance Or BindingFlags.NonPublic).SetValue(NotifyIcon1, Microsoft.VisualBasic.Space(500))
If CBool(t.GetField("added", BindingFlags.Instance Or BindingFlags.NonPublic).GetValue(NotifyIcon1)) Then
t.GetMethod("UpdateIcon", BindingFlags.Instance Or BindingFlags.NonPublic).Invoke(NotifyIcon1, New Object() {True})
End If
Finally
Debug.Print(NotifyIcon1.Text.Length)
End Try
End Sub
End Class
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 60